本程序的功能是产生10个个位数互不相同的三位随机整数，并存放到与其个位位数相同的数组元素中。例如，368存入到 a(8)。
Private Sub Form_Click()
Dim A(9) As Integer, n As Integer
Do While n <= 9
    x = Int(Rnd * 900 + 100)
        
    If a(k) = 0 Then
a(k) = x
             
    End If
Loop
For i = 0 To 9
Print a(i);
Next
End Sub