VB实验及答案

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所示。

联系客服:779662525#qq.com(#替换为@) 苏ICP备20003344号-4