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

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 

运行结果如图