产生20个[0,99]之间的随机整数,并按从小到大的顺序输出 (用VB程序解答)
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/07/22 17:38:28
产生20个[0,99]之间的随机整数,并按从小到大的顺序输出 (用VB程序解答)
下午就要清考,关乎生死,
下午就要清考,关乎生死,
![产生20个[0,99]之间的随机整数,并按从小到大的顺序输出 (用VB程序解答)](/uploads/image/z/16742211-51-1.jpg?t=%E4%BA%A7%E7%94%9F20%E4%B8%AA%5B0%2C99%5D%E4%B9%8B%E9%97%B4%E7%9A%84%E9%9A%8F%E6%9C%BA%E6%95%B4%E6%95%B0%2C%E5%B9%B6%E6%8C%89%E4%BB%8E%E5%B0%8F%E5%88%B0%E5%A4%A7%E7%9A%84%E9%A1%BA%E5%BA%8F%E8%BE%93%E5%87%BA+%28%E7%94%A8VB%E7%A8%8B%E5%BA%8F%E8%A7%A3%E7%AD%94%29)
Private Sub Command1_Click()
Dim i%,mArr(19),m%,t%
For i = 0 To 19
Randomize
mArr(i) = Int(Rnd * 100)
Next i
For i = 0 To 18
For m = i + 1 To 19
If mArr(m) < mArr(i) Then t = mArr(i):mArr(i) = mArr(m):mArr(m) = t
Next m
Next i
Print Join(mArr,",")
End Su
Dim i%,mArr(19),m%,t%
For i = 0 To 19
Randomize
mArr(i) = Int(Rnd * 100)
Next i
For i = 0 To 18
For m = i + 1 To 19
If mArr(m) < mArr(i) Then t = mArr(i):mArr(i) = mArr(m):mArr(m) = t
Next m
Next i
Print Join(mArr,",")
End Su
生成10个0~100之间的随机整数,按从小到大的顺序输出这些数
求VB 程序设计利用随机函数产生80个10~99之间的随机整数,将其中的偶数按由小到大的顺序排列并输出,将奇
vb 用随机函数产生10个[100,200]之间的随机整数向数组赋值,按降序排列并输出
Vb 随机函数产生20个10到50之间的数,放入数组,并且计算所有20个随机整数的平均值并输出
vb编写程序,单击按钮,使计算机产生一个0到100之间的随机整数,然后判断这个数是奇数还是偶数,并输出该
使用随机函数产生50个10—99的随机整数放入数组a中,再按从小到大的顺序排序,并以每行10个数据输出.
JAVA题,使用java.lang.Math类,生成50个0到99之间的不重复的随机整数,并按降序的顺序输出这些整数
求C++程序:任意从键盘输入10个整数,按从小到大的顺序排序,并输出结果.
vfp改错题求解1下列程序用来产生20个0~100之间的随机整数,* 并找出其中的最大数和最小数,输出时20个随机* 整
利用随机函数产生100个10~99之间的随机整数,找出其中的奇数和素数,并将奇数按从小到大的顺序排列
vb编写一个程序,利用随机函数生成15个80~99之间的随机整数,输出其中的最大值与最小值
用VB在1-100中产生10个随机整数,按从小到大的顺序排列 如题..求代码