密码程序设置
复习： VB语句: 1、结束语句：End 2、给对象的属性赋值一般格式为： 对象.属性=属性值 例如： 1）为命令按钮Commandl的Caption属性设置值为： Commandl.Caption=”显示文本” 2）为image1的picture属性设置值为： image1.picture=loadpicture(“路径\文件名.扩展名”)
VB分支结构语句:IF语句 If 条件 Then 语句1 [ Else 语句2 ] 这种结构称为单行条件语句，也称为简单块If结构。简单块if条件语句是这样执行的：如果条件为真，执行Then后面的语句块1，否则执行Else后面的语句块2；若不写Else部分，则执行End lf后面的语句。 If 条件 Then 语句块1 [ Else 语句块2 ] End lf
密码设置效果图：
自然描述： 输入密码，如果正确，则进入游戏，不正确，则重新输入，超过三次，则退出程序
算法描述： 一、输入密码 二、对输入密码正确与否进行判断： 1、正确，则进入游戏 2、否则，对输入密码进行累加 3、判断是否已输入三次，且三次不正确，提示密码错，并退出程序； 4、不超过三次，则提示密码错误，重新输入； 5、返回输入窗口。
常见的流程图符号： 起止框 判断框 执行框 输入输出框
流程图： 开始 输入密码 密码正确？ 否 输入次数加1 是 则提示正确， 且进入游戏窗口 判断输入 三次了吗？ 否 提示出错， 再请求重输 提示并退出程序 返回输入窗口
在通用——声明中输入 Dim n As Integer （定义n的类型） 在Command1_Click()输入程序 Private Sub Command1_Click() ‘双击按钮自动生成 mima$ = “abcd“ ‘设置密码 a = Text1.Text ‘a获得输入的值 If mima$ = a Then ‘进行判断 MsgBox "密码正确，欢迎你主人" Form2.Hide Form1.Show Else n = n + 1 If n = 3 Then MsgBox "哦，对不起，你不是我主人，我走了“ End End If MsgBox "不开不开就不开，密码不正确，请重新输入吧" End sub
算法描述： 一、输入密码 二、对输入密码正确与否进行判断： 1、对输入密码进行累加； 2、判断是否已输入三次，且三次不正确，提示密码错，并退出程序； 3、不超过三次，则提示密码错误，重新输入，返回输入窗口； 4、否则正确，则进入游戏
在通用——声明中输入 Dim n As Integer （定义n的类型） 在Command1_Click()输入程序 Private Sub Command1_Click() ‘双击按钮自动生成 mima$ = “abcd“ ‘设置密码 a = Text1.Text ‘a获得输入的值 If mima$ <> a Then ‘进行判断 n = n + 1 If n = 3 Then MsgBox "哦，对不起，你不是我主人，我走了“ End End If MsgBox "不开不开就不开，密码不正确，请重新输入吧" Else MsgBox "密码正确，欢迎你主人" Form2.Hide Form1.Show End sub MsgBox是信息提示框
升级版程序： Dim n As Integer Private Sub Command1_Click() n = n + 1 mima$ = "123456" If n <= 3 Then If mima$ = Text1.Text Then MsgBox "欢迎您，主人！" n = 0 Me.Hide Form1.Show Else If n = 3 Then MsgBox "不好意思，请你想好了再来吧，再见！" End End If MsgBox "您不是我主人，您还有" & Str(3 - n) & "次输入机会" Text1.Text = "" End Sub