a) Int(X+0.05)/10 b) Int((X+0.05)/10)
c) Int(10*(X+0.05))/10 d) Int(10*(X+0.05)/10)
14． 函数Int(Rad*99+1)产生随机数的范围是( b )。 a) [1,99) b) [1, 99] c) [1，100) d) [1，100] 2．3 下列符号哪些是正确的变量名 1) n 2) 3x 3) Abs 4) 85 5) print_56 6) 名称
7) π 8) a%b 9) ab# 10)My Name 11)“年龄” 12)学校$ 答案: 除了以下符号外，其它符号都是正确的变量名。 错误的变量名 原因
3x 变量名必须以字母为开始 Abs 不能和关键字同名 85 变量名必须以字母开始 π 不是英文字母
a%b 变量名中不能用字符%
My Name 变量名内不能有空格字符 2．4 把下列数学表达式写成VB表达式 1) 2) x{x[x(ax+b)+c]+d}+e 3) ln（1+| |10） 4)
5) ctg 6) log10(a2+2ab+b2) 答案：
1) 1/(1+(1/(1+1/(x+y)))) 2) x*(x*(x*(a*x+b)+c)+d)+e 3) Log(1+Abs((a+b)/(a-b)) ^10)
4) Sqr(1+3.14159/2*Cos(48*3.14159/180))
5) 1/Tan((1-x*x)/(1+x*x))或者Cos((1-x*x)/(1+x*x))/Sin((1-x*x)/(1+x*x)) 6) Log(a*a+2*a*b+b*b)/Log(10) 2．5 写出下列函数的值
1) Int(-1234.5678) 2) Fix(1234.5678) 3) val(“12.34”) 4) Cint(1234.5678) 5) Abs(-100) 6) Sgn(-100)
7) Sqr(sqr(16)) 8) Left(“Visual BASIC 6.0”,6) 9) Mid(“Visual BASIC 6.0”,8,5)
10) InStr(1, “Visual BASIC 6.0”, “BASIC”) 11) String(3, “$”) 12) Int((100*Rnd)+1) 答案：
1) -1235 2) 1234 3) 12.34 4) 1235 5) 100 6) -1 7) 2 8) Visual 9) BASIC 10) 0
11) $$$ 12) 产生从整数1到整数100之间的随机整数 2．6 写出下列表达式的值
1) ( 3 + 6)` \\ 2 2) 18 \\ 4 * 4.0^2 / 1.6
3) 25 \\ 3 Mod 3.2 * Int（ 2.5 ） 4)“xyz” + “438” 5) “abc”& “123” &“abc” 6) 349.25 + “0.75” = 350 7) “china”>=“canada” 8) “abc”<=“abc”&“123” 9) 3 > 4 And 5 = 5 10) True Or Not 7–3 <= 4
答案：
1) 4 2) 0 3) 2 4) xyz438 5) abc123abc 6) True 7) True 8) True 9) False 10) True
2．7 设a1，a2，a3是布尔变量，其值依次为：True，True，False，写出下列布尔表达式的值
1) Not a1 And Not a2 2) Not a1 Eqv Not a2 3) a1 Or a2 And a3 4) a1 Xor a2 Or a3
5)（ Not a1 Or a2 ） And （ a2 Or a3 ） 6) Not a1 And a2 Imp a3 答案：
1) False 2) True 3) True 4) False 5) True 6) True 2．8 用关系表达式或逻辑表达式表示下列条件 1) i 整除j 2) n是小于正整数k的偶数 3) 1<=x<10 4) x，y其中有一个小于z 5) y [–100,–10]，并且 y [10,100]
6) 坐标点（x, y）落在以（10, 20）为圆心，以35为半径的圆内 7) 三条边a，b和c构成三角形
8) 年份Year能被4整除，但不能被100整除或者能被400整除 答案：
1) i Mod j=0 2) n 5) Not(y>=-100 And y<=-10 ) And Not(y>=10 And y<=100) 6) Sqr((x-10) ^2+(y-15) ^2)<35 7) a+b>c And b+c>a And c+a>b 8) Year Mod 4=0 And year Mod 400<>0 Or Year Mod 400=0 2．9 问答题 1. 标识符的选取必须遵循什么规则？ 答：参见教材2.1.2。 2. 各种基本数据类型的取值范围如何？ 答：参见教材2.2表2-1。 3. 空串与空格有什么不同？ 答：参见教材2.1.1。 4. 什么是符号常量？使用符号常量有什么好处？ 答：参见教材2.3.1。 5. 自动变量与静态变量如何定义？它们之间有什么不同？ 答：参见教材2.3.2。 6. 两个字符串如何进行比较(关系)运算,如何确定运算结果?试举例说明。 答：参见教材2.4.3。 第3章程序流程控制 3．1 填空题 1．设变量r 表示圆的半径，则计算圆的面积并赋给变量s使用的赋值语句为（ s=3.14159*r*r ）。 2． 给命令按钮Command2的Caption属性赋予字符串“退出”使用的赋值语句为（ Command2.Caption=＂退出＂ ）。 3．为了求n的阶乘，要求用户输入n的值。程序使用InputBox函数输入，要求对话框提示信息为“请输入一个求阶乘的数：”，标题为“求数的阶乘”，并且正确地把输入的信息转换为数值存放到变量n中，则使用的赋值语句为（ n=val（InputBox（＂请输入一个求阶乘的数：＂，＂求数的阶乘＂） ）。 ４．如果使用MsgBox对话框显示提示信息“退出本系统？”，并显示“是（Yes）”和“否（No）”两个按钮，显示图标“？”号，指定第一个按钮为默认值以及标题为“提示信息”，则调用MsgBox函数的形式为（ MsgBox（＂退出本系统? ＂，4+32+0，＂提示信息＂） ）。 ５．如果使用MsgBox对话框显示提示信息“文件未找到！”，并显示“确定”按钮、图标“！”号和标题“文件查找”，则使用的MsgBox语句为（ MsgBox＂文件未找到＂，0+48+0，＂文件查找＂ ）。 ６．要在当前窗体Form和立即窗口输出字符串“Visual BASIC 6.0”使用的Print方法分别是( Print “Visual BASIC 6.0” )和( Debug.Print “Visual BASIC 6.0” )。 ７．使用Print方法时，若用逗号分隔， 则按( 标准 )格式输出各表达式的值，若用分号分隔，则按( 紧凑 )格式输出各表达式的值。 ８．注释语句是一个（ 非执行 ）语句，VB不对它们进行编译，对程序的执行结果没有任何影响。 ９．判别变量i是否为偶数，若为偶数就把它显示出来。使用单行结构条件语句为（ If i Mod 2=0 Then print x ）。 10．判别变量x是否大于0，若大于0，则累加到变量s1中，否则，累加到变量s2中，使用的单行结构条件语句为（ If x>0 Then s1=s1+x Else s2=s2+x ）。 11．给定分段函数，求y的值，使用的单行结构条件语句为（ If x>0 Then y=2*x+1 Else If x=0 Then y=0 Else y=2*x-1 ）。 12．判别a是否等于b，若a=b，则输出字符串“a is equal to b”的块结构条件语句为（ ）。 答案： If a=b Then Print “a is equal to b” End 13．判别ch是否为小写字母，若是，输出“yes”；否则，输出“No”的块结构条件语句为（ ）。 答案： If Asc(ch)>=97 And Asc(ch)<=122 Then Print “Yes” Else Print “No” End If 14．若一个case子句中的表达式表由逗号分隔的若干个常数组成，则它的含义是：当测试表达式的值等于（ 这些常数中的某一个）时，执行该case子句相应的程序块。 15．若case子句中的表达式表列具有形式：<表达式1> To <表达式2>，则它的含义是：当测试表达式的值等于（ 这个范围内的值）时，执行该case子句相应的程序块。 16．若case子句中的表达式表列具有形式：Is <关系运算符> <表达式>，则它的含义是：当测试表达式的值满足（ Is后的关系）时，执行该case子句相应的程序块。 17．在循环语句中，反复执行的程序段称为（ 循环体 ）；进入循环体的条件称为（ 循环条件）；中止循环体执行的条件称为（ 结束循环条件）。 3．2 选择题 １．下列赋值语句中，( d )是正确的。 ａ)x ！＝＂abc＂ b)a％＝＂10e＂ c)x＋１＝５ d)s＄＝100 2．下列选项中，( d )不能交换变量a和b的值。 a) t=b : b=a : a=t b) a=a+b : b=a-b : a=a-b c) t=a : a=b : b=t d) a=b : b=a 3．若在消息框MsgBox中显示“确定(Ok)”和“取消(Cancel)”两个按钮，则buttons参数的设置值是( b )。 a) 0 b) 1 c) 2 d)3 4．若在消息框MsgBox中选择第二个按钮为默认值，则buttons参数的设置值是( b )。 a)0 b)256 c)512 d)768 5．若单击了“终止（Abort）”按钮，则MsgBox函数的返回值是（ c ）。 a)1 b)2 c)3 d)4 6．以下不正确的单行结构条件语句是（ d ）。 a) If x>y Then Print “x>y” b) If x Then t = t * x c) If x Mod 3=2 Then ? x d) If x<0 Then y = 2*x-1 : Print x End If 7．给定程序段 Dim a As Integer, b As Integer, c As Integer a=1：b=2：c=3 If a=c-b Then Print \ 以上程序（ c ）。 a) 没有输出 b) 有语法错 c) 输出##### d) 输出***** 8．把a, b之中的最大值存放于max，下面语句书写正确的是（ d ）。 a) If a>b Then max=a Else max=b End If b) If a>b Then max=a Else max=b End If c) If a>b Then max=a Else max=b d) If a>b Then max=a Else max=b End If 9. 下列Case语句中正确的是（ c ）。 a) Select Case x Case 1 Or 3 Or 5 y=x*x-1 Case Is >10 y=x+1 End Select
