Question

VB简单程序函数练习题

vb程序入门
简单程序练习题

Answer 1

Private Sub Command1_Click()
Dim i%, j%
Randomize
For i = 0 To 5
For j = 0 To 6
arr(i, j) = Int(Rnd * 90 + 10)
Next
Next
Label1.Caption = "二维数组如下:"
For i = 0 To 5
Label1.Caption = Label1.Caption & vbCrLf
For j = 0 To 6
Label1.Caption = Label1.Caption & arr(i, j) & Space(2)
Next
Next
End Sub

Private Sub Command2_Click()
Dim max%, t
max = arr(0, 0)
For Each t In arr
If max < t Then
max = t
End If
Next
Label2 = "最大值为:" & max
End Sub

Private Sub Command3_Click()
End
End Sub

Answer 2

问的太没针对性了.

Answer 3

???