1．掌握逻辑表达式的正确使用方法。 2．掌握单分支、双分支和多分支条件语句结构的使用方法。 二、实验内容 1 有函数： ?x?y??3x?2?4x?12?(x?1)(1?x?10)(x?10) 写一个程序，输入x值后，则输出相应y值。要求用“If…ElseIf…EndIf”和用“Select Case”两种方法完成该题目。 【提示】 注意区分1≤x<10和1<=x And x<10有什么不同。 2编写一个判断给定坐标在第几象限的程序，界面如图3-1所示。 【步骤】 （1）设计应用程序的界面：在窗体上创建一个命令按钮
Command1，三个标签Label1、Label2和Label3，两个文本框Text1和Text2。 （2）设置对象的属性 对象名称 Form1 Command1 Label1 Label2 Label3 Text1、Text2 属性名称 Caption Caption Caption Caption Caption Text 属性值 象限判断 判断 X= Y= （3）编写事件代码： Private Sub Command1_Click() Dim x!, y! x = Val(Text1) y = Val(Text2) If x > 0 Then If y > 0 Then Label1.Caption = \在第一象限\ Else Label1.Caption = \在第四象限\ End If
Else If y > 0 Then Label1.Caption = \在第二象限\ Else Label1.Caption = \在第三象限\ End If End If End Sub （4）程序的运行及保存。 3 编写一个网吧收费程序。 【要求】 （1）运行界面如图3-2所示。 （2）网吧基本收费为2元/小时。 （3）根据不同的上机时数x，上机费用y可以按以下公式计
算收费： 【步骤】 （1）设计应用程序的界面：在窗体上创建一个命令按钮Command1，两个标签Label1和Label2，两个文本框Text1和Text2。 （2）设置对象的属性 对象名称 Command1 Label1 Label2 Text1、Text2 属性名称 Caption Caption Caption Text 属性值 计费 上机时数 上机费用 （3）编写事件代码： Private Sub Command1_Click() Dim x!, y! x = Val(Text1) If x < 3 Then y = 2 * x ElseIf x < 5 Then y = 2 * 0.9 * x
ElseIf x < 10 Then y = 2 * 0.8 * x Else y = 2 * 0.75 * x End If Text2 = Str(y) End Sub （4）程序的运行及保存。 4 输入某学生的某科目考试成绩（100分制），输出该学生的成绩等级。90分以上为“优秀”，80～89分为“良好”，70～79分为“中等”，60～69分为“及格”，60分以下为“不及格”。 【步骤】 （1）设计应用程序的界面：在窗体上创建一个命令按钮Command1，两个标签Label1和Label2，两个文本框Text1和Text2，如图3-3所示。