分类：电脑/网络-软件
问题：请您告诉vb程序设计代码:随机产生20个互不相等的两位数,要求按? 
请您告诉vb代码：随机产生20个互不相等的两位数，要求按从大到小的顺序排序以后，每行输出5个在图
回答：强烈要求置顶！！！Dim RndValue(1 To 20) As IntegerPrivate Sub Form_Ld()Dim TempRndValue As IntegerDim TempStr As StringFor i% = 1 To 20 RndValue(i%) = Int((90 * Rnd) + 10) '生成介于10-99之间的随机数 Do Until CheckSame(i%) = False  '如果与前面的随机数相同，则生成新的随机数  RndValue(i%) = Int((90 * Rnd) + 10) Loop TempStr = TempStr + "," + Str(RndValue(i%))Next i%Me.Print TempStrEnd SubPrivate Function CheckSame(TempIndex As Integer) As Boolean    '检查是否与前面的随机数相同 For i% = 1 To TempIndex - 1  If RndValue(TempIndex) = RndValue(i%) Then CheckSame = True Next i%End Function