2019年东风高中VB导学案.docVIP

东风高中VB导学案 【教学目标】体验程序的作用；经历登录编程解决问题的过程；了解VB窗体控件基本操作；领会信息加解密算法，激发学生程序设计的兴趣。 【教学重点】 了解VB三种基本控件功能，体验编程，领会信息加解密原理。 【难 点】 控件编程，加解密程序段代码的理解 【教学方法】 验证法、模拟法、半成品法 【课 时】 2课 情景任务 1、登录安全体验 Fish.exe ? d:\fish.txt 二、学生编程体验 实践1、登录奥秘 step1、启动VB，“新建工程”对话框选“标准EXE”， 弹出Form1空白窗口。 Step2、设计应用程序的界面。 text 1向窗体Form1中添加命令按钮控件、文本框控件 等 text 1 VB三种常用控件: 命令按钮控件 文本控件 标鉴控件 Text 1 Text 1 Text 2 C Command 1 Step3、设置对象的属性。 打开命令控件comm1的“属性按钮”， 在属性列表中选择属性名Caption， 将右侧属性值改为“登录” 控件属性： Form1→属性→Caption属性值“2012新春贺岁” Text Box(文本→输入)两个，其text内容为空；text2掩码*； Command Button(命令按钮)三个，Caption属性值“登录”、“重试”、“退出”； label(标签→显示结果)两个，分别命名为“帐号”、“密码” Image→属性→picture: …（图片） Step4. 编写事件代码。 在窗体中双击“登录”按钮，命令按钮Command1的单击时间处理过程，代码如下：（只复制黑体字符） 1-1、Private Sub Command1_Click( ) Dim name AS string , pw As String name = Text1.Text pw = Text2.Text If (name = st) And (pw = 8224408) Then MsgBox ( 登录成功， 欢迎进入！ ) Else MsgBox 用户名或密码错…… , 64, 东风高中登录提示 End If Rem Open d:\XX.txt For append AS #1 Rem Write #1, name Rem Write #1, pw, right(pw,2), len(pw) Rem Close #1 End Sub 1-2、Private Sub Command2_Click() Cls Text1.Text = Text2.Text = End Sub 1-3、Private Sub Command3_Click() End End Sub Step5、调试运行及保存程序。 “运行”菜单中选择“启动 ”，或按F5键 。 ( 建立学号文件夹 ) “文件”菜单——工程另存为——(学号文件夹内)form1 . f r m ——(学号文件夹内)工程1. vbp 文件——生成EXE文件。 三．归纳总结 VB编程步骤《广P76》 创建工程 创建工程 新建程序 窗体/控件 LABEL TEXT Command VB代码 调试运行 VB三种常用控件 命令按钮控件，标鉴控件，文本控件 MSGBOX语句格式：MsgBox 消息框文字, [信息的图标或按钮种类] [,标题] MSGBOX函数格式：MsgBox( 提示信息 [,按钮] [,标题] ) 拓展实践 实践2．“中奖啦” 《教科P45》《广东P76》 VB向磁盘文件写数据。《教科P98》《广东P77》 知识关联 I、VB文件操作：打开文件、关闭文件、读出文件、写入文件 写文件：Open filename For Output As #文件号 WRITE #文件号 [, 输出列表] PRINT #文件号, 输出列表 向文件尾部追加数据 Open filename For Append As #文件号 Write #文件号, [输出列表] 读文件：Open filename For Input As #文件号 Input #文件号, 变量 关闭文件：Close [ # 文件号 ]