計算機，visual basic 編程，隨機生成4個100以內的數字，然後將它們從小到大排序。這麽

Private Sub Command1_Click()

Dim a(3) As String

For i = 0 To 3

a(i) = Int(100 * Rnd)

Next

Print "隨機生成數字為：" & Join(a, " ; ")

For i = 0 To 2

For i1 = i + 1 To 3

If Val(a(i)) > Val(a(i1)) Then b = a(i): a(i) = a(i1): a(i1) = b

Next

Next

Print "隨機生成數字從小到大排序：" & Join(a, " ; ")

End Sub

'請參考。

上一篇:UG8.0安裝後打不開。首先停止服務器，然後啟動服務器都成功。

下一篇:我想問壹下,我買的貓頭鷹繪本機器人開不開機了怎麽回事