vb程序随机1到100产生二十个随机数,并从高到低排序
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/11 23:21:39
vb程序随机1到100产生二十个随机数,并从高到低排序
数组score中存储有20个学生一门课程的成绩(整型),编程用随机函数给整型数组score赋值,然后从高到低排序,并按一行五个输出显示在文本框中.
数组score中存储有20个学生一门课程的成绩(整型),编程用随机函数给整型数组score赋值,然后从高到低排序,并按一行五个输出显示在文本框中.
先把Text1的MultiLine属性设为True,这样文本框才能进行换行
Private Sub Command1_Click()
Text1 = "" '清空Text1中的现有文本
Dim score(1 To 20) As Integer, i As Integer, j As Integer
For i = 1 To 20 '用随机函数给数组score()赋100以内的值
score(i) = Int(Rnd * 100)
Next i
For i = 20 To 2 Step -1 '用冒泡排序法对已赋值的数组进行排序
For j = 1 To i - 1
If score(j) > score(j + 1) Then
t = score(j)
score(j) = score(j + 1)
score(j + 1) = t
End If
Next j
Next i
For i = 1 To 20 '在文本框中输出排好序的数组
Text1.Text = Text1.Text & Space(3) & score(i)
If i Mod 5 = 0 Then '输出五后个换行
Text1.Text = Text1.Text & Chr(13) + Chr(10)
End If
Next i
End Su
Private Sub Command1_Click()
Text1 = "" '清空Text1中的现有文本
Dim score(1 To 20) As Integer, i As Integer, j As Integer
For i = 1 To 20 '用随机函数给数组score()赋100以内的值
score(i) = Int(Rnd * 100)
Next i
For i = 20 To 2 Step -1 '用冒泡排序法对已赋值的数组进行排序
For j = 1 To i - 1
If score(j) > score(j + 1) Then
t = score(j)
score(j) = score(j + 1)
score(j + 1) = t
End If
Next j
Next i
For i = 1 To 20 '在文本框中输出排好序的数组
Text1.Text = Text1.Text & Space(3) & score(i)
If i Mod 5 = 0 Then '输出五后个换行
Text1.Text = Text1.Text & Chr(13) + Chr(10)
End If
Next i
End Su
vb程序随机1到100产生二十个随机数,并从高到低排序
用vb编一个程序!随机产生十个三位数,实现从小到大和从大到小的排序,并计算这十个三位数的和
vb语句 设计一个随机数程序,生成10个范围是1到100随机整数,并求出这10个数的最大值,最小值和平均数
求一个vb程序,关于产生随机数排序的.
c语言 编写产生100个1到10范围内的随机数的程序,并且以降序排序
程序 填空题下列程序的功能是:随机产生10个1——100(包含1不包含100)之间的正整数,按从大到小的次序排序并输出.
VB怎么写随机生成10个[1,100]之间的数,并从大到小排列的程序?
vb编写程序,单击按钮,使计算机产生一个0到100之间的随机整数,然后判断这个数是奇数还是偶数,并输出该
vb利用随机函数产生50到100范围的30个随机数,显示其中最大值,最小值,平均值,
用VB程序写出“利用随机函数产生20个50~100范围内的随机数,显示他们的最大值、最小值和平均值.”怎么写
VB语言随机产生10个10-99内的整数,分别用冒泡法和选择法将数据从大到小排序并显示结果
用labview设计一个程序,产生十个随机数,范围是-5到+10