VB利用随机函数Rnd(),随机产生3个50至100的整数,按从小到大的顺序显示.求代码
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/10/01 08:36:24
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)
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之间的随机整数,将其中的偶数按由小到大的顺序排列…