[Quote=引用 3 楼 sdrczht 的回复:]
落了判断为空,在函数内后面添加
If ans1="" Then
MsgBox "用户名不能为空!"
Exit Function
End If
[/Quote]
修改一下
if trim(ans1) = "" then
MsgBox "用户名不能为空!"
Exit Function
end if
否则多个输入多个空格的话是判断不了的
LZ:函数如下,然后调用该函数即可。
Function Pass() as Boolean
Dim ans1 as String
Dim ans2 as String
ans1=InputBox("请输入用户名:","提示:")
ans2=InputBox("请输入口令:","提示:")
If (ans1="tom" And ans2="123") Or (ans1="green" And ans2="456") Then
Pass=True
Else
Pass=False
End If
MsgBox Pass '这句是检测使用,也可以不用
End Function