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

1、九江学院VB期末考试题目及详细答案九江学院期末考试复习题（政法 A1111）第一套一、判断题1、Visual Basic程序开发的特点是面向对象的事件驱动。（“ 2、Print_Text 是一个不合法的变量名。（为3、窗体的AutoRedraw属性实现了屏幕图像的重 建。（“4、 设置字体大小应使用Font属性（为5、 Sub过程可以实现嵌套调用（“6、 IIF函数中的三个参数都不能省略。（坊7、 块结构条件语句以End If结束，而单行结构条件语句没有 End IR （“ 8当终值小于初值时，步长为负数。（“9、 执行 While-Wend 循环时，如果一开始条件就不成立，则语句块一次也 不

2、会执行。（坊10、 关于数组的引用 ,在程序中 ,凡是简单变量可以出现的地方都可以出现数 组元素的引用（“）二、单项选择题1Print Format（123， ” # ”执行之后的结果为A 123B 123C 123D 【答案】 B2下面可以表示注释语句开头的为A Re B R C Rem D dim【答案】 C3下列选项中窗体载入事件为A)Load 事件 B) Click 事件 C) DbICIick 事件 D) Un load 事件【答案】 A4Timer 控件可以使用下列哪种事件A)Click事件 B) Timer 事件 C) DblcIick 事件 D) Change事件【答案】 B5

3、在 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 )可以有任意多个Els

4、elf-Then语句(C)如果没有Else语句，运行时将出现错误(D )给定的条件只能是关系表达式或逻辑表达式【答案】 B9.以下Case语句中错误的是(A)Case 10 To 1(B)Case Is10(C)Case Is10 , Is10【答案】 A10.对 Do UntilLo循p环，正确的是 ()A.如果循环条件为常数0,则一次循环也不执行B.如果循环条件为常数0,则至少执行一次循环C.如果循环条件是不为0的常数，则至少执行一次循环D.无论循环条件是否为True，则至少执行一次循环答案】 B11 .语句Dim arr(-3 To 5, 2 To 6) As Intege定义的数组元素

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

6、( D)A Left B MidC String D Instr15、 如果将布尔常量值True赋值给一个整型变量，则整型变量的值为( B) A 0B -1C True D false16、 下列符号常量的声明中，(C)是不合法的。A Const a As Single = 1.1B Const a As Integer = “ 12” C Const a As DouSin(1)D Const a = ” OK”17、 四个字符“ E”，“ y ”，的“A”CI码值最大的是(B)A “ E” B “ y”C “ B” D “ 8 ”18、 将变量 k 四舍五入保留 2 位小数的表达式是( C

7、)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)A2+5*exp (2)B) CosA2(a+b)+5*exp(2)C) Cos(a+b)A2+5*l n( 2)D) CosA2(a+b)+5*l n(2)20、 在顺序文件中，当使用 Write#语句时，文件打开的方式必须是(B) A Output 和 Input B Output 和

8、AppendC Output D Append三、程序分析题1 .以下语句的输出结果是(注： 表示一个空格)a = 123b = 456Print a; bA)123 456B) 123 456C) 123 456 D) 123 456【答案】 D2.下列程序执行的结果为x = -6 A 2Print Sgn(x) + Abs(x) + Int(x)A)36B) 1C)1D)72【答案】 C3.在窗体上画一个名称为 Command1 的命令按钮，一个名称为 Label1 的 标签，然后编写如下的事件过程：Private Sub Command1_Click()For i = 0 To 15X

9、= 2 * i - 1If X Mod 3 = 0 Then s = s + 1Next iLabel1.Caption = sEnd Sub 程序运行后，单击命令按钮，则标签中显示的内容为A)1B)5C)27D)45Label1、【答案】 B4在窗体上画一个名称为 Command1 的命令按钮，一个名称为Label2、Label3的标签，然后编写如下的事件过程：Private x As IntegerPrivate Sub Command1_Click()Static y As IntegerDim z As Integern = 10z = n + zy = y + zx = x + zL

10、abel1.Caption = xLabel2.Caption = yLabel3.Caption = zEnd Sub运行程序后，连续三次单击命令按钮后，则三个标签中显示的内容分别是A)101010B)303030C)303010D)1030【答案】 C5在窗体上画一个名称为 Command1 的命令按钮，一个名称为 Label1、Label2的标签，然后编写如下的事件过程：Private x As IntegerPrivate Sub Command1_Click()x = 5: y = 3Call Proc(x, y)Label1.Caption = xLabel2.Caption =

11、yEnd SubPrivate Sub Proc(ByVal a As Integer, ByVal b As Integer)x = a * ay = b + bEnd Sub运行程序后，则两个标签中显示的内容分别是A) 5 禾口 3B) 25 禾口 30 25 禾口 6D) 5 禾口 6【答案】 B6.下面程序段求两个数中的大数，不正确的是(A)If x y Then Max=x Else Max=y(B)Max=llf(xy,x,y)( C) If y =x Then Max=yMax=x(D)lf yx Then Max=yMax=x【答案】 D7. 如果x的值大于或等于y的立方，则打

12、印“OK表示这个条件的单行格 式的 lf 语句是A) If x=yA3Print “ OKB) lf x=y*y*y Then “OK”C) lf x=yA3Then Print “ OK”D) lf x=y*y*y Then Print “ OK”End lf【答案】 C8.下列程序段执行结果为x = 5y = -6lf Not x =1, f(x)二；当 XV 1, f(x)= x2+3(A)Select Case xCase Is=1f=sqr(x+1 )Case x=1f=sqr(x+1 )Case Is=1 then f=sqr(x+1 ) else f= xA2+3 【答案】 B

13、10执行完下面的程序段后，循环执行了 (For i = 1.7 To 5.9 Step 0.9a = a + 1Print aNext IA 3 B4 C 5 D6【答案】 C11下列程序段的执行结果为 ()。n = 0 j = 1Do Until n 2 n = n + 1 j = j + n * (n + 1) LoopPrint n; jA. 01 B. 37 C. 321 D. 313)次。【答案】C12.以下正确的ForNe结构是（A） For x=1 To 10for y=1to 10Next（B） For x=1 To 10for y=1to 10Next y , x（C） Fo

14、r x=1 To 10for y=1to 10Next xNext y（D） For x=1 To 10for y=1to 10Next 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 SumA10 B20 C5 D 7【答案】 A14下列语句中， a 是一个数组，则使用正确的是 A)Option Base 2B)Redim aC)Erase

15、 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 4 array1(i, j) = i + j next j next iText1.Text = arrry1(2, 3) + array(3, 4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是 A

16、) 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 3for j = 1 To 3a (i, j) = (i -) * 3 + jPrint a(i, j );next jPrintnext iEnd Sub程序运行后，单击命令按钮，窗体上显示的是 A)1 2 324 636 9B)2 3 43 4 545 6C)1 4 725

17、 836 9D)1 2 345 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 1B) 5 4 3 2C) 6 5 4 3D) 7 6 5 4 【答案】 C18.执行以下Command1的Click事件过程在窗体上显示 cPrivate Sub Command1_Click()Dim aa

18、= Array( “ a” , ” b” , ” c” , ” d” , ” e” , ” f, ” , ” g”)Print a(1); a(3); a(5)End SubA) a b c B) b d f C) a c e 出错【答案】 B19、设有语句Openc:Test.DatFor Output As#1 则以下错误的叙述是( B)A)该语句打开C盘根目录下一个已存在的文件 Test.DatB)该语句在C盘根目录下建立一个名为Test.Dat的文件C) 该语句建立的文件的文件号为1D)执行该语句后，就可以通过 Print#语句向文件Test.Dat中写入信息20、 以下代码完成对顺序

19、文件 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年请编写一个程序计算本 利合计。(A、P、T均使用Inputbox输入)2.求100以内的素数，素数是指一个数 x除了 1和它本身，不能被其他任 何整数整除。要求每行输出 10 个素数。单击窗体，运行结果如图所示：答案在单击窗体的事件过程

20、中添加代码，程序代码如下：Private Sub Form_click()Const N = 100Dim i, j, Line, a(N) As IntegerFor i = 0 To N - l 置初值a(i) = iNext iFor i = 2 To Sqr(N)For j = i + 1 To NIf a(i) 0 And a(j) 0 ThenIf a(j) Mod a(i) = 0 Then a(j) = 0能 整除就赋 0End IfNext jNext iPrint 显示出 100 以内的素数 For i = 2 To N - 1If a(i) 0 ThenPrint a(i); Spc(1);Line = Line + 1End IfIf Li ne 0 And Li ne Mod 10 = 0 The n Prin每行显示 10 个数Next iEnd Sub评分标准：1 、正确给数组赋值( 2 分)2、 正确判断素数( 3 分)3、 正确输出显示结果( 2 分)4、 文件存盘( 2 分)