清华大学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的对象被抽象为窗体和控件，用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的值 结束
VB顺序结构程序设计
例: 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) :指定显示的字符个数，超出部分不接收，并同时发出嘟嘟声。
Visual_Basic程序设计课件——第三章
【例题】移动对象，程序运行时使命令按钮移到窗体 的中心位置。
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。
VB 第03章 顺序结构程序设计
程序设计的一般步骤
第一步，分析问题。
第二步，程序流程设计。 第三步，人机界面设计。
第四步，程序代码设计。
第五步，运行、调试。 第六步，编译、发布。
字符数。
例如： 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 [表达式列表]
其中：对象名——一般为窗体名。省略此项，表示在当前窗体
上输出。 表达式列表——是一个或多个表达式。若为多个表达式， 则各表达式之间用“，”或“；”隔开。省略此项，则输出一 空行。 功能：依次计算各个表达式的值，按指定的格式在对象上打印 输出。
VB顺序结构程序设计
单击“确定”，返回文本框中的文本到变量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
vb2010第3章
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
大学vb 第3章 顺序结构
（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, "标题")
vb第3章顺序结构程序设计精品PPT课件
(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
顺序结构_Visual Basic程序设计教程_[共3页]
![顺序结构_Visual Basic程序设计教程_[共3页]](https://img.taocdn.com/s3/m/743d91e45a8102d277a22f37.png)
704.1.2 顺序结构顺序结构是指程序执行时，根据程序中语句的书写先后顺序依次执行的语句序列，其程序执行流程是按顺序完成操作的。
图4-2所示是顺序结构的流程图。
在VB顺序结构中经常出现如下语句：如输入/输出语句（InputBox()、MsgBox()等）、注释语句（rem或'）、结束语句（End）和赋值语句等。
1．输入函数InputBox()VB提供了一个函数InputBox，它可以在程序运行过程中随时给变量赋值，它的功能是打开一个对话框，等待用户输入内容，当用户单击“确定”按钮或回车后，函数返回输入的值。
单击对话框的“取消”按钮，则InputBox函数的返回值为空字符串（""）。
【格式】InputBox（提示信息[,标题] [,默认值]）说明：（1）提示信息：对话框提示信息，字符串表达式，必选项，最大长度为1024字符。
在提示信息中若要对文本换行，可以使用回车换行符组合Chr（13）& Chr (10) 或系统符号常量vbCrLf。
（2）标题：字符串表达式，可选项。
若省略，标题栏显示当前应用程序名。
（3）默认值：字符串表达式，对话框中文本框的缺省值，可选项。
若省略，则对话框的文本框为空。
小贴士如果省略该函数的第二个参数而保留第三个参数，则中间的逗号不能省。
例如：Private Sub Form_Click()Dim stNo as stringstNo = InputBox("请输入学号" & vbCrLf & "学号是8位数", "查找", "000000000")Print "你要查找的学号是："; stNoEnd Sub执行上述程序段后运行界面如图4-3所示。
在文本框中输入“12345678”，单击“确定”按钮后窗体界面如图4-4所示。
VB顺序结构程序设计PPT课件
序 结
Print "R="; R; " AREA="; AREA
构
End Sub
程
序
设
计
单击“确定”，返回文本框中的文本到变量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)
11
1. 文本框控件的常用属性
计
相容。
类型相容：指变量名或对象属性名能够正确存
取赋值号右边的表达式的值。
4
例: Dim A As Integer, B As Single
第 四
Dim C As Double, S As String
A = 100
' 将整型数100赋给整型变量A
章
S = "123.45" ' 将字符串"123.45"赋给变量S
返回值: 字符串(在对话框中单击取消则返回"")
9
例: Private Sub Form_Activate()
第
Dim R As Single, AREA As Single
四
VB顺序设计
VB顺序设计教学目的：1、熟悉结构化程序设计的三种基本结构及其特点。
2、掌握VB中顺序设计常用的语法规则。
教学重点：1、结构化程序设计方法概念的理解。
2、Print方法的应用及格式特点。
3、VB中的赋值语句功能及特点。
4、VB中的inputbox()输入函数及msgbox()输出函数应用。
课时安排：理论教学安排6课时，上机练习8课时一、程序设计三大基本结构：1、顺序（按语句的书写顺序执行）2、分支3、循环二、赋值语句格式：[let] 变量名= 表达式功能：计算表达式的值，并把结果送给“=”左边的变量。
Let a1=3*4---------语句执行后，变量a1的值为12Let ab1=”你好”-------语句执行后，变量ab1的值为字符串“你好”语句说明：1、变量与表达式的数据类型必须一致。
2、“=”有方向性。
需要动态理解Let a1=a1+1-------将a1的当前值加1送给a1。
语句执行后，a1的值自动累加1 3、VB中对象的属性名等同于变量名。
Private Sub Command1_Click()Dim a As String, b As StringLet a = T ext1.T extLet b = T ext2.T extLabel1.Caption = a + bEnd Sub上机练习：P47-49 例1到例3P78 上机调试题1产生随机数公式：Int(n*rnd)+1 用来产生1到n之间的随机整数1）定义变量（n,x1,x2,x3）2）取得n值（通过文本框送值给n）n=val(text1.text)3）产生x1,x2,x3三个随机数4）x1,x2,x3分别送给指定的标签。
Dim n as integer,x1 as integerDim x2 as integer,x3 as integerN=val(text1.text)randomizeX1=int(n*rnd+1): X2=int(n*rnd+1)X3=int(n*rnd+1)Label2.caption=x1Label3.caption=x2Label4.caption=x3三、print方法1、格式：对象名.print [输出项列表]具体语句如下：Form1.print 输出项表Picture1.print 输出项表例如：Form1.Print "我的程序", 23 -------在窗体上显示两个数据项。
VB课件第3章顺序结构
第三章顺序结构程序设计§１、预备知识一、结构化程序设计的三种基本结构：顺序结构、分支结构、循环结构顺序结构：就是从头到尾依次执行每一个语句分支结构：根据不同的条件执行不同的语句或者语句体循环结构：重复的执行语句或者语句体,达到重复执行一类操作的目的二、语句概念：语句是执行具体操作的指令。
ＶＢ程序中一行代码称为一条语句。
例如：LetＡ＝３程序中的每条语句都必须遵从语句的语法规则和格式。
１、语句格式的符号规定＜＞尖括号；必选项［］方括号；可选项｜竖线；用来分隔多个选择项，选其中之一项…省略号；表示同类项目的重复出现例如：[<对象名> .]Print [<表达式表>]２、语句书写规则（１）每行通常写一条语句；若将几个语句写在一行，语句间需要用冒号分隔；例如：Ａ＝３：Ｂ＝４（２）一个语句行不能超过１０２３个字符，如果太长，可用“_”续行；例如：Form1.print “I am a _Student.”（３）与其他高级语言一样，在VB中使用的分号、引号、括号等符号都是英文状态下的半角符号，而不能使用中文状态下的全角符号。
例如： If a<5 Then x=10Print "x="; x不能写成If a〈5 Then x=10Print “x=”；x§２、顺序结构的基本语句和方法一、赋值语句Let格式：［Let］<变量名>=<表达式>［〈对象名〉．］<属性名>=<表达式>功能：首先计算赋值号右边表达式的值，然后，将值赋予左边变量或对象属性。
例1+4=? 程序Private Sub Form_Activate()Dim a&, b&, m&a = 1:b = 4m = a + bPrint mEnd Sub例3_2_1Private Sub Form_Click()Dim a As Long, b As String, c As Booleana = 100.23b = "100.23"a = bc = 1 > 5 And -1End Sub说明:（１）当数值赋值于字符变量时，自动转换为字符，但是字符数据赋值与数值变量时，必须为数字，否则出错。