[VB4.docVIP

第四章 Visual　 Basic程序设计基础（1） 【教学目的】 通过教学，使学生了解Visual Basic程序设计的基础知识，如VB程序的构成（过程和调用）、VB的赋值语句、条件语句等，并能在编程中熟练应用。 【教材分析】 1、教学重点：VB程序的构成（过程和调用）、VB的赋值语句、条件语句等，并在编程中熟练应用。 2、教学难点：过程和调用是一种与QB语言不同的概念，应提醒学生注意。 【教学时间】三课时（一节在多媒体阶梯教室，二节在第七机房） 【学习过程】 导入：我们已经上机完成了14个练习题，那个同学能能归纳出VB的程序代码的结构吗？ 一、VB的程序代码的结构（打开一个例题的代码分析） 　　1、VB程序中代码由若干个过程构成（事件过程、通用过程）。 2、过程的定义格式： 　　Private Sub 过程名(参数) 　　　　语句1 　　　　…… 　　　　语句n End Sub 　　注：过程名一般由对象名和事件名两部分组成，如Command1_Click() 　　　　Private表示这个过程是非通用的 二、VB的赋值语句（P86-87） 格式：　（Let） 变量＝表达式 (Let 可省略不写)　　　　[例]　 Dim a As Integer　 a=100*20 Text1.text=str(a) 三、VB的条件语句（三种）(P77-81) 1、　If 　…　Then　　格式一：If 　条件　Then　语句　格式二：If 　条件　Then 　　　　　　　　语句块 　　 End If2、If 　…　Then　 …　　Else　格式一：If 　条件　Then　语句1　　Else　　语句2　格式二：If 　条件　Then 　　　　　...　　　　　Else　　　　　　...　　　　　End If　　［例］分析下列程序的功能：　　　　If Text1.Text = abcd789 Then 　　　　Form1.Hide 　　　　Form2.Show Else 　　MsgBox 密码输入出错，请重新输入密码!, 0, 密码校验 　　Text1.SetFocus 　　Text1.Text = End If 3、Select Case 语句（用于对某一表达式的值进行多种处理）　　格式如下：　　　　Select Case 表达式　　　　　　Case 值1：　　　　　　　　...　　　　　　Case 值2：　　　　　　　　...　　　　　　Case Else　　　　　　　　...　　　　End Select　　［例］分析下列程序的功能： Select Case Text1.Text Case 1 Text2.Text = 星期一 Case 2 Text2.Text = 星期二 Case 3 Text2.Text = 星期三 Case 4 Text2.Text = 星期四 Case 5 Text2.Text = 星期五 Case 6 Text2.Text = 星期六 Case 7 Text2.Text = 星期天 Case Else Text2.Text = 非法数值，无法转换! End Select ［例5-1］在窗体中设置2个标签、2个命令按钮、2个文本框，当我们在文本框1中输入1――7的数字时，点击“转换”命令按钮，在文本框2中就会转换成与数字相对应的星期序列，如输入的数字不是1――7，则显示“非法数值，无法转换!”，点击“结束”命令按钮，则程序结束运行。 ［解］第一步：创建新窗体Form1，在此窗体上创建二个命令按扭Command1、 Command2，，创建二个标签Label1、Label2和二个文本框Text1、Text2。 第二步：设置对象的属性 对象类型 对象名 属性设置 窗体 Form1 Caption 转换星期序列 命令按钮 Command1 Caption 转换 命令按钮 Command2 Caption 结束 标签 Label1 Caption 输入数字（1――7） 标签 Label2 Caption 转换结果 文本框 Text1 Text 空白 文本框 Text2 Text 空白 第三步：补充完成代码编写 Private Sub Command1_Click() Select Case Text1.Text Case 1 Text2.Text = 星期一 Case 2 Text2.Text = 星期二 Case 3 Text2.Text = 星期三 Case 4 Text2.Text =