写一个登录器，帐号110 密码120
以下是我自己写的代码
Private Sub Command1_Click()
If s = 110 Then t1 = "登陆成功"
If s <> 110 Then t1 = "帐号或密码错误"
If z = 120 Then t2 = "登陆成功"
If z <> 120 Then t2 = "帐号或密码错误"
Text1.Text = t1
Text2.Text = t2
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Command1.Caption = "确定"
Command2.Caption = "注销"
Command3.Caption = "退出"
Frame1.Caption = "帐号"
Frame2.Caption = "密码"
Frame3.Caption = "作者:黑夜里的黑猫"

Form1.Caption = "QQ2010"
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Frame4_DragDrop(Source As Control, X As Single, Y As Single)
Frame = t2
End Sub
为什么输入正确，但是还显示帐号或密码错误？？谁能帮忙改下

乱糟糟的，建议你随便找本书看看。
简单分析一个：
你输入的数据输入到什么地方了？Text控件？但是并没有传给s和z,如何判断你输入正确？
貌似你这段代码没有执行什么操作

新学VB  才几天

Private Sub Command1_Click()
Dim s As Integer, z As Integer
s = Val(Text1.Text)
z = Val(Text2.Text)
If s = 110 And z = 120 Then
Text1.Text = "登陆成功"
ElseIf s <> 110 Or z <> 120 Then
Text1.Text = "帐号或密码错误"
End If
End Sub

Private Sub Command1_Click()
dim s as integer,z as integer
dim t1 as string,t2 as string
s=val(text1.text)
z=val(text2.text)
If s = 110 Then t1 = "登陆成功"
If s <> 110 Then t1 = "帐号或密码错误"
If z = 120 Then t2 = "登陆成功"
If z <> 120 Then t2 = "帐号或密码错误"
Text1.Text = t1
Text2.Text = t2
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Command1.Caption = "确定"
Command2.Caption = "注销"
Command3.Caption = "退出"
Frame1.Caption = "帐号"
Frame2.Caption = "密码"
Frame3.Caption = "作者:黑夜里的黑猫"

Form1.Caption = "QQ2010"
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Frame4_DragDrop(Source As Control, X As Single, Y As Single)
Frame = t2
End Sub

简单起见，在源代码上修改了下，不过建议你从书上找个登录的例子看看

[ 本帖最后由 wei855198 于 2010-4-26 14:46 编辑 ]

Private Sub Command1_Click()
Dim s As Integer, z As Integer
s = Val(Text1.Text)
z = Val(Text2.Text)
If s = 110 And z = 120 Then
Text1.Text = "登陆成功"
ElseIf s <> 110 Or z <> 120 Then
Text1.Text = "帐号或密码错误"
End If
End Sub
至少献给变量赋值后才能比较啊