首先设计窗体,如图所示: 设计好窗体写代码,首先要定义变量
Dim i As Integer
Dim j As Integer
Dim a(10) As Integer '定义变量
Dim max As Integer '定义最大的数
Private Sub Command1_Click()
Text1.Text = "" '每一次结束都清除原先的记录,显示新的数据
Text2.Text = ""
For i = 1 To 10
'利用一个FOR循环,随机显示10个数
k = Int(Rnd * 100 + 1) '随机数是1到100之间的
For j = 1 To i - 1 '判断是否有重复的数
y = 0
If k = a(j) Then
y = 1
Exit For
End If
Next j
If y = 0 Then
a(i) = k
Text1 = Text1 & Str(a(i)) '使10个数显示在text中
Else
i = i - 1
End If
Next i
max = a1 '先假设a1是最大的数,学会假设 由聪到明
For i = 2 To 10
If a(i) > max Then '用这个数和后面每一个数做比较,如果后面有值比max大则调换
max = a(i)
End If
Next i
Text2.Text = max '在text2里显示最大数
End Sub
运行结果如图