刚刚接触asp，要用vb脚本语言，对我这个新手来说能写出来不简单啊，哈哈~鼓励一下自己！代码贴出来供新手参考。

Dim   SHUZU() 用于存放1-100数字

  Dim   SHUZU2()   用于存放1-100中随机选出来的30个数字

  N=30  

  M=100  

  ReDim   SHUZU(m-1)  

      For   i=0   To   M-1    

      SHUZU(i)=i  

  Next    

  For  i=0   To   M-1 

      DataSwap SHUZU(i),SHUZU(Int(Rnd*(m-1)+1))  打乱顺序

  Next  

    ReDim   SHUZU2(N-1)  

  For   i=0   To   N-1 

      SHUZU2(i)=SHUZU(i)  

  Next  

  Function   DataSwap(i,j)  

      temp=i:i=j:j=temp  

  End   Function

for i=0 to n-1

response.write"题号"&SHUZU2(i)&"</br>"
next

中文是注释，vb中注释前面加单引号'