由计算机随机生成10个互不相同的数，然后将这些数按从小到大的顺序显示出来。表单的load事件代码中声明数组：public a(10)随机整数的生成由表单的activate事件代码完成：p=""for i=1 to 10  yes=1  do while yes=1    x=int(rand()*100)    yes=0    for j=1 to i-1      if x=val(a(j))          yes=1          exit       endif     endfor   enddo    a(i)=str(x,2)   p=p+a(i)+","   endfor   thisform.label2.caption=left(p,len(p)-2)   thisform.label4.caption=""排序command1的事件代码：asort(a)p=""for i=1 to 10   p=p+a(i)+"," endfor thisform.label4.caption=left(p,len(p)-2)重置按钮command2的click事件代码：thisform.activate

评论