[计算机类试卷]VB笔试模拟试卷223及答案与解析.doc

1、VB 笔试模拟试卷 223及答案与解析 1 有如下一个 Sub过程： Sub mlt(ParamArray numbers() n=1 For Each x In numbers n=n*x Next x Print n End Sub 在一个事件过程中如下调用该 Sub过程： Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a=1 b=2 c=3 d=4 mlt a,b,c,d End Sub 该程序的运行结果为 ( )。 （ A） 12 （ B）

2、 24 （ C） 36 （ D） 48 2 假定有如下事件过程： Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button=2 Then PopupMenu popForm End If End Sub 则以下描述中错误的是 ( )。 （ A）该过程的功能是弹出一个菜单 （ B） PopForm是在菜单编辑器中定义的弹出式菜单的名称 （ C）参数 X、 Y指明鼠标的当前位置 （ D） Button=2表示按下的是鼠标左键 3 窗体上有一个命令按钮，命令按钮的单

3、击事件过程如下。运行程序后，单击命令按钮，输出结果是 ( )。 Private Sub Command1_Clcik() Dim a a=Array(1,2,3,4,5) For k=1 To 4 s=s+a(k) Next k Print s End Sub （ A） 10 （ B） 14 （ C） 15 （ D） 120 4 设有以下循环结构 Do 循环体 Loop While条件 则以下叙述中错误的是 ( )。 （ A）若 “条件 ”是一个为 0的常数，则一次也不执行循环体 （ B） “条件 ”可以是关系表达式、逻辑表达式或常数 （ C）循环体中可以使用 Exit Do语句 （ D）如果

4、 “条件 ”总是为 True，则不停地执行循环体 5 在窗体上画一个名称为 Text1的文本框，一个名称为 Command1的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1_Click() n=Val(Text1.Text) if n2=n/2 Then f=f1(n) Else f=f2(n) End If Print f;n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(ByVal x) x=x*x f2=x+x+x End Functi

5、on 程序运行后，在文本框中输入 6，然后单击命令按钮，窗体上显示的是 ( )。 （ A） 72 36 （ B） 108 36 （ C） 72 6 （ D） 108 6 6 设有如下程序： Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer Dim n As Integer n=InputBox(“输入数据 “) If n 10 Then Call GetArray(a,n) End If End Sub Private Sub GetArray(b()As Integer,n As Integer) Dim c(10

6、)As Integer j=0 For i=1 To n b(i)=Clnt(Rnd()*100) Ifb(i)/2=b(i)2 Then j=j+1 c(j)=b(i) End If Next Print j End Sub 以下叙述中错误的是 ( )。 （ A）数组 b中的偶数被保存在数组 C中 （ B）程序运行结束时，在窗体上显示的是 c数组中元素的个数 （ C） GetArray过程的参数 n是按值传送的 （ D）如果输入的数据大于 10，则窗体上不显示任何信息 7 下列关于 DOLoop 语句的叙述不正确的是 ( )。 （ A） Doloop 语句采用逻辑表达式来控制循环体执行的次数

7、 （ B）当 Do whileLoop 或 Do untilLoop 语句中 while或 until后的表达式的值为true或非零时，循环继续 （ C） DoLoop while 语句与 DoLoop until 语句都至少执行一次循环体 （ D） Do whileLoop 语句与 Do untilLoop 语句可能不执行循 环体 8 下列程序段的执行结果为 ( )。 a=1 b=1 For I=1 To 3 f=a+b a=b b=f Print f： Next I （ A） 2 3 6 （ B） 2 3 5 （ C） 2 3 4 （ D） 2 2 8 9 在运行阶段，要在文本框 Text

8、1获得焦点时选中文本框中所有内容，对应的事件过程是 ( ) （ A） Private Sub Text1_GotFocus() Text1.SelStart=0 Text1.SelStart=Len(Text1.text) End Sub （ B） Private Sub Text1_LostFocus() Text1.SelStart=0 Text1.SelStart=Len(Text1.text) End sub （ C） Private Sub Text1_Change() Text1.SelStart=0 Text1.SelStart=Len(Text1.text) End sub （

9、 D） Private Sub Text1_SetFocus() Text1.SelStart=0 Text1.SelStart=Len(Text1.text) End sub 10 有如下程序： Private Sub Form_Click() Dim Check,Counter Check=True Counter=0 Do Do While Counter 20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter,Check En

10、d Sub 程序运行后，单击窗体，输出结果为 ( )。 （ A） 15 0 （ B） 20 -1 （ C） 10 True （ D） 10 False 11 下列程序段 ( )能够正确实现条件：如果 X Y则 A=15，否则 A=-15。 （ A） If X Y Then A=15 A=-15 Prin A （ B） If X Y Then A=15:Print A A=-15:Print A （ C） If X Y Then A=1.5:Print A Else A=-15:Print A End If （ D） If X Y Then A=15 Else A=-15 Print A End

11、 If 12 编写如下事件过程： Private Sub Form-MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Shift=6 And Button=2 Then Print“Hello“ End If End Sub 程序运行后，为了在窗体上输出 “Hello”，应在窗体上执行以下 ( )操作。 （ A）同时按下 Shift键和鼠标左键 （ B）同时按下 Shift键和鼠标右键 （ C）同时按下 Ctrl、 Alt键和鼠标 左键 （ D）同时按下 Ctrl、 Alt键和鼠标右键 13 阅读下

12、面的程序段： For i=1 To 3 For j=1 To i For k=j To 4 a=a+1 Next k Next j Next i 执行上面的三重循环后， a的值为 ( )。 （ A） 9 （ B） 14 （ C） 20 （ D） 21 14 下列选项中不属于结构化程序设计方法的是（ ）。 （ A）自顶向下 （ B）逐步求精 （ C）模块化 （ D）可复用 15 在文本框中，当用户键入一个字符时，能同时引发的事件的是（ ）。 （ A） KeyPress和 Click （ B） KeyPress和 LostFocus （ C） KeyPress和 Change （ D） Chang

13、e和 LostFocus 16 若要将某命令按钮设置为默认命令按钮。则应设置为 True的属性是（ ）。 （ A） Value （ B） Cancel （ C） Default （ D） Enabled 17 如果要在程序代码中为图片框动态加载和清除图像，可以利用（ ）函数。 （ A） InputBox （ B） Input （ C） LoadPicture （ D） PaintPicture 18 以下描述正确的是（ ）。 （ A）过程的定义可以嵌套，但过程的调用不能嵌套 （ B）过程的定义不可以嵌套，但过程的调用可以嵌套 （ C）过程的定义和过程的调用均可以嵌套 （ D）过程的定义和过程的

14、调用均不能嵌套 19 Visual Basic根据计算机访问文件的方式将文件分成三类，其中不包括（ ）。 （ A）顺序文件 （ B） Unix文件 （ C）二进制文件 （ D）随机文 件 20 以下能够触发文本框 Change事件的操作是（ ）。 （ A）文本框失去焦点 （ B）文本框获得焦点 （ C）设置文本框的焦点 （ D）改变文本框的内容 21 在用通用对话框控件建立 ”打开 ”或 ”保存 ”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件 (即 .txt文件 )，则正确的描述格式是（ ）。 （ A） text(.txt)|(*.txt) （ B）文本文件 (.txt)|(

15、.txt) （ C） text(.txt)FFFFF|(*.txt) （ D） text(.txt)(*.text) 22 为启动定时器控件，需要设置定时器的属性是（ ）。 （ A） Name （ B） Interval （ C） Left （ D） Top 23 已知变量 X、 Y为整型，且 x=4， y=12， S为字符串型，且 s=a， 1blok为标签控件，下列赋值语句合法的是（ ）。 （ A） x=1blok.Caption （ B） Lblok.caption=Str(x) （ C） x*3=y （ D） Y=x*s 24 以下叙述中错误的是（ ）。 （ A）一个工程可以包括多种类

16、 型的文件 （ B） Visual Basic应用程序既能以编译方式执行，也能以解释方式执行 （ C）程序运行后，在内存中只能驻留一个窗体 （ D）对于事件驱动型应用程序，每次运行时的执行顺序可以不一样 25 在窗体模块的通用声明段中声明变量时，不能使用（ ）关键字。 （ A） Dim （ B） Public （ C） Private （ D） Static 26 以下关于多重窗体程序的叙述中，错误的是（ ） （ A）用 Hide方法不但可以隐藏窗体，而且能清除内存中的窗体 （ B）在多重窗体程序中，各窗体的菜单是彼此独立的 （ C）在多重窗体程序中，可以根据需要指定启动窗体 （ D）对于多重

17、窗体程序，需要单独保存每个窗体 27 要使控件与框架捆绑在一起，以下操作正确的是（ ）。 （ A）要在窗体不同位置上分别画一框架和控件，再将控件拖到框架上 （ B）在窗体上画好控件，再画框架将控件框起来 （ C）在窗体上画好框架，再在框架中画控件 （ D）在窗体上画好框架，再双击工具箱中的控件 28 下面 4个语句中，能打印显示 40*90字样的是（ ）。 （ A） Print“40*90“ （ B） Print40*90 （ C） PrintChr$(40)+“*“+CHr$(90) （ D） PrintVal(“40“)*Val(“90“) 29 在设计阶段，双击窗体 Form1的空白处，

18、打开代码窗口，显示（ ）事件过程模板。 （ A） Form_Click （ B） Form_Load （ C） Form1_Click （ D） Foma1_Load 30 程序设计语言的基本成分是数据成分、运算成分、控制成分和（ ）。 （ A）对象成分 （ B）变量成分 （ C）语句成分 （ D）传输成分 31 下列各选项说法错误的一项是（ ）。 （ A）文件对话框可分为两种，即打开 (Open)文件对话框和保存 (SaveAs)文件对话框 （ B）通用对话框的 Name属性的默认值为 CommonDialogX，此外，每种对话框都有自己的默认标题 （ C）打开文件对话框可以让用户指定一个文

19、件，由程序使用；而用保存文件对话框可以指定一个文件，并以这个文件名保存当前文件 （ D） DefaultEXT属性和 DialogTitle属性都是打开对话框的属性，但非保存对话框的属性 32 下面关于多重窗体的叙述中，正确的是（ ）。 （ A）作为启动对象的 Main子过程只能放在窗体模块中 （ B）如果启动对象的 Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载及加载哪一个窗体 （ C）没有启动窗体，程序不能运行 （ D）以上都不对 33 应用程序设计完成后，应将程序保存，保存的过程是（ ）。 （ A）只保存窗体文件即可 （ B）只保存工程文件即可 （ C）

20、先保存工程文件，之后还要保存窗体文件 （ D）先保存窗体文件 (或标准模块文件 )，之后 还要保存工程文件 34 下列程序计算 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的值： “)

21、n=InputBox(“请输入 n的值 !“) DO Tn=Tn*10+a Sn=Sn+Tn Cout=Cout+1 _ Debug.Print a,n,Sn End Sub 35 用户可以用 _语句定义自己的数据类型。 36 下列程序运行后的输出结果是 _。 Private Sub f(k,s) s=1 For j=1 To k S=S*j Next End Sub Private Sub Command1_Click() Sum=0 For i=1 To 3 Call f(i,s) Sum=Sum+s Next Print Sum End Sub 37 有如下函数过程： Function

22、gys(By Val x As Integer， ByVal y As Integer)As Integer Do While Y #0 preminder=x/y x=Y y=preminder Loop gys=x End Function 以下是调用该函数的事件过程，该程序的运行结果是 _。 Private Sub Command1_Click() Dim a As Integer， b As Integer a=10： b=2 x=gys(a,b) Print x End Sub 38 下列程序的功能是：将数据 1， 2， ， 8写入顺序文件 Num.txt中，请补充完整。 Priva

23、te Sub Form_Click() Dim i As Integer Open“Num txt”For Output As#1 For i=1 To 8 _ Next Close#1 End Sub 39 语句 Form2.Show 0表示 _ ； 语句 Form3.Show 1表示 _ ； 40 下列事 件过程的功能是：建立一个名为 Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为 1， 2， 3， ， 90。请在空白处填入适当的内容，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Si

24、ngle End Type Dim Ksc As Ang Private Sub Form_Click() Dim Y As Single Open _ Y=3.14159/180 For i=1 TO 90 Ksc.K=i Ksc.Sinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) _ Next i Close#2 End Sub 41 测试的目的是暴露错误，评价程序的可靠性，而 _的目的是发现错误的位置并改正错误。 42 某二叉树中度为 2的结点有 18个，则该二叉树中有 _个叶子结点。 43 当循环队列非空且队尾指针等于队头指针时，说明循环队列已满，不能进行人队运算，这种情况

25、称为 _。 44 在关系模型中，把数据看成一个二维表，每一个二维表称为一个 _。 45 在计算机软件系统的体系结构中，数据库管理系统位于用户和 _之间。 46 函数 Int(Rnd*10)+10的值的范围是 _。 VB 笔试模拟试卷 223答案与解析 1 【正确答案】 B 2 【正确答案】 D 3 【正确答案】 B 4 【正确答案】 A 5 【正确答案】 A 6 【正确答案】 C 7 【正确答案】 B 8 【正确答案】 B 9 【正确答案】 A 10 【正确答案】 D 11 【正确答案】 C 12 【正确答案】 D 13 【正确答案】 C 14 【正确答案】 D 15 【正确答案】 C 16

26、【正确答案】 C 17 【正确答案】 C 18 【正确答案】 B 19 【正确答案】 B 20 【正确答案】 D 21 【正确答案】 A 22 【正确答案】 B 23 【正确答案】 B 24 【 正确答案】 C 25 【正确答案】 D 26 【正确答案】 A 27 【正确答案】 C 28 【正确答案】 A 29 【正确答案】 B 30 【正确答案】 D 31 【正确答案】 D 32 【正确答案】 B 33 【正确答案】 D 34 【正确答案】 Loop while cout =n或 Loop Until Cout=n+1 【试题解析】 a和 n的值必须已知，表达式才能计算。但程序中没有给变量

27、n赋值的语句，可见第一个空白行应该填写给 n 赋值的语句。 Do循环应该有与之相对应的终端语句，可见第二个空白行应填写 Do 循环的终端语句，即 While语句，同时要构造出控制循环的条件。程序中有四个赋值语句，其中有一个计数语句 Cout=Cout+1，可见控制循环次数的变量应是 Cout。 35 【正确答案】 Type 【试题解析】 用户可以用 Type语句来定义数据类型，格式是： Type数据类型名 数据类型元素名 As 类型名 数据类型元素名 As 类型名 EndType 其中 “数据类型名 ”是要定义的数据类型的名字，其 命名规则和变量的命名规则相同； “数据类型元素名 ”也遵守相同

28、的规则，且不能是数组名； “类型名 ”可以是任何基本数据类型，也可以是用户定义的类型。 36 【正确答案】 9 【试题解析】 本题考查的重点是在子过程的调用过程中，虚实参数的传送问题，变量 s按十传送。子过程 f()求 n!， sum的计算过程为 1!+2!+3!=1+2+6=9 37 【正确答案】 5 38 【正确答案】 Print#1， i 39 【正确答案】 将窗体 Form2作为无模式对话框显示 将窗体 Form3作为模式对话框显示 40 【正确答案】 “C:Data1.txt“For Random As #2 ken=10 Put #2， i， Ksc 【试题解析】 第 1个空白行已

29、经告诉我们是打开文件的语句，现在要将它填写完整。该语句应确定文件的存取方式是随机存取。在自定义变量中，有 3个成员，其中角度为整型数据，占 2个字节；弦和余弦函数值为单精度类型，各占 4个字节，故文件的记录占 10 个字节。若不指定 kn 参数，则隐含一个记录占： 128字节。为了节省存储空间，可在 Open语句中只写 len参数值。程序中没有将数据写入随机文件的语句，第 2个空白行应是 Put 语句。 41 【正确答案】 调试 【试题解析】 软件测试的目标是在精心控制的环境下执行程序，以发现程序中的错误，给出程序可靠性的鉴定。调试也称排错，它是一个与测试既有联系又有区别的概念。具体来说，测试

30、的目的是暴露错误，评价程序的可靠性，而调试的目的是发现错误的位置，并改正错误。 42 【正确答案】 19 【试题解析】 在任意一棵二叉树中，度为 0的结点 (即叶子结点 )总是比度为 2的结点多一个。 43 【正确答案】 上溢 【试题解析】 人队运算是指在循环队列的队尾 加入一个新元素。这个运算有两个基本操作：首先将队尾指针进一 (即 rear=rear+1)，并当 rear=m+1 时，置rear=1，然后将新元素插入队尾指针指向的位置。当循环队列非空 (s=1)且队尾指针等于队头指针时，说明循环队列已满，不能进行入队运算，这种情况称为 “上溢 ”。 44 【正确答案】 关系 【试题解析】

31、在关系模型中，把数据看成一个二维表，每一个二维表称为一个关系。表中的每一列称为一个属性，相当于记录中的一个数据项，对属性的命名称为属性名；表中的一行称为一个元组，相当于记录值。 45 【正确答案】 操作系统或 OS 【试题解析】 数据库管理系统是数据库的机构，它是一种系统软件，负责数据库中的数据组织、数据操纵、数据维护、控制及保护和数据服务，位于用户和操作系统之间。 46 【正确答案】 (10， 19) 【试题解析】 Rnd 产生随机数的范围为 (0.111 0.999)；因此， Rnd*10的范围为(0.111 9.999) ； Int（ ）函数是取整， Int(Rnd*10)取整后的范围为 (1 9)；再加上 10，所以试值的取值范围为 (10 19)。