VB中遇到的简单问题？

来源：百度知道 编辑：UC知道 时间：2024/05/22 03:14:56
Private Sub Command1_Click()
Dim a, b, c, p
a = Val(InputBox("请输入第一个数", "求最大数", ""))
b = Val(InputBox("请输入第二个数", "求最大数", ""))
c = Val(InputBox("请输入第三个数", "求最大数", ""))
If a > b And a > c Then p = a
If b > a And b > c Then p = b
If c > a And c > b Then p = c
End If
Label1.Caption="三个数"&a&","&b&","&c&"中最大的数是:"&p

End Sub
这段代码那里错了，运行的时候说是"编译错误，End if没有块If "
我实在看不出来那里错了，从书上抄的，可我检查了好几次，都没看出那错了！
高手看一下，那里错了，给说一下！谢谢
但现在变成 If a > b And a > c Then p = a
ElseIf b > a And b > c Then p = b
ElseIf c > a And c > b Then p = c

End If
又错了提示：”else没有If” 这又是那点错了，你们运行一下，看下！

if语句有有两种格式，如果写成
If c > a And c > b Then p = c
这种格式的时候是不需要end if的。

只有写成
If c > a And c > b Then
p = c
end if
这种格式就要加end if 了
因为你的都是第一种格式所以不需要加end if

这是因为那&符号与变量中间没有空格造成的
Label1.Caption = "三个数" & a &","& b &","& c &"中最大的数是:" & p
把&和变量用空格格开再试试

改成这样试试

If a > b And a > c Then
p = a
ElseIf b > a And b > c Then
p = b
ElseIf c > a And c > b Then
p = c
End If

你直接这样把：

Private Sub Command1_Click()
Dim a, b, c, p
a = Val(InputBox("请输入第一个数", "求最大数", ""))
b = Val(InputBox("请输入第二个数", "求最大数", ""))
c = Val(InputBox("请输入第三个数", "求最大数", ""))
If a > b And a > c Then
p = a
ElseIf b > a And b > c Then
p = b
ElseIf c > a And c > b Then