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