【VB编程：随机生成10个互不相同的1~100之间的整数,存放在一维数组中,找出最大的元素,并】

网友回答

Option Explicit
Private a(9) As Integer
Private iMaxIndex As Integer
Private Sub Command1_Click()
Dim i,j,k,iMax As Integer
Dim b As Boolean
Randomize
b = True
i = 0iMax = 0
iMaxIndex = 0
ClsDo While b
k = Int(Rnd * 100) + 1
For j = 0 To i
If k = a(j) Then Exit For
Next jIf j > i Thena(i) = k
If k > iMax Then
iMax = k
iMaxIndex = i
End Ifi = i + 1b = (Not (i > 9))Print k
End IfLoopPrint 最大： & Str(iMax)
End Sub
Private Sub Command2_Click()
Dim i As Integer
a(iMaxIndex) = 0
For i = 0 To 9
Print a(i)
Next iEnd Sub