杭州交通信息网竹木纤维板材:VB中如何将一个数组显示出来??
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/08 23:58:37
有一个数组 a(1 to 10),现在按一个按钮,这个数组会PRINT到窗体或一个TEXT上,该怎么办呢??
我说的是把每个元素显示出来
我说的是把每个元素显示出来
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