vb中怎么将字符数组转换成字符串
答案:2 悬赏:50 手机版
解决时间 2021-02-08 11:20
- 提问者网友:杀生予夺
- 2021-02-07 11:02
vb中怎么将字符数组转换成字符串
最佳答案
- 五星知识达人网友:西岸风
- 2021-02-07 11:22
dim a(20) as string
dim c as string
dim l as integer
private sub command1_click()
l = 0
for i = 1 to 20
n = int(rnd * 11 + 1)
for j = 1 to n
c = chr(int(rnd * 26 + 97))
a(i) = a(i) & c
next j
print a(i); space(15 - len(a(i)));
if len(a(i)) > l then
l = len(a(i))
end if
if i mod 5 = 0 then print
next i
print
for i = 1 to 20
if len(a(i)) = l then
print "最长的字符串长度是" & l & ",字符为" & a(i) & vbcrlf
end if
next i
end sub
dim c as string
dim l as integer
private sub command1_click()
l = 0
for i = 1 to 20
n = int(rnd * 11 + 1)
for j = 1 to n
c = chr(int(rnd * 26 + 97))
a(i) = a(i) & c
next j
print a(i); space(15 - len(a(i)));
if len(a(i)) > l then
l = len(a(i))
end if
if i mod 5 = 0 then print
next i
for i = 1 to 20
if len(a(i)) = l then
print "最长的字符串长度是" & l & ",字符为" & a(i) & vbcrlf
end if
next i
end sub
全部回答
- 1楼网友:一秋
- 2021-02-07 12:36
Private Sub Form_Click()
Dim a(3) As String, s As String
a(0) = "
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯