怎么设置vb中一维数组的行和列?

发布网友发布时间：2022-05-15 06:20

共2个回答

热心网友时间：2023-10-11 12:34

pa.pring(a[1])就可以提交了，
如果每个都要提交的话，就写循环，i=0;i<a.length;i++
pa.pring(a[i])加

热心网友时间：2023-10-11 12:34

本程序共用两个按钮。按钮放在窗体右侧，左侧来用来输出。因为你没有“图示”，暂按6行、6列输出。

代码如下：
Dim 数组(1 To 6, 1 To 6) As Integer

Private Sub Command1_Click()
Print "36个随机整数100~999"
For i = 1 To 6
For j = 1 To 6
数组(i, j) = Int(Rnd * 900) + 100
Print Tab(5 * j); 数组(i, j);
Next j
Print
Next i
Command2.Enabled = True
Command1.Enabled = False
End Sub

Private Sub Command2_Click()
最大 = 数组(1, 1)
最小 = 最大
For i = 1 To 6
For j = 1 To 6
If 最大 < 数组(i, j) Then 最大 = 数组(i, j)
If 最小 > 数组(i, j) Then 最大 = 数组(i, j)
Next j
Next i
Print "最大值为："; 最大
Print "最小值为"; 最小
Command2.Enabled = False
End Sub

Private Sub Form_Load()
Command1.Caption = "产生数组"
Command2.Caption = "求最大最小值"
Command2.Enabled = False
End Sub

另，这不是一维数组，而是二维数组。