VB的一个IF循环语句语句问题
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/11 19:43:30
VB的一个IF循环语句语句问题
Private Sub KEY_Click()
Static CI,CL As Integer
CI = 0
CI = CI + 1
If CI = 1 Then MsgBox "第五位数字是" & PcE
End If
If CI = 2 Then MsgBox "第三位数字是" & PcC
End If
If CI = 3 Then MsgBox "第二位数字是" & PcB
End If
If CI = 4 Then MsgBox "第一位数字是" & PcA
End If
If CI >= 5 Then MsgBox "这还提示啊."
End If
End Sub
这是一个猜数字游戏的提示答案部分
运行时 提示 编译错误 ENDif块没有IF
请大大们 看看
能改成IF ELSE 的格式就更感谢了
Private Sub KEY_Click()
Static CI,CL As Integer
CI = 0
CI = CI + 1
If CI = 1 Then MsgBox "第五位数字是" & PcE
End If
If CI = 2 Then MsgBox "第三位数字是" & PcC
End If
If CI = 3 Then MsgBox "第二位数字是" & PcB
End If
If CI = 4 Then MsgBox "第一位数字是" & PcA
End If
If CI >= 5 Then MsgBox "这还提示啊."
End If
End Sub
这是一个猜数字游戏的提示答案部分
运行时 提示 编译错误 ENDif块没有IF
请大大们 看看
能改成IF ELSE 的格式就更感谢了
把If和Msgbox写在 统一行,是默认为没有EndIf的条件句,把换行Msgbox写入If和EndIf中间即可
ElseIf方式:
If CI = 1 Then
MsgBox "第五位数字是" & PcE
ElseIf CI = 2 Then
MsgBox "第三位数字是" & PcC
ElseIf CI = 3 Then
MsgBox "第二位数字是" & PcB
ElseIf CI = 4 Then
MsgBox "第一位数字是" & PcA
ElseIf CI >= 5 Then
MsgBox "这还提示啊."
End If
ElseIf方式:
If CI = 1 Then
MsgBox "第五位数字是" & PcE
ElseIf CI = 2 Then
MsgBox "第三位数字是" & PcC
ElseIf CI = 3 Then
MsgBox "第二位数字是" & PcB
ElseIf CI = 4 Then
MsgBox "第一位数字是" & PcA
ElseIf CI >= 5 Then
MsgBox "这还提示啊."
End If