测试程序是提示编译错误 子程序函数未定义 求高手指点
我我是新手在学习编程这是我从网页上直接复制的 代码
Private Sub Command1_Click()
′判断是否输入了用户名
If Text1.Text=″″ Then ′如果Text1为空,即没有输入用户
MsgBox ″请输入用户名!″, vbOKOnly + vbCritical, ″错误″
Exit Sub ′退出这个过程
Else: ′如果输入了用户名
If Text1.Text = ″软件世界″ And Text2.Text = ″12345″ Then ′如果输入的用户名是″软件世界″且密码为″12345″
MsgBox ″你是合法用户,欢迎进入!″,vbOKOnly+vbInformation,″欢迎进入″
Else: ′如果不是″软件世界″或密码不是″12345″
MsgBox ″用户名或密码错误!″, vbOKOnly + vbCritical, ″错误″
Text1.Text = ″″
Text2.Text=″″ ′清空Text1及Text2控件中的文本内容,让用户重新输入
End If
End If
End Sub
错误提示在Private Sub Command1_Click()这一段