[物理]Chapter_3_设计基础.ppt

Select Case Asc(UserInput) ‘Asc转换成ASCII码函数 Case 65 To 90 大写字母 Msg = You entered the uppercase letter“ [?????????]大写字母 Msg = Msg Chr(Asc(UserInput)) . Case 97 To 122 小写字母 Msg = You entered the lowercase letter“ [??????????]小写字母 Msg = Msg Chr(Asc(UserInput)) . Case Else Msg = You did not enter a letter or a number. End Select End If 讲课内容、方法、步骤 Else Select Case CDbl(UserInput) If its a numger. Case 1, 3, 5, 7, 9 奇数 Msg = UserInput is an odd number.“ odd[??]奇数 Case 0, 2, 4, 6, 8 偶数 Msg = UserInput is an even number.“ even[??????]偶数 Case Else 出界 Msg = You entered a number outside“ [?????????]出界，在…外 Msg = Msg the requested range.“ End Select End If requested[???????]请求 range[??????]范围 讲课内容、方法、步骤 　　块结构条件语句比单行结构条件语句具有很多优点，在块中可以执行多条语句，能实现较复杂的算法，任何单行结构条件语句都可以改成块结构条件语句的形式。块形式的判断语句提供了比单行判断语句更好的结构和灵活性，它可以测试更复杂的条件，使用块判断语句形式的程序更容易阅读、维护和调试。 　块结构条件语句也可以嵌套，即把一个块结构条件语句放在另一个块结构条件语句内。要注意嵌套必须是完全嵌套，否则会出错。 例VB5-3：输入三角形的三条边长，计算三角形面积。 　该程序利用三个文本框输入三角形的三条边长A、B、C，在命令按钮的单击事件过程中，对A、B、C，的数值进行判断，如果能构成一个三角形，则进行计算，否则显示“不能构成三角形”。 Private Sub Command1_Click() A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3.Text) L = A + B C And B + C A And C + A B 　‘判断是否能构成三角形。 讲课内容、方法、步骤 　　块结构条件语句比单行结构条件语句具有很多优点，在块中可以执行多条语句，能实现较复杂的算法，任何单行结构条件语句都可以改成块结构条件语句的形式。块形式的判断语句提供了比单行判断语句更好的结构和灵活性，它可以测试更复杂的条件，使用块判断语句形式的程序更容易阅读、维护和调试。 　块结构条件语句也可以嵌套，即把一个块结构条件语句放在另一个块结构条件语句内。要注意嵌套必须是完全嵌套，否则会出错。 例VB5-3：输入三角形的三条边长，计算三角形面积。 　该程序利用三个文本框输入三角形的三条边长A、B、C，在命令按钮的单击事件过程中，对A、B、C，的数值进行判断，如果能构成一个三角形，则进行计算，否则显示“不能构成三角形”。 Private Sub Command1_Click() A = Val(Text1.Text) B = Val(Text2.Text) C = Val