vb随机显示10个数，并显示最大的数

首先设计窗体，如图所示：  设计好窗体写代码，首先要定义变量

Dim i As IntegerDim j As IntegerDim 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 

运行结果如图