求十个数 并排列大小 看程序哪里有错误

来源：百度知道 编辑：UC知道 时间：2024/09/24 04:05:15
Private Sub Form_Click()
Dim i As Integer, sum(10) As Integer
Dim j As Integer, m As Integer
For i = 1 To 10
sum(10) = Int(rad * 90) + 10
Text1.Text = Text1 & Str(sum(10))
Next i
For i = 1 To 9
For j = i + 1 To 10
If sum(i) > sum(j) Then
m = sum(i)
sum(i) = sum(j)
sum(j) = m
End If
Next j
Text2.Text = Text2 & Str(sum(i))
Next i
Text2.Text = Text2 & Str(sum(i))

End Sub

看这个程序！ 哪里有问题! 为什么输入的错误。。。

还有 Next j
Text2.Text = Text2 & Str(sum(i))
Next i
Text2.Text = Text2 & Str(sum(i)) 为什么 Text2.Text = Text2 & Str(sum(i)) 重复呢

End Sub

Private Sub Form_Click()
Dim i As Integer, sum(10) As Integer
Dim j As Integer, m As Integer
Text1.Text = ""‘加一句
Text2.Text = ""‘加一句
For i = 1 To 10
sum(i) = Int(Rnd * 90) + 10 'sum(10)改为sum(i),rad改为rnd
Text1.Text = Text1 & Str(sum(i)) 'sum(10)改为sum(i)
Next i
For i = 1 To 9
For j = i + 1 To 10
If sum(i) > sum(j) Then
m = sum(i)
sum(i) = sum(j)
sum(j) = m
End If
Next j
Text2.Text = Text2 & Str(sum(i))
Next i
Text2.Text = Text2 & Str(sum(i))
End Sub
帮你改一下，你自己对照一下，看看错在哪里。