Question

VB编程:使用随机函数产生50个10~100之间的互不相同的整数,存于一数组中,并以升序每行10个数在图片框上输

Answer 1

Private Sub Command1_Click()

Dim a(10 To 100) As Boolean

Randomize

n = 0

While n < 50

x = Int(91 * Rnd) + 10

If Not a(x) Then

a(x) = True

n = n + 1

End If

Wend

n = 0

For i = 10 To 100

If a(i) Then

Picture1.Print i;

n = n + 1

If n Mod 10 = 0 Then Picture1.Print

End If

Next i

Picture1.Print

End Sub