VB中if语句问题

• 如果已经15级再点击就不能强化了呗？所以在强化之前先判断是不是到了15级，如果是15级了就直接结束子程序。

Private Sub Label1_Click()

if cmdInt =15

MsgBox "当前已为最高级，暂时无法继续强化哦！快拿起你的+15神器去击败黑暗大将吧！"

End Sub

End If

cmdInt = cmdInt + 1

If cmdInt = 1 Then

        MsgBox "恭喜您强化成功！当前强化等级为+1，不愧是被龙神选中的人啊"

Else

        if cmdInt <15

                MsgBox "恭喜您强化成功！当前强化等级为+" & Str(cmdInt) & "不愧是被龙神选中的人啊"

        end if

        If cmdInt = 15 Then

                MsgBox "当前已为最高级，暂时无法继续强化哦！快拿起你的+15神器去击败黑暗大将吧！"

        End If 

End If

End Sub

• 好像，不用判断cmdlnt是不是等于1吧，如下：

Private Sub Label1_Click()

if cmdInt =15

MsgBox "当前已为最高级，暂时无法继续强化哦！快拿起你的+15神器去击败黑暗大将吧！"

End Sub

End If

cmdInt = cmdInt + 1

MsgBox "恭喜您强化成功！当前强化等级为+" & Str(cmdInt) & "不愧是被龙神选中的人啊"

If cmdInt = 15 Then

MsgBox "当前已为最高级，暂时无法继续强化哦！快拿起你的+15神器去击败黑暗大将吧！"

End If 

End Sub

• 个人认为，后面第二处If cmdlnt = 15 Then ... End If 这几行可以不用的。如下：

Private Sub Label1_Click()

if cmdInt =15

MsgBox "当前已为最高级，暂时无法继续强化哦！快拿起你的+15神器去击败黑暗大将吧！"

End Sub

End If

cmdInt = cmdInt + 1

MsgBox "恭喜您强化成功！当前强化等级为+" & Str(cmdInt) & "不愧是被龙神选中的人啊"

End Sub 

Dim cmdInt
Private Sub Label1_Click()
cmdInt = cmdInt + 1
If cmdInt = 1 Then
MsgBox "恭喜您强化成功！当前强化等级为+1，不愧是被龙神选中的人啊"
Else
If cmdInt >= 15 Then
MsgBox "当前已为最高级，暂时无法继续强化哦！快拿起你的+15神器去击败黑暗大将吧！"
Else
MsgBox "恭喜您强化成功！但前强化等级为+" & Str(cmdInt) & "不愧是被龙神选中的人啊"
End If
End If
End Sub

Private Sub Label1_Click()
cmdInt = cmdInt + 1
If cmdInt = 1 Then
MsgBox "恭喜您强化成功！当前强化等级为+1，不愧是被龙神选中的人啊"
Else
if cmdInt <15
MsgBox "恭喜您强化成功！但前强化等级为+" & Str(cmdInt) & "不愧是被龙神选中的人啊"
end if
If cmdInt = 15 Then
MsgBox "当前已为最高级，暂时无法继续强化哦！快拿起你的+15神器去击败黑暗大将吧！"
End If
if cmdInt >15
MsgBox "当前已为最高级，暂时无法继续强化哦！快拿起你的+15神器去击败黑暗大将吧！"
End If

End If
End Sub

Private Sub Form_Click()
Dim x
'此时，虽然没有给X赋初值，但系统已经把它的值设为0
If x Then '非0为真，0为假
Print x
Else
'x=0，所以执行到这里，此时x+1=1
Print x + 1
End If
End Sub