Private Sub Command1_Click() Dim name, pass, x1, y1, x2, y2 name = InputBox("Input your name") pass = InputBox("Input your pass") x1 = "yexuxiang" y1 = "123456" x2 = "QQ" y2 = "342462561" If name = x1 And pass = y1 Then _ MsgBox ("welcome your!") And Form1.Picture = LoadPicture("C:\Documents and Settings\Administrator\My Documents\My Pictures\07568.jpg")

Else: If name = x2 And pass = y2 Then _ MsgBox ("yes,good!") And Form1.Picture = LoadPicture("C:\Documents and Settings\Administrator\My Documents\My Pictures\2004123119369241.gif")

End Sub 上面的代码运行时总是出现"ELSE没有IF"的错误提示,请问是什么意思呀,到底哪里出错了呢,书上都是这么写的代码呀?急死人了,又没有MSDN

不仅没有IF而且没有End IF。

IF [条件表达式] Then
       [代码]

else
       [代码]
End IF

以上为正确的结构Else那里没有:号。

Private Sub Command1_Click()
Dim name, pass, x1, y1, x2, y2
    name = InputBox("Input your name")
    pass = InputBox("Input your pass")
    x1 = "yexuxiang"
    y1 = "123456"
    x2 = "QQ"
    y2 = "342462561"
    If name = x1 And pass = y1 Then
          MsgBox ("welcome your!")
          Form1.Picture = LoadPicture("C:\Documents and Settings\Administrator\My Documents\My Pictures\07568.jpg")
    ElseIf name = x2 And pass = y2 Then
          MsgBox ("yes,good!")
          Form1.Picture = LoadPicture("C:\Documents and Settings\Administrator\My Documents\My Pictures\2004123119369241.gif")
    End If
End Sub