从品牌网站建设到网络营销策划,从策略到执行的一站式服务
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}
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图