随机显示十个数字并突出最大值

 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) Th