定义一个大小为100的数组,编写3个过程并调用它们完成如下功能:
来源:百度知道 编辑:UC知道 时间:2024/09/18 19:09:41
用随机函数给数组中所有元素赋值将所有数组元素按由小到大的顺序排序;将所有数组元素10个一行输出
'一个Command1
Dim a(1 To 100) As Integer, i%, j%, t%
Private Sub Command1_Click()
Call SuiJiShu
Call MaoPaoFa
Call ShuChu
End Sub
Sub SuiJiShu()
Randomize
Print "排序前:"
For i = 1 To 100
a(i) = Int(Rnd * 1000) + 1
If i Mod 10 = 0 Then
Print a(i)
Else
Print a(i);
End If
Next i
Print
End Sub
Sub MaoPaoFa()
For i = 1 To 100 - 1
For j = i + 1 To 100
If a(j) < a(i) Then
t = a(j): a(j) = a(i): a(i) = t
End If
Next j
Next i
End Sub
Sub ShuChu()
Print "排序后:";
For i = 1 To 100
If i Mod 10 = 0 Then
Print a(i)
Else
Print a(i);
End If
Next i
Print
End Sub