VB如何依次呈现姓名 随机且不重复答:Private Sub Form_Click()Dim I As Long, Arr(), S As Long Cls Randomize Arr = Array("一", "二", "三", "四", "五", "六", "七", "八", "九", "十")For I = 1 To 10 S = Int(Rnd() * UBound(Arr)) '产生随机数 Print Arr(S)Arr(S) = Arr(UBound(Arr)...
VB中,随机产生10个0~100之间的随机数,按从小到大的顺序排列怎么做?答:可用冒泡排序法:代码如下:'不重复随机数排序'添加 Command1 Command2 Command3Option Explicit Dim i&, j&, k&, t&, Trec&, Arr&(), RndVal&, TmpVal&, S Private Sub Form_Load()Command1.Caption = "选随机数"Command2.Caption = "小到大排序"Command3.Caption = "大到小排序"'*...