Question

在vb中如何实现用msgbox现实数组中的所有值

在vb中如何实现用msgbox显示数组中的所有值

Answer 1

Private Sub Command1_Click()
Dim s(1 To x) As String 'x就是你数组的大小了
Dim st As String
'假定 这个数组里 已经有值了

For i = 1 To x
st = st & Space(1) & s(i) & Chr(10) & Chr(13) 'chr(10)与chr(13)为换行 space(1)为1个空格 如需要则写上
Next i
MsgBox st
End Sub