Question

VB 为什么有if仍然提示End if没有块if

Private Sub Cmdset_click()
If Dir(App.Path & "\key.dat") = "" Then FormFirst.Show Else: MsgBox "您已经设置过密码！", vbOKOnly, "提示"
End If
End Sub
这个程序运行的时候总是出现End If没有块If的错误，可前面明明有If了啊！为什么啊？？？？请高手帮看看吧

Answer 1

代码写法不符合规范，现修改如下：

Private Sub Cmdset_click()
    If Dir(App.Path & "\key.dat") = "" Then
        formfirst.Show
    Else:
        MsgBox "您已经设置过密码！", vbOKOnly, "提示"
    End If
End Sub