VB顺序结构补充
VB流程控制结构之一顺序结构
课题三 VB流程控制结构之一顺序结构教学过程与内容一、导入顺序结构是一种最简单的程序结构。
这种结构的程序按语句书写的顺序从上到下依次执行，中间没有跳转，也没有循环。
由变量的声明语句、赋值语句、输入输出语句、计算语句组成。
教学方法：讲授与上机实践相结合。
二、新课讲解（一）赋值语句（多媒体演示讲解）P491、形式：变量名＝表达式或对象名.属性名＝表达式2、作用：将表达式的值赋值给变量名。
一般用于给变量赋值或对控件设定属性值。
例：sRate!=0.1Text1.Text ＝"欢迎使用Visual Basic 6.0 "当表达式的类型与变量的类型不一致时，强制转换成左边的精度，如iA% = 10/3 iA中的结果为3注意：虽然赋值号与关系运算符等于号都用“=”表示，VB系统会根据所处的位置自动判断是何种意义的符号。
（二）数据输出（多媒体演示讲解）P501、Print方法：Print方法用于在窗体、图片框或打印机等对象上输出数据，格式如下：对象名.Print 输出项说明：对象名：可以是窗体、图片框、打印机或Debug等对象，若为Debug，则表示将结果输出到立即窗口；若省略对象名，则在当前窗体上输出数据。
输出项：要输出的内容，可以是常量、变量、或表达式。
若有多个输出项，用逗号或分号隔开。
分号（；）：各输出项连续输出，中间无空格。
逗号（，）：各输出项按分区格式输出，即将一个输出行以14个字符的宽度为单位分成若干区段（称为“打印区”），每个区段输出一个表达式的值。
如果调用Print方法的语句以分号或逗号结束，则下一次执行Print方法时将在同一行输出；否则，每执行一次Print方法即自动换行。
上机练习1：P50页、51页的代码。
2、与Print方法有关的函数 P51为使输出项按指定的格式输出，VB提供了几个与Print方法一起使用的函数，其中包括Tab()、Spc()、Format()等。
VB顺序结构范文
VB顺序结构范文VB（Visual Basic）是一种基于事件驱动的编程语言，通过使用VB，开发者可以创建具有各种功能的应用程序。
VB顺序结构是VB编程中的基本概念之一，它指的是按照程序的顺序执行语句或命令的方式。
在VB中，程序中的每一行代码都被视为一个语句或命令，它们按照从上到下的顺序执行。
这种顺序结构的执行方式称为“自顶向下”或“逐行执行”。
下面我将详细介绍VB顺序结构的一些重要概念和用法。
首先，VB顺序结构可以用于执行一系列的操作，例如变量的赋值、数学计算、字符串处理等。
程序按照顺序执行，每个语句或命令都在前一个语句执行完毕后才会执行。
在VB中，声明变量是常见的顺序结构之一、变量的声明可以在程序的任意位置进行，但一般情况下，我们会将声明放在程序的开头。
这样做可以提高程序代码的可读性，并且使代码更加结构化。
下面是一个示例，展示了如何在VB中声明变量和使用变量的顺序结构：```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = 5num2 = 10sum = num1 + num2MsgBox "The sum of " & num1 & " and " & num2 & " is " & sum ```在上面的例子中，我们声明了三个整数类型的变量：num1、num2和sum。
然后，我们给num1和num2赋值，并计算它们的和，将结果存储在sum变量中。
最后，我们使用MsgBox函数显示出计算结果。
除了变量的声明和使用，VB顺序结构还可以用于控制程序的执行流程。
例如，我们可以使用条件语句（如If语句）和循环语句（如For循环和While循环）来根据不同的条件执行不同的代码块。
下面是一个示例，展示了如何使用条件语句和循环语句的顺序结构：```vbDim num As Integernum = 5If num > 0 ThenMsgBox "The number is positive."ElseIf num < 0 ThenMsgBox "The number is negative."ElseMsgBox "The number is zero."End IfFor i = 1 To 5MsgBox "Count: " & iNextDim j As Integer = 0While j < 5j=j+1MsgBox "Count: " & jEnd While```在上面的例子中，我们首先使用条件语句判断一个数是否大于、小于或等于零，并分别显示不同的消息框。
VB课件第4章Visual Basic 顺序结构
语法格式： [对象名.] Print [表达式列表]
对象名：可以是窗体（Form）、图片框 （PictureBox）或打印机（Printer）的名称， 如果省略对象名，则在当前窗体上直接输出。
表达式列表
可以是一个或多个表达式，各表达式之间可用 逗号（，）或分号（；）分隔。如果省略，则 输出一个空行。
值类型时，自动转换成数值类型再赋值。但当表达 式中有非数字字符或空串时，就会出错。 （3）当逻辑类型赋值给数值类型时，True转换 为-1，False转换为0；反之，当数值类型赋值给 逻辑类型时，非0转换为True，0转换为False。 （4）任何非字符类型赋值给字符类型时，均自动 转换为字符类型。
End Sub
4.5 注释、暂停与结束语句
1.注释语句
为了提高程序的可读性两种格式：
Rem <注释内容>
a
b
' 注释内容
例如：
Rem 交换a和b的值
c
c = a ' c为临时单元
a=b
b=c
关于注释语句的几点说明
(1)注释语句是非执行语句，只对程序有关部分起注释 作用
(2)格式2主要放在其他语句后面对其进行说明，单撇号 “'”可以直接写在其他语句后面。
(7)一个赋值语句只能给一个变量赋值，在程 序中出现连等的情况，例如a = b = 5,系统 认为最左边的“=”是赋值号，以后“=”均为 比较运算中的符号，在赋值时，先进行比较运 算，再将运算结果赋给变量。
(8)不要将赋值运算与代数方程的概念相混淆。
如：x = x + 1
4.3 Print 语句
VB顺序结构编程练习题(2)
VB顺序结构编程练习题(2)1、有一个“就是它”的猜数游戏，步骤如下：请你任意输入一个三位数，在这三位数后重复一遍，得到一个六位数，467→467467。
把这个数连续除以7，11，13，最后的商就是你输入的三位数。
请编程加以验证。
2、某学校开运动会，要在正六边形的操场的周围插上彩旗。
如果每边插a面彩旗(包括每个角上的彩旗)，a变量数可由键盘输入，问总共需要多少面彩旗?3、计算图形的周长和面积．4、编写求下列自然数等差数列之和的程序，数列的首项和末项由键盘输入。
4+5+6+7+8+9+10+11+12+13+14+15{提示：等差数列的和=(首项+末项)×项数／2)、项数=末项-首项+1}5、输入一个学生的情况，包括学号(用整数表示)、姓名(用第一个字母表示)、语文成绩、英语成绩和数学成绩，然后输出学号、姓名、总分和语数外三门课的平均成绩（保留两位小数）。
6、输入三条边的整数值a、b、c，输出该三边构成的三角形的面积。
7、输入一个三位整数，输出该三位数的各位数字之和，以及它的反序数。
8、三个小朋友做游戏，第一个人把自己的糖果等分为三份，多余的吃掉，一份留给自己，另两份分别给其他两位；接下来，第二个人也仿照第一做法做了一遍，最后第三个人也如前面的人一样做了一遍。
请输出三人做完游戏后各自的糖果数。
(三人刚开始时各自的糖果数用键盘输入)。
9、输入一元二次方程的三个系数(b2>4ac)，输出该方程的二个实数根。
10、输入两个整数给A,B两个变量，编程交换A,B两个变量的值，并输出。
(用两种以上方法)。
VB三种程序结构VisualBasic语言作为结构化程序设计语言提供
3、
当逻辑型赋值给数值型时，True转换为-1，False转
换为0；反之，当数值型赋给逻辑型时，非0转换为True，
0转换为False.
2、MsgBox函数：向用户显示信息（输出
MsgBox语句: MsgBox （提示内容 [,答复按钮+图标][,标题]） MsgBox函数： Dim x As Integer X=MsgBox(提示内容 [,答复按钮+图标][,标题])
? Round(3.89456,3) 结果:3.895 说明：☆ 在三角函数中，以弧度表示；sqr的自变量不能是负数
☆ Rnd函数返回小于1，大于等于0的单精度随机数。 VB用于产生随机数的公式取决于称为种子（seed）的初始值。
默认情况下，每次运行一个应用程序，VB提供一相同的种子， 即Rnd产生相同序列的随机数。为了每次运行时，产生不同序 列的随机数，可执行Randomize语句，格式如下：
•答复按钮+图标：确定在消息框中按钮 的数目和类型，以及图标的类型。
•标题：显示在消息框标题栏上的文本。
"按钮"设置值及意义
分组 内部常数
VbOkOnly VbOkCancel 按 VbAboutRetryIgnore 钮 VbYesNoCancel 数 VbYesNo 目 VbRetryCancel
对 象 可 以 是 窗 体 （ Form ） 、 图 形 框 (PictureBox) 或 打 印 机 （Printer）。如果省略了对象，则在窗体上输出。 说明：① 表达式：可选项。可以是一个或多个表达式。当有多个表达式 时，要用分隔符（逗号、分号）隔开。当表达式缺省时，则屏幕显 示一个空行。 ② 输出格式分为标准输出格式和紧凑输出格式。 标准输出格式：以14个字符宽度划分为一个区段，每个数据项占一个区 段的位置。（数据项之间用逗号隔开） 紧凑输出格式：对于数值型数据，前面有一个符号位，后面有一个空格； 对于每个字符串，各个数据项之间没有间隔。（各数据项之间用分 号或空格作为分隔符）
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顺序结构
说明
InputBox 函数返回值是字符（String) 型。当要获取数 值型数据时，应对被赋值变量作出类型说明：
Dim r!
r = InputBox("Please enter radius:", _ "InputBox Demo ", 0, 100,100) 或使用Val函数作类型转换： r= Val(InputBox("Please enter radius:", _ "InputBox Demo ", 0, 100,100)) 函数中参数按顺序排列，若省略某些参数，须加相应 的逗号分隔： r= InputBox("Please enter radius:", , , 100,100))
控件属性设置
当前名称
Label1 Label2 Label3 Text1
属性 Caption Caption Caption Text
新值
Type your name and password to login
&User Name &Passord <blank>
控件属性设置（续）
Text2 Text PasswordChar Caption Caption Cancel Caption BorderStyle <blank> * OK Cancel Ture* Enter Program Password 1-Fixed Single
程序中常用 N=N+1 实现累加。* 2 数据输入 1. InputBox 函数（生成一个对话框,让用户输入数据。） 格式： InputBox(prompt[,title][,default][,xPos][,yPos])
VB6.0顺序结构
顺序结构：顺序结构是一种最简单的控制结构，顺序结构是一种线情结构，即程序语句按照其在程序中书写的先后顺序执行。
就像我们生活一样，在每天起床后，总是先穿衣服、然后刷牙、吃早餐、上班、事情一件一件地按照顺序执行，但不能把顺序换了哦。
如下图所示。
起床穿衣刷牙吃早餐上班赋值语句用于将表达式的值赋给变量或对象的属性，是程序设计中最基本、最常用的语句。
赋值语句的本质就是将数值送到变量或者对象属性所在的存储单元中，通过Let关键字使用赋值运算符“=”给变量或对象属性赋值。
赋值语句的语法如下所示。
[Let]<变量名>=<表达式>顺序结构：01 Private Sub Form_Load()02 Print03 Print T ab(10); "ID"; T ab(20); "姓名"; T ab(30); "工资"04 Print T ab(10); String(25, "-")05 Print06 Print T ab(10); "0001"; T ab(20); "何生"; T ab(30); "4300"07 Print08 Print T ab(10); "0002"; T ab(20); "刘生"; T ab(30); "3200"09 Print10 Print T ab(10); "0003"; T ab(20); "林生"; T ab(30); "2200"11 Print12 Print T ab(10); "0004"; T ab(20); "邓生"; T ab(30); "3300"13 Print14 Print T ab(10); String(25, "-")15 End Sub注：可以复制代码到from窗体中运行测试，但要将前边数字删除。
VB第四周顺序结构
Print Tab(2);"学号"；Tab(11);"姓名"；Tab(21);"成绩 "
输出结果是(1个汉字占2个位置)：
└┘学号└┘└┘└┘└┘└┘姓名└┘└┘└┘└┘└┘└┘成绩
使用对话框
对话框既可以用来显示信息，也可以用 于输入信息 VB中能够建立两种预制对话框：输入框 和消息框 使用系统提供的函数(InputBox和 MsgBox)，而不必为对话框另建窗体
一、赋值语句
形式：[LET]变量名＝表达式 作用： 将表达式的值赋值给变量名。 一般用于给变量赋值或对控件设定属性值。 例： s!=0.1 Text1.Text ＝ "欢迎使用Visual Basic 6.0 “ 当表达式的类型与变量的类型不一致时，强制转换成 左边的精度，如 iA% = 10 / 3 iA中的结果为3
按钮及图标值如下:
“先读后写”：读出x的内容 → 加1 → 写回x（覆盖原有内容）
二、 使用Print方法输出数据 Print方法
用于显示(输出)文本 格式：［对象名.］Print ［表达式列表］ 说明：(1)使用的对象可以是窗体等 Print “程序设计” ´在当前窗体上输出 Picture1.Print “程序设计” ´在图片框上输出
(2)表达式列表是一个或多个表达式，如果省略，则输出 一个空行 (3)当输出多个表达式时，各表达式之间用分号“；”(紧 凑格式)或逗号“，”(按区格式)隔开。 按区格式(14个字符位置)
例：Private Sub Form_Click()
a=2 b = "VB" Print 50 * a Print b Print Print "The Total is" End Sub
vb顺序结构程序实例
vb顺序结构程序实例
我来介绍一个用VB语言写的简单顺序结构程序，其功能是通过
输入身高和体重，计算并输出用户的BMI指数以及对应的健康状态，
具体实现如下：
1. 首先，在用户界面中，我设计了两个文本框和一个按钮。
一
个文本框用于输入身高（单位为米），另一个文本框用于输入体重
（单位为千克），按钮用于触发计算BMI指数的事件。
2. 在点击按钮后，程序会读取用户输入的身高和体重，然后进
行BMI指数的计算。
具体计算公式为：BMI = 体重÷ (身高× 身高)。
3. 接着，程序会根据用户的BMI指数输出相应的健康状态，这
个判断逻辑如下：
- 如果BMI指数小于18.5，则输出“您的BMI指数偏低，建议增加营养和锻炼身体。
”；
- 如果BMI指数在18.5到24.9之间，则输出“您的身体非常健康，保持良好的饮食和运动习惯即可。
”；
- 如果BMI指数在25到29.9之间，则输出“您的BMI指数偏高，建议适当控制饮食，增加运动量。
”；
- 如果BMI指数大于等于30，则输出“您已经超重，需要及时调
整饮食和生活习惯，加强锻炼。
”
4. 最后，程序会将计算出的BMI指数和健康状态输出给用户，
提供参考。
这就是一个基于VB语言的简单顺序结构程序实例，实现了对用
户输入的身高和体重进行计算，再根据计算结果判断健康状态并输出。
大学vb 实验作业5 顺序结构程序设计
提示：闰年的判断条件
（1）如果此年号能被400整除;
（2）如果此年号能被4整除，但不能被100整除。
满足以上两条件之一，则提示该年是闰年，否则提示该年不是闰年。
3、在文本框1中输入1到7之间的整数，在文本2中显示对应的英文单词。对应规则如下：
1——星期一；2——星期二；3——星期三；4——星期四；
软件：Microsoft Visual Basic 6.0
实验内容
１、编写程序判断某个数是否是水仙花数。
小知识：一个三位数其各位数字立方和等于该数本身，这个数就是水仙花数。如153是一个“水仙花数”，因为153=13＋53＋33。
要求：用inputbox函数输入一个三位数，将判断结果输出在消息框上，如是则在消息框提示该数是水仙花数(如下图１)，否则在消息框上提示该数不是水仙花数（如下图２）。
5——星期五；6——星期六；7——星期日
4、新建工程，在窗体上添加两个按钮，标题分别为“输入”和“交换”。
程序运行后，单击“输入”按钮，通过输入对话框输入两个整数；
单击“交换”按钮，如果第一个数小于第二个数，则交换两数。最后将两个数在窗体上显示出来。
实验小结
实验名称
实验五顺序结构程序设计
实验时间
第六周
实验目的
（1）掌握基本语句的用法
（2）掌握InputBox和MsgBox函数的用法
（3）进一步掌握编写简单顺序结构程序的方法
（4）掌握关系、逻辑表达式的正确书写形式
（5）掌握由IF语句构成的选择结构
（6）学会编写选择结构程序解决实际问题
实验环境
硬件：微型计算机
VB程序语句与控制结构
VB程序语句与控制结构1.顺序结构：程序按照从上到下的顺序依次执行。
2.条件结构：- If-Then语句：根据条件执行相应的语句块。
```vbIf 条件 Then'执行语句块End If```- If-Then-Else语句：根据条件执行不同的语句块。
```vbIf 条件 Then'执行语句块1Else'执行语句块2End If```- Select Case语句：根据表达式的值执行相应的语句块。
```vbSelect Case 表达式Case 值1'执行语句块1Case 值2'执行语句块2Case Else'执行语句块3End Select```3.循环结构：- For循环：循环执行指定次数的代码块。
```vbFor 变量 = 初始值 To 终值 Step 步长'执行语句块Next```- For Each循环：循环遍历集合中的每个元素执行代码块。
```vbFor Each 变量 In 集合'执行语句块Next```- Do While循环：在条件满足的情况下循环执行代码块。
```vbDo While 条件'执行语句块Loop```- Do Until循环：在条件不满足的情况下循环执行代码块。
```vbDo Until 条件'执行语句块Loop```- While循环：在条件满足的情况下循环执行代码块。
```vbWhile 条件'执行语句块```- Until循环：在条件不满足的情况下循环执行代码块。
```vbUntil 条件'执行语句块Loop```4.跳转结构：```vbGoTo行号'或```- Exit语句：提前退出循环或过程。
```vbExit Do'或Exit For'或'或Exit Sub '等等。
VB第三章 顺序结构
返回以e为底，x为指数的幂。 Exp(1)=2.71828182845905
Int(x)
Fix(x)
均为数值类型
均为数值类型
返回不超过x的最大整数
Int(3.5)=3；Int(-3.5)=-4
Round(x)
均为数值类型
Rnd([x])
均为数值类型
若 x 为正数，返回整数部分； Fix (3.5)=3；Fix (-3.5ቤተ መጻሕፍቲ ባይዱ=-3 若x为负，返回数大于或等于x 的第一个负整数。 返回 x 经过四舍五入以后的结 Round(3.5)=4；Round(-3.5)= -4 果。 1. 缺省参数时，随机返回一个0到1之间的小数（包含0不包含1）； 2. x<0，每次使用相同随机种子得到相同结果； 3. x>0，产生下一个随机数； 4. x=0，产生最近生成的随机数； 在使用Rnd之前，最好先使用Randomize语句初始化随机数生成器以避 免使用相同种子产生相同随机数列。
3.货币型数据
货币数据类型是为表示钱款而设置的，精确到十数点后4位(小数 点前有15位)，在小数点后4位以后的数字将被舍去。它与浮点数的区 别是：浮点数中的小数点是“浮动”的，即小数点可以出现在数的任 何位置，而货币类型数据的小数点是固定的。
4.日期型数据
日期型数据是用来表示日期的，它由年月日及时间（可缺省）按 照一定的排列组成，由一对#号作为定界符。如：#8/24/2001 1:20 PM# 表示2001年8月24日下午1时20分。
1.字符串型数据
字符串是一个由ASCII字符组成的字符序列，在Visual Basic程序中需要用双引号把组成字符串的字符包括起来 例： “南华大学” “Visual Basic”
VB 程序的顺序结构
从本章开始，将分三节介绍结构化程 序设计的三个最基本的控制结构——顺序 结构、选择结构、循环结构。
顺序结构:程序执行时按照书写顺序从上往下顺序执
行。
特点：语句是逐条执行，执行过的语句将不再执行。
VB中一个功能相对独立的程序段一般 包括三个部分，第一部分为变量提供数据， 第二部分进行运算处理，第三部分结果输 出。
提供数据：赋值语句、inputbox()函数
输出数据：print语句
消息框：msgbox()函数
一、赋值语句
用赋值语句可以把指定的值赋给某个变量或 某个带有属性的对象。 一般格式为： [let]目标操作符=源操作符
说明
<1> 赋值语句兼有计算与赋值双重功能，它首先计算赋 值号右边“源操作符” 的值，然后把结果赋给赋值号左边 的“目标操作符” <2> 在赋值语句中“=”是赋值号与数学上的等号的意 义是不一样的 <3> “目标操作符”和“源操作符”的数据类型必须一 致
以下是一段VB程序： a=1 b=a+1 c=a+b 它的基本结构属于（ ） A、顺序结构 B、选择结构 C、循环结构 D、树型结构 最后c的值是多少？
二、数据的输入--Inputbox函数
为了输入数据,VB提供了Inputbox数,Inputbox函数 可以产生一个对话框,这个对话框作为输入数据的界面, 等待用户输入数据,并返回所输出的内容.其格式为: Inputbox(提示信息,标题,默认值,位置)
r=InputBox("请输入r的值", "数据输入", 0, 1000, 1000)
三、数据的输出—Print语句
Print语句可以在窗体上显示文本字符串和表达式的 值,并可在其它图形对象或打印机上输出信息,一般格 式为:
vb的三种基本结构
例2、a =10 If a>=10 Then a=a+1 Else a=a-1 End If 该程序段运行后，变量a的值是（ ） A. 8 B. 9 C. 10 D. 11 例3、a=2:b=1:c=5 If a<b then m =a else m=b end if If c < m then m= c end if 最后，变量m的值是（ 1 ）
3、 循环结构： 根据条件判断其是否成立，如果条件成立则重复执行循环体 （循环结构中某语句序列），直到条件不成立，退出循环结 构为止。 循环结构的常用形式为： for 循环变量 = 初值 to 终值 [step 步长] [：当“step 步长”项缺省时，表示步长是1
vb的三种基本结构vb三种基本结构vb的三种工作模式vbexcel三种方法vb三种工作模式程序的三种基本结构算法的三种基本结构c语言的三种基本结构程序的三种基本结构是算法的三种基本结构是
VB程序的三种基本结构
程序是由若干个基本结构组成的，一个基本结构可以包 含一条或若干条语句。
通常程序有三种最基本的结构：
③. j = 0 If J＞0 Then J＝J＋1 Endif
2．以下程序，运行后 x的值为 （ ） x =2 y= 3 y=y+1 x=x+y-1 A. l B. 3 C. 5 D. 7 3、以下程序，运行后变量value的值为 ( ) X = 20 If x >= 10 then value = 5 * x else value = 4 * x end if msgbox(value) 最后，变量value的值是（ ） A、50 B、40 C、100 D、80
一、顺序结构 二、选择结构 三、循环结构
1、 顺序结构： 将命令和语句逐条顺序排列。 程序执行时按语句的先后顺序逐条执行。 S1
vb控制结构——顺序结构
程序运行界面
Private Sub Form_Load() '初始化对象属性 Form1.Caption = "计算时间" Label1.Caption = "小时" Label2.Caption = "分：" Label3.Caption = "秒：" Text1 = "": Text2 = "": Text3 = "" Command1.Caption = "计算" Command2.Caption = "结束" End Sub Private Sub Command1_Click() '计算 Dim hh%, mm%, ss%, Totals! Dim Outstr$ hh = Val(Text1) mm = Val(Text2) ss = Val(Text3) Totals = hh * 3600 + mm * 60 + ss Outstr = hh & "小时 " & mm & "分 " & ss & "秒" Outstr = Outstr & vbCrLf & "总计：" & Totals & "秒" MsgBox Outstr, , " 输出结果" End Sub Private Sub Command2_Click() End End Sub
练习三 已知半径R, 求圆的面积s和周长d
Private Sub Form_Click() Dim r!, s!, d!, pi ‘定义单精度的变量
vb程序的三种基本结构
Select Case x Case 90 to 100 Print "优秀" Case 80 to 89 Print "良好" Case 70 to 79 Print "中等" Case 60 to 69 Print "及格" Case Else Print "不及格"
End Select
精选ppt
End If
精选ppt
10
选择结构
例：输入一学生成绩，评定其等级。规则是：90~100分为 “优秀”，80~89分为“良好”，70~79分为“中等”，60~69 分为“及格”，60分以下为“不合格”
使用IF语句实现的程序段如下：
If x>=90 then Print "优秀"
ElseIf x>=80 Then Print "良好"
13
综合练习：输入a，b，c求一元二次方程组的根。
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a = 0 Then
MsgBox "error!"
End
End If
d=b^2-4*a*c
▪ 根据不同的条件判断来决定程 序执行走向的结构。
精选ppt
3
（3）循环结构
a) 当型循环
b) 直到型循环
条件 N
Y 语句组
语句组
Y 条件 N
(b)
▪ 根据条件判断某些语句可能需
( a ) 要执行0次1次或多次的结构。