Question

VB数组题求解

产生50个[100—200)之间的随机数，将50个数按从小到大进行排序，并以下列图片格式打印输出。

Answer 1

代码：

Dim a(50) As Integer

Private Sub Command1_Click()

P1.Print "排序前数据:"

For i = 1 To 50

    a(i) = Rnd() * 100 + 100

    s = s & a(i) & "  "

    If i Mod 10 = 0 Then

        P1.Print s

        s = ""

    End If

Next

P1.Print

End Sub

Private Sub Command2_Click()

P1.Print "排序后数据:"

For i = 1 To 50

    l = i

    For j = i To 50

        If a(i) > a(j) Then l = j

    Next

    

    t = a(i): a(i) = a(l): a(l) = t

    s = s & a(i) & "  "

    If i Mod 10 = 0 Then

        P1.Print s

        s = ""

    End If

Next

End Sub

Answer 2

Private num(1 To 50) As Integer
Private Sub Command1_Click()
Dim i As Integer
Picture1.Print "排序前数据"
Randomize
For i = 1 To 50
num(i) = Int(Rnd * 100 + 100)
If i Mod 10 = 1 Then Picture1.Print
Picture1.Print num(i);
Next
Picture1.Print
End Sub

Private Sub Command2_Click()
Dim i, j, t As Integer
For i = 1 To 50
For j = 1 To 50 - i
If num(j) > num(j + 1) Then
t = num(j): num(j) = num(j + 1): num(j + 1) = t
End If
Next
Next
Picture1.Print "排序后的数据"
For i = 1 To 50
If i Mod 10 = 1 Then Picture1.Print
Picture1.Print num(i);
Next
End Sub

Answer 3

呵呵~ 二级试题， 答案上不是有吗