vb中可以使用+連接字符串,
成都創(chuàng)新互聯(lián)提供成都網(wǎng)站設(shè)計、網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計,成都品牌網(wǎng)站建設(shè),廣告投放平臺等致力于企業(yè)網(wǎng)站建設(shè)與公司網(wǎng)站制作,10年的網(wǎng)站開發(fā)和建站經(jīng)驗,助力企業(yè)信息化建設(shè),成功案例突破上千多家,是您實現(xiàn)網(wǎng)站建設(shè)的好選擇.
也可以使用連接字符串,
建議使用連接字符串,以區(qū)別數(shù)學(xué)運算符+。
Dim Str1() As String = {"123", "321", "231", "132"}
Dim Str2() As String = {"qwe", "asd", "zxc", "sdf", "asdf"}
Dim Str() As String = Str1
ReDim Preserve Str(Str1.Length + Str2.Length - 1)
Str2.CopyTo(Str, Str1.Length)
這個問題用vb點虐 比較簡單.......
在text1里輸入12
85
74
69
73
91
65
在text2里輸入第一個數(shù)+第二個數(shù)
我這個方法的前提是:
text1里的每個數(shù)必需由空格分隔
text2里的文本要用+分隔
----------------------------------------------------------
dim
t1()
as
string
dim
t2()
as
string
dim
t1l,
i
as
integer
dim
temp
dim
r
as
integer,
rs
as
string
'用split函數(shù)分隔用戶的輸入
t1
=
split(text1.text,
"
")
t2
=
split(text2.text,
"+")
'獲取數(shù)組t1中一共有幾個元素
for
each
temp
in
t1
t1l
=
t1l
+
1
next
'直接開始相加
for
each
temp
in
t2
r
=
r
+
t1(i)
rs
=
rs
t1(i)
"+"
i
=
i
+
1
next
'顯示結(jié)果
rs
=
left(rs,
len(rs)
-
1)
rs
=
rs
"="
r
text3.text
=
rs
----------------------------------------------------------
代碼就是這樣,缺點就是不是說在text2中輸入第一個數(shù)+第二個數(shù)才可以加,輸入a+b也可以加
Dim a As Byte() = New Byte() {1, 2, 3, 4}
Dim b As Byte() = New Byte() {5, 6, 7, 8}
Dim c As Byte() = a.Concat(b).ToArray
'c={1,2,3,4,5,6,7,8}