Dim m(9) As Integer
Dim a As Integer
Dim i As Integer
Dim j As Integer
a = 0
For i = 0 To 9
m(i) = 10 + Int(Rnd * 89)
Next
Text1.Text = m(0) & "," & m(1) & "," & m(2) & "," & m(3) & "," & m(4) & "," & m(5) & "," & m(6) & "," & m(7) & "," & m(8) & "," & m(9)
For i = 0 To 9
For j = i To 8
If m(i) < m(j + 1) Then
a = m(i)
m(i) = m(j + 1)
m(j + 1) = a
End If
Next j
Next i
Text2.Text = m(0) & "," & m(1) & "," & m(2) & "," & m(3) & "," & m(4) & "," & m(5) & "," & m(6) & "," & m(7) & "," & m(8) & "," & m(9)
End Sub
vb编写一个程序,利用随机函数Rnd生成10个10-99之间的整数,并计算其中素...
text2.text= [ n-n1 ]
vb程序中 输出10个[10,99]范围内随机整数用“生成”按钮, 用“统计...
'生成是个随机数 private sub sc_click()'下面这一句可以得到不同的随机数 randomize '不用这一句也可以，不影响效果 for i=1 to 10 a(i)=int(rnd*90+10)next i end sub '统计随机数奇偶数个数 private sub tj_click()dim j as integer,o as integer for i=1 to 10 if a(i) mod...
VB利用随机函数Rnd生成10个10-99的整数,并计算其中的素数个数。(求大神...
1、首先，我们给主函数先定一个函数。2、然后我们编写For循环语句。3、然后我们编写输出语句及范围。4、然后我们开始运行测试。5、这句警告没关系，如果不想看到可以添加调用数学函数。6、这时我们便可以看到效果了。
VB中,随机产生10个0~100之间的随机数,按从小到大的顺序排列怎么做...
1 - 100 之间选 20 个随机数Trec = 10 End Sub Private Sub Command1_Click() S = GetRnd(1, 100, Trec) Me.ClsFor i = 0 To Trec - 1 Print S(i) Next i End Sub Private Sub Command2_Click()'*** 由小排到大(冒泡排序法)Me.Cls For i = 0 To Trec - 1 k = i For...
vb中随机生成10个10~90的整数, 把能被3整除的随机数从小到大排序
Randomize初始化随机数发生器 Rnd()获取0~1之间的随机数，乘以90后再加上10，取整后就是10~90之间的了 然后挑选出来 Mod 3 = 0的数据排序就是了 求采纳为满意回答。
vb单击“数列生成”按钮,自动生成10个10~90之间的随机整数,存于...
Dim a(1 To 10) As IntegerPrivate Sub Command1_Click() List1.Clear Randomize (Timer) For i = 1 To 10 a(i) = Int(Rnd(i) * 81 + 10) List1.AddItem a(i) Next iEnd SubPrivate Sub Command2_Click() List2.Clear For i = 1 To 9 For j = i + 1 ...
vb产生随机数,然后数组排列,然后平均数。
rndNum(i) = Int(Rnd * 90 + 10) '产生10个10--99之间的随机整数(如果要求不重复的话，还要判断，这里不写了)Print rndNum(i);sum = sum + rndNum(i) '求和 Next avg = Format(sum \/ 10, "0.00") '求平均数 Print "平均数：" & avg Print '换行 Print "---从小到大排列--...
vb语句 设计一个随机数程序,生成10个范围是1到100随机整数,并求出这...
dim Arr_num(9) as int '赋予初始值 Min_num=101 Max_num=-1 Sum_num=0 '循环10次获得10个随机数 for i=1 to 10 randomize Arr_num(i-1)=int(rnd*100)+1 '判断后赋值最小值 if Arr_num(i-1)<Min_num then Min_num=Arr_num(i-1)'判断后赋值最大值 if Arr_num(i-1)>Max...
用vb怎样生成10个不重复的(1到10)随机数?
vb生成10个不重复的随机数代码：Private Sub Command1_Click()Dim a(9) As Integer For i = 0 To 9 GoTo way1 End If Next p End If Print a(i)Next i End Sub
VB代码,计算机随机产生10个1—100的奇数,并由大到小输出
Private Sub Form_Load()Me.Show Dim a(10) As Integer Print "随机产生的10个1-100的奇数："Randomize For i = 1 To 10 a(i) = Int(100 * Rnd + 1)If a(i) Mod 2 = 0 Then a(i) = a(i) + 1 Print a(i);Next Print Print "从大到小排列："For i = 1 To 9 For ...
