求VB选择结构编程问题

代码：

Private Sub Command1_Click()

    Call max100

End Sub

Sub max100()

    Dim x As Integer

    Dim y As Integer

    Dim z As Integer

    Dim tmp As Integer

    Call Randomize

    x = CInt(Rnd(100) * 100)

    y = CInt(Rnd(100) * 100)

    z = CInt(Rnd(100) * 100)

    tmp = x

    If tmp < y Then

        tmp = y

    End If

    If tmp < z Then

        tmp = z

    End If

    Me.AutoRedraw = True

    Print "x=" & CStr(x)

    Print "y=" & CStr(y)

    Print "z=" & CStr(z)

    Print "max=" & CStr(tmp)

    Print

End Sub

结果如图：

Dim x As Long
Dim y As Long
Dim z As Long
Dim max As Long
Dim sum As Long
Randomize
x = Int(101 * Rnd())
y = Int(101 * Rnd())
z = Int(101 * Rnd())

max = x

If y > max Then max = y
If z > max Then max = z

sum = x + y + z
Cls
Print x, y, z
Print "最大数是"; max
Print "三个数的和是"; sum