《九江学院vb期末考试题目及详细答案》由会员分享，可在线阅读，更多相关《九江学院vb期末考试题目及详细答案（10页珍藏版）》请在金锄头文库上搜索。
1、九江学院期末考试复习题（政法 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
2、、关于数组的引用,在程序中,凡是简单变量可以出现的地方都可以出现数组元素的引用 ()二、单项选择题1Print 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 事件【答案】A4Timer 控件可以使用下列哪种事件A）Click 事件 B）Timer 事件 C）Dblclick 事件 D）Change 事件【答案】B5在 InputBox 函数中哪一个参
3、数是必须的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 语
4、句(C) 如果没有 Else 语句，运行时将出现错误(D ) 给定的条件只能是关系表达式或逻辑表达式【答案】B9以下 Case 语句中错误的是(A) Case 10 To 1 (B) Case Is10 (C)Case Is10 , Is10【答案】A10对 Do UntilLoop 循环，正确的是 ( )。A如果循环条件为常数 0，则一次循环也不执行B如果循环条件为常数 0，则至少执行一次循环C如果循环条件是不为 0 的常数，则至少执行一次循环D无论循环条件是否为True ，则至少执行一次循环【答案】B11语句 Dim arr(-3 To 5, 2 To 6) As Integer 定义的数
5、组元素有_ 个。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 中。确定第二个字符串在第一个字符串中起始
6、位置的函数是（D ）A Left B MidC String D Instr15、如果将布尔常量值 True 赋值给一个整型变量，则整型变量的值为（B）A 0 B -1C True D false16、下列符号常量的声明中，（ C）是不合法的。A Const a As Single = 1.1 B 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 位
7、小数的表达式是（C）A Int(k+0.5)*100)/100 B Int(k*100)/100)+0.5C Int(k*100+0.5)/100 D Int(k*(100+0.5)/100”19、30将数学表达式 Cos2(a+b)+5e2 写成 Visual Basic 的表达式，其正确的形式是（A）A) Cos(a+b)2+5*exp(2) B) Cos2(a+b)+5*exp(2)C) Cos(a+b)2+5*ln(2) D) Cos2(a+b)+5*ln(2)20、在顺序文件中，当使用 Write#语句时，文件打开的方式必须是（B）A Output 和 Input B Output
8、和 AppendC Output D Append三、程序分析题1以下语句的输出结果是（注：表示一个空格）a = 123b = 456Print a; bA）123456 B）123456 C）123456 D）123456【答案】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 *
9、 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 + zLabe
10、l1.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 = 3 Call Proc(x, y)Label1.Caption = xLabel2.Cap
11、tion = 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 xy Then Max=x Else Max=y （B） Max=IIf(xy,x,y)（C）If y=x Then Max=y Max=x (D)If yx Then Max=y Max=x【答案】D7如果 x 的值大于或等于 y
12、 的立方，则打印“OK”，表示这个条件的单行格式的 If 语句是A）If x=y3 Print “OK” B）If x=y*y*y Then “OK”C）If x=y3 Then Print “OK” D）If x=y*y*y Then Print “OK” End If【答案】C8下列程序段执行结果为 x = 5y = -6If Not x =1 f=sqr(x+1 )Case x=1 f=sqr(x+1 )Case Is=1 then f=sqr(x+1 ) else f= x2+3【答案】B10执行完下面的程序段后，循环执行了 ( )次。For i = 1.7 To 5.9 Step 0
13、.9a = a + 1Print aNext IA3 B4 C5 D6【答案】C11下列程序段的执行结果为 ( )。n = 0j = 1Do Until n 2n = n + 1j = j + n * (n + 1)LoopPrint n; jA0 1 B3 7 C3 21 D3 13【答案】C12以下正确的 ForNext 结构是 （A） For x=1 To 10for y=1 to 10Next （B） For x=1 To 10for y=1 to 10Next y , x（C）For x=1 To 10for y=1 to 10Next x Next y（D）For x=1 To 1
14、0for y=1 to 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 D7【答案】A14下列语句中，a 是一个数组，则使用正确的是_A) Option Base 2B) Redim aC) Erase aD) a = Array()【答案】C15.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim
