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