Private Sub Command1_Click()
Text1.Text = “”
Dim s As Long, i As Long
Dim a()
Do
ReDim Preserve a(s)
a(s) = InputBox(“请输入字符串,输入空串时结束”, “输入”)
s = s + 1
Loop Until a(s - 1) = “”
For i = 0 To s - 2
Text1.Text = Text1.Text & “第” & CStr(i + 1) & “个是:” & CStr(a(i)) & “”
Next i
Erase a
End Sub
VB中,动态数组中输入数据
最新推荐文章于 2020-12-03 18:04:43 发布