用VB改写这个C

用VB改写这个C

Private Sub Command1_Click()
    Dim a(1 To 4) As Integer
    Dim i As Integer, j As Integer, t As Integer
    Print "请输入四个数"
    For i = 1 To 4
        a(i) = Val(InputBox("a[" & i & "]="))
    Next
    For i = 1 To 4
        For j = i + 1 To 4
            If a(i) > a(j) Then
                t = a(i)
                a(i) = a(j)
                a(j) = t
            End If
        Next
    Next
    Print "排序后"
    For i = 1 To 4
        Print a(i)
    Next
End Sub追问谢谢高手啊

Private Sub Form_Load()
Show
Dim a%(3), i%, j%, t%
For i = 0 To 3
a(i) = InputBox("Please input 4 numbers:")
Next
For i = 1 To 3
For j = 0 To 3 - i
If a(j) > a(j + 1) Then
t = a(j)
a(j) = a(j + 1)
a(j + 1) = t
End If
Next j, i
Print "The sorted numbers:";
For i = 0 To 3
Print a(i);
Next
End Sub