| vb随机显示10个数，并显示最大的数 | 您所在的位置：网站首页 › vb随机生成20个1到100随机整数 › vb随机显示10个数，并显示最大的数 |
vb随机显示10个数，并显示最大的数
|
首先设计窗体，如图所示： 设计好窗体写代码，首先要定义变量 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运行结果如图 
|
【本文地址】
公司简介
联系我们