vb 编写在abc中找出最大数最小数

Private Sub Form1_Click(sender As Object, e As System.EventArgs) Handles Me.Click
Dim a, b, c, x, y As Integer
a = InputBox("输入a")
b = InputBox("输入b")
c = InputBox("输入c")
If a > b Then
x = a And y = b
Else : x = b And y = a
End If
If x < c Then
x = c
End If
If y > c Then
y = c
End If
MsgBox("最大值" & x)
MsgBox("最小值" & y)
End Sub
这段vb程序输出最大值为什么总是c,最小值为什么总是0？

1，x = a And y = b

应该写成
x=a
y=b
2，x = b And y = a

应该写成
x=b
y=a
3， If x < c Then '如果x < c，那是对的，那么如果cy呢?
x = c
End If
可以这样写代码来实现：

Dim a As Integer, b As Integer, c As Integer,Temp As Integer
a = InputBox("输入a")
b = InputBox("输入b")
c = InputBox("输入c")
'把A,B中大的值保存到A
If a < b Then
　Temp = a
　a = b
　b = Temp
End If

'把A,C中大的值保存到A
If a < c Then
　Temp = a
　a = c
　c = Temp
End If
'通过以上两个IF语句，A保存三个数的最大值

'把B,C中大的值保存到B
If b < c Then
　Temp = b
　b = c
　c = Temp
End If
'至此A,B,C已经保存为大、中、小的状态

　MsgBox ("最大值" & a)
　MsgBox ("最小值" & c)

Private Sub Form1_Click(sender As Object, e As System.EventArgs) Handles Me.Click Dim a, b, c, x, y As Integer a = InputBox("输入a") b = InputBox("输入b") c = InputBox("输入c") If a > b Then x = a y = b Else x = b y = a End If If x < c Then x = c End If If y > c Then y = c End If MsgBox("最大值" & x) MsgBox("最小值" & y) End Sub

我用的VB6.0，and换成 : 就行了，and后面的y没有赋值。and是逻辑运算符的与运算，不是和的意思。 望采纳。。。。。 记得给问豆啊！

我用的VB6.0，and换成 : 就行了，and后面的y没有赋值。and是逻辑运算符的与运算，不是和的意思。 望采纳。。。。。