VB下面程序对产生的10个随机数进行排序,程序中有3个错误,请在相应的行上改正
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/10/05 14:17:55
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
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
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)
For j = 9 To i + 1 改为 For j = 9 To i + 1 step -1
t = a(i) 改为 t = a(j)
VB下面程序对产生的10个随机数进行排序,程序中有3个错误,请在相应的行上改正
求一个vb程序,关于产生随机数排序的.
c语言 编写产生100个1到10范围内的随机数的程序,并且以降序排序
vb中怎么样一次产生10个随机数,再过5秒全部消失(主要是过5秒消失的程序怎么写)
C语言:下面程序使用选择排序方法对20个整数进行排序,这20个数从键盘输入,并输出排序前和排序后的数据
编写程序,产生10 个随机数,然后按产生顺序相反的次序输出这些随机数
VB中要求随机产生10个在[10,30]的不同整数怎么编写程序?
C语言挑战题目!编写产生210个2.300到1.800范围内的随机数的程序,并且以降序排序
vb 生成15个随机数,被7整除的降序排序在combobox中,
程序改错题.请修改程序,使下面的程序是完成1+2+……+N的求和功能.(提示:有5个错误) C语言
从1—22中产生5个随机数,不能有重复,我的程序错哪里了?
Java编写程序,产生10个随机数,然后按产生顺序相反的次序输出这些随机数.