杭州交通信息网遂宁鼎盛国际又在闹了:vb编程问题"单击窗体产生10个两位的随机整数，计算并显示出最大的数据和其所在数组中的位置"
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/01 23:07:38
Private Sub Form_Click()
Randomize
Dim a(1 To 10) As Integer, i As Integer
Dim j As Integer, max As Integer
For i = 1 To 10
a(i) = Int(Rnd * (99 - 10 + 1) + 10)
Print a(i)
Next i
Print
max = 1
For i = 1 To 10
If a(i) > a(max) Then max = i
Next i
Print "最大的数是："; a(max), "是第"; max; "个数"
End Sub