负责窗口编辑的,他们的成果是:
负责代码编辑的代码是:
Private Sub Command1_Click()
Dim a(10) As Integer
Dim mystr As String
Dim printstr As String
Dim q 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
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
q=q& Str(a(i))
label1.caption= q
Next