早教吧作业答案频道 -->其他-->
求解VB程序设计题随机产生100个完全无序的正整数(范围为1-100),将它们每5个一行整齐地输出在显示器上,然后采用任意一种排序的算法将它们按照从小到大的顺序排序后,再次每5个一行
题目详情
求解VB程序设计题
随机产生100个完全无序的正整数(范围为1-100),将它们每5个一行整齐地输出在显示器上,然后采用任意一种排序的算法将它们按照从小到大的顺序排序后,再次每5个一行整齐地输出在显示器上。
(1) 写出描述解决这问题的算法步骤。
(2) 画出解决该问题的流程图。
(3) 写出解决该问题的程序代码
随机产生100个完全无序的正整数(范围为1-100),将它们每5个一行整齐地输出在显示器上,然后采用任意一种排序的算法将它们按照从小到大的顺序排序后,再次每5个一行整齐地输出在显示器上。
(1) 写出描述解决这问题的算法步骤。
(2) 画出解决该问题的流程图。
(3) 写出解决该问题的程序代码
▼优质解答
答案和解析
Private Sub Form_Click()
Cls
Dim a(100) As Integer
'以下产生100个正整数
Randomize
For i = 1 To 100
a(i) = Int(Rnd() * 100 + 1)
Print a(i) & vbTab;
If i Mod 5 = 0 Then Print
Next
'排序
For i = 1 To 99
For j = i + 1 To 100
If a(i) > a(j) Then tmp = a(i): a(i) = a(j): a(j) = tmp
Next
Next
'输出数据
Print "排序后的结果"
For i = 1 To 100
Print a(i) & vbTab;
If i Mod 5 = 0 Then Print
Next
End Sub
Cls
Dim a(100) As Integer
'以下产生100个正整数
Randomize
For i = 1 To 100
a(i) = Int(Rnd() * 100 + 1)
Print a(i) & vbTab;
If i Mod 5 = 0 Then Print
Next
'排序
For i = 1 To 99
For j = i + 1 To 100
If a(i) > a(j) Then tmp = a(i): a(i) = a(j): a(j) = tmp
Next
Next
'输出数据
Print "排序后的结果"
For i = 1 To 100
Print a(i) & vbTab;
If i Mod 5 = 0 Then Print
Next
End Sub
看了 求解VB程序设计题随机产生1...的网友还看了以下:
某校六年级原有两个班现在重新编为三个班将原一班人数的5分之1与原二班的2分之1组某校六年级原有两个 2020-04-27 …
实施精准扶贫就是要将“()个一批”扶贫攻坚行动与改善农牧民生产生活条件结合起来。()A.八B.六C. 2020-05-31 …
将数字1,2,3,4,5按第一行2个数,第二行3个数的形式随机排列,设表示第i行中最小的数,a1> 2020-06-11 …
初中一道物理题已知甲乙两个光滑斜面的高度相同,长之比是4:5,将同一物体先后推上斜面顶端,责两次用 2020-06-22 …
用四舍五入法得到的近似值是5,这个一位小数最大的是多少?,最小是多少? 2020-06-27 …
1.口袋里有若干个球,小明每次拿出一半放回一个,一共做了5次,最后还剩3个,问原来有几个?2.甲乙 2020-07-16 …
第1个和第3个相近的成语:第1个和第3个相对:4,5两个一样的:1,2连个一样的:波涛汹涌:大发雷 2020-07-24 …
在纸上随便写一个数,并按下列步骤计算(1)将你写的数乘以2;(2)将这个积加上5;(3)将这个和减 2020-07-25 …
翻译下列短语。1.由……组成2.句子结构3.表达强烈感情4.本地的玩具商店5.将近一千年6.全世界7 2020-11-28 …
如何通过电流互感器计算用电量MLZJ1-0.5电流互感器,电流比是200/5.这个一次电流分别是20 2020-12-01 …