vb综合考试试题1303班9月16日第一次综合考试试题一、单选（本大题共25小题，每小题2分，共 50分）1. 设a=2,b=3,c=4,d=5,表达式NOT a<=c OR 4*c=b^2 AND b<>a+c的值是( )。
A、-1B、 1C、TrueD、False2、假设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、变量名不能使用关键字24、下列关于变体类型的描述，其中正确的是_______。
A. 变体是一种没有类型的数据B. 变体的空值就表示该变体的值为0C. 一个变量没有定义就赋值，该变量即为变体类型D. 变体是赋给变量某一种类型数据后，就不能再赋给它另一类型的数值5、执行 PRINT 18/2*3,-3^2 命令后，输出结果为_____。
A. 3 9B. 3 -9C. 27 -9D. -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);"b"37、语句Print Format（"HELLO", "<"）的输出结果是______。
A. HELLOB. helloC. HeD. he8、如果X是一个正的实数，将千分位四舍五入，保留两位小数的表达式是a) 0.01*int(x+0.05) b)0.01*int(100*(x+0.005))c) 0.01*int(100*(x+0.05)) d)0.01*int(x+0.005)9、变量未赋值时，数值型变量的值为( )a) 0 b) 空 c) 1 d) 0.110、A=5，B=8，则(B-A)*Rnd+A的结果是介于______之间的数。
A. 5～8B. 0～5C. 3～5D. 0～311、若x=5,y=6,则表达式x+y=11的值是_____。
a) x+y=11 b) 11 c) True d)False412、下列过程中对形参的定义正确的是( )A. Sub F(x%，3)B. Function M(ByVal x%)As BooleanC. Sub FF(x%，y%) AS IntegerD. Function MM(x+y)13、下列有关过程的叙述中错误的是（）。
A.如果过程被定义为Static类型，则该过程中的局部变量都是Static类型B.Sub过程中不能嵌套定义Sub过程C.Sub过程中可以嵌套调用Sub过程D.事件过程可以像通用过程一样由用户定义过程名14、执行语句Print format(5459.478,"##,#0.00")，正确的输出是______。
a)5459.48 b) 5，459.48 c)5，459，478d) 5，459.4715、表达式Left("how are you ",3)的值是_____。
5a) how b) are c) you d) ho16、以下不属于Visual Basic系统的文件类型是 _____a) .frm b) .cls c) .batd) .vbp17、以下程序段的运行结果是___ ____。
Private Sub Form_Click()m = 1n = 1Dom = m * nn = n + 1Loop Until n > 4Print mEnd SubA. 25B. 45C. 55D. 2418、如果有声明Dim a(5) As Integer，则该数组共占用______个字节内存。
6a) 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，执行VisualBasic语句，利用字符串函数对该数进行处理，如果输出的内容不是字符END，则程序输出的内容是 ( )nu=InputBox("nu=")n＄=Str＄(nu)p=InStr(n＄,".")If p>0 ThenPrint Mid＄(n＄,p)Else7Print "END"End IfA．用字符方式输出数据nuB．输出数据的整数部分C．输出数据的小数部分+小数点（包括小数点）D．只去掉数据中的小数点，保留所有数字输出22、Visual Basic中如果在立即窗口中执行以下操作，则输出的结果是( )m = 123: n = 145p = Len(Str＄(m) + Str＄(n))Print pA．2 B．4 C．5D．823、执行如下程序段时，从键盘输入-5，输出的结果是_______。
x=-5s=Val(InputBox("请输入s的值:"))8Select Case sCase Is>0y=x+1Case Is=0y=x+2Case Elsey=x+3End SelectPrint x;yA. -5 -2B. -5 -4C. -5 -3D. -5 -524、执行下面Visual Basic程序，最后输出s是（）Dim a As Integer, i As IntegerDim b As Integer, j As IntegerDim s As Integera = 5b = 10s = 09For i = 1 To ab = 5For j = 1 To bs = s + bb = b - 1Next jNext iPrint sA. 15B. 30C. 45D. 7525、以下说法不正确的是（）A．使用ReDim语句可以改变数组的维数B．使用ReDim语句可以改变数组的类型C．使用ReDim语句可以改变数组每一维的大小D．使用ReDim语句可以对数组中的所有元素进行初始化二、判断题（每题1分，共8分）1. VB中，变量按其作用范围来说可以分为全局变量、模块级变量和局部变量三种类型（）102. Erase语句可以释放内存中常规数组所占的空间。
（）3. 静态局部变量是在过程中用Static语句声明的。
（）4. 变体型变量的数据类型是由赋给它值的数据类型决定。
设A的类型为变体型，执行A="True"后则A的类型为逻辑型。
（）5. Dim X As Boolean, YX = 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=0Do While k<=10k=k+1Loop4、函数Len("Hello!"+Space(2)+Mid("Shanghai",5, 3))的值是_______。
5、下列程序的执行结果为______。
A="1"B="2"A=Val(A)+Val(B)B=Val("12")If A<>B Then Print A-B Else Print B-A 6、数学表达式Cos2 (a+b)+5e2+lg3相对的VB 表达式是________________五、读程序，写结果（每题5分，共20分）1、Private Sub Command1_Click()a = 0: s = 0For i = 1 To 2For j = 1 To 4If j Mod 2 <> 0 Thena = a + 1End Ifa = a + 1s = s + 1Next jNext iPrint "a="; a, "s="; sEnd Sub2、Option Base 1Dim a()As IntegerPrivate Sub Form_Click()Dim i As Integer，j As IntegerReDim a(2，2)For i=1 To 2For j=l To 2a(I,j)=i*2+jPrint “a(”；i；“，”；j；“)=”；a(i,j)； Next jPrintNext iEnd Sub3、Private Sub form_click()Dim a(3, 3) As Integer, I As Integer Dim j As Integer, k As Integer, n As Integern = 9For k = 5 To 1 Step -1If k >= 3 ThenFor I = 1 To 6 - ka(k - 3 + I, I) = nn = n - 1Next IElseFor I = 1 To ka(k - I + 1, 3 - I + 1) = n n = n - 1Next IEnd IfNext kFor k = 1 To 3For I = 1 To 3Print a(k, I);Next IPrintNext kEnd Sub4. Private Sub Form_Click()Dim x() As Stringa = " How are you!"n = Len(a)ReDim x(1 To n)For i = n To 1 Step -1x(i) = Mid(a, i, 1)Next IFor i = 1 To nPrint x(i);Next iEnd Sub六．程序改错。