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

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

Option ExplicitPrivate a(9) As IntegerPrivate iMaxIndex As IntegerPrivate Sub Command1_Click()Dim i,j,k,iMax As IntegerDim b As BooleanRandomizeb = Truei = 0iMax = 0iMaxIndex = 0ClsDo While bk = Int(Rnd * 100) + 1For j = 0 To iIf k = a(j) Then Exit ForNext jIf j > i Thena(i) = kIf k > iMax TheniMax = kiMaxIndex = iEnd Ifi = i + 1b = (Not (i > 9))Print kEnd IfLoopPrint 最大： & Str(iMax)End SubPrivate Sub Command2_Click()Dim i As Integera(iMaxIndex) = 0For i = 0 To 9Print a(i)Next iEnd Sub

哦，回答的不错