中科新闻网普通7位qq号码多少钱:vb高手帮忙
来源：百度文库 编辑：中科新闻网 时间：2024/04/29 10:28:04
编制程序，用随机函数产生20个两位数的整数，存于4行5列的二维数组中，将数组按矩阵形式输出到窗体，并求出其中最大元素及它的行、列坐标。
Private Sub Form_click()
Dim a(4, 5) As Integer, n As Integer, m As Integer
For i = 1 To 4
For j = i To 5
a(i, j) = Int(Rnd * 90 + 10)
Next j
Next i
n = 1
m = 1
For i = 1 To 4
For j = 1 To 5
If a(i, j) > a(n, m) Then
n = i
m = j
End If
Next j
Next i
For i = 1 To 4
For j = 1 To 5
Print a(i, j);
Next j
Print
Next i
Print "最大数" + Str(a(n, m)) + "位于第" + Str(n) + "行" + Str(m) + "列"
End sub
哪里有问题啊
Private Sub Form_click()
Dim a(4, 5) As Integer, n As Integer, m As Integer
For i = 1 To 4
For j = i To 5
a(i, j) = Int(Rnd * 90 + 10)
Next j
Next i
n = 1
m = 1
For i = 1 To 4
For j = 1 To 5
If a(i, j) > a(n, m) Then
n = i
m = j
End If
Next j
Next i
For i = 1 To 4
For j = 1 To 5
Print a(i, j);
Next j
Next i
Print "最大数" + Str(a(n, m)) + "位于第" + Str(n) + "行" + Str(m) + "列"
End sub
哪里有问题啊
Private Sub Form_Click()
Dim a(4, 5) As Integer
Dim Max As Integer
Randomize Timer
For i = 1 To 4
For j = 1 To 5
a(i, j) = Rnd * 90 + 10
If a(i, j) > Max Then Max = a(i, j)
Print a(i, j);
Next
Print
Next
Print
Print "The max number is"; Max; "(" & i & "," & j & ")"
End Sub
程序运行没问题，你问的问题是指什么？
Dim a(4, 5) As Integer
修改：
Dim a(1 TO 4, 1 TO 5) As Integer,