清华大学VB经典教案第三节——顺序结构程序设计

输出到图片
• 对象名：窗体、图片库和打印机 操作输出到图片上 1.添加图片框（改名称，方便些代码） 2.添加按钮（caption改为，图片输出） 3.编写代码（picture1.print 接表达式） 4.运行调试
2. 与Print方法有关的函数 (1) Tab函数：从左端开始计数 (2) Spc函数：两个输出结果之间的间隔计数
Private Sub Form_Click() Show FontSize = 12 Print Print Tab(10); "姓名"; Tab(25); "性别"; Tab(40); "年龄" Print Print Tab(10); "张红"; Tab(25); "女"; Tab(40); 17 Print Tab(10); "海小翔"; Tab(25); "男"; Tab(40); 18
顺序结构程序设计
班级 姓名
回顾！
• 我们前3 章学习了哪些内容？
1.Visual basic简介，版本特点，帮助功 能的使用。 2.VB程序设计概述，认识对象、类，简 单的程序设计实例 3.语言基础，数据类型，VB表达式和常 用的内部函数。
VB三种结构
• 顺序结构
• 选择结构 • 循环结构
程序代 码最重
Print , , "Baisc" Print
句尾使用“，”，下一个分区显示
Print " 祝您学好",
Print "Visual"; " Baisc"
End Subprint 计算输出功能输出 表达式 分隔符

可视化编程

VB的对象被抽象为窗体和控件，用VB 开发应用程序时，一你输入长方体的 长 宽 高 真的有这 么强吗？ 程序自动算出面积和体积 并把结果显示在窗体上
新建一个工程
在窗体上画一个标签和一个命令按钮
选中窗体/控件，对其属性进行设置
设置之后的界面如下：
双击按钮进入代码窗口，编写代码
代码如下



Private Sub Command1_Click() Dim a As Single, b As Single, c As Single, s As Single, v As Single a = InputBox("a=", "输入长") b = InputBox("b=", "输入宽") c = InputBox("c=", "输入高") s = 2 * (a * b + a * c + b * c) v=a*b*c Print "面积s="; s, "体积v="; v End Sub
调试运行
长方体的长、宽、高
例如 长：1 宽：2 高：3
最后结果显示如下
小结
定义 特征
顺序结构
顺序结构的最大特点是 在这个结构内按由上到下得书写顺序执行， 它只有一个入口和一个出口。 这是一种最简单、最基本的结构。
教学重点 教学难点
理解程序设计的顺序结构基本思想 1 、顺序结构实现语句的格式和功能 2、变量的特点 3 、编写简单的程序的过程
开始
两 数 交 换 的 流 程 图
输入a，b的值 t=a a=b b=t 输出a，b的值 结束

3. 说明 (1) <变量名>: 应符合变量命名约定。 (2) <表达式>: 常量、变量、表达式、属性。 (3) <对象名>: 缺省时为当前窗体。 (4) 赋值号“=”: 与数学中的等号意义不同。
例: 1
(5) 赋值号左边必须是变量或对象属性。
例: 1
""
1"确定"
1 ' 错误，赋值号左边是表达式
例：用标签1输出一个数值型数据 X=3^5 1 = (X)
例：用标签1输出多个数，分多行输出。 通常要先设置标签的属性和属性为。 X = 3 ^ 5: y = 7 ^ 4 1 = "" & (X) & _ & "" & (y)
【例4-4】已知三角形的三条边a、b、c的长度，用海伦公式求三角形的面积S。海伦公式:
⑤单击“退出”按钮结束程序的运行。 3()
4.2.4 框架控件
框架()控件是一种容器控件。在框架控件内的控件可以随框架一起移动，并且受框架控件的 某些属性（等）的控制。
使用框架控件对其他控件进行分组，可以使界面更清晰明了。一般不需要响应框架控件的事 件。
使用框架控件将其他控件分组的方法有两个： 先画框架控件并激活，再加入其中的控件，这样可使框架控件及其上的控件一起移动。 若要用框架控件将现有的控件分组，可先选定所有控件，将它们剪切到剪贴板上，然后选定 框架控件进行粘贴。以42为例。
=1 例：将文本框1中输入的字符串作为数据赋给整型变量
A A = (1)
1. 文本框控件的常用属性
(1) 属性：表示文本框中包含的内容 (2) 属性：决定文本框的内容是否可编辑 (3) 属性：为,可输入多行文本，默认为. (4) :决定是否有滚动条以及滚动条的显示方式。默认为不显示。 (5) :显示在文本框中的替代符，如“*”，主要用于口令的输入。 (6) :指定显示的字符个数，超出部分不接收，并同时发出嘟嘟声。

【例题】移动对象，程序运行时使命令按钮移到窗体 的中心位置。
TextHeight和TextWidth方法
TextHeight方法和TextWidth方法用于帮助设置坐标，作用 为返回一个文本字符串的高度和宽度值。 TextHeight方法语法格式为： [对象名].TextHeight（字符串） TextWidth方法语法格式为： [对象名].TextWidth（字符串）
Spc函数
Spc函数也可以对输出进行定位，作用是提供n个空格键。 Spc函数语法格式为：Spc（<n>） 例如：Print “a” ；Spc（10）；“b”；Spc（5）；“c” 输出：a b c 说明： 1、参数n是一个数值表达式。 2、Spc函数与其他输出项之间用分号隔开。 3、Spc函数和Tab函数的作用相似，可以相互替代，不同的是，Tab函数 从对象的左端开始计数，而Spc函数只表示输出项之间的间隔。
输出信息对话框
MsgBox函数可以弹出一个带有若干按钮的对话框，并在对话 框中显示询问消息，等待用户做出选择，并返回一个整数值， 告诉用户单击哪一个按钮。 MsgBox函数的语法格式： 变量=MsgBox（<信息内容>[，<对话框类型>[，<对话框标题 >]]） 说明： 1、信息内容是在对话框中出现的提示文本。在信息内容中 使用硬回车符（CHR（13））可以使文本换行。对话框的高度 和宽度随着信息内容的增加而增加，最多可有1024个字符。 2、对话框类型指定对话框中出现的按钮和图标，一般有3个 参数。其取值和含义如下：
CurrentX和CurrentY属性
CurrentX和CurrentY表示当前输出位置的横坐标与纵坐标。
文本属性
①字体（FontName） 格式为：FontName[=“字体类型”] ②字号 格式为：FontSize[=“点数”] 注：“点数”用来设定字体的大小，默认情况下，系统使用最小的字 号：“点数”为8。 ③斜体 格式为：FontItalic[=Boolean] 注：当Boolean值为True时，文本以斜体字输出，Boolean默认为False。 ④粗体 格式为：FontBold[=Boolean] 注：当Boolean值为True时，文本以粗体字输出，Boolean默认为False。

程序设计的一般步骤
第一步，分析问题。
第二步，程序流程设计。 第三步，人机界面设计。
第四步，程序代码设计。
第五步，运行、调试。 第六步，编译、发布。
字符数。
例如： Print “后面有8个空格”; Spc(8); “前面有8个空格”
输出结果： 后面有8个空格 前面有8个空格
Tab(n) ——用来将插入点定位在绝对列号上，n 为列号。例 如： 输出结果： Print Tab(10); “姓名”; Tab(25); “年龄” 姓名 年龄
Cls方法
InputBox函数
例如：
Dim strName As String * 40 strName = InputBox(“请输入你的姓名” + vbCrLf + “然后单击确定” , “输入框” ) 也可以使用如下语句： Dim strName As String * 40 strName = InputBox( “请输入你的姓名” + Chr(13) +
‘ 计算 x*3 的值，得6，把6赋给y
‘ 计算 x+1 的值，把 3 赋给 x ‘ 把 “Hello” 赋给a$ ‘ 0.1 赋给 sRate
Text1.Text ＝ “欢迎使用 Visual Basic 6.0 ”
注意：当表达式的类型与变量的类型不一致时，强制转换成左
边的类型。 例如： iA% = 10 / 3.0 ' iA中的结果为3
[对象名.] Print [表达式列表]
其中：对象名——一般为窗体名。省略此项，表示在当前窗体
上输出。 表达式列表——是一个或多个表达式。若为多个表达式， 则各表达式之间用“，”或“；”隔开。省略此项，则输出一 空行。 功能：依次计算各个表达式的值，按指定的格式在对象上打印 输出。

单击“确定”，返回文本框中的文本到变量R中 单击“取消”，返回一个零长度的字符串 10
4.2.2 用文本框(TextBox)输入数据 第 四 章 顺 序 结 构 程 序 设 计 用文本框输入数据时，也就是将文本框的Text 属性的内容赋值给某个变量。 例：将文本框Text1中输入的字符串赋给字符串 变量Mystr Dim MyStr As String MyStr = Text1.Text 例：将文本框Text1中输入的字符串作为数据赋 给整型变量 Dim A As Integer A = Val(Text1.Text)
14
4.2.3 焦点和Tab键序
第 1. 焦点 四 当前可以接收用户输入的对象称为具有焦点。 章 注意: 并非所有控件都可以接收焦点。而且, 只有 顺 序 Enable和Visible属性为True时，才可以接收焦点。 结 构 2. 事件 程 GotFocus 发生在对象得到焦点时 序 LostFocus 发生在对象失去焦点时 设 计 3. 对象何时得到焦点 运行时选择对象(鼠标、Tab键、访问键) 在代码中使用SetFocus方法 其格式为：<对象>.setfocus 15
20
第 四 章 顺 序 结 构 程 序 设 计
④单击“清除”按钮清除所有文本框的内容，并 将焦点定位在文本框Text1中。 Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text1.SetFocus End Sub ⑤单击“退出”按钮结束程序的运行。 Private Sub Command3_Click() End End Sub

Command2.Enabled = False Command1.Enabled = True End Sub
Copyright © by metc
7
VB 2010

❖3.1 顺序结构程序设计
VB 2010
2. 使用Print方法
（1）Print方法 Print方法用于在窗体（Form）、立即窗口（Debug）、图片框（Pictur eBox）或打印机（Printer）等对象 [〈对象名称〉.]Print [〈表达式列表〉][，|；]
② Spc函数。用Spc函数跳过n列。其格式如下：Spc（n）。 其中，n是在显示或打印下一个表达式之前插入的空格数。Spc函数与输出项 之间用分号隔开。 Spc函数与Tab函数的作用类似，可以互相代替。但需要注意，Tab函数从 对象的左端开始计数，而Spc只表示两个输出项之间的间隔。
Copyright © by metc
Private Sub Form_Activate（）
Text1.SetFocus
End Sub
（2）Tab键顺序
Tab键顺序是指用户按Tab键时，焦点在窗体上的控件之间移动的顺序。一般
情况下，Tab顺序由向窗体中建立控件的先后顺序确定。
设置控件的TabIndex属性可以改变控件的Tab顺序。当在窗体上建立第一个
' 计算三种家电总销售额
Label7.Caption = x
End Sub
Private Sub Command3_Click（）
' 关闭按钮的单击事件
Unload Me
' 关闭当前窗体
End Sub
Copyright © by metc
14

（1）说明：变量声明
（2）输入： 文本框、 InputBox
（3）加工：数据处理
（4）输出： 文本框、标签、窗体、MsgBox
赋值语句
2013-10-29
赋值语句 P76
[ Let ] 变量名| 对象名.属性名 = 表达式
注：1、与等于号的区别。 2、左边通常是变量。 3、一次只能为一个变量赋值。 4、两边类型不一致时，强制转换为左边类型。 ★ 非数字字符串赋给数值变量时会出错。 例：Dim a% a = "sf " 会出现“类型不匹配”错误
2013-10-29
输入的几种实现方法： a=1 a=text1.text a = InputBox("请输入所需的数据：")
输出的几种实现方法： text1.text=a Print a Label1.caption=a MsgBox "该数据是" & a
演示
2013-10-29
2013-10-29

2、MsgBox函数
格式：
MsgBox prompt [,buttons][,title] 变量[%]= MsgBox（prompt [,buttons][,title]） 功能： MsgBox函数打开一个信息框，等待用户选 择一个按钮，并可根据用户在对话框上的选择 进行对应的响应，此函数返回一个整型值，以
2013-10-29
举例： MsgBox "确实要删除吗？请选择！" 执行该语句后屏幕出现一个对话窗口，如下图 所示：
2013-10-29
dim a as Integer
a= MsgBox("提示信息" ,1, "标题")

(4) “=”两边的类型应一致，否则，自动转换右侧的类型:
iA% = 10 / 3 iA% = 11 / 3
四舍六入 iA=3 iA=4
x%=“2500”
x%=val(“2500”),x=2500
x%=“2500元”
“%”是类型符号 ，代表整型
类型不匹配错误 含有非数字字符或空格时出错
(5) 两个变量a、b交换值
End Sub
3.4 数据输出
3.4.1 Print方法及相关函数
使用Tab、Spc、Space$函数，得到更丰富、更灵活的输出格式。 格式： [对象名称.]Print [Spc(n)|Tab(n)][表达式列表][；|，]
功能：在指定对象上按照一定格式输出列表信息
说明：
• 对象:窗体、图形框或打印机。省略：窗体。
将当前光标移至本行的第n个字符位置，即从第n个 字符位置处开始打印。
Print Tab(15);550;Tab(25);”+”;Tab(35);50;Tab(45);=;Tab(55);550+50
550 + 50 =
600
45
对应的列坐标值： 15 25
35
55
•Spc函数
【格式】Spc(n) 【功能】将光标自当前位置向后移动n个字符位置，即
➢可行性算法中的所有操作都必须足够基本，都可以通过已经实现
的基本操作执行有限次实现之。
➢有输出 一个算法有1个或多个输出。
➢有输入一个算法有0个或多个输入，来自某个特定的对象的集合。
算法的描述方法 •自然语言 •传统流程图 •N-S结构化流程图 •伪代码 •程序设计语言
3.1.3 程序设计风格 P46
Private Sub CmdEnd_Click() End