第四章 常用控制程序设计

数据输入输出
例1：MsgBox "请确认交易金额",33,"交易 确认"
例2：MsgBox "请确认交易金额",52,"交易 确认"
MsgBox按钮设置
分组
内部常数 VBOkOnly VBOkCancel VBAboutRetryIgnore VBYesNoCancel VBYesNo VBRetryCancel VBCritical
数据输入输出
1、标签和文本框 说明：标签利用它的Caption属性；文本框利 用它的Text属性。 例如： a%=Val（Text1） ’完成数据输入 c！=5/9*（a-32） Text2=c ’完成数据输出 Label1.Caption=3.14*r*r
数据输入输出
2、输入对话框InputBox函数 功能:打开一个对话框，等待用户输入，返回 字符串类型的输入值。 例: InputBox("请输入数值")
If 条件语句
2、双分支结构
形式： （1）If <表达式> Then <语句块1> Else <语句块2> End if
（2）If <表达式> Then
T 表达式 F
语句块 1
语句块 2
<语句1>
Else
<语句 2>
例：下列哪一段代码是正确的？
1) if a>1 then k=0 else k=1 2) if a>1 then k=0 end if 错误 3) if a>1 then k=0 else k=1
Visual Basic 程序设计教程
第四章 VB控制结构

16
4.2.2 逻辑表达式
例：设a=3,b=4,x=0,y=0，求值： 结果：0 1、a < b && x > y 结果：1 2、a = = b || x = = y 3、! a || a > b 结果：0 4、! a && b || x > y 结果：0 5、int a=-1,b=1,c=2,d=3,m=5,n=2,k; k=(m=a+b)&&(n=c+d) k为0 ，m为0， n为2
当尝试对该程序进行编译时，C语言编译器会报告 "illegal else without matching if"的语法错误。 28
4.3.4使用if语句应注意的问题
void main() { int x; x=1; if(x==1) printf("x等于1\n"); else ; /*这里多加了个分号*/ printf("x不等于1\n"); }
if（表达式） 语句1 else 语句2
真 表达式 语句1 语句2 假

如果括号内的表达式为真，则执行括号后面的 语句1。如果表达式值为假，则执行else后面的 语句2；语句1和语句2只能有一个被执行。
21
4.3.2 else子句
【例4-2】输入两个整数，将较大者输出。 /*程序4-2*/ #include<stdio.h> void main () { int a, b, max; printf("Please input the data a and b:"); scanf("%d, %d",&a, &b); if(a>=b) max=a; else max=b; printf("The max is %d\n", max); }

>0 初值<终值 =1 时,可省略 步长 <0 初值>终值 =0 死循环
4.2.3 循环结构实例
例: For I=2 To 13 Step 3 Print I , Next I Print “I=“, I
输出I的值分别为: 2 5 8 11 出了循环输出为: I=14
4.2.3 循环结构实例
2、 Do…Loop循环语句
4.2.2 选择结构实例
例 输入一学生成绩，评定其等级。方法是：90~100分为 “优秀”，80~89分为“良好”，70~79分为“中等”， 60~69分为“及格”，60分以为“不合格” 使用IF语句实现的程序段如下： If x>=90 then Print "优秀" ElseIf x>=80 Then Print "良好" ElseIf x>=70 Then Print "中等" ElseIf x>=60 Then Print "及格" Else Print "不及格" End If
不同分支中执行某一分支的相应操作（程序块），并且任何情 况下总有“无论条件多寡，必择其一；虽然条件众多，仅选其 一”的特性。
4.2.2 选择结构实例
1. If…Then语句(单分支结构)
If <表达式> Then
语句块 End If
或
If <表达式> Then <语句块>
例:已知两个数x和y，比较它们的大小，使得x大于y. If x<y Then t=x : x=y: y=t End If 或 If x<y Then t=x: x=y: y=t

• EXIT 与loop一样是 do while...enddo 命令的一个子句，它 可以放在 commands 程序组中间的任何地方，当程序一旦执 行到该子句时，则跳出循环，执行enddo后面的语句。此子句 根据需要可以有，也可以没有。
26
• 例8、随机产生一个70~80之间的数（例8 .PRG） • 例9、从2开始,计算偶数之和,直到和大于10000为止,并显示最后一个
在VFP环境下，通过系统提供的菜单命令，来完成各种操作。 3、程序文件方式
程序文件（简称程序），也叫做命令文件。将对数据库资源进行 操作管理的命令和对系统环境进行设置的命令，集中在一个扩展名 为（.PRG）的命令文件中，然后在运行该命令文件。
2
程序文件的建立与编辑
• 在VFP环境下，建立和编辑程序文件有两种方式：命令方式和菜单 方式 1、命令方式：在命令窗口中输入
• 实际上VFP只运行目标程序。对于新建的或已被修改的 VFP程序，执行DO命令是，VFP会自动对它编译并产生 与主名相同的目标程序，然后执行该目标程序。（例如 ，执行 DO QH时，将先编译产生 QH.FXP，然后运行 QX.FXP。）
• 目标程序的扩展名因源程序而异，.PRG的目标程序名是 .FXP，查询程序的目标扩展名为.QPX。
14
例3：对JS表,找到gh为‘A0002’的记录,如果此人的基本工资少于600,就将基本工 资增加100元(例3.PRG)
双向分支结构
• 根据一逻辑表达式的值，有条件的执行一组命令。语法：
IF 逻辑表达式 程序组1
ELSE 程序组2
ENDIF • 逻辑表达式代表一逻辑值，如果这逻辑值为真，系统执行程序组1，否则执
例： WAIT “请检查输入内容” WINDOW AT 12,20 TIMEOUT 10