VB中用二维数组存放数据,怎样调用数组让其显示到窗体或相关控件上?

来源:百度知道 编辑:UC知道 时间:2024/05/28 17:57:29
最好能举例说明.

例:用Msgbox(提示框)显示二维数组的值如下:
Private Sub Form_Load()
Dim TestArray(1 To 5, 1 To 5) As String
Dim i As Integer
Dim j As Integer

For i = 1 To 5 Step 1
For j = 1 To 5 Step 1
TestArray(i, j) = "Array[" & CStr(i) & "][" & CStr(j) & "]"
MsgBox TestArray(i, j)
Next j
Next i

End Sub

例:用Msgbox(提示框)显示二维数组的值如下:
Private Sub Form_Load()
Dim TestArray(5, 5) As String '定义了一个6*6的二维数组,5为最大下标量
Dim i As Integer
Dim j As Integer '数组内定位的指针变量

For i = 0 To 5 Step 1
For j = 0 To 5 Step 1
'按自己需要往数组内赋值
TestArray(i, j) = "Array[" & CStr(i) & "][" & CStr(j) & "]"
'用消息框显示数组内容
MsgBox TestArray(i, j)
Next j
Next i

End Sub