第三次VB参考答案

1、一、填空题1、(提交作业，无参考答案)字符常量必须用_括起来 。 解析：字符常量必须用双引号括起来，如"jxnanchang"。 2、日期型常量必须要用_括起来。 解析：在程序中书写时要用两个“#”符号把表示日期和时间的值括起来。 格式：可以是mm/dd/yyyy或mm-dd-yyyy，也可以是yyyy/mm/dd或yyyy-mm-dd，如果日期是非法的或不存在的，系统将提示出错。 #09/02/99#、#January 4，2005#、#2005-5-1 14:30:00 PM#都是合法的日期型常量。 3、设变量a=10,b=20,c=30,d=40，则表达式d>c

2、>b= a<>(b>d)的值是_。 解析： 在求表达式d>c>b=a<>(b>d)的值时，由于表达式的运算优先顺序，所以先计算括号内的值。根据b和d的值可知，括号内b>d的值是False（转换为数值型的值0），因此整个表达式可以简化为40>30>20=10<>0。按照关系运算符的优选级是从左向右的顺序进行运算的。先计算40>30的结果为True（转换为数值型的值为1），整个表达式简化为1>20=10<>0；计算1>20的结果为False（转换为数值型的值0），整个表达式简化为0=1

3、0<>0；计算0=10的结果为False（转换为数值型的值0），整个表达式简化为0<>0，此表达式的计算结果为False。因此答案是False（关系运算符的运算结果是布尔值True或False）。 注意：在将布尔值True参加数值运算时，True被转换为整数1，而False被转换为整数0。在将数值转换为布尔值时，只要是非0值就转换为True，0值转换为False。 4、单击窗体，并编写如下程序代码： Private Sub Form_click() Dim c As Boolean c = 5 - 8 Print c End Sub 运行后的输出结果是：_。 解析： 通

4、过代码中的声明语句可知变量c为布尔型，则返回值只有True或False。表达式“c = 5 8”的值为3，是数值型的值。此时将数值型转换成布尔型的值，3属于非0的数则转换为True。因此答案是True。5、（提交作业）根据所给条件，列出布尔表达式。(1)闰年的条件是年号（year）能被4整除，但不能被100整除；或者能被400整除。(2)一元二次方程ax2+bx +c = 0有实根的条件为：a0，并且b2-4ac 0。(3)征兵的条件是：男性（sex）年龄（age）在1820岁之间，身高（size）在1.65m以上；或者女性（sex）年龄（age）在1618岁之间，身高（size）在1.60m

5、以上。(4)分房的条件为已婚（marrigerat），年龄（age）在26岁以上，工作年限（workingage）在5年以上。解答：其布尔表达式分别为(1)(year Mod 4=0 And year Mod 100<>0) O r(year Mod 400=0)或 (Int(year/4)=year/4 And Int(year/100)<>year/100) Or (Int(year/400)=year/400)说明：被某个数整除，可以用数值运算符Mod或Int()函数来实现。 (2)a<>0And b2-4*a*c>=0 (3)设性别sex值Tr

6、ue代表男，sex值False代表女。(sex And age>=18 And age<=20 And size>=1.65) Or (Not sex And age>=16 And age<=18 And size>=1.60)(4) 设婚否marrigerat值为True代表已婚，False代表未婚。marrigerat And age >= 26 And workingage >= 5 6、(提交作业)在数值型数据类型中占2个字节的是_ ，其类型说明符是_ 。 解析：数值型数据类型包括字节型（Byte），占1个字节；整型（Integer），

7、占2个字节，用%表示；长整型（Long），占4个字节，用&表示；单精度型（Single），占4个字节，用！表示；双精度型（Double），占8个字节，用#表示；货币型（Currency），占8个字节，用 表示，所以结果是Integer和%。7、(提交作业)编写如下代码： Private Sub Form_click() Dim a$, b$, c$ a = "Visual Basic Technology" b = "Programme" c = b & LCase(Mid(a, 4, 2) & Right(a, 8) Print

8、 c End Sub 单击窗体后输出结果为：_ 。 解析：Lcase(x)函数是将字符串中的字母转换成小写状态；Mid(x,n1,n2)函数是返回字符串x左边第n1个字符开始到第n2个字符。例如：Mid("jxbsvti",2,3)返回的值是“xbs”。Right(x,n)函数是在字符串x中从右边取n个字符，“&”是用来连接字符串的运算符。因此答案是“Programmetechnology”。二、选择题1、(自测作业) “x是小于100的非负数”，用VB表达式表示正确的是 A. 0 x 100 B. 0 <= x < 100 C. 0 <= x A

9、nd x < 100 D. 0 <= x Or x < 100 解答：(A)和(B)是错误的VB表达式，同时根据题意应该用逻辑与And来表示。所以，正确答案为(C)。2、(自测作业)执行语句 Dim cond As Boolean： X =8， 在以下表达式中， cond 值为 True 的是（ ）。A. cond = X >10 B. cond = X =8C. cond =（X >5 And X <3） D. cond = X =0解答：答案为B，第二个“=”号是关系运算符，表达式x=8的值为True；第一个“=”号是赋值运算符，即把True值赋给con

10、d。3、 (自测作业)布尔变量 bools =true 的条件是两门功课 A， B 中， 两门均达90， 或平均达到或高于95，正确的表达式是。A. bools=（A >=90 And B >=90 And（A + B）/2 >=95）B. bools= A >=90 Or B >=90 Or（A + B）/2 >=95C. bools= A >=90 And B >=90 Or（A + B）/2 >=95D. bools= A >=90 And B >=90 Or A >=95 And B >=95解答：答案为C。

11、两门课均达90是且得关系，与平均分达到95是或的关系。4、(自测作业)语句 Dim C as String *1， 表达式 C >=“A” And C <=“Z” Or C >=“a” And C<=“z”值为 True， 则 C 一定是（ ）。A. 数字 B. 大写字母 C. 小写字母 D. 字母解答：答案为D。变量C是定长字符串，长度为1，C >=“A” And C <=“Z” Or C >=“a” And C<=“z”，表示C中存放字符的Ascii码介于“A”“Z”或“a”“z”。故表达式取真的条件是C是字母。5、(自测作业)关于语句 Se

12、lect case A 的 case 子句及其说明中，说明错误的是（ ）。A. Case -5 To5 判断 A 在区间 -5， 5 中B. Case “0” To “9”，“a” To “f” 判断 A 是数字字符或字母 “a”“f” 中某字符C. Case“张”，“陈” 判断 A 是字符“张”或“陈”D. Case Is<0，1，2 判断 A 是小于 0 或小于 1 或小于 2解答：答案为D，答案D表示A 是小于 0 或A= 1 或A=26、（提交作业）在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程。程序运行后，如果在输入对话框中输入 2，则窗体上显示的是（

13、 ）。Private Sub Command1_Click（）x =InputBox（“Input”）Select Case xCase 1，3Print“分支1”Case Is>4Print“分支2”Case ElsePrint“Else分支” End SelectEnd SubA. 分支1 B. 分支2 C. Else 分支 D. 程序出错解答：答案为C，输入为“2”，符合Case Else部分7、（提交作业）设 a =2， b =3，c =4， d =5， 下列表达式的值是（ ）。Not a <=c Orc =b2 And b < >a +cA. -1 B. 1

14、C. True D. False解答：答案为D。解答：略8、（提交作业）以下关系表达式中，其值为 False 的是（ ）。A.“ABC” > “AbC” B.“the” <> “they”C.“VISUAL” = UCase（“Visual”） D.“Integer” > “Int”解答：答案为B；两个字符串比较大小，规则为对应位置字符依次进行Ascii码比较（以A答案为例，即“A”和“A”比，“B”和“b”比，“C”和“C”比），有一对比出大小就立刻结束，如果没有比出大小某字符串已经比较完毕，则一定小。9、（提交作业）以下 Case 语句中错误的是（ ）。A. Cas

15、e 0 To10 B. Case Is>10C. Case Is>10 And Is<50 D.Case 3,5， Is>10 解答：答案为C；Select-Case语句没有这种表达形式。10、（提交作业）在窗体上画一个名称为 Command1 的命令按钮， 然后编写如下事件过程。 程序运行后，单击命令按钮，窗体上显示的是（ ）。Private Sub Command1_Click（）x = -5If Sgn（x） Theny =Sgn（x2）Elsey =Sgn（x）End IfPrint yEnd SubA. -5 B.25 C.1 D. -1答案为C。第二行语句I

16、f Sgn（x） Then 看似缺少些什么实则不然。Sgn函数为符号函数，x=-5，则sgn（x）=-1。由于Sgn(x)作为If语句的条件表达式，取值只能是True或False。根据书本p51不同数据类型的赋值说明第三条，-1转换为True，则Then后的语句y =Sgn（x2）被执行，结果为1。三、编程题1、(提交作业)编写实现以下要求，当用户单击窗体，弹出Inputbox输入框，在输入框中输入的值在90100则在窗体上输出“优”；如果在输入框中输入的值在8089则在窗体上输出“良”；如果在输入框中输入的值在7079则在窗体上输出“中”；如果在输入框中输入的值在6069则在窗体上输出“及格

17、”；否则在窗体上输出“不及格”。（界面自行设计，提交窗体文件，保存文件名为f1）程序代码如下： Private Sub Form_Load() MsgBox "单击窗体", , "输入" End Sub Private Sub Form_Click() Dim a As Single a = InputBox("请输入a的值", "输入") If a > 100 Then Print "Error" ' 出错信息 ElseIf a >= 90 Then Print "

18、;优" ElseIf a >= 80 Then Print "良" ElseIf a >= 70 Then Print "中" ElseIf a >= 60 Then Print "及格" Else Print "不及格" End If End Sub 2、(提交作业)编写实现以下要求，在文本框中输入一个学生的三科成绩，计算总分，并找出最高分。（提交窗体文件，保存文件名为f2）【参考答案】 Private Sub Command1_Click() g1 = Val(Text1.Text) g2 = Val(Text2.Text) g3 = Val(Text3.Text) Var = (g1 + g2 + g3) / 3 g = g1 If g < g2 Then g = g2 If g < g3 Then g = g3 Text4.Text = Var Text5.Text = g End Sub 3、(提交作业)编写实现以下要求，商店在出售某一件商品时，假设单价是12.5元，如果一次购买数量在1099件之间，按9.8折出售；购买数量在100199件之间，按9.5折出售；购买数量在200件以