试验十：随机生成10个不同的数

一、实验目的：

         随机生成10个不同的数

二、实验内容：

        下面再写一种随机生成10个不同的数的另一种方法并且分为两部分

         Private Sub Command1_Click()

         n = InputBox(请输入一个正整数）

         dim str2 As string

         call getNInteger(n,str2)

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

         End Sub

模块

        Sub getNInteger(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 = p & Str(a(i)) & "i"

      Next

      End Sub

三、心得体会

     通过这次与同学们合作，知道了合作的力量，所以要经常和同学们合作

四、遇到的困难与解决方法

     由于上课很认真听并且随时记笔记，所以没有遇到多少困难，并且与同学合作很愉快，遇到到的一点点问题解决方法是和同学商量一下，自己思考一下就可以解决了