《第4-7讲 程序设计》由会员分享，可在线阅读，更多相关《第4-7讲 程序设计（37页珍藏版）》请在金锄头文库上搜索。
1、第 3 章 程序设计3.1 顺序结构程序设计3.2 选择结构程序设计3.3 循环结构程序设计ExerciseChapter HomepageSchoolwork第 3 章 程序设计3.1 顺序结构程序设计3.2 选择结构程序设计3.3 循环结构程序设计ExerciseChapter HomepageSchoolwork3.1 顺序结构程序设计数据输入数据输出格式功能在指定对象上输出表达式的值说明对象. 对象可以是窗体Form、立即窗口Debug、图片框PictureBox、打印机Printer，若省略则在当前窗体上输出。表达式表 表达式表中各个表达式之间用逗号或分号分隔。标准格式紧凑格式 ,|
2、; Print语句以逗号或分号结尾。 空Print语句示例：分析程序的运行结果与Print方法有关的函数ReturnTrueTrueFalseTrueFalseD= 49E= 26与Print方法有关的函数 Tab函数格式：Tab(n)功能：指定表达式的值的输出位置 Spc函数格式：Spc（n）功能：光标从当前位置跳过n个空格，对输出进行定位 格式输出Format函数格式：Format$ (表达式 ，格式字符串 )功能：将数值、日期或字符串按用户指定的格式输出ReturnPrint ”Visual”Tab(5); Tab(15); ”Basic”Print “Visual”;Spc(2);”B
3、asic”格式说明符示例：修改计算一元二次方程根的程序，要求结果保留两位小数Print Format(x1,”#.#”)Print Format(x1,”#.00”)(x1=4.857)(x1=1.5)4.864.861.51.50示例：将变变量x1的值值保留两位小数输输出数值格式说明符 ：字符作用表示一个数字位，其个数决定显示串的长度0当要显示的数据位数少于0的个数时，在高位补0.与或0结合使用，小数部分多余的数字按四舍五入处理，千位分隔符%以百分数的形式输出$在首部输出美元符号Return格式说明符数据输出 MsgBox函数和MsgBox过程MsgBox Prompt , Buttons
4、,Title示例：修改“求一元二次方程根”程序，要求结果显示在消息框中格式MsgBox (Prompt , Buttons ,Title)变变量%=功能MsgBox函数向用户传户传 送信息，并接受用户户的响应应，返回一个整型值值，以决定其后的操作。MsgBox过过程常用作简单简单 的信息显显示提示字符串对话对话 框标题标题内部常量返回值VbOk1VbCancel2VbAbort3VbRetry4VbIgnore5VbYes6VbNo7Return符号常量值描述VbOkOnly0只显示“确定”按钮VbOkCancel1“确定”和“取消”VbAbortRetryIgnore2“终止”、“重试”和“
5、忽略”VbYesNoCancel3“是”、“否”和“取消”VbYesNo4“是”和“否”VbRetryCancel5“重试”和“取消”符号常量值描述VbCritical16 STOP标志VbQuestion32 询问信息图标VbExclamation48 警告信息图标VbInformation64 通知图标显示在消息框中的按钮：默认按钮：显示在消息框中的图标：Return符号常量值vbDefaultButton10vbDefaultButton2256vbDefaultButton3512vbDefaultButton4768Buttons参数说明第 3 章 程序设计3.1 顺序结构程序设计3
6、.2 选择结构程序设计3.3 循环结构程序设计ExerciseChapter HomepageSchoolwork3.2 选择结构程序设计单分支结构双分支结构多分支结构选择结构程序设计单分支结构 条件表达式可以是关系表达式或逻辑表达式，也可以是数值表达式。 块If结构可以嵌套。If 条件表达式Then 语句If 条件表达式Then语句块End If示例：完善“求一元二次方程的根”的程序：当b2-4ac=0时，给出方程的实根；当b2-4ac Then Else If ThenElseEnd If条件表达式语句(块)1语句(块)2TF示例：完善“求一元二次方程的根”的程序当b2-4ac=0时，给出
7、方程的实根当b2-4ac=0？计算一元二次方程的实根输出方程的根开始TF计算一元二次方程的虚根输出方程的根结束Return计算方程的两个实根b2-4ac0？x1=x2=-b/2aTF输出方程的根输出方程的根选择结构程序设计多分支结构表达式1表达式2表达式n语句块n+1语句块n语句块2语句块1T TTFFFIf Then ElseIf Then Else End If 格式说明 不管有几个分支，程序执行一个分支后，其余分支不再执行。 ElseIf子句的数量没有限制，可根据需要使用任意多个ElseIf子句。示例：输入百分制学生成绩，计算等级流程图Return输入成绩的值90以上?等级=“优秀”TF
8、8090 ?等级=“及格”TF输出等级FT等级=“中等”7080 ?等级=“良好”6070?F等级=“不及格”T多分支选择结构表达式1表达式2表达式n语句块n+1语句块n语句块2语句块1T T TFFF流程图Return算法描述：输入百分制学生成绩，计算等级根据测试变量或表达式的值，从多个语句块中选择符合条件的一个语句块执行。Select Case 测试变量或表达式Case 表达式表1语句块1Case 表达式表2语句块2Case 表达式表n语句块nCase Else 语句块n+1 End Select选择结构程序设计多分支结构格式功能数值表达式或字符串表达式与测试变量或表达式的类型必须相同 一
9、个表达式 一组枚举表达式 表达式1 TO 表达式2 Is Case 6Case 1,3,5,7Case 1 To 4Case Is=80不能用逻辑运算符连接多个表达式根据测试变量或表达式的值，从多个语句块中选择符合条件的一个语句块执行。Select Case 测试变量或表达式Case 表达式表1语句块1Case 表达式表2语句块2Case 表达式表n语句块nCase Else 语句块n+1 End Select选择结构程序设计多分支结构格式功能当有多个Case子句的取值范围和测试表达式的值域相符时，只执行符合条件的第一个Case子句后的语句块。Select Case语句只对单个表达式求值，并根
10、据求值结果执行不同的语句块；而IfThenElseIf语句可以对不同的表达式求值，然后执行不同的操作。说明示例：应用Select Case结构实现“计算学生成绩等级”程序Return上机作业作业二：商店售货，按购买货物的款数多少分别给予不同优惠折扣：购物不足250元，无折扣。购物满250元，不足500元，减价5%。购物满500元，不足1000元，减价7.5%。购物满1000元，不足2000元，减价10%。购物2000元以上，减价15%。要求：输入购物款数，计算实付款。作业一：输入1999间的一个数，判断其是否是水仙花数。如果一个数等于各个位上的数字的立方和，则称为水仙花数第 3 章 程序设计3
11、.1 顺序结构程序设计3.2 选择结构程序设计3.3 循环结构程序设计 3.3 循环结构程序设计DO循环FOR循环Do While循环Do Until循环循环的嵌套较比的环循种两ExerciseChapter HomepageSchoolwork循环结构程序设计Do While循环 条件循环体FTDo While 条件表达式循环体Exit Do Loop 当循环条件为真时重复执行循环体。格式Do 循环体Exit Do Loop While条件表达式 条件循环体FT功能前测试循环后测试循环可以一次也不执行循环体至少执行一次循环体注意：避免出现死循环i = 1 Do while iExit For
12、Next 循环变量 当循环变量的值在初值到终值范围内时，执行一次循环体并使初值增加一个步长。循环结构程序设计For循环格式功能说明 循环变量是一数值型变量，初值、终值和步长都是数值型表达式 当初值=终值时，不管步长是正数还是负数，都执行一次循环体 在循环体中可以使用循环变量，但一般不再对循环变量赋值缺省默认为1Return循环变量初值超过终值？循环变量的值按步长变化TF循环体两种循环的比较ReturnDo While（Until） Loop For 循环变量 = 初值 To 终值 Step 步长Next 循环变量 For循环 Do循环 给循环变 量赋初值必须包含让循环变量 发生变化的语句 Fo
13、r语句格式简单、使用方便。 For循环只适用于循环次数已知的情况，而Do循环适用于任何情况。根据公式计算的值，要求误差小于10-6循环次数=INT(终值-初值)/步长1)能否用For循环实现？Facii!i=2:sum=1i2 Then a=10ElseIf (10/2)=6 Thena=20Elsea=30EndIf4. 在For.Next循环语句中，如果省略Step子句，则循环的步长为_。A -1 B 0 C 1 D 10单击鼠标查看答案提示HomepageChapter Next5.有如下程序：Private Sub Form_Click()For j = 1 To 15A = A +
14、j Mod 3Next jPrint AEnd Sub运行后输出的结果是 。 A 1 B 15 C 90 D 1206.下面四个语句中，能打印显示20*30字样的是 。 A Print 20 * 30 B Print Chr$(20) + “*“ + Chr$(30)C Print “20*30“ D Print Val(“20“) * Val(“30“) 7. 有如下一组程序语句，运行后的输出结果是 。Private Sub Form_Click()Dim SUM As IntegerSUM% = 19:SUM = 2.32Print SUM%; SUMEnd Sub A 19 2.32 B
15、 19 19 C 2.32 2.32 D 2 2【本章习题】单击鼠标查看答案提示HomepageChapter Next8.下面程序运行时，外层、中层和内层循环次数分别为_。Private Sub Form_Click()For a = 1 To 3For b = 1 To aFor c = b To 3Next: Next: NextEnd Sub 9.下列 组语句可以将变量A、B的值互换。A A=B: B=A B A=A+B: B=A-B: A=A-BC A=C: C=B: B=A D A=(A+B)/2:B=(A-B)/2 10.下面程序运行后输出结果是 。Private Sub Form_Click()X$ = “A“: Y$ = “B“: Z$ = “C“For J = 1 To 2X$ = Y$: Y$ = Z$: Z$ = X$Next JPrint X$ + Y
