生成随即生成十个数的步骤如下: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.保存文件.