vb程序编写题随机产生20到80之间的10个整数,将它们从小到大排序

如题所述

第1个回答推荐于2017-05-22

Private Sub Command1_Click()
Dim MyValue(10) As Integer
Dim i, j, p As Integer
For i = 0 To 9
Randomize
MyValue(i) = Int(Rnd() * (80 - 20 + 1)) + 20
Next

For i = 0 To 9
For j = i + 1 To 10
If MyValue(i) > MyValue(j) Then
p = MyValue(i)
MyValue(i) = MyValue(j)
MyValue(j) = p
End If
Next
Next

For i = 0 To 9
Print MyValue(i)
Next i
End Sub本回答被网友采纳

相似回答

VB.NET 程序 随机产生10个整数并进行排序答：Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim N As Integer = 9 Randomize()Dim xx(9) As Integer For i As Integer = 0 To N xx(i) = Int(Rnd() * 1000) '产生 [0,1000) 之间的整数 Nex...

用vb 把输入的10个数 从小到大排序答：Label2.AutoSize = True a = Space(4) & "数从文本输入,每输完一个数后,按回车键,数的个数可变.排序开始之前所有"a = a & "所有的数都是白底黑字).单击“开始”按钮，开始比较（红底）数与（黄底）数"a = a & "若(红底)数大就交换两数的位置;否则,两数仍保持原位置.位置已确定...

VB中,随机产生10个0~100之间的随机数,按从小到大的顺序排列怎么做...答：1 - 100 之间选 20 个随机数Trec = 10 End Sub Private Sub Command1_Click() S = GetRnd(1, 100, Trec) Me.ClsFor i = 0 To Trec - 1 Print S(i) Next i End Sub Private Sub Command2_Click()'*** 由小排到大(冒泡排序法)Me.Cls For i = 0 To Trec - 1 k = i For...

大家正在搜

vb 随机产生一个范围的数 vb随机产生不重复的数 vb随机函数 vb程序题 vb编程题及答案 vb编程题目 vb大题大一vb题库 vb randomize函数

vb程序编写题 随机产生20到80之间的10个整数,将它们从小到大排序

vb程序编写题随机产生20到80之间的10个整数,将它们从小到大排序