随机生成n个不同的数字-小组合作编写

 今天老师让我们合作，来完成一个任务，于是，我们在团支书给分配的组中，我们自己协商，自己做自己的，到最后整合都一台电脑上。

窗体下的编程如下：

     Private  Sub Command1_Click()

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

          Dim   Str2   As  String

          Call   GetNInteger(n,str2)

             Lable1.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)) & ","

         Next

    End  Sub

总结：小组的合作让我觉得很愉快，同学们之间可以商量有哪些地方是不懂的。还有同学之间可以互相寻找错误，即使纠正，我觉得这次的活动很有意义。同学们都享受其中，也表示很喜欢，希望老师对于这方面能够多多益善。