1、VB 笔试模拟试卷 206及答案与解析 1 有以下程序： Sub subP(b()As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4)As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 subPa() For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击命令按钮，输出结果为 ( ) （ A） 2 4 6 8 （ B） 5 6 7 8 （ C） 10 12 14 16 （ D）出错 2 下列程序段
2、的执行结果为 ( )。 I=4 x=5 Do I=I+1 x=x+2 Loop Until I =7 Print“I=“;I Print“x=“;x （ A） I=4 x=5 （ B） I=7 x=15 （ C） I=6 x=8 （ D） I=7 x=11 3 设在窗体上有一个名称为 Command1的命令按钮，并有以下事件过程： Private Sub Command1_Click() Static b As Variant b=Array(1,3,5,7,9) End Sub 此过程的功能是把数组 b中的 5个数逆序存放 (即排列为 9， 7， 5， 3， 1)。为实现此功能，省略号处的程
3、序段应该是 ( )。 （ A） For i=0 To 5-12 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next （ B） For i=0 To 5 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next （ C） For i=0 To 52 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next （ D） For i=1 To 52 tmp=b(i) b(i) b(5-i-1) b(5-i-1)=tmp Next 4 下面的数组声明语句中 ( )是正确的。 （ A） Dim A3,4As Integer （
4、B） Dim A(3,4)As Integer （ C） Dim A3;4As Integer （ D） Dim A3;4As Integer 5 从键盘上输入一个实数 nu，利用字符串函数对该数进行处理，如果输出的内容不是字符 End， 则程序输出的内容是 ( )。 nu=InputBox(“nu=“) n$=Str$(nu) p=InStr(n$， “.“) if p 0 Then Print Mid$(n$,P) Else Print“END“ End If （ A）用字符方式输出数据 nu （ B）输出数据的整数部分 （ C）输出数据的小数部分 （ D）只去掉数据中的小数点，保留所有数
5、字输出 6 在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Integer,s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a =0 print s,a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是 ( )。 （ A） 7 9 （ B） 34 0 （ C） 9 7 （ D）死循环 7 单击命令按钮时 ，下列程序代码的执行结果为 ( )。 Private Function FirProc(x As Integer,y As Inte
6、ger,z As Integer) FirProc=2*x+y+3*z End Funcfion Private Function SecProc(x As Integer,y As Integer,z As Integer) SecProc=FirProc(z， x， y)+x End Funcfion Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer a=2 b=3 c=4 Printf SecProc(c,b,a) End Sub （ A） 21 （ B） 19 （ C） 17
7、（ D） 34 8 在窗体上画一个名称为 Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim x As Integer Static y As Integer Cls x=x+5 y=y+3 Print x,y End Sub 程序运行时，两次单击命令按钮 Command1后，窗体显示的结果是 ( )。 （ A） 10 6 （ B） 5 6 （ C） 5 3 （ D） 10 3 9 编写如下事件过程： Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As
8、 Single,Y As Single) If Shift=6 and Button then Print“Hello“ End if End Sub 程序运行后，为了在窗体上输出 “Hello”，应在窗体上执行以下 ( )操作 （ A）同时按下 Shift键和鼠标左键 （ B）同时按下 Shift键和鼠标右键 （ C）同时按下 Ctrl、 Alt和鼠标左键 （ D）同时按下 Ctrl、 Alt和鼠标右键 10 下列程序段的执行结果为 ( )。 ForX=5 To 1 Step-1 For Y=1 To 6-X Print Tab (Y+5)； “*“ Next Y Print Next X
9、（ A） * * * * * （ B） * * * * * （ C） * * * * * （ D） * * * * * 11 当条件为 5 x 10时，则 x=x+1，则以下语句正确的是 ( )。 （ A） if 5 x 10 Then x=x+l （ B） if 5 x or x 10 Then x=x+1 （ C） if 5 x and x 10 Then x=x+1 （ D） if 5 x or x 10 Then x=x+1 12 执行以下程序段后， x的值为 ( )。 Dim x As Integer,i As Integer x=0 For i=20 To 0 Step -2 x=
10、x+i5 Next i （ A） 16 （ B） 17 （ C） 18 （ D） 19 13 下列程序段的执行结果为 ( )。 A=“HELLOGOODMORNING“ B=“WANGCHANGLI“ C=Left(A,5)+“!“ D=Right(A,7) E=Mid(A,6,4) F=Mid(B,Len(B)-6,5)+“!“ G=E+“ “+D+“!“ H=C+“ “+F Print H+“ “+G （ A） HELLO!CHANG!GOOD MORNING! （ B） HELLO!WANG!G00D MORNING! （ C） HELLO!LI!GOOD MORNING! （ D） H
11、ELLO!CHANG!GOOD!MORNING! 14 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() A=“12“ B=“34“ C=“56“ Print A+B+C End Sub 程序运行后，单击命令按钮，输出结果是 ( )。 （ A） “123456“ （ B） 123456 （ C） 102 （ D）显示出错信息 15 Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（ ）。 （ A）属性、控件和方法 （ B）属性、事件和方法 （ C）窗体、控件和过程 （ D）控件、过程和模块 16 下列数据结构中，能
12、用二分法进行查找的是（ ）。 （ A）顺序存储的有序线性表 （ B）线性链表 （ C）二叉链表 （ D）有序线性链表 17 下面四个选项，不是窗体属性的是（ ）。 （ A） MinButton （ B） MaxButton （ C） Caption （ D） Load 18 在 Visual Basic环境下，当写一个新的 Visual Basic程序时，所做的第一件事是（ ）。 （ A）编写代码 （ B）新建一个工程 （ C）打开属性窗 （ D）进入 Visual Basic环境 19 下列可以打开立即窗口的操作是（ ）。 （ A） Ctrl+D （ B） Ctrl+E （ C） Ctrl+
13、F （ D） Ctrl+G 20 如果 Form1是启动窗体，并且 Form1的 Load事件过程中有 Form2.Show，则程序启动后（ ）。 （ A）发生一个运行时错误 （ B）发生一个编译时错误 （ C）在所有的初始化代码运行后 Form1是活动窗体 （ D）在所有的初始化代码运行后 Form2是活动窗体 21 与 Form1.Show方法效果相同的是（ ）。 （ A） Form1.Visible=True （ B） Form1.Visible=False （ C） Visible.Form1=True （ D） Visible.Form1=False 22 窗体的 Enable属性的
14、值是（ ）类型的数据。 （ A）整型 （ B）字符型 （ C）逻辑型 （ D）实型 23 关于 MDI窗体下列说法正确的是（ ）。 （ A）一个应用程序可以有多个 MDI窗体 （ B）子窗体可以移到 MDI窗体以外 （ C）不可以在 MDI窗体上放置按钮控件 （ D） MDI窗体的子窗体不可以拥有菜单 24 假定在窗体上建立一个通用对话框，其名称为 CommonDialog1，用下面的语句可以建立一个对话框： CommonDialog1.Action=4与该语句等价的语句是（ ）。 （ A） CommonDialog1.ShowOpen （ B） CommonDialog1.ShowFont
15、（ C） CommonDialog1.ShowColor （ D） CommonDialog1.ShowSave 25 在设计应用程序时，通过（ ）窗口可以查看到应用程序工程中的所有组成部分。 （ A）代码 窗口 （ B）窗体设计窗口 （ C）属性窗口 （ D）工程资源管理器窗口 26 鼠标移动经过控件时，将触发控件的（ ）事件。 （ A） MouseDown （ B） MouseUp （ C） MouseMove （ D） Click 27 当窗体启动时可通过（ ）属性控制窗体位于所有者的中心位置。 （ A） MDIChild （ B） LinkMode （ C） WindowState （
16、 D） StartUpPosition 28 在 Visual Basic中语句的续行符采用（ ）。 （ A）空格与短线 （ B）短线与空格 （ C）空格与下划线 （ D）下划线与空格 29 产生 10， 37之间的随机整数的 Visual Basic表达式是（ ）。 （ A） Int(Rnd(1)*27)+10 （ B） Int(Rnd(1)*28)+10 （ C） Int(Rnd(1)*27)+11 （ D） Int(Rnd(1)*28)+11 30 函数 Int(Rnd*6+1)的取值范围是（ ）。 （ A）从 1到 7共 7个整数 （ B）从 0到 7共 8个整数 （ C）从 1到 6
17、共 6个整数 （ D）从 0到 6共 7个整数 31 设定文本框内的文字内容是否允许修改的属性是（ ）。 （ A） Text （ B） Locked （ C） PasswordChaur （ D） Multiline 32 可以用 InputBox 函数产生 “输入对话框 ”。若执行下列语句 st$=InputBox(“请输入字符串 “， “字符串对话框 “， “字符串 “)当用户输入完毕，按 “确定 ”按钮后， st$变量的内容是（ ）。 （ A）字符串 （ B）请输入字符串 （ C）字符串对话框 （ D）用户输入内容 33 以下关于 KeyPress 事件过程中参数 KeyAscii的叙述
18、中正确的是（ ） （ A） KeyAscii参数是所按键的 ASCII码 （ B） KeyAscii参数的数据类型为字符串 （ C） KeyAscii参数可以省略 （ D） KeyAscii参数是所按键上标注的字符 34 Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（ ）。 （ A）属性、事件、方法 （ B）控件、属性、事件 （ C）窗体、控件、过程 （ D）窗体、控件、模块 35 对于图书管理数据库，将图书表中 “人 民邮电出版社 ”的图书的单价涨价 5%。请对下面的 SQL语句填空： UPDATE图书 _WHERE出版单位 =“人民邮电出版社 “ 36 新建一个
19、工程，内有两个窗体，窗体 Form1上有一个命令按钮 Command1，单击该按钮， Form1窗体消失，显示 Form2窗体，程序如下，请填空。 Private Sub Command1_Click() Form1.Hide Form2. _ End Sub 37 下列程序段的执行结果为 _。 Dim A(10,10) For i=2 To 4 For j=4 To 5 A(i,j)=i*j Next Next Prim A(2,5)+A(3,4)+A(4,5) 38 有如下事件过程： Private Sub Form_Active() Dim Score(1 to 3)As Integer
20、 Dim i As Integer Dim t As Variant For i=3 To 1 step-1 Score(i)=2*i Next For Each t In Score Print t Next End Sub 程序运行后窗体上显示的值为 _。 39 已知数组 A(4,4)，各个元素在运行程序时被赋值并打印，形成四除非方阵。请在 _ 和 _ 处填所需的内容，使其产生一个转置矩阵 (即行列互换 )，仍放在数组 A中，并打印出来。例如： 1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4 1 1 1 1 2 2 2 2 3 3 3 3 4 4 4 4 Private S
21、ub Command1_Click() Dim a(4,4) For k=1 To 4 For j=1 To 4 a(k,j)=j Print a(k,j)； Next Print Next For k=2 To 4 For j=1 To _ t=a(j,k) a(j,k)= _ a(k,j)=t Next Next For k=1 To 4 Print a(k,1)； a(k,2)； a(k,3)； a(k,4) Next End Sub 40 组合框有 3种不同的类型，这 3种类型是下拉式列表框、简单组合框和 _。在这 3种不同类型的组合框中 ，只能选择而不能输入数据的是 _ 。 41 下
22、列程序计算 Sn的值。 Sn=a+aa+aaa+aaaa ，其中最后一项为 n个。 例如： a=5， n=4时，则 Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。 Private Sub Command1_Click() Dim a As Integer， n As Integer， Cout As Integer Dim Sn As Long， Tn As Long Cout=1 Sn=0 Tn=0 a=InputBox(“请输入 a的值 :”) _ Do Tn=Tn*10+a Sn=Sn+Tn Cout=Cout+1 _ Debug Print a， n， S
23、n End Sub 42 测试的目的是暴露错误，评价程序的可靠性，而 _的目的是发现错误的位置，并改正错误。 43 按 “先进后出 ”原则组织数据的数据结构是 _。 44 长度为 n的顺序存储 线性表中，当在任何位置上插入一个元素概率都相等时，插入一个元素所需移动元素的平均个数为 _。 45 函数 Str$(256.36)的值是 _。 VB 笔试模拟试卷 206答案与解析 1 【正确答案】 A 2 【正确答案】 D 3 【正确答案】 C 4 【正确答案】 B 5 【正确答案】 C 6 【正确答案】 C 7 【正确答案】 A 8 【正确答案】 B 9 【正确答案】 D 10 【正确答案】 C 1
24、1 【正确答案】 C 12 【正确答案】 C 13 【正确答案】 A 14 【正确答案】 B 15 【正确答案】 B 16 【正确答案】 A 17 【正确答案】 D 18 【正确答案】 B 19 【正确答案】 D 20 【正确答案】 C 21 【正确答案】 A 22 【正确答案】 C 23 【正确答案】 C 24 【正确答案】 B 25 【正确答案】 D 26 【正确答案】 C 27 【正确答案】 D 28 【正确答案】 C 29 【正确答案】 B 30 【正确答案】 C 31 【正确答案】 B 32 【正确答案】 D 33 【正确答案】 A 34 【正确答案】 A 35 【正确答案】 SET
25、 单价 =单价 *1.05 【试题解析】 更新表中元组的值，使用 UPDATE 命令，一次可以更新表中的一个或多个属性值。 UPDATE 短语之后指定更新数据所属的表，将新的属性值或表达式赋值给对应的属性名 (SET单价 =单价 *1.05)，并置于 SET 短语之后。要求对人民邮电出版社的图书涨 5%，需要用 WHERE 短语对元组进行限制，即对符合条件的元组进行更新。 36 【正确答案 】 Show 37 【正确答案】 42 38 【正确答案】 2 4 6 39 【正确答案】 a a(k,j) 40 【正确答案】 下拉式组合框 下拉式列表框 41 【正确答案】 n=InputBox(“请输
26、入 n的值 !”) Loop While Cout =n或 Loop Until Cout=n+1 【试题解析】 a和 n的值必须已知，表达式才能计算。但程序中没有给变量 n赋值的语句，可见第一个空白行应该填写给 n 赋值的语句。 Do循环应该有与之对应的终端语句，第二个空白行应填 写 Do 循环的终端语句，即 While语句，同时要构造出控制循环的条件。程序中有四个赋值语句，其中有一个计数语句 Cout=Cout+1，可见控制循环次数的变量应是 Cout。 42 【正确答案】 调试 【试题解析】 软件测试的目标是在精心控制的环境下执行程序，以发现程序中的错误，给出程序可靠性的鉴定；调试也称排错，它是一个与测试即有联系又有区别的概念。具体来说，测试的目的是暴露错误，评价程序的可靠性，而调试的目的是发现错误的位置，并改正错误。 43 【正确答案】 栈 【试题解析】 栈是限定 只在一端进行插入和删除操作的线性表，通常称插入、删除的这一端为栈顶，另一端为栈底。栈按照 “先进后出 ”或 “后进先出 ”的原则组织数据。 44 【正确答案】 n/2 45 【正确答案】 256.36 【试题解析】 Str$（ ）函数的格式是： Str$(数值表达式 )，作用是把 “数值表达式 ”的值转换为一个字符串，表达式的值不受转换过程的影响。
