随机生成10个数

生成随即生成十个数的步骤如下：1.打开程序。 2.插入command。 3 .编写程序.  

程序如下:

Private Sub Command1_Click()

Dim a(10) As Integer

Dim mystr As String

Dim printstr As String

a(i) = Int(Rnd() * 100 + 1)

printstr = Str(a(1))

mystr = "要"

For i = 2 To 10

t = Int(Rnd() * 100 + 1)

For k = 1 To i - 1

If t = a(k) Then

mystr = "不要"

Exit For

End If

If mystr = "不要" Then

i = i - 1

Else

a(i) = t

printstr = Str(a(i))

End If

Next

Print printstr

Next

4.运行程序.5.检查错误.6.再次运行.7重复步骤,直到运行成功.8.保存文件.