大学VB课件第5章控制结构程序设计.pptVIP

大学VB课件第5章控制结构程序设计 Private Sub Form_click() Dim p!, r!, I% p = 12 r = 0.015 I = 0 While p 20 p = p * (1 + r) I = I + 1 Wend Print I; 年后，我国人口将达到; p; 亿 End Sub 【例5】打印九九乘法表。 分析：打印九九乘法表，只要利用循环变量作为乘数和被乘数就可以方便的解决。 Private Sub Form_Click() Dim i%, j%, str$ Print Tab(35); 九九乘法表 For i = 1 To 9 For j = 1 To 9 str = i × j = i * j Print Tab((j - 1) * 9 + 1); str; Next j Print Next i End Sub 【例6】 输入一个学生的一门课分数X（百分制），当x≥90时，输出“优秀”；当80≤x＜90 时，输出“良好”；当 70≤x＜80 时，输出“中”；当60≤x＜70 时，输出“及格”，当 x＜60 时，输出“不及格”。 算法分析：本例适合用多路分支结构来解决。运行界面如下图所示。 控件属性设置 对象 属性 设置 Command1 Caption 鉴定 command2 Caption 退出 Label1 Caption 输入分数 Label2 Caption 档次 Text1 Text 空 Text2 Text 空 Form1 Caption 成绩分段鉴定 程序代码如下： “鉴定”按钮代码 Private Sub Command1_Click() Dim score! score = Text1.Text If score = 90 Then Text2.Text = 优秀 第5章 选择结构程序设计 VB中提供了三种用来实现选择结构的流程控制语句，即： 块结构条件语句If…Then…End If 多分支条件语句ElseIf 多分支选择语句Select Case…End Select 5.1 块if语句块结构if语句语法格式如下： 块结构if语句语法格式如下： If 条件表达式 Then [语句块1] [Else [语句块2]] End If 其中条件表达式为必选项，它是一个逻辑值的表达式，其返回结果必须是True或False。对于数值表达式，VB将0作为False，非0作为True?来处理；对于字符串表达式，VB只允许出现包含数字的字符串，当字符串中的数字值为0时，则认为是False，否则认为是True。 F T 语句(块)1 语句(块)2 表达式 说明： 说明：： 1．整个块结构必须以If开始，以End If结束。 2．块结构If 语句中Then后面的语句不能与其写在同一行上，否则，必须加上分隔符。 3．块结构中的语句块2是可以省略的。 4.在块结构中，If后面显式的给出了判断条件，Else后面虽然没有显式的给出一个条件，但相当于存在一个与If部分相反的隐含条件。 块结构If 语句的简单形式: If 条件表达式 Then [语句块1] [Else [语句块2]] 如：If X0 Then Print Ｘ Print -X　 If X0 Then Print Ｘ 简单的块结构If语句解决是“二选一”的两分支选择问题。在实际应用中，经常会遇到“多分支”选择的程序，即从多种情况中选择执行其中一种情况，这时，就要使用块if语句的嵌套。 5.2 块if语句的嵌套 块结构If语句可以嵌套，即在上述结构中的语句块1和语句块2部分仍然可以包含另外一个块结构If语句。 例如，下面就是一个简单的块结构嵌套的语句。 If 条件1 Then If 条件2 Then 语句块1 Else 语句块2 End If Else 语句块3 End If F T T T …… 表达式1 表达式2 表达式nn 语句块11 语句块2 语句块nn 语句块n+11 F… 这个语句就是在块结构的If部分嵌套了另外一个块结构。执行该语句时，首先判断条件1是否成立，如果条件1成立，则再判断条件2是否成立，如果成立，则执行语句块1，否则执行语句块2；如果条件1不成立，则执行语句块3。 当然，在Else部分也可以嵌套另外的块If结构，If和Else部分也可以同时嵌套。 说明： 1．如果存在嵌套时，语句中的