生成不定的n个正整数

窗体编辑：

Private Sub Command1-click()

n = Inputbox("请输入一个正整数n，>=1")

Dim Str2 As string

 Call getNInteger(n,str2)

  lable1.Caption = left(str2,len(str2)-1)

End Sub

模块编辑：

Sub gettNInteger(Byval n As Integer,ByRef p As String)

Redim a(1 to n)

Randomize

 p=" "

For i = 1 to n

Do

    x = Int(Rnd*90) +10

     yes = 0

For j = 1 to i - 1

    If x =a(j)  Then yes = 1: Exit For

Next

Loop while yes =1

a(i) = x

  p = str(a(i))

Next

End Sub