vb程序随机1到100产生二十个随机数,并从高到低排序数组score中存储有20个学生一门课程的成绩（整型）,编程用随机函数给整型数组score赋值,然后从高到低排序,并按一行五个输出显示在文本框

来源：学生作业帮助网编辑：作业帮时间：2024/11/02 21:40:11

vb程序随机1到100产生二十个随机数,并从高到低排序数组score中存储有20个学生一门课程的成绩（整型）,编程用随机函数给整型数组score赋值,然后从高到低排序,并按一行五个输出显示在文本框
vb程序随机1到100产生二十个随机数,并从高到低排序
数组score中存储有20个学生一门课程的成绩（整型）,编程用随机函数给整型数组score赋值,然后从高到低排序,并按一行五个输出显示在文本框中.

vb程序随机1到100产生二十个随机数,并从高到低排序数组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 Sub

vb程序随机1到100产生二十个随机数,并从高到低排序数组score中存储有20个学生一门课程的成绩（整型）,编程用随机函数给整型数组score赋值,然后从高到低排序,并按一行五个输出显示在文本框 vb语句设计一个随机数程序,生成10个范围是1到100随机整数,并求出这10个数的最大值,最小值和平均数 vb利用随机函数产生50到100范围的30个随机数,显示其中最大值,最小值,平均值, vb如何产生两个不同随机数随机产生两个【1,10】上的随机数,要求随机数不能相同用VB程序写出“利用随机函数产生20个50~100范围内的随机数,显示他们的最大值、最小值和平均值.”怎么写用labview设计一个程序,产生十个随机数,范围是-5到+10 vb中随机产生10个1—100之间的数,求出小于这十个平均数的数字个数. 用vb编一个程序!随机产生十个三位数,实现从小到大和从大到小的排序,并计算这十个三位数的和 vhdl伪随机数求用vhdL语言编写一段产生1-7随机数字的程序如何用C语言写一个随机数生成器的程序1到100之间的随机整数可以重复 VB程序设计简答题编写程序,利用随机函数产生100个0~99之间的整数,存放在数组中,然后在窗体上显示所有小于50的随机数 VB随机产生一个英文字母程序怎么编啊? 求高手用VC++6.0写的产生1到100之间随机数的小程序产生一个随机数,均匀分布,在0到100产生3000个随机数,用word输出,能保存用vb编程 vb编写程序,单击按钮,使计算机产生一个0到100之间的随机整数,然后判断这个数是奇数还是偶数,并输出该用vb.net产生10个1到1000随机数,数之间要空开用c++写程序,产生1-100的随机数 C语言产生十个随机数,然后任意计算一个数字产生随机的次数!