Question

vb中的IF判断，急！

代码如下：
Private Sub Command1_Click()
Dim a!, b!, c!, max!, min!
a = Val(InputBox("a="))
b = Val(InputBox("b="))
c = Val(InputBox("c="))
max = a
min = a
If b > max Then max = b
ElseIf b < min Then min = b
ElseIf c > max Then max = c
ElseIf c < mai Then min = c
End If
pirnt "最大数为": max
pirnt "最小数为": min
End Sub
老是提示else没有if，当把if删除了，又说缺少表达式！是怎么回事？

Answer 1

Private Sub Command1_Click()
Dim a!, b!, c!, max!, min!
a = Val(InputBox("a="))
b = Val(InputBox("b="))
c = Val(InputBox("c="))
max = a
min = a
If b > max Then
max = b
ElseIf b < min Then min = b
endif
If c > max Then
max = c
ElseIf c < mai Then min = c
End If
pirnt "最大数为": max
pirnt "最小数为": min
End Sub

Answer 2

If b > max Then
max = b
ElseIf b < min Then
min = b
ElseIf c > max Then
max = c
ElseIf c < mai Then
min = c
End If

Answer 3

ElseIf
要改成
Else If

Answer 4

在第一条后加入一个满足条件退出语句：EXIT
IF