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

问题描述:

VB编程:随机生成10个互不相同的1~100之间的整数,存放在一维数组中,找出最大的元素,并从数组中删除该元素
急啊,在线等答案,打下救命!
1个回答 分类:综合 2014-10-18

问题解答:

我来补答
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 = 0
iMax = 0
iMaxIndex = 0
Cls
Do While b
k = Int(Rnd * 100) + 1
For j = 0 To i
If k = a(j) Then Exit For
Next j
If j > i Then
a(i) = k
If k > iMax Then
iMax = k
iMaxIndex = i
End If
i = i + 1
b = (Not (i > 9))
Print k
End If
Loop
Print "最大:" & Str(iMax)
End Sub
Private Sub Command2_Click()
Dim i As Integer
a(iMaxIndex) = 0
For i = 0 To 9
Print a(i)
Next i
End Su
 
 
展开全文阅读
剩余:2000
也许感兴趣的知识