03-04学年第2期VB考试题及标准答案.docVIP

2003-2004学年第二学期计算机应用课程试题 命题教师 审题教师 题目 一 二 三 四 五 总分 得分 一、填空题(每空1分，共10分) 1．对象具有属性、方法和 。 2．使用变量而定义变量，则变量的类型为 。 3．存储一个单精度数据要占用 字节。 4． 声明PI为一个符号常量，表示3.1415，需要使用的语句为： 。 5．将变量X声明为整型变量的语句为： 。 6．设x=8，y=5，则表达式 Not (xy) Or ABC Left(ACDE,3)的值为 。 7. 设a=2,b=3,c=4,d=5，则表达式a*2c or d mod a=c and bc or cd的之值为： 。 8．产生[20,70]范围那的一个随机整数的表达式为： 。 9．在VB中ASCII、ascii、Ascii这三个字符串比较，最小的是 。 10．数据文件按访问方式分为顺序文件和随机文件两种，顺序文件以 形式存储。 二、选择题(题每题2分，共10分) 1. 在程序运行过程中，要是标签能够显示所需要的文本，则在程序中应设置以下哪个属性的值（ ） A）Caption B) Text C) Name D) Seltext 2．一个控件能实现选择功能的是（ ） A) 文本框控件 B) 框架控件 命令按钮控件 D) 列表框控件 3. 正确的VB逻辑表达式是（ ） A）XY NOT YZ B）XYZ C）XY AND Z D）XY NOT YZ 4．设a＝5，b=8下列程序中能实现交换两个变量值的代码是（ ） A) a=b B) a=b b=a b=a Print a,b swap(a,b) C) c=a D) b=a a=b a=b b=c Print a,b 5．下列求两个数中最大数的代码中，正确的是（ ） A) max=a B) If ba then If ba then max=b max=b endif endif max=a Print max Print max C) if ab then Print a D) max=iif(ab,b,a) Print b 三、写出程序运行结果(每小题4分,共24分) 1. 程序运行时从键盘输入5，则下面程序运行结果为： Dim x As Integer, y As Integer x = Val(InputBox(请输入变量的值)) If x 0 Then If x 0 Then y = x ^ 2 + 1 Else y = x ^ 2 - 1 End If Else y = 0 End If Print x=; x, ; y=; y 2. 写出下面程序运行结果。 Dim y as String, x as String y=abcd For i%=1 TO 4 For j%=1 TO i% X=mid(y,j,1) Print x; Next j% Print Next i% 3. 写出下面程序运行结果。 Dim s As Integer, n As Integer, f As Integer f= -1 s = 0: n = 1 Do While n = 10 s = s + f * n f = -f n = n + 1 Loop Print s=; s 4．写出下面程序运行结果。 Dim m%, i%, flag As Boolean For m=2 to 10 flag = True For i = 2 To m - 1 If m / i = m \ i Then