关于VB的~~~~

来源：百度知道 编辑：UC知道 时间：2024/06/18 17:22:22
如何从10个随机整数中寻找最大值的位置?就是它位于第几个数?
题目的原题是：设计一个窗体单击事件过程，其功能为：定义一个含有10个元素的整型数组A，给A的每个元素赋一个在区间[60，100]中的随机整数，然后从中找出最大的数，最后将这个最大的数及其在数组中的位置分别显示在文件框Text1和Text2中。
请高手帮忙～～～～急需

Private Sub Command1_Click()
Dim A(1 To 10) As Integer
Dim i As Integer
Dim Max As Integer, iMax As Integer

For i = 1 To 10
A(i) = Int(Rnd * 41) + 60
Next i

Max = A(1)
iMax = 0
For i = 2 To UBound(A)
If Max < A(i) Then Max = A(i): iMax = i
Next i

Text1.Text = Max
Text2.Text = iMax
End Sub