vb综合考试试题.doc

1303班9月16日第一次综合考试试题一、单选（本大题共25小题， 每小题2分，共 50分）1. 设a=2,b=3,c=4,d=5,表达式NOT a=c OR 4*c=b2 AND ba+c的值是( )。A、-1 B、 1C、True D、 False 2、假设A=Good Morning.，B=Afternoon,Boys.，下列表达式中结果是Good Boys.的是_ _。A) Left(A,5)+Right(B,5)B) Right(A,5)+Left(B,5)C) Mid(A,1,5)+Mid(B,1,6) D) Right(A,5)+Right(B,5)3、下列叙中不正确的是（ ）A、变量名中的第一个字符必须是字母B、变量名的长度不超过255个字符C、变量名可以包含小数点或者内嵌的类型声明字符 D、变量名不能使用关键字4、下列关于变体类型的描述，其中正确的是_。A. 变体是一种没有类型的数据B. 变体的空值就表示该变体的值为0C. 一个变量没有定义就赋值，该变量即为变体类型D. 变体是赋给变量某一种类型数据后，就不能再赋给它另一类型的数值5、执行 PRINT 18/2*3,-32 命令后，输出结果为_。A. 3 9 B. 3 -9 C. 27 -9 D. -9 276、下面的_语句可以实现：先在窗体上输出大写字母A，然后在同一行的第10列输出小写字母b。A. Print A;Tab(9);b B. Print A;Tab(10);b C. Print A;Space(10);b D. Print A;Tab(8);b7、语句Print Format（HELLO, 4 Print mEnd SubA. 25 B. 45 C. 55 D. 2418、如果有声明Dim a(5) As Integer，则该数组共占用_个字节内存。 a) 5 b) 6 c) 10 d) 1219、在Visual Basic设计界面中不能隐藏的窗口是_。 a)工程窗口 b) 属性窗口 c) 立即窗口 d) 窗体窗口20、8.6787E+8写成普通的十进制数是_。 a)86787000 b)867870000 c) 8678700 d)867870000021、从键盘上输入一个实数nu，执行Visual Basic语句，利用字符串函数对该数进行处理，如果输出的内容不是字符END，则程序输出的内容是 ( ) nu=InputBox(nu=) n=Str(nu) p=InStr(n,.) If p0 Then Print Mid(n,p) Else Print END End If A用字符方式输出数据nu B输出数据的整数部分 C输出数据的小数部分+小数点（包括小数点） D只去掉数据中的小数点，保留所有数字输出22、Visual Basic中如果在立即窗口中执行以下操作，则输出的结果是( ) m = 123: n = 145 p = Len(Str(m) + Str(n) Print p A2 B4 C5 D823、执行如下程序段时，从键盘输入-5，输出的结果是_。x=-5s=Val(InputBox(请输入s的值:)Select Case s Case Is0 y=x+1 Case Is=0 y=x+2 Case Else y=x+3End SelectPrint x;yA. -5 -2 B. -5 -4 C. -5 -3 D. -5 -524、执行下面Visual Basic程序，最后输出s是（ ） Dim a As Integer, i As Integer Dim b As Integer, j As Integer Dim s As Integer a = 5 b = 10 s = 0 For i = 1 To a b = 5 For j = 1 To b s = s + b b = b - 1 Next j Next i Print sA. 15 B. 30 C. 45 D. 7525、以下说法不正确的是（ ）A使用ReDim语句可以改变数组的维数B使用ReDim语句可以改变数组的类型C使用ReDim语句可以改变数组每一维的大小D使用ReDim语句可以对数组中的所有元素进行初始化二、判断题（每题1分，共8分）1. VB中，变量按其作用范围来说可以分为全局变量、模块级变量和局部变量三种类型（ ）2. Erase语句可以释放内存中常规数组所占的空间。（ ）3. 静态局部变量是在过程中用Static语句声明的。 （ ）4. 变体型变量的数据类型是由赋给它值的数据类型决定。设A的类型为变体型，执行 A=True后则A的类型为逻辑型。（ ）5. Dim X As Boolean, Y X = TrueY = 0Print X Y程序的输出结果为False（ ）6. 任意整数X十位上的数字可以表示为(X MOD 100 - X MOD 10)10。（ ）7. Visual Basic具有三种基本的流程控制结构：顺序结构、分支结构和循环结构。（ ）8. 在Visual Basic中，调用子过程时，如果实参是数组，则形式参数也为数组，而且形式参数的数组不能加括号。（ ）三填空：（本大题共12分， 每空2分）1、假定当前日期为2002年7月12日，星期六，则执行语句Print day(now)后，输出结果是_。2、根据变量的定义位置和所使用的变量定义语句的不同，VB中的变量可以分为3类，_、模块变量和全局变量。3、以下循环的执行次数是_。 K=0 Do While k=10 k=k+1 Loop 4、函数Len(Hello!+Space(2)+Mid(Shanghai,5,3)的值是_。5、下列程序的执行结果为_。A=1B=2A=Val(A)+Val(B)B=Val(12)If AB Then Print A-B Else Print B-A6、数学表达式Cos2 (a+b)+5e2+lg3相对的VB表达式是_五、读程序，写结果（每题5分，共20分）1、Private Sub Command1_Click()a = 0: s = 0For i = 1 To 2 For j = 1 To 4 If j Mod 2 0 Then a = a + 1 End If a = a + 1 s = s + 1 Next j Next i Print a=; a, s=; sEnd Sub2、Option Base 1Dim a()As IntegerPrivate Sub Form_Click() Dim i As Integer，j As Integer ReDim a(2，2) For i=1 To 2 For j=l To 2 a(I,j)=i*2+j Print “a(”；i；“，”；j；“)=”；a(i,j)； Next j Print Next iEnd Sub3、Private Sub form_click() Dim a(3, 3) As Integer, I As IntegerDim j As Integer, k As Integer, n As Integern = 9For k = 5 To 1 Step -1If k = 3 Then For I = 1 To 6 - k a(k - 3 + I, I) = n n = n - 1 Next I Else For I = 1 To k a(k - I + 1, 3 - I + 1) = n n = n - 1 Next I End If Next k For k = 1 To 3 For I = 1 To 3 Print a(k, I); Next I Print Next kEnd Sub4. Private Sub Form_Click() Dim x() As String a = How are you! n = Len(a) ReDim x(1 To n) For i = n To 1 Step -1 x(i) = Mid(a, i, 1) Next I For i = 1 To n Print x(i); Next iEnd Sub六程序改错。（本大题共2个小题，每题5分，共10分，每个程序有两处错误，请在答题纸上写出错误行代码和改正后的代码。）1. 下面的程序是将一个十进制整数转换成二进制数，转换后按位放到一维数组A中，然后输出。如输入一个数据8，将输出1000。程序中有两处错误，请改正 Dim a(10) As IntegerDim k As IntegerDim yu As IntegerDim i As Integeri = 1k = InputBox(请输入一个数)Do While k 0yu = k / 2a(i) = yuk = k 2i = i + 1LoopFor yu = i To 1 Step -1Print a(yu);Next yu2陈婷今年17岁，植了3棵树。以后每年多植一棵，问他到什么时候才能累计种到或超过100棵树？Dim age As Integer, tree As Integerage = 17tree = 3Doage = age - 1tree = tree + age + 14Loop Until tree = 100Print 到; age; 岁时种到100棵树七、程序填空（每空5分，共20分）1下列程序功能是：产生10个199随机奇数，将其显示出来，用冒泡法按从小到大排列输出：Option Base 1private sub form _click()dim a%(10)i=1Do while i=10x=int(rnd*99+1)if x Mod 2 0 thena(i)=x:print a(i);i=i+1end ifLoopprintfor i=1 to 9for j=1 to _if _ thent=a(j):a(j)=a(j+1):a(j+1)=tend ifNext jnext ifor i=1 to 10print a(i);next i