vb程序随机1到100产生二十个随机数,并从高到低排序数组score中存储有20个学生一门课程的成绩(整型),编程用随机函数给整型数组score赋值,然后从高到低排序,并按一行五个输出显示在文本框
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/27 15:57:00
![vb程序随机1到100产生二十个随机数,并从高到低排序数组score中存储有20个学生一门课程的成绩(整型),编程用随机函数给整型数组score赋值,然后从高到低排序,并按一行五个输出显示在文本框](/uploads/image/z/2632812-60-2.jpg?t=vb%E7%A8%8B%E5%BA%8F%E9%9A%8F%E6%9C%BA1%E5%88%B0100%E4%BA%A7%E7%94%9F%E4%BA%8C%E5%8D%81%E4%B8%AA%E9%9A%8F%E6%9C%BA%E6%95%B0%2C%E5%B9%B6%E4%BB%8E%E9%AB%98%E5%88%B0%E4%BD%8E%E6%8E%92%E5%BA%8F%E6%95%B0%E7%BB%84score%E4%B8%AD%E5%AD%98%E5%82%A8%E6%9C%8920%E4%B8%AA%E5%AD%A6%E7%94%9F%E4%B8%80%E9%97%A8%E8%AF%BE%E7%A8%8B%E7%9A%84%E6%88%90%E7%BB%A9%EF%BC%88%E6%95%B4%E5%9E%8B%EF%BC%89%2C%E7%BC%96%E7%A8%8B%E7%94%A8%E9%9A%8F%E6%9C%BA%E5%87%BD%E6%95%B0%E7%BB%99%E6%95%B4%E5%9E%8B%E6%95%B0%E7%BB%84score%E8%B5%8B%E5%80%BC%2C%E7%84%B6%E5%90%8E%E4%BB%8E%E9%AB%98%E5%88%B0%E4%BD%8E%E6%8E%92%E5%BA%8F%2C%E5%B9%B6%E6%8C%89%E4%B8%80%E8%A1%8C%E4%BA%94%E4%B8%AA%E8%BE%93%E5%87%BA%E6%98%BE%E7%A4%BA%E5%9C%A8%E6%96%87%E6%9C%AC%E6%A1%86)
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