为了不耽误时间 都是刚写的 新鲜的很啊
Private Sub Form_Load()Dim a As String
Form1.Visible = Falsea = InputBox("输入密码")While a <> "123456"a = InputBox("密码错误,请重新输入")WendForm1.Visible = Trua
End Sub
学习网站开发制作技术,推荐加入以下网站开发培训班: ASP.net网站开发项目实战班 ASP语言网站建设培训班
学习网络安全入侵防护技术,推荐加入以下技术培训班: 大型网络安全入侵防护班 网站脚本程序全方位安全检测班
学习网络管理、网吧运营维护技术(网管),推荐加入以下培训班: 大型网吧技术管理人才特训班 Linux网络嵌入架构工程师培训班
学习专项特殊技术,推荐加入以下专项技术培训班: 软件与游戏外挂脱壳破解班(逆向工程) 赚钱王道-网赚技能培训班 Flash动画设计师就业特训班