九江学院VB期末考试题目及详细答案

九江学院期末考试复习题（政法A1111）第一套、判断题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) ＃123B)123C)123＃D)＃＃＃＃答案】B2. 下面可以表示注释语句开头的为A) Re B)R C)Rem D)dim答案】C3. 下列选项中窗体载入事件为A) Load 事件B) Click 事件C) DbICIick 事件D) Un load 事件答案】A4．Timer 控件可以使用下列哪种事件A) Click事件B) Timer 事件C) DbIcIick 事件D) Change事件答案】B5．在InputBox 函数中哪一个参数是必须的A) Prompt B) Buttons C) TitIe 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 )可以有任意多个Elself-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 Un til …Lo循环,正确的是()。

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

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

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

12”C Const a As DouA Const a As Single = 1.1B Const a As Integer = Const a = ”OK”17、四个字符“ E”，“ y ”，的“ASC I码值最大的是（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+bF2+5*ex p( 2)B) Cos八2(a+b)+5*ex p(2)C) Cos(a+bF2+5*l n( 2)D) Cos八2(a+b)+5*l n(2)20、在顺序文件中，当使用Write#语句时，文件打开的方式必须是（B）A Output 和Input B Output 和AppendC OutputD Append三、程序分析题1 .以下语句的输出结果是（注：■表示一个空格）a = 123b = 456Print a; bA) 123・456B) ■ 123・456C) ■ 123・456・D) ■ 123・・456答案】D2．下列程序执行的结果为x = -6 八 2Print Sgn(x) + Abs(x) + Int(x)A)－36B) 1C)－1D)－72答案】C3．在窗体上画一个名称为Command1 的命令按钮，一个名称为Label1 的标签，然后编写如下的事件过程：Private Sub Command1_Click()For i = 0 To 15If X Mod 3 = 0 Then s = s + 1Next iLabel1.Caption = sEnd Sub程序运行后，单击命令按钮，则标签中显示的内容为A)1B)5C)27D)45答案】B4．在窗体上画一个名称为Command1 的命令按钮，一个名称为Label1、Label2、Label3的标签，然后编写如下的事件过程：Private x As IntegerPrivate Sub Command1_Click()Static y As IntegerDim z As Integern = 10Label1.Caption = xLabel2.Caption = yLabel3.Caption = zEnd Sub运行程序后，连续三次单击命令按钮后，则三个标签中显示的内容分别是A) 101010B) 303030C) 303010D) 1030答案】C5.在窗体上画一个名称为Comma nd1的命令按钮，一个名称为Labell、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)End Sub运行程序后，则两个标签中显示的内容分别是A) 5 禾n 3B) 25 禾n 30 25 禾口6D) 5 禾口6答案】B6.下面程序段求两个数中的大数，不正确的是(A) If x> y Then Max=x Else Max=y (B) Max=llf(x>y,x,y)C) If y> =x Then Max=yMax=x(D)lf y>x Then Max=yMax=x答案】D7.如果x的值大于或等于y的立方，则打印“OK表示这个条件的单行格式的If 语句是A) If x>=y八3 Print OK”B) lf x>=y*y*y Then OK”C) If x>=y八3Then Print OK”D) If x>=y*y*y Then Print OK”End If答案】C8．下列程序段执行结果为y = -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)=；当X V 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.9Print aNext IA．3 B．4 C．5 D．6答案】C1 1 ．下列程序段的执行结果为()。

Do Until n > 2j = j + n * (n + 1)LoopPrint n; jA．01 B．37 C．321 D．3 1 3)次。

【答案】C12 .以下正确的For…Ne）结构是A) For x=1 To 10for y=1to 10NextB) For x=1 To 10for y=1to 10Next y , xC) For x=1 To 10for y=1to 10Next xNext yD) For x=1 To 10for y=1to 10Next x , y答案】B13 .下列程序中，第一个Do语句共执行了（）次循环。

Dim i As Integer, j As IntegerDoDoSum = Sum + jPrint j;Loop Until j > 3Loop Until i > 10Print SumA ．10B ．20C ．5D ． 7答案】 AA) Option Base 2B) Redim aC) Erase aD) a = Array()答案】 CPrivate Sub Command1_Click()Dim array1(10, 10) As IntegerDim i As Integer, j As Integer14．下列语句中， a 是一个数组， 则使用正确的是15. 在窗体上画一个名称为 Text1 按钮，然后编写如下事件过程： 的文本框和一个名称为Command1 的命令For i = 1 To 3 for j = 2 To 4 array1(i, j) = i + j next j next iText1.Text = arrry1(2, 3) + array(3, 4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是A) 12B) 13C) 14D) 15答案】A16. 在窗体上画一个名称为Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a (10,10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3 for j = 1 To 3 a (i, j) = (i -) * 3 + jPrint a(i, j );next jPrint next iEnd Sub程序运行后，单击命令按钮，窗体上显示的是A)1 2 3B) 2 3 4C) 1 4 7D) 1 2 3答案】D17. 设有如下程序：Option Base 0Private Sub Form_Click()Dim aDim i As Integer a = Array(1,2,3,4,5,6,7,8,9)For i = 0 To 3Print a(5 -i);NextEnd Sub程序运行后，单击窗体，则在窗体上显示的是A) 4 3 2 1B) 5 4 3 2C) 6 5 4 3D) 7 6 5 4答案】 C18 .执行以下Command1的Click 事件过程在窗体上显示 Private Sub Command1_Click()Dim aa = Array( “ a ” , ”b ” , ”c ” , ”d ” , ”e ”Print a(1); a(3); a(5)End SubA) a b c B) b d f C) a c e 出错答案】 B19 、设有语句Open"c:\Test.Dat"For Output As#1则以下错误的叙述是( B )该语句在C 盘根目录下建立一个名为Test.Dat 的文件A ) 该语句打开C 盘根目录下一个已存在的文件Test.Dat C ) 该语句建立的文件的文件号为 1” r ” ” ” ”f, ”, ”g ” B )D）执行该语句后，就可以通过Print#语句向文件Test.Dat中写入信息20、以下代码完成对顺序文件test1.txt 追加打开的是（C）A）Open test1.txt For Input As #1B）Open test1.txt For Output As #1C）Open test1.txt For Append As #1D）Open test1.txt For Redom As #1四、上机题1.小王有存款A元，年利率为P,存储时间为T年.请编写一个程序计算本利合计。