作业帮 > 综合 > 作业

VB下面程序对产生的10个随机数进行排序,程序中有3个错误,请在相应的行上改正

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/06 05:45:27
VB下面程序对产生的10个随机数进行排序,程序中有3个错误,请在相应的行上改正
Private Sub Button1_Click(……) HandlesButton1.Click
Dim a(9) As Integer
Dim i,j,imin,t As Integer
Label1.Text = "原始成绩为:" & vbCrLf
For i = 1 To 10
a(i) = Int(Rnd() * 101)
Label1.Text &= a(i) & " "
Next
For i = 0 To 8
For j = 9 To i + 1
If a(j) < a(j - 1) Then
t = a(i)
a(j) = a(j - 1)
a(j - 1) = t
End If
Next j
Next i
Label2.Text = "排序后的成绩为:"& vbCrLf
For i = 0 To 9
Label2.Text &= a(i) & " "
Next i
End Sub
VB下面程序对产生的10个随机数进行排序,程序中有3个错误,请在相应的行上改正
For i = 1 To 10 改为 For i = 0 To 9
For j = 9 To i + 1 改为 For j = 9 To i + 1 step -1
 t = a(i)  改为  t = a(j)