Private Sub 是否正确_Click()
pass$ = 输入密码.Text
If pass$ = "1234" Then
显示结果.Text = "正确“"
Else
显示结果.Text = "错误"”
End If
End Sub
Private Sub 再来_Click()
输入密码.Text = ""
显示结果.Text = ""
输入密码.SetFocus
End Sub
Private Sub 退出_Click()
End
End Sub
我想问的是
显示结果.Text = "正确“"
Else
显示结果.Text = "错误"”
“正确,错误”后面怎么多个引号,我到下行就自己加个,去掉就不好使了,怎么回事,是不是我这个版本或装的有问题。费老大事才装上的。
做出来的是,打1234,出来的是 正确“,错误也是,错误”
这个程序我试过好使
Private Sub 是否正确_Click() pass$ = 输入密码.Text If pass$ = "1234" Then 显示结果.Text = "正确" Else 显示结果.Text = "错误"End If End Sub Private Sub 再来_Click() 输入密码.Text = "" 显示结果.Text = "" 输入密码.SetFocus End Sub Private Sub 退出_Click() End End Sub 把全角的“去掉就行了,复制上面的代码进去试试。
Private Sub 是否正确_Click() pass$ = 输入密码.Text If pass$ = "1234" Then 显示结果.Text = "正确“" Else 显示结果.Text = "错误”"End If End Sub Private Sub 再来_Click() 输入密码.Text = ""