用VB：用随机函数产生20个两位的正整数,并要求从小到大顺序输出.

来源：学生作业帮助网编辑：作业帮时间：2024/04/28 17:15:21

用VB：用随机函数产生20个两位的正整数,并要求从小到大顺序输出.
用VB：用随机函数产生20个两位的正整数,并要求从小到大顺序输出.

用VB：用随机函数产生20个两位的正整数,并要求从小到大顺序输出.
Dim a(1 To 20) As Integer, i As Integer, j As Integer
Private Sub Command1_Click()
Randomize
Print "原始数据："
For i = 1 To 20
a(i) = Int(Rnd * 90 + 10)
Print a(i);
Next i
Print: Print
End Sub
Private Sub Command2_Click()
For i = 1 To 20
For j = 1 To i - 1
  If a(j) > a(i) Then
    t = a(j)
    a(j) = a(i)
    a(i) = t
  End If
Next j
Next i
Print "排序结果为："
For i = 1 To 20
Print a(i);
Next i
Print: Print
End Sub

用VB：用随机函数产生20个两位的正整数,并要求从小到大顺序输出. 利用随机函数产生10个30～100之间的随机正整数,求最大值,最小值平均值,并显示数组的值和结果用VB程序设计 VB中用随机函数产生一个两位的随机正整数的公式是什么? 随机产生20个10~99的正整数,除去其中的偶数,再将剩余的奇数从大到小排列用vb编写 vb中如何随机产生20个10以内的正整数 VB编程：利用随机函数Rnd()生成20个在1~100之间的各不相同的正整数,并在窗体上显看清楚,一定要是正整数,谢谢了.用VB VB随机函数产生2个两位数的随机正整数放在数据1和数据2两个文本框中代码应该怎么打? 关于VB的编程题.如何在Text1随机产生+、-、*、/四种符号,用什么函数? 谢谢啦用VB程序写出“利用随机函数产生20个50~100范围内的随机数,显示他们的最大值、最小值和平均值.”怎么写 VB.用随机函数产生100个【0,99】范围内的随机整数,统计个位上的数字为0,1,2..9的元素个数（使用数组 VB编程,用随机函数产生100个【0,99】范围内的随机整数,统计个位上的数字为0的元素个数用vb编程：利用随机函数产生50-100范围内的20个随机数,显示其中的最大值、最小值和平均值. 急求VB编程“利用随机函数产生10个50-100之间的随机整数,求它们的最大值和平均值,要求用数组做”, vb 用随机函数产生10个[100,200]之间的随机整数向数组赋值,按降序排列并输出用vb打印一个10*10的随机两位正整数方阵 vb中利用随机函数产生30个不同的三位正整数,打印出这30个数,然后将它们按从大到小的次序排序 VB随机产生20个正整数并使奇数偶数在不同行显示关于VB的Rnd函数的问题随机产生两位正整数为什么是Rnd()*90 + 10随机产生0-100的整数为什么是Int(Rnd()*100+ 0.5)能帮我分析一下具体是怎么算的吗?