8
type参数及功能
常数 vbOKOnly VbOKCancel VbAbortRetryIgnore VbYesNoCancel 值 0 1 2 3 显示OK按钮 显示OK及Cancel 按钮 显示Abort、Retry 及 Ignore 按钮 显示显示 Yes、No 及 Cancel 按钮 功能描述
Print "B" Else Print "C" End If ElseIf score >= 60 Then Print "D" Else Print "E" End If End Sub
'此处为小于70分的情况
22
3.2.3 Select Case语句
格式：
说明： 变量或表达式：数值型或字符表达 式 表达式列表：与“变量或表达式” 的类型必须相同，可以是下面4种类型
End Sub
28
求和运行结果
29
例3.10 实现计算器函数区中求阶乘(n!) Private Sub Cmd_n_Click( ) Dim i, n, s As Long s=1 n = Val(InputBox("输入n(1-12)", "求n!")) For i = 1 To n s=s*i Next MsgBox s, 0, "n!" End Sub
7
3.1.2 数据的输入、输出函数
2. 输出函数MsgBox
格式 ：MsgBox(prompt [，type][，title][，helpFile，context]) 说明：
① prompt是字符串类型，提示
② type是一个整数值或符号常量，用来控制在对话 框内显示的按钮、图标的类型。 如上例中输出： MsgBox s, 0, "Area"
32
3.3.3 Do Until循环语句
(A) Do Until 条件 语句块 Loop
(A) sum =0 k=1 Do Until k>100 sum=sum+ k k=k+1 Loop
(B) Do 语句块 Loop Until 条件
(B)
sum=0 ： k=1 DO sum=sum+ narray(k) k=k+1 Loop Until k>100
第 3 章 VB控制结构
顺序结构 选择结构 循环结构
综合应用
2
3.1 顺序结构
本章主要围绕计算器函数区中常用算法的实现展开学习
3
3.1 顺序结构
引例
例3.1 编程实现半径为r的圆
面积。
方法1： ① 输入半径r； ② 函数区Area命令按钮的单 击事件求圆的面积 ③ 输出圆的面积
Private Sub CmdCirc_Click( ) Dim r As Single r = Val(Text1.Text) Text2.Text = 3.1415926 * r * r End Sub
Select Case 变量或表达式
Case 表达式列表1 语句块1
Case 表达式列表2
语句块2 …
① 表达式。
Case 1，2，3 ③ 表达式1 To 表达式2： Case "a" to "z" ④ Is关系运算符表达式： Case Is<10
23
② 一组枚举表达式(用逗号分隔)，如：
[Case Else
32
48 64 0 256 512
显示Warning Query
显示Warning Message 显示Information Message 第一个按钮是默认值 第二个按钮是默认值 第三个按钮是默认值
9
例3.2 MsgBox "是否暂停打印!"，16，"提示"
type参数为16，分解成： 16=0+16+0，显示“确定”
33
直到循环流程
34
例3.11 分别用Do Loop和Do Until完成求n!
Private Sub Cmd_n_Click( ) Dim i, n, s As Long n = Val(InputBox("输入n", "n!")) i = 1: s = 1 Do s=s*i i=i+1 Loop While i <= n MsgBox s, 0, "n!" End Sub 调试程序并改为Do Until
25
3.3 循环结构
3.3.1 For循环语句 格式如下： For 循环变量=初值 To 终值[Step 步长] 语句块 [Exit For] 语句块 Next 循环变量 说明如下： ① 循环变量：必须为数值型。 ② 步长：一般为正，初值<终值；若为负，初值>终值； 默认步长为1，步长不能为0。 ③ Exit For：表示当遇到该语句时，退出循环。 ④ 终止循环条件是“循环变量值超过终值” 不是等于终 值。 ⑤ 循环次数=INT((循环终值－循环初值)/步长+1)。
③ 单行结构的If语句必须写在同一行。
11
12
例3.3 实现计算器函数区中Abs功能
Private Sub Command10_Click( ) Dim x As Single x = Val(Text1.Text) If x > 0 Then Text2.Text = x Else Text2.Text = -x
'单行结构条件语句
End Sub 或 If x < 0 Then Text2.Text =- x
13
3.2.2 块结构条件语句 1. 一般格式
格式： 说明： ① 执行时先判断条件，如为
If ＜条件＞ Then
＜语句块1＞ Else
真，则执行＜语句块1＞，否
则执行＜语句块2＞ ② Else部分可省略
顺序结构
4
3.1 顺序结构
在VB编程环境中实现上图功能
5
方法2： Private Sub CmdCirc_Click( ) Dim r As Single r = InputBox("输入半径r", "Area") Text1.Text= r Text2.Text = 3.1415926 * r * r End Sub
19
例3.6 输入一个百分制的学生成绩，将其转换 成A、B、C、D、E 5个等级
Private Sub Command1_Click( ) Dim score As single score=val(InputBox("输入一个成绩(0-100)：")) If score>=90 Then Print "A" ElseIf score>=80 Then Print "B" ElseIf score>=70 Then Print "C" ElseIf score>=60 Then Print "D" Else Print "E" End If End Sub
输出改为： MsgBox s, 0, "Area"
6
3.1.2 数据的输入、输出函数
1.输入函数InputBox
格式：InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
说明：
① prompt：必需，提示信息。
30
图3-12 输入n
图3-13 输出n！
31
3.3.2 Do Loop循环语句 (A) Do While 条件 语句块 Loop
(B) Do 语句块 Loop While 条件
例如：求1～100之和
(A) sum=0 k=1 Do While k<=100 sum=sum+k k=k+1 Loop (B) sum=0 :k=1 Do sum=sum+ k k=k+1 Loop While k<=100
VbYesNo
VbRetryCancel VbCritical
4
5 16
显示Yes 及 No 按钮
显示Retry 显示Critical Message
VbQuestion
VbExclamation VbInformation vbDefaultButton1 vbDefaultButton2 vbDefaultButton3
35
3.3.4 循环嵌套 例3.12 在窗体上输出九九乘法表
分析以上结果特点
36
Private Sub Command1_Click( ) Dim m%, n% For m = 1 To 9 'm表示行 For n = 1 To m 'n表示列 Print m; “*”; n; “=”; m * n, '分析语句后逗号作 用 Next n Print '输出换行 Next m End Sub
语句块n+1] End Select
Select Case执行过程
24
例3.8 用Select Case完成例3.6的操作。
Private Sub Command1_Click( ) Dim Score As Single Score=val(InputBox("输入一个成绩(1-100)：")) Select Case Score Case 90 to 100 Print "A" Case 80 to 89 Print "B" Case 70 to 79 Print "C" Case 60 to 69 Print "D" Case Else Print "E" End Select End Sub 调试程序 思考题：用Select Case结构实现例3.5的功能