手机流式传输:VB中如何将一个数组显示出来??
来源:百度文库 编辑:神马品牌网 时间:2024/05/11 03:04:10
我说的是把每个元素显示出来
www.caona.cn这里有答案
Private Sub Form_Load()
Dim a(1 To 10) As String
For i = 1 To 10
a(i) = "dddd"
Next i
Me.AutoRedraw = True
For i = LBound(a) To UBound(a)
Me.Print a(i)
Next i
End Sub
可以使用Join函数。
PRINT JOIN(a)
------------------
回楼下,如果只是用来显示的话,JION足以满足需求了;
可以直接使用
PRINT JOIN(a,vbCrlf)
这样就会将每个值以回车分隔了。
Private Sub Form_Load()
Dim a(1 To 10) As String
For i = 1 To 10
a(i) = "dddd"
Next i
‘========================显示过程==============================
For i = LBound(a) To UBound(a)
Me.Print a(i)
Next i
’======================================================
End Sub
用for循环吧。
Join只是将数组转为字符串,会将数组数据放一个字符串中
在窗体中显示出来:
Private Sub Command1_Click()
Me.PRINT JOIN(a,vbCrlf)
End Sub
或者在text控件中显示出来:
Private Sub Command1_Click()
Text1.Text = JOIN(a,vbCrlf)
End Sub