作业帮 > 数学 > 作业

VB随机产生10个100到200之间的整数,将其按从大到小顺序排列

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/15 08:21:08
VB随机产生10个100到200之间的整数,将其按从大到小顺序排列
Private Sub Command1_Click()
Text1.Text = ""
Dim A(1 To 10) As Integer, K As Integer
For I = 1 To 10
    Randomize
    A(I) = Int(Rnd * 100 + 100)
Next I
For I = 1 To 9
    For J = I + 1 To 10
        If A(I) < A(J) Then
        K = A(I)
        A(I) = A(J)
        A(J) = K
        End If
    Next J
Next I
For I = 1 To 10
If I < 10 Then
Text1.Text = Text1.Text & A(I) & ","
Else
Text1.Text = Text1.Text & A(I)
End If
Next I
End Su