使用模块通用编写任输出n个不相等的数

private sub command1-click()

     n=intput box("请输入一个正整数"）

   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(rnod*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

心得体会：这次是分组进行，三人一组，大家都做，最后交流。我才知道怎么用模块，感觉这样写不如只用一个清晰。在编写过程中，用到&的地方空格键一定要打出来。