西南科技大学VB考试

第一套一、判断题1、Visual Basic程序开发的特点是面向对象的事件驱动。

（√）2、Print_Text是一个不合法的变量名。

（×）3、窗体的AutoRedraw属性实现了屏幕图像的重建。

（√）4、设置字体大小应使用Font属性（×）5、Sub过程可以实现嵌套调用（√）6、IIF函数中的三个参数都不能省略。

（√）7、块结构条件语句以End If结束，而单行结构条件语句没有End IF。

（√）8、当终值小于初值时，步长为负数。

（√）9、执行While-Wend循环时，如果一开始条件就不成立，则语句块一次也不会执行。

（√）10、关于数组的引用,在程序中,凡是简单变量可以出现的地方都可以出现数组元素的引用(√)二、单项选择题1．Print Format（123，”####”）执行之后的结果为A）＃123 B）123 C）123＃D）＃＃＃＃【答案】B2．下面可以表示注释语句开头的为A）Re B）R C）Rem D）dim【答案】C3．下列选项中窗体载入事件为A）Load事件B）Click事件C）DblClick事件D）Unload事件【答案】A4．Timer控件可以使用下列哪种事件A）Click事件B）Timer事件C）Dblclick事件D）Change事件【答案】B5．在InputBox函数中哪一个参数是必须的A）Prompt B）Buttons C）Title D）Context【答案】A6．以下叙述中错误的是：A）如果过程被定义为Static类型，则该过程中的局部变量都是Static类型B）Sub过程中不能嵌套定义Sub过程C）Sub过程可以嵌套调用Sub过程D）事件过程可以像通用过程一样由用户定义过程名【答案】C7．要填加一个标准模块，可使用“_____”菜单中的“添加模块”命令。

A）文件B）视图C）工程D）工具【答案】 C8．在块结构条件语句If-Then / Endif中(A) 必须至少有一个Elseif语句(B ) 可以有任意多个ElseIf-Then语句(C) 如果没有Else语句，运行时将出现错误(D ) 给定的条件只能是关系表达式或逻辑表达式【答案】B9．以下Case语句中错误的是(A) Case 10 To 1(B) Case Is>10(C)Case Is>10 , Is<50(D) Case 3,5,Is>10【答案】A10．对Do Until…Loop循环，正确的是( )。

A．如果循环条件为常数0，则一次循环也不执行B．如果循环条件为常数0，则至少执行一次循环C．如果循环条件是不为0的常数，则至少执行一次循环D．无论循环条件是否为"True"，则至少执行一次循环【答案】B11．语句Dim arr(-3 To 5, 2 To 6) As Integer定义的数组元素有_______个。

A) 45 B) 40 C) 11 D) 54【答案】A12．下列关于Option Base语句说法错误的是______DA) Option Base语句只能出现在窗体层或模块层B) Option Base语句不能出现在过程中C) Option Base语句必须位于数组的定义之前D) Option Base语句只对一维数组有效【答案】D13、Visual Basic的特点不包括下面的（A）A 不需编程B 面向豆象的程序设计C 可视化程序设计D 时间驱动的程序设计14、从键盘上能够输入两个字符串，分别保存在变量str1、str2中。

确定第二个字符串在第一个字符串中起始位置的函数是（D）A LeftB MidC StringD Instr15、如果将布尔常量值True赋值给一个整型变量，则整型变量的值为（B）A 0B -1C TrueD false16、下列符号常量的声明中，（C）是不合法的。

A Const a As Single = 1.1B Const a As Integer = “12”C Const a As Double = Sin(1)D Const a =”OK”17、四个字符“E”,“y”,“B”,“8”的ASCII码值最大的是（B）A “E”B “y”C “B”D “8”18、将变量k四舍五入保留2位小数的表达式是（C）A Int((k+0.5)*100)/100B Int((k*100)/100)+0.5C Int(k*100+0.5)/100D Int(k*(100+0.5))/100”19、30．将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是（A）A) Cos(a+b)^2+5*exp(2) B) Cos^2(a+b)+5*exp(2)C) Cos(a+b)^2+5*ln(2) D) Cos^2(a+b)+5*ln(2)20、在顺序文件中，当使用Write#语句时，文件打开的方式必须是（B）A Output和InputB Output和AppendC OutputD Append三、程序分析题1．以下语句的输出结果是（注：■表示一个空格）a = 123b = 456Print a; bA）123■456 B）■123■456 C）■123■456■D）■123■■456【答案】D2．下列程序执行的结果为x = -6 ^ 2Print Sgn(x) + Abs(x) + Int(x)A）－36 B）1 C）－1 D）－72【答案】C3．在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下的事件过程：Private Sub Command1_Click()s = 0For i = 0 To 15X = 2 * i - 1If X Mod 3 = 0 Then s = s + 1Next iLabel1.Caption = sEnd Sub程序运行后，单击命令按钮，则标签中显示的内容为A）1 B）5 C）27 D）45【答案】B4．在窗体上画一个名称为Command1的命令按钮，一个名称为Label1、Label2、Label3的标签，然后编写如下的事件过程：Private x As IntegerPrivate Sub Command1_Click()Static y As IntegerDim z As Integern = 10z = n + zy = y + zx = x + zLabel1.Caption = xLabel2.Caption = yLabel3.Caption = zEnd Sub运行程序后，连续三次单击命令按钮后，则三个标签中显示的内容分别是A）10 10 10 B）30 30 30 C）30 30 10 D）10 30【答案】C5．在窗体上画一个名称为Command1的命令按钮，一个名称为Label1、Label2的标签，然后编写如下的事件过程：Private x As IntegerPrivate Sub Command1_Click()x = 5: y = 3Call Proc(x, y)Label1.Caption = xLabel2.Caption = yEnd SubPrivate Sub Proc(ByVal a As Integer, ByVal b As Integer)x = a * ay = b + bEnd Sub运行程序后，则两个标签中显示的内容分别是A）5和3 B）25和3 C）25和6 D）5和6【答案】B6.下面程序段求两个数中的大数，不正确的是（A）If x＞y Then Max=x Else Max=y（B）Max=IIf(x＞y,x,y)（C）If y＞=x Then Max=yMax=x(D)If y＞x Then Max=yMax=x【答案】D7．如果x的值大于或等于y的立方，则打印“OK”，表示这个条件的单行格式的If语句是A）If x>=y^3 Print “OK”B）If x>=y*y*y Then “OK”C）If x>=y^3 Then Print “OK”D）If x>=y*y*y Then Print “OK”End If【答案】C8．下列程序段执行结果为x = 5y = -6If Not x < 0 Then x = y - 3 Else y = x + 3Print y - x; x - yA) 3－3B) －9 5C) －3 3D) 5－6【答案】A9．已知x的值，计算分段函数f(x)，下面选项不正确的是当x＞=1，f(x)=1x；当x＜1 ，f(x)= x2+3(A) Select Case xCase Is<1f= x^2+3Case elsef=sqr(x+1 )End Select(B) Select Case xCase x>=1f=sqr(x+1 )Case x<1f= x^2+3End Select(C ) Select Case xCase Is>=1f=sqr(x+1 )Case Is<1f= x^2+3End Select(D) IF x>=1 then f=sqr(x+1 ) else f= x^2+3【答案】B10．执行完下面的程序段后，循环执行了( )次。

For i = 1.7 To 5.9 Step 0.9a = a + 1Print aNext IA．3 B．4 C．5 D．6【答案】C11．下列程序段的执行结果为( )。

n = 0j = 1Do Until n > 2n = n + 1j = j + n * (n + 1)LoopPrint n; jA．0 1 B．3 7 C．3 21 D．3 13【答案】C12．以下正确的For…Next结构是（A） For x=1 To 10for y=1 to 10…Next（B）For x=1 To 10for y=1 to 10…Next y , x（C）For x=1 To 10for y=1 to 10Next xNext y（D）For x=1 To 10for y=1 to 10…Next x , y【答案】B13．下列程序中，第一个Do语句共执行了( )次循环。

Dim i As Integer, j As Integeri = 1Doj = 1DoSum = Sum + jj = j + 2Print j;Loop Until j > 3i = i + 2Loop Until i > 10Print SumA．10 B．20 C．5 D．7【答案】A14．下列语句中，a是一个数组，则使用正确的是______A) Option Base 2B) Redim aC) Erase aD) a = Array()【答案】C15.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim array1(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3for j = 2 To 4array1(i, j) = i + jnext jnext iText1.Text = arrry1(2, 3) + array(3, 4)E nd Sub程序运行后，单击命令按钮，在文本框中显示的值是______A) 12 B) 13 C) 14 D) 15【答案】A16.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a (10,10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3for j = 1 To 3a (i, j) = (i – 1) * 3 + jPrint a(i, j );next jPrintn ext iE nd Sub程序运行后，单击命令按钮，窗体上显示的是______A) 1 2 32 4 63 6 9B) 2 3 43 4 54 5 6C) 1 4 72 5 83 6 9D) 1 2 34 5 67 8 9【答案】D17.设有如下程序：Option Base 0Private Sub Form_Click()Dim aDim i As Integera = Array(1,2,3,4,5,6,7,8,9)For i = 0 To 3Print a(5 – i);NextEnd Sub程序运行后，单击窗体，则在窗体上显示的是______A) 4 3 2 1 B) 5 4 3 2 C) 6 5 4 3 D) 7 6 5 4【答案】C18．执行以下Command1的Click事件过程在窗体上显示_______。