重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
vb中可以使用+连接字符串,
成都创新互联提供成都网站设计、网站建设、网页设计,成都品牌网站建设,广告投放平台等致力于企业网站建设与公司网站制作,10年的网站开发和建站经验,助力企业信息化建设,成功案例突破上千多家,是您实现网站建设的好选择.
也可以使用连接字符串,
建议使用连接字符串,以区别数学运算符+。
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里输入第一个数+第二个数
我这个方法的前提是:
text1里的每个数必需由空格分隔
text2里的文本要用+分隔
----------------------------------------------------------
dim
t1()
as
string
dim
t2()
as
string
dim
t1l,
i
as
integer
dim
temp
dim
r
as
integer,
rs
as
string
'用split函数分隔用户的输入
t1
=
split(text1.text,
"
")
t2
=
split(text2.text,
"+")
'获取数组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
'显示结果
rs
=
left(rs,
len(rs)
-
1)
rs
=
rs
"="
r
text3.text
=
rs
----------------------------------------------------------
代码就是这样,缺点就是不是说在text2中输入第一个数+第二个数才可以加,输入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}