帮我理下 VB 代码，不知道哪里错了

来源：百度知道 编辑：UC知道 时间：2024/05/24 03:17:12
Private Sub Command1_Click()
Dim x As Single, y As Single, z As Single
x = Val(Text1.Text)
y = Val(Text2.Text)
z = Val(Text3.Text)
If x < y Then
t = x
x = y
y = t
If x < z Then
t = x
x = z
z = t
If y < z Then
t = y
y = z
z = t
End If
End If
End If

Text4.Text = Str(x)
Text5.Text = Str(z)
End Sub

我的意思是比较求出三个数的最大值和最小值
最大值放在text4里，最小值放在text5里
运行后随便改变数值最大值是对的
而最小值就出错了

If x < y Then
t = x
x = y
y = t
If x < z Then
t = x
x = z
z = t
If y < z Then
t = y
y = z
z = t
End If
End If
End If

改为

If x < y Then
t = x
x = y
y = t
end if
If x < z Then
t = x
x = z
z = t
end if
If y < z Then
t = y
y = z
z = t
End If

想象对了,用法错了。在这里3个都要判断,不能嵌套.