VB语言程序设计第2版林卓然电子教案第3章教学案例

《VB语言程序设计第2版林卓然电子教案第3章教学案例》由会员分享，可在线阅读，更多相关《VB语言程序设计第2版林卓然电子教案第3章教学案例（43页珍藏版）》请在金锄头文库上搜索。

1、主页 学习程序设计，初学者要善于模仿，并要多练。 任何一门程序设计语言都有一套严格的编程规定(如语法规则)，在编程时一定要遵守这些规定(只能遵守，不能创造)。主页 一个完整的VB应用程序，一般都包含三部分内容，即 输入 处理 输出 可通过VB语句、各种控件实现输入输出操作 本章主要内容第3章 顺序结构程序设计赋值语句注释、结束及暂停语句使用Print方法输出数据窗体和基本控件对话框程序举例命令按钮标签文本框输入框消息框退出主页 1. 赋值语句Let变量名=表达式 示例：x = 5 * 1.4 2. 注释、结束和暂停语句 (1) 注释语句 Rem 注释内容 或 注释内容 (2) 结束语句 End

2、 (3) 暂停语句 Stop 也可以通过单击工具栏上的“中断”按钮来实现 使用Ctrl + Break组合键,可强制程序暂停运行赋值与输入输出主页主页 (3)变量出现在赋值号的右边和左边，其用途是不相同的。出现在右边表达式中时，变量是参与运算的元素(其值被读出)；出现在左边时，变量起存放表达式的值的作用(被赋值)。例如 x = 2 a = 3 x = 2*a + 5 当执行第3行语句“x=2*a+5”时，将读出变量a的值(即3)，把该值乘2后加5，然后将结果(11)赋值给变量x。 (4)赋值号两边的数据类型必须一致，即同时为数值型或同时为字符型。说明主页编写的窗体单击事件过程代码如下： Pri

3、vate Sub Form_Click() Dim x As Integer, a As Integer Dim b As Integer, c As Integer x = 36 a = Int(x / 10) 求十位数 b = x Mod 10 求个位数 c = b * 10 + a 生成新的数 Print 处理后的数: ; c End Sub运行程序后单击窗体，输出结果是： 处理后的数：63例3.1 给定一个两位数(如36)，交换个位数和十位数的位置，把处理后的数显示在窗体上例3.1 处理方法两位数 ab b取出个位数 a取出十位数新两位数: b*10 + a主页 编写的VB程序代码如下

4、： Private Sub Form_Click() Dim x As Integer, a As Integer Dim b As Integer, c As Integer x = InputBox(“输入一个位数”) 运行时由用户任意给定一个位数 a = Int(x / 10) 求十位数 b = x Mod 10 求个位数 c = b * 10 + a 生成新的数 Print 处理后的数: ; c End Sub 执行后，弹出一个输入对话框，若用户输入“83”，输出结果： 处理后的数: 38 例3.1A 运行时由用户任意给定一个两位数，交换个位数和十位数的位置，把处理后的数显示在网页上。

5、例3.1A一种灵活输入方式InputBox是VB函数，见P58主页例3.2 设计程序，实现两个文本框内容的交换 (1)在窗体上建立两个标签、两个文本框和一个命令按钮 (2)编写程序代码 借助于另一个变量(假设为 t) ，并直接在控件中交换数据 Private Sub Command1_Click() “交换”按钮 Dim t As String t = Text1.Text Text1.Text = Text2.Text Text2.Text = t End SubText1Text2例3.2有的对象属性具有变量的特性主页 编写的程序代码如下 ： Private Sub Command1_Cl

6、ick() “交换”按钮 t = Text1.Text Text1.Text = Text2.Text Text2.Text = t End Sub 采用变体型变量 说明：对于初学者来说，为了节省时间，有时可以不采用Dim等语句声明就直接使用变量(默认为变体型，如t)。但在规范的软件开发中，通常都要求程序中使用的变量必须预先声明。没用Dim语句t 是变体型变量主页 把上述程序改为以下形式，效果是否一样？Private Sub Command1_Click() “交换”按钮 Text2.Text = Text1.Text Text1.Text = Text2.Text End Sub思考题想一想

7、主页 下列程序的运行结果是什么？ 运行时，在文本框Text1中输入5，单击“计算”按钮后，在文本框Text2显示的结果是什么? Private Sub Command1_Click() “计算”按钮 Dim a As Integer, b As Integer, c As Integer a = Val(Text1.Text) b = 7 c = 2 * a Mod b / 3 + 1 a = a + 1 b = 2 * b - 1 c = c + a + b Text2.Text = cEnd Sub思考题想一想Text1Text2例3.2A20主页 3.3.1 Print方法 用于显示(输

8、出)文本 格式：对象名.Print 表达式列表 说明：(1)使用的对象可以是窗体等 Print “程序设计” 在当前窗体上输出 Picture1.Print “程序设计” 在图片框上输出 (2)表达式列表是一个或多个表达式，如果省略，则输出一个空行 3.3 使用Print方法输出数据主页 例3.3 Print输出示例 Private Sub Form_Click() a = 3: b = 4 Print a, b, 4 + a, Print 2 * b Print a, , b Print Print a=; a, b=; b End Sub 运行结果 例3.3分号“；”紧凑格式逗号“，”按区

9、格式(14个字符位置)语句行末尾有分号或逗号,则输出本行输出项后不换行输出数值数据时，前面有一个符号位(正号以空格表示)，后面留有一个空格；输出字符串时，前后不留空格每个Print输出一行。主页 1. Spc函数 格式：Spc(n) 功能：在输出下一项之前插入n个空格。 例如： Print 学号；Spc(2)；姓名；Spc(5)；成绩 输出结果(表示空格)： 学号姓名成绩 3.3.2 特殊打印格式主页 函数格式：Tab(n) 功能：把输出位置移到第n列。 例如： Print Tab(2);学号；Tab(11);姓名；Tab(21);成绩 输出结果是(1个汉字占2个位置)： 学号姓名成绩 2.

10、Tab函数主页 格式：Format(表达式 ,格式串) 功能：根据格式串规定的格式来输出表达式的值 示例 a=4513.7 Print Format(a,#,#.#) Print Format(a,$#,#.00) 输出结果是： 4,513.7 $4,513.70 格式符号#和0都能显示数字，但符号#会剔除不必要的0，符号0会按规定补足0 3. Format函数主页 窗体(Form)是设计VB应用程序的基本平台 窗体本身是一个对象，又是其他对象的载体或容器 多数应用程序是从窗体开始执行的 ; 一个程序可以有多个窗体 3.4.1 窗体的基本属性 设置窗体的属性，可在程序设计时在属性窗口中手工设置

11、，也可以在程序运行时由代码实现 默认属性3.4 窗体主页 一些常用的窗体属性： Name属性：用于设置窗体的名称。指定窗体的名称。只读， 不能在应用程序中修改 Caption属性：用于设置窗体标题栏上的标题内容。 Maxbutton和Minbutton属性：用于设置最大化和最小化按钮 Height和Width属性：确定窗体的初始高度和宽度 Left和Top属性：确定窗体的左上角在屏幕上的横、纵坐标 BackColor和ForeColor属性：设置窗体的背景色和前景色 FontName属性：用于在窗体上设置字体。 FontSize属性：用于在窗体上设置字号。 Visible(可见性)：设置对象的

12、可见性，默认值为True主页 坐标原点(0, 0)在窗体的左上角 坐标轴刻度单位为缇(Twip,567缇为1厘米) 当前位置的横坐标(CurrentX)和纵坐标(CurrentY) YX (CurrentX, CurrentY) 当前位置窗体坐标系统主页 窗体事件过程的一般格式为： Private Sub Form_事件名(参数表) End 在事件过程中只能使用Form，而在过程内对窗体进行引用时才会用到窗体名字(如Form1等) 3.4.2 窗体的事件只能写成Form,不能写成Form1主页 与窗体有关的常用事件有以下几种。 Load(装载)事件：启动程序时，通常先执行Form_Load U

13、nload(卸载)事件 Click(单击)事件 DblClick(双击)事件 KeyPress(按键)事件：当按下键盘上的某个健时，将触发KeyPress事件。其事件过程的格式为： Private Sub 对象_KeyPress(KeyAscii As Integer) End Sub 示例：Private Sub Form_KeyPress(KeyAscii As Integer) Print 你录入的键是：; Chr(KeyAscii) End Sub 参数KeyAscii返回所按键的ASCII码主页 (1)Show方法：用于快速显示一个窗体，使该窗体变成活动窗体。例如： Private

14、Sub Form_Load() Show Print “窗体已被how显示出来！” End Sub (2)Print方法：用于在窗体上输出表达式的值 (3)Cls方法：用于清除运行时在窗体中显示的文本或图形 (4)Move(移动)方法：用于移动并改变窗体或控件的位置和大小 3.4.3 窗体的方法启动程序时，系统先自动执行本过程，但窗体未被显示出来通过Show显示窗体。使后续的Print输出内容可见主页 1. 焦点 焦点(Focus，光标)是对象接收鼠标或键盘输入的能力。 要将焦点赋给控件，有以下几种方法： (1)用鼠标选定对象 (2)按快捷键选定对象 (3)按Tab键或Shift+Tab键在当

15、前窗体的各对象之间切换焦点 (4)在代码中用SetFocus方法来设置焦点。例如： Text1.SetFocus 把焦点设置在文本框Text1 2. Tab键序 Tab键序是指用户按Tab键时，焦点在控件间移动的顺序 反映在控件的TabIndex属性 3.4.4 焦点与Tab键序主页 设置以下3个命令按钮： “显示”按钮：用于显示唐诗“静夜思” “清除”按钮：用于清除所生成的文本 “结束”按钮：结束程序的运行 设计步骤如下： (1)创建应用程序的用户界面和设置对象的属性 例3.4 显示唐诗“静夜思”例3.4主页 (2)编写程序代码。三个按钮的事件过程代码： Private Sub CmdPrt

16、_Click() BackColor = RGB(255, 255, 255) 背景颜色，白色 ForeColor = RGB(0, 0, 255) 前景颜色，蓝色 FontName = 楷体_GB2312 FontSize = 20 FontBold = True 粗体 CurrentX = 1200 : CurrentY = 350 显示位置 Print 静夜思(唐诗) Print 空一行 FontName = 幼圆 FontSize = 13 Print Spc(6); 床前明月光，疑是地上霜 Print Print Spc(6); 举头望明月，低头思故乡 End Sub颜色值见附录B主页 Private Sub CmdCls_Click() Cls End Sub Private Sub CmdEnd_Click() End End Sub 程序运行后，单击“显示”按钮，输出结果主页 3.5 基本控件 三种基本控件命令按钮、标签和文本框 命令按钮(commandButten)用于引发应用程序的某个操作 标签(Label)主要用来显示比较固定的提示性信息。 文本框(TextBox