项目二+经典计算概要.ppt

* IIf函数-2 例如：将x，y中大的数，存入Max变量中则语句为： Max=IIf（x y, x, y） 共 85 页 * Select Case语句-1 在实际应用中，对于多分支结构，更方便的方法是使用Select Case语句。Select Case语句又称情况语句，是多分支结构的另一种表示形式，这种语句条件表示直观，但必须符合其规定的语法规则书写。 Select Case语句一般形式为： Select Case 表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 … [Case Else 语句块n+1] End Select 共 85 页 * Select Case语句-2 其中： 表达式可以是数值型或字符串表达式 表达式列表i与表达式的类型必须相同，可以是 下面四种形式之一： (1) 表达式，例：A (2) 一组用逗号分隔的枚举值，例：2,4,6,8 (3) 表达式1 To 表达式2，例： 60 To 100 (4) Is 关系运算符 表达式，例： Is 60 Select Case语句的作用： 先对表达式求值，然后测试该值与哪个Case子句中的表达式列表相匹配；如找到了，则执行与该Case子句下面的语句块，并把控制转移到End Select后面的语句；如没找到，则执行与Case Else子句有关的语句块，然后把控制转移到End Select后面的语句。 共 85 页 * Select Case语句-3 提示： Select Case 后面的表达式中不能出现多个表达式 “表达式列表i”中不能出现变量及有关运算符 例，编程：输入某门课程的百分制成绩，要求显示对应的评定等级。等级评定标准是：90分~100分为“优秀”，80分~89分为“良好”，60分~79分为“中等”，60分以下为“差”，输出界面如图所示。 共 85 页 * Select Case语句-4 编程如下： Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim mark As Integer mark = Val(TextBox1.Text) Select Case Int(mark / 10) Case 9, 10 Label2.Text = 输入的成绩为优秀 Case 8 Label2.Text = 输入的成绩为良好 Case 6 To 7 Label2.Text = 输入的成绩为中等 Case Is 6 Label2.Text = 输入的成绩为差 End Select End Sub End Class 共 85 页 * 编程实现-1 单击“计算”按钮的事件过程代码 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x, s As Single, y As Integer x = Val(TextBox1.Text) s = Val(TextBox2.Text) If x = 3 Then y = 11 ElseIf x 3 And x = 10 Then y = 11 + (x - 3) * 2.1 ElseIf x 10 Then y = 11 + (10 - 3) * 2.1 + (x - 10) * 3.2 End If y = y + (s \ 5) * 2.1 Label3.Text = 请您付款 y 元 ，谢谢！ End Sub 共 85 页 * 编程实现-2 单击“退出”按钮的事件