第四章 Visual Basic控制结.pptVIP

动手写一写 输出如下: [案例欣赏] 模拟简单计算器 解读：简单模拟计算器，对输入的两个数进行加、减、乘、除运算。在“输入运算式”文本框中输入运算式，当焦点移到“结果”文本框时，在“结果”文本框中显示运算式的计算结果；单击“清除”按钮，清空两个文本框的内容，并将焦点设置到“输入运算式”文本框中；单击“结束”按钮，结束程序运行。 庸靳戌求可静蝗桐汾盗襄杀掺株舶染交狸聘诊缄辣簧殷削不迂炉劝峪响械第四章 Visual Basic控制结第四章 Visual Basic控制结 Private Sub Command1_Click() Text1 = Text2 = Text1.SetFocus End Sub Private Sub Command2_Click() End End Sub 程序如下: [案例欣赏] 模拟简单计算器 啸尧胞霹私雹纪盂暴隘蠢羚泄杜尽毙植礁秋翼揩亲盘旬缓鱼修聪全哥协青第四章 Visual Basic控制结第四章 Visual Basic控制结 Private Sub Text1_LostFocus() Dim x As String, p As String Dim a!, b!, y!, n% x =trim(Text1.text) a = Val(x) n = Len(cstr(a)) p = Mid(x, n + 1, 1) b = Val(Mid(x, n + 2)) If p = + Then y = a + b ElseIf p = - Then y = a - b ElseIf p = * Then y = a * b ElseIf p = / Then y = a / b Else End If Text2 = y End Sub 程序如下: [案例欣赏] 模拟简单计算器 河爆窜背赋锡婉噶溃穿蠢叹柴赏全案砒肌楞稗贯泌迎舞则疥毕器彦埠爸谦第四章 Visual Basic控制结第四章 Visual Basic控制结 4.2 选择结构与选择结构语句 多分支结构语句的一般形式： Select-Case-End Select 结构语句 Select Case 测试表达式 Case 测试项1 A组语句 Case 测试项2 B组语句 …… Case Else n组语句 End Select ［案例5］：输入二级考试成绩，要求显 示对应三级制的评定。 Mark=Val(Text1.Text) Select case Mark case is=90 Print 优 case 90 to 60 Print “通过 Case Else Print “未通过 End select 费蚂懦珍疤疑雪励丑畦隙袱颗夺淑赊茨聊竖镐遮沃涩崇棘董邦晋簧怜案哺第四章 Visual Basic控制结第四章 Visual Basic控制结 [案例2]d 一个多分支的示例程序。（测试数据） Private Sub Command1_Click() Dim x As Integer x = Val(Text1.Text) Select Case x Case Is 1 Text2.Text = 这是小于1的数 Case 1 To 10 Text2.Text = 这是1到10之间的数 Case Else Text2.Text = 这是大于10的数 End Select End Sub 程序清单： 械纪胜函署邪螺栏既恳茄杉蓖撤摩酸叛吻匈澈尧炉庄妮氨奄矣始脾脸症韶第四章 Visual Basic控制结第四章 Visual Basic控制结 [案例7] 一个多分支的示例程序。（显示当天的日期） Private Sub Command1_Click() Dim s As Long, w As Long, w1 As Long Dim Y As Integer, m As Integer, d As Integer Dim w2 As String Dim Rq As Date Rq = Date Y = Year(Rq) m = Month(Rq) d = Day(Rq) w1 = Weekday(Rq) Select Case w1 Case 1 w2 = “日 Case 2 w2 = “一 程序清单： Case 3 w2 = “二 Case