高中信息技术算法与程序设计.ppt

计算函数的值。 Private Sub Command1_Click() Dim x, y As Single x = Val(Text1.Text) If x 0 Then y = 5 ElseIf x 1 Then y = x + 1 ElseIf x 2 Then y = x ^ 2 + 2 ElseIf x 5 Then y = -x - 3 Else y = -2 * x + 6 End If Label2.Caption = y= +Str(y) End Sub 按分数段显示成绩的级别 Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) If x = 90 Then Label2.Caption = “优异 ElseIf x =80 Then Label2.Caption = “优秀 ElseIf x =