作业帮 > 综合 > 作业

VB利用随机函数Rnd(),随机产生3个50至100的整数,按从小到大的顺序显示.求代码

来源：学生作业帮 编辑：灵鹊做题网作业帮 分类：综合作业 时间：2024/05/14 10:27:12
VB利用随机函数Rnd(),随机产生3个50至100的整数,按从小到大的顺序显示.求代码
代码要简单一点的,我才大一.
VB利用随机函数Rnd(),随机产生3个50至100的整数,按从小到大的顺序显示.求代码
Private Sub Command1_Click()
Dim a(1 To 3) As Integer '定义数组
'生成随机数
For i = 1 To 3
Randomize
a(i) = Int(Rnd * (100 - 50 + 1) + 50)
Next
'冒泡法排列大小
For j = 1 To 2
For t = j + 1 To 3
If a(j) > a(t) Then
temp = a(t)
a(t) = a(j)
a(j) = temp
End If
Next
Next
'输出结果
For o = 1 To 3
MsgBox a(o)
Next
End Sub
再问： 这个结果显示能不能像这样子：23 65 76，一起出来再窗体上
再答： For o = 1 To 3 MsgBox a(o) Next 改为 print a(1) & space(1) & a(2） & space(1) & a(3)
写VB代码利用随机函数产生20个50~100之间的随机整数,显示它们的最大值、最小值、和平均值 用VB在1-100中产生10个随机整数,按从小到大的顺序排列 如题..求代码 vb语言中利用随机函数产生20个50~100之间的随机整数,显示他们的最大值,最小值和 VB题 .利用随机函数rnd产生30个10~100之间的整数,再将它们按照由小到大的顺序排列输出 急求VB编程“利用随机函数产生10个50-100之间的随机整数,求它们的最大值和平均值,要求用数组做”, 利用随机函数产生50-100范围内的20个随机整数,显示其中的最大值、最小值、平均值 vb问题利用随机函数产生80个10～99之间的随机整数, vb利用随机函数产生50到100范围的30个随机数,显示其中最大值,最小值,平均值, 求VB 程序设计利用随机函数产生80个10～99之间的随机整数,将其中的偶数按由小到大的顺序排列并输出,将奇 利用随机函数产生100个10~99之间的随机整数,找出其中的奇数和素数,并将奇数按从小到大的顺序排列 VB利用随机函数产生30个[3,99]整数,打印输出其中的素数（要求用数组存放） 利用高级语言程序设计（VB）随机函数产生90个10～99之间的随机整数,将其中的偶数按由小到大的顺序排列…