VB语言第4章课堂讨论.ppt

第4章习题讨论 退出 单选题 多选题 填空题 编程题 一 单选题 补充 1 x是小于100的非负数 用VB表达式表示的是A 00Thenx aElsex bPrintx aA 0B 4C 3D 1 B B 二 多选题 1 下列语句中 有语法错误的是 A y a 1 b 1 B x 2mC Val y mD Form1 ShowE B InputBox Hello F Text1 Text VB Text2 TextG 88Label Caption Label H x Left VisualBASIC I Ifa b 2 3Theny a bJ Ifa 1Not Orb 3 Theny 1 错误 缺一个乘号 应为 a 1 b 1 错误 缺一个乘号 2 m 2m不能是变量名 错误 左边只能是变量名或对象属性名 正确 正确 是字符串类型符 B 表示B是字符串变量 错误 左边不能是一个表达式 错误 对象名不能以数字开头 错误 Left函数格式不对 应为Left s n 正确 将表达式 a b 的值赋给y 错误 逻辑表达式不对 Or是双目运算 2 假设t s w分别为整型 字符型 逻辑型变量 且s ABC 在下列表达式中错误的有 A t 5AndwB s 90C 4 t 1D s s E t s3 假设a 3 b 3 下列逻辑表达式中其值为真的有A a 0AndNotb0C ab b Ora b 0OrNot a b 0 D 2 a bOra 0Andb 0E a 0Anda b 0Orb a CE BE 补充填空题1 写出下列程序段的运行结果 x Val InputBox Enterx SelectCaseSgn x 2Case1 x x 1 Case2 x x 2 Case3 x x 3 EndSelectPrintx 1当x的输入值为 3时 输出结果是 运行后x的值为 三 填空题 1 2 填空补充题1 补充填空题2 当在文本框Text1中输入内容并按回车键后 立即跳到Text3文本框以供输入 事件过程是 PrivateSubText1 KeyPress KeyAsciiAsInteger IfKeyAscii 13Then EndIfEndSub Text3 SetFocus 编程及上机调试第1题 出错在什么地方 第4章的第1道编程题 有的学生用selectcase语句编写如下程序 PrivateSubCommand1 Click x Val Text1 Text SelectCasexCaseInt x 2 x 2Text2 Text 偶数 CaseElseText2 Text 奇数 EndSelectEndSub为什么结果总是奇数 无论你输入偶数还是奇数 1 编制一个程序 输入一个整数 判断该数的奇偶性 如输入89 则输出 奇数 利用文本框来实现数据的输入和输出 错例PrivateSubCommand1 Click x Val Text1 Text SelectCasexCaseInt x 2 x 2Text2 Text 偶数 CaseElseText2 Text 奇数 EndSelectEndSub正例 例4 4 SelectCasescoreCase0To59Label2 Caption temp 不及格 Case60To69 EndSelect 另一解法PrivateSubCommand1 Click x Val Text1 Text IfInt x 2 x 2ThenText2 Text 偶数 ElseText2 Text 奇数 EndIfEndSub 编程及上机调试第3题 显示学生的年级及学生类型 已知学号由9个数字码组成 如012343001 其中从左算起前2位表示年级 第5个字符表示学生类型 学生类型规定如下 2 博士生 3 硕士生4 本科生 5 专科生设计程序 从文本框中输入一个学号 经过判断后 在另外两个文本框中显示该生的年级及学生类型 xxxxxxxxx 年级 学生类型 编程第3题 PrivateSubCommand1 Click 判断 事件过程DimtAsString pAsStringt Mid Text1 Text 5 1 SelectCasetCase 2 p 博士生 Case 3 p 硕士生 Case 4 p 本科生 Case 5 p 专科生 CaseElsep 无效学号 EndSelectText2 Text Left Text1 Text 2 级 Text3 Text pEndSub 编程及上机调试第4题 4 编制程序 利用三个复选框来代表红 绿 蓝三原色的颜色值 当选中复选框时表示颜色值255 不选中复选框时表示颜色值0 把通过RGB函数调配的颜色作为一个标签的背景色 BackColor 编程第4题 标签Label1 PrivateSubCommand1 Click r 0 g 0 b 0IfCheck1 Value 1Thenr 255EndIfIfCheck2 Value 1Theng 255EndIfIfCheck3 Value 1Thenb 255EndIfLabel1 BackColor RGB r g b EndSubPrivateSubCommand2 Click EndEndSub 1 建立应用程序的用户界面和设置对象属性 2 编写程序代码 功能要求 用户从上面三个文本框 Text1 Text2 Text3 中输入数据 单击 排序 按钮 Command1 则在第4个文本框 Text4 中显示结果 编程补充题1 输入三个数 将它们从大到小排序 编程补充题1 PrivateSubCommand1 Click a Val Text1 Text