Qb 教案－基本程序控制结构.doc

第三章 基本程序控制结构 程序块是按照一定的控制结构来组织语句,以实现特定功能.QB提供了顺序结构,选择结构,循环结构作为程序设计的基本结构. 3.1 简单语句(顺序结构程序设计) 3.1.1赋值语句 格式. P 90-P91指导…… 3.1.2 输出语句(print) 格式: P91指导…… 功能： 例: Dim a as integer Dim b as integer Dim c as integer Input “please input data:” a,b C = a + b Print “the data is: ”, c The data is : 2,3 C=5 注: 1.两输出项之间的分隔符分号”;”与逗号”,”的区别: 分号表示输出一个空格; 逗号表示输出五个输出区. 例:见P 91 – 92指导 3.1.3键盘输入语句(input) 语句格式：input[“提示字符串”，]变量名表 功能： 3.1.4 读数据语句（read/data/restore） 语句格式： read 变量名表 Data 常量表 功能：依次将data语句中提供的数据赋给READ语句中的变量 例P93《指导。。。。》 注：1 READ 语句和DATA语句必须配合使用，二者缺一不可，同时注意其对应关系。 read a, b, c$ restore read d, e, f$ Data 2, 4, li Data 3, 5, wang 1: a = 2 t = t + a = t = 0 + 2 = 2; for I% = 1 to 5 2: a = 4 t = 2 + 4 = 6 ….. 3: a = 5 t = 6 + 5 = 11 …… 4: a = 7 t = 11+ 7 = 18 next i% 5: a = 8 t = 18 + 8 = 26 3.2 选择结构程序设计 用顺序结构编写的程序比较简单，只能进行一些简单运算，因而能够处理的问题类型有限。在实际应用中，有许多问题都要根据是否满足某些条件来判断程序的转向。选择结构程序设计恰好满足这种需求。或是说如果有多个操作中选择其中一个或需要根据条件决定是否执行操作，就就使用选择结构。 3．2．1 行IF语句 语句格式： If 表达式then语句1[else 语句2] 功能：如果表达式（条件）的值为真，则执行语句1，否则执行语句2 注：（1）if …..then语句的单行格式不用end if语句。 如果表达式（条件）为true时要执行多行代码，则必须使用多行语法： If …..then….else…end if 例：if xy then Max = y Min = x Else Max = x Min = y End if (2)如果else语句没有写了出，则条件表达式的值为假时不做任何操作。 例1．2 P95《指导。。。。》 例3：计算分段函数 1+x x 0 1-x x =0 2* x x0 If x 0 then Y = 1 + xPrint y Else If x0 Then Y = 2*x Print y Else Y= 1 –x Print y End If End If 例4：下列QBASIC程序运行时的输出结果是 9 9 。 K=3 IF K=3 THEN A=K*K IF KA THEN K=2*K ELSE K=3*K PRINT A；K END 例5 a=3 if a=3 then print 3; if a=4 then print “4”; if a=5 then print 5; print end 以上程序运