VB程序设计基础 全套课件 VB教程第3章教案

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

2、Stop 也可以通过单击工具栏上的“中断”按钮来实现 使用Ctrl + Break组合键 赋值与输入输出 (1)表达式中的变量必须是赋过值的，否则变量的初值自动取零值(变长字符串变量取空字符)。例如： a = 1 c = a + b + 3 b未赋过值，为0 执行后，c 值为 4 (2)赋值语句跟数学中等式具有不同的含意，例如 x = x + 1 表示把变量x的当前值加上1后再将结果赋给变量 “先读后写”：读出x的内容 加1 写回x（覆盖原有内容）说明 (3)变量出现在赋值号的右边和左边，其用途是不相同的。出现在右边表达式中时，变量是参与运算的元素(其值被读出)；出现在左边时，变量起存放表达式

3、的值的作用(被赋值)。例如 x = 2 a = 3 x = 2*a + 5 当执行第3行语句“x=2*a+5”时，将读出变量a的值(即3)，把该值乘2后加5，然后将结果(11)赋值给变量x。 (4)赋值号两边的数据类型必须一致，即同时为数值型或同时为字符型。说明例3.2 设计程序，实现两个文本框内容的交换 (1)在窗体上建立两个标签、两个文本框和一个命令按钮 (2)编写程序代码 借助于另一个变量(假设为 t) ，并直接在控件中交换数据 Private Sub Command1_Click() “交换”按钮 Dim t As String Text1.Text = Text2.Text Text

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

5、运行时，在文本框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例20 3.3.1 Print方法 用于显示(输出)文本 格式：对象名.Print 表达式列表

6、 说明：(1)使用的对象可以是窗体等 Print “程序设计” 在当前窗体上输出 Picture1.Print “程序设计” 在图片框上输出 (2)表达式列表是一个或多个表达式，如果省略，则输出一个空行 3.3 使用Print方法输出数据例 Private Sub Form_Click() a = 2 b = VB Print 50 * a 计算并输出表达式的值 Print b 输出变量的值 Print 输出空行 Print The Total is 输出字符串常量 End Sub 运行结果：例 输出数值数据时，前面有一个符号位(正号以空格表示)，后面留有一个空格；输出字符串时，前后不留空格

7、(3)当输出多个表达式时，各表达式之间用分号“；”(紧凑格式)或逗号“，”(按区格式)隔开。 按区格式(14个字符位置) (4)若语句行末尾有分号或逗号,则输出本行输出项后不换行例 Private Sub Form_Click() a = 3: b = 4 Print a, b, 4 + a, Print 2 * b Print a, , b Print a=; a, b=; b End Sub 运行结果 例 1. Spc函数 格式：Spc(n) 功能：在输出下一项之前插入n个空格。 例如： Print 学号；Spc(2)；姓名；Spc(5)；成绩 输出结果(表示空格)： 学号姓名成绩 特殊打

8、印格式 函数格式：Tab(n) 功能：把输出位置移到第n列。 例如： Print Tab(2);学号；Tab(11);姓名；Tab(21);成绩 输出结果是(1个汉字占2个位置)： 学号姓名成绩 2. Tab函数 格式：Format(表达式 ,格式串) 功能：根据格式串规定的格式来输出表达式的值 例 a=4513.7 : b=3456.78 : TimeVar=#08:30:05# Print Format(a, #,#.#) Print Format(a, $#,#.00) Print Format(b, +#,#.#) Print Format(TimeVar, h:m:s) 输出结果是：

9、 +3,456.8 8:30:5 格式符号#和0都能显示数字，但符号#会剔除不必要的0，符号0会按规定补足0 3. Format函数例 窗体(Form)是设计VB应用程序的基本平台 窗体本身是一个对象，又是其他对象的载体或容器 多数应用程序是从窗体开始执行的 ; 一个程序可以有多个窗体 3.4.1 窗体的基本属性 设置窗体的属性，可在程序设计时在属性窗口中手工设置，也可以在程序运行时由代码实现 默认属性3.4 窗体 一些常用的窗体属性： Name属性：用于设置窗体的名称。指定窗体的名称。只读，不能在应用程序中修改 Caption属性：用于设置窗体标题栏上的标题内容。 Maxbutton和Min

10、button属性：用于设置最大化和最小化按钮 Height和Width属性：确定窗体的初始高度和宽度 Left和Top属性：确定窗体的左上角在屏幕上的横、纵坐标 Appearance属性：用于设置窗体的外观是平面还是三维的 BackColor和ForeColor属性：设置窗体的背景色和前景色 Picture属性：用于在窗体上设置要显示的图形。 对象.Picture=LoadPicture(文件名) Visible(可见性)：设置对象的可见性，默认值为True 坐标原点(0, 0)在窗体的左上角 坐标轴刻度单位为缇(Twip,567缇为1厘米) 当前位置的横坐标(CurrentX)和纵坐标(Cu

11、rrentY) YX (CurrentX, CurrentY) 当前位置窗体坐标系统 窗体事件过程的一般格式为： Private Sub Form_事件名(参数表) End 在事件过程中只能使用Form，而在过程内对窗体进行引用时才会用到窗体名字(如Form1等) 3.4.2 窗体的事件 与窗体有关的常用事件有以下几种。 (1)Load(装载)事件 (2)Unload(卸载)事件 (3)Activate(活动)、Deactivate(非活动)事件 (4)Paint(绘画)事件 (5)Click(单击)事件 (6)DblClick(双击)事件 (7)KeyPress(按键)事件：当按下键盘上的某

12、个健时，将触发KeyPress事件。其事件过程的格式为： Private Sub 对象_KeyPress(KeyAscii As Integer) End Sub 参数KeyAscii返回所按键的ASCII码 (1)Show方法：用于快速显示一个窗体，使该窗体变成活动窗体 (2)Print方法：用于在窗体上输出表达式的值 (3)Cls方法：用于清除运行时在窗体中显示的文本或图形 (4)Move(移动)方法：用于移动并改变窗体或控件的位置和大小 窗体的方法 1.属性：对象的特性 如 Text1.Text,Label1.BackColor等 设置方法：(1) 在属性窗口中设置 (2) 在程序中更改

13、对象的属性 如 Text1.Text = “ABCDEFG” 2.事件：由系统预先设置好的、能被对象识别的动作。 例如：鼠标的移动(MouseMove)、单击(Click)等 用来引发事件过程，其格式如下 3. 方法 方法是对象能够执行的动作 它是对象本身内含的函数或过程，用于完成某种特定的功能 一般格式：对象名.方法名(参数) 如 Form1.Cls 消除窗体Form1上的内容 Form1.Print Visual BASIC 在当前窗体上显示 对象的属性、事件与方法(小结)Sub 对象名_事件名() 处理事件的程序代码End Sub 1. 焦点 焦点(Focus，光标)是对象接收鼠标或键盘

14、输入的能力。 要将焦点赋给控件，有以下几种方法： (1)用鼠标选定对象 (2)按快捷键选定对象 (3)按Tab键或Shift+Tab键在当前窗体的各对象之间切换焦点 (4)在代码中用SetFocus方法来设置焦点。例如： Text1.SetFocus 把焦点设置在文本框Text1 2. Tab键序 Tab键序是指用户按Tab键时，焦点在控件间移动的顺序 反映在控件的TabIndex属性 焦点与Tab键序 设置以下3个命令按钮： “显示”按钮：用于显示唐诗“静夜思” “清除”按钮：用于清除所生成的文本 “结束”按钮：结束程序的运行 设计步骤如下： (1)创建应用程序的用户界面和设置对象的属性 例

15、 显示唐诗“静夜思”例 (2)编写程序代码。编写的三个按钮的Click事件过程代码： Private Sub CmdPrt_Click() BackColor = RGB(255, 255, 255) ForeColor = RGB(0, 0, 255) FontName = 楷体_GB2312 FontSize = 20 FontBold = True 粗体 CurrentX = 1200:CurrentY = 350 显示位置 Print 静夜思(唐诗) FontName = 幼圆 Print FontSize = 13 Print Spc(6); 床前明月光，疑是地上霜 Print Pr

16、int Spc(6); 举头望明月，低头思故乡 End Sub Private Sub CmdCls_Click() Cls End Sub Private Sub CmdEnd_Click() End End Sub 程序运行后，单击“显示”按钮，输出结果 3.5 基本控件 三种基本控件命令按钮、标签和文本框 命令按钮(commandButten)用于引发应用程序的某个操作 标签(Label)主要用来显示比较固定的提示性信息。 文本框(TextBox)是一个文本编辑区域，用户可以在该区域中输入、编辑和显示文本内容。 几点说明： (1) Caption属性：对象的标题 可以在Caption属性

17、中为控件指定一个访问键 例如： Command1.Caption=“结束(&E)” 运行时只要用户同时按下Alt键和E键，就能执行该按钮命令 (2) Enabled属性：决定控件是否对用户产生的事件作出响应 (3) Visible属性：决定控件是否可见，默认值为True 在窗体上已经建立了两个文本框Text1和Text2，并编写 如下三个事件过程： Private Sub Form_Click() Text2.Text = P End Sub Private Sub Text1_Change() 内容发生改变 Text2.Text = + N + Text1.Text End Sub Priv

18、ate Sub Form_Load() Text2.Text = M Text1.Text = M End Sub 运行程序后单击窗体，则在文本框Text2中显示的内容是 A. PNM B. NPM C. PNP D. PNPM 例D思考题想一想 对话框既可以用来显示信息，也可以用于输入信息 VB中能够建立两种预制对话框：输入框和消息框 使用系统提供的函数(InputBox和MsgBox)，而不必为对话框另建窗体 先看以下一个例子 例 通过输入框输入姓名，然后再消息框中显示出来 Private Sub Form_Load() x = InputBox(输入您的姓名, 您叫什么名?) y = M

19、sgBox( x & 先生：祝您马到功成！) End Sub 使用对话框例 用于产生一个能接收用户输入的对话框 格式： 变量=InputBox(提示,标题,缺省值,xpos,ypos) 举例 filename$=InputBox(“请输入文件名(不超过8个字符)”，”文件名”，”vbfile”) 将产生一个如下对话框 3.6.1 输入对话框例 filename$=InputBox(请输入文件名 + Chr(13) + (不超过8个字符), 文件名, vbfile) 使用MsgBox函数，可以产生一个对话框来显示消息 当用户单击某个按钮后，将返回一个数值以标明用户单击了哪个按钮 其语法格式是：

20、变量=MsgBox(提示,对话框类型,对话框标题) 例：y = MsgBox(“输入文件名是否正确”,52,”请确认”) “对话框类型”一般有3个参数， 4+48+0 出现按钮；图标类型；默认按钮； 函数返回值 示例： 3.6.2 消息对话框例 1. 返回一个值。从返回值中可以知道用户按下的是哪个按钮（表）。例如 y = MsgBox(“输入文件名是否正确”,52,”请确认”) 若y为1，表示用户按下的是“确定”按钮，依此类推。 程序通过判断y值(如采用条件语句IF-THEN)，再根据用户按下的是什么按钮，再做不同的处理。 2. 不返回值。例如 MsgBox “输入文件名是否正确”,52,”请

21、确认” MsgBox “输入文件名是否正确” 采用这种格式时，不知道用户按下的是什么按钮。这种格式可以使用在不需要知道用户按钮情况的场合。MsgBox的两种格式(1)创建应用程序的用户界面和设置对象属性(2)编写程序代码Private Sub Command1_Click() Dim r As Single, k As Single, s As Single r = Val(InputBox(请输入圆的半径, 计算圆的周长和面积) k = 2 * 3.14159 * r s = 3.14159 * r * r Text1.Text = k Text2.Text = s MsgBox 计算已完成

22、, , 例3.5 End Sub Private Sub Command2_Click() End End Sub例 从输入框中输入圆的半径，计算圆的周长和面积例当输入的圆半径为65时，运行结果 例 控制窗体“变大”和“变小” 在窗体上设置三个命令按钮(图3.13)，程序进入运行状态后，当单击“窗体变大”命令按钮时，窗体变大，单击“窗体变小”按钮时，窗体变小。单击“退出”按钮时，则退出。 3.7 程序举例例 (1)建立应用程序的用户界面和设置对象属性 (2)编写程序代码 Private Sub Form_Load() Form1.Height = 4000 Height为窗体的高度，P55 F

23、orm1.Width = 4000 Height为窗体的宽度 Form1.Top = 1000 设置窗体的初始位置 Form1.Left = 1000 End Sub Private Sub Command1_Click() “窗体变大”按钮 Form1.Height = + 200 每次增加200点 Form1.Width = + 200 End Sub Private Sub Command2_Click() “窗体变小”按钮 Form1.Height = - 200 每次减少200点 Form1.Width = - 200 End Sub 在第一个文本框中输入文字时，在另外两个文本框中显示同样相同的内容，但显示的字号和字体不同。单击“清除”按钮时则清除三个文本框中的内容例 在三个文本框中显示不同的文字效果例 (1)建立应用程序的用户界面和设置对象属性 (2)编写程序代码 Private Sub Form_Load() Text2.Fon