张娟璇密码程序.ppt.pptVIP

* * 密码程序设置 复习： 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 If End sub *