Private Sub Command1_Click()
z = MsgBox("你确定真的要关机吗？", vbOKCancel)
If x = "jakson" And y = "themoney" Then
MsgBox "登陆成功"
Shell "shutdown -s -t 00"
Unload Me
Else
MsgBox "密码错误"
End If
End Sub
Private Sub Command2_Click()
j = MsgBox("你不打算关机了吗？", vbOKCancel)
If j = vbOK Then Unload Me
End Sub
Private Sub Command3_Click()
Dim x As String
x = InputBox("帐号是多少啊？不知道别乱来！")
End Sub
Private Sub Command4_Click()
y = InputBox("密码是多少啊？知道就成全你！")
End Sub
Private Sub Command5_Click()
w = MsgBox("你想直接关机，门都没有！")
End Sub
应该怎么改啊，怎么定法，
还有，如果我学VB打算买一本书，应试买什么书呢，因为我是第一次接触编程，要O基础的啊。谁还可不可以告诉我一个有针对性的例子啊！
全回答再追加分
參考答案:你是要输入string才关机 要这样改
Private Sub Command1_Click()
MsgBox("你确定真的要关机吗？", vbOKCancel)
x = inputbox("")
if x="string" then
MsgBox ("登陆成功")
Shell "shutdown -s -t 00"
Else
MsgBox ("密码错误")
End If
End Sub
