private sub form_load()
dim a
a=inputbox("请输入密码“，”系统提示“，”忘了“）
if （a="忘了“） then
msgbox"很简单“，，”系统提示“
else
if (a<>"123") then '123是密码
msgbox"密码错误“，，”系统提示“
else
msgbox"密码正确“，，”系统提示“
end if
end if
end if
end sub

用do，，，while，，，====:芳庭日租公寓是昌黎首家日租公寓，是走亲访友，度假游玩，朋友聚会，同学约会，情侣幽会的首选。QQ 2751606982 。
13293182178
　，
13293182652
　。欢迎惠顾。--来自助手版贴吧客户端