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

1、VB 笔试模拟试卷 219及答案与解析 1 执行以下程序段 a$=“abbacddcba“ For i=6 To 2 Step-2 X=Mid(a,i,i) Y=Left(a,i) Z=Right(a,i) z=UCase(X&Y&z) Next i Print z 输出结果为 ( ) （ A） ABC （ B） BBABBA （ C） ABBABA （ D） AABAAB 2 已知 x代表某个百分制成绩，下列程序段用于显示对应的 五级制成绩，正确的是( ) （ A） If x =60 Then Print“及格 “ Else If x =70 Then Print“中 “ Else If x

2、 =80 Then Print“良 “ Else If x =90 Then Print“优 “ Else Print“不及格 “ End If （ B） If x 90 Then Print“良 “ Else If x 80 Then Print“中 “ Else If x 70 Then Print“及格 “ Else If x 60 Then Print“不及格 “ Else Print“优 “ End If （ C） If x =90 then Print“优 “ Else If x =80 Then Print“良 “ Else If x =70 Then Print“中 “ Els

3、e If x =60 Then Print“及格 “ Else Print“不及格 “ End If End Select （ D） Select Case x Case x =90 Print“优 “ Case x =80 Print“良 “ Case x=70 Print“中 “ Case x =60 Print“及格 “ Case Else Print“不及格 “ 3 运行以下程序，输出结果是 ( )。 For I=1 To 3 cls Print“I=“,I； Next （ A） 123 （ B） 3 （ C） I=1I=2I=3 （ D） 1=3 4 在窗体上画一个命令按钮和两个文本

4、框，其名称分别为 Command1、 Text1和Text2，然后编写如下程序： Dim S1 As String S2 As String Private Sub Form_Load0 Text1.Text=“ Text2.Text=“ End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) S2=S2&Chr(KeyCode) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) S1=S1 & Chr(KeyAscii) End Sub Priv

5、ate Sub Command1_Click() Text1.Text=S2 Text2.Text=S1 S1=“ S2=“ End Sub 程序运行后，在 Text1中输入“abc”，然后单击命令按钮，在文本框 Text1和 Text2中显示的内容分别为 ( )。 （ A） abc和 AB （ B） abc和 abc （ C） ABC和 abc （ D） ABC和 ABC 5 下列程序的执行结果为 ( )。 Private Sub Command1_Click() Dim s1 As String,s2 As String s1=“abcdef“ Call Invert(s1,s2) Pri

6、nt s2 End Sub Private Sub Invert(ByVal xstr As String,ystr As String) Dim tempstr As String i=Len(xstr) Do While i =1 tempstr=tempstr+Mid(xstr,i,1) i=i-1 Loop ystr=tempstr End Sub （ A） fedcba （ B） abcdef （ C） afbecd （ D） defabc 6 在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Crick() x=0

7、n=InputBox(“) For i=1 To n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入 3，则在窗体上显示的内容是 ( )。 （ A） 3 （ B） 4 （ C） 5 （ D） 6 7 单击窗体时，下列程序段的执行结果为 ( )。 Private Sub Form_Crick() Line(200,200)-(400,400) Print“+“ Print“*“ End Sub （ A）在窗体上画一斜线，从斜线终点处开始打印两行符号 （ B）在窗体上画一斜线，从斜线起点处开始打印两行符号 （ C

8、）在窗体上画一斜线，从窗体左上 角开始打印两行符号 （ D）从窗体左上角开始打印两行符号，从符号结束处开始画一斜线 8 以下能够正确退出循环的是 ( )。 （ A） i=10 Do i=i+1 Loop Until i 10 （ B） i=1 Do i=i+1 Loop Until i=10 （ C） i=10 Do i=i+1 Loop Until i 0 （ D） i=1 Do i=i-3 Loop Until i=0 9 在窗体上 画一个名称为 Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是 ( )。 （ A） Private Sub Text1_Ke

9、yPress(KeyAscii As Integer) If KeyAscii 65 Or KeyAscii 90 Then MsgBox“请输入大写字母 “ KeyAscii=0 End If End Sub （ B） Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) If KeyCode 65 Or KeyCode 90 Then MsgBox“请输入大写字母 “ KeyCode=0 End If End Sub （ C） Private Sub Text1_MouseDown(Button As Integer,

10、Shift As Integer,X As Single,Y As Single) If Asc(Text1.Text) 65 Or Asc(Text1.Text) 90 Then MsgBox“请输入大写字母 “ End If End Sub （ D） Private Sub Text1_Change() If Asc(Text1.Text) 64 And Asc(Text1.Text) 91 Then MsgBox“请输入大写字母 “ End If End Sub 10 下列各组变量声明正确的是 ( )。 （ A） Dim abc as integer,num as single （ B）

11、 Dim I%,N$as integer （ C） Dim a%,b%,c%,a$ （ D） public dim n% 11 设有数组声明语句： Option Base 1 Dim A(2,-1 To 1) 以上语句所定义的数组 A为 _维数组，共有 _个元素，第一维下标从 _到 _，第二维下标从 _到 _。下列选项正确的是 ( )。 （ A） 1， 2， 6， 2， -1， 1 （ B） 6， 2， 1， 2， -1， 1 （ C） 2， 6， 1， 2， -1， 1 （ D） 2， 1， 6， -1， 1， 2 12 在窗体上画一个命令按钮，名称为 Command1。程序运行后，如果单击

12、命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程 F1。在 F1中判断所输入的整数是否是奇数，如果是奇数，过程 F1返回 1，否则返回 0。能够正确实现上述功能的代码是 ( )。 （ A） Private Sub Command1_Click() x=InputBox(“请输入整数 “) a=F1(Val(x) Print a End Sub Function F1(byRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Funcfion （ B） Privae S

13、ub Command1_Click() x=InputBox(“请输入整数 “) a=F1(Val(x) print a End Sub Function F1(byRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End Function （ C） Private Sub Command1_Click() x=InputBox(“请输入整数 “) F1(Va(x) Print a End Sub Function F1(byRef b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 E

14、nd If End Funcfion （ D） Private Sub Command1_Click() x=InputBox(“请输入整数 “) F1(Val(x) Print a End Sub Function F1(ByrRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function 13 以下能够正确计算 n!的程序是 ( )。 （ A） Private Sub Command1_Click() n=5:x=1 Do x=x*i i=i+1 Loop While i n Print x En

15、d Sub （ B） Private Sub Command1_Click() n=5:x=1:i=1 Do x=x*i i=i+1 Loop While i n Print x End Sub （ C） Private Sub Command1_Click() n=5:x=1:i=1 Do x=x*i i=i+1 Loop While i =n print x End Sub （ D） Private Sub Command1_Click() n=5:x=1:i=1 Do x=x*i i=i+1 Loop While i n print x End Sub 14 下列代码运行后输出结果是 (

16、 )。 Defstr C-F Private Sub Command1_Click() C$=“123“ D=“456“ Print C+D$ End Sub （ A） 123456 （ B） “123456“ （ C） 123+“456“ （ D）显示出错信 15 单击滚动条的滚动箭头时，产生的事件是（ ）。 （ A） Click （ B） Scroll （ C） Change （ D） Move 16 要使某控件在运行时不可显示，应对属性（ ）进行设置。 （ A） Enabled （ B） Visible （ C） BackColor （ D） Caption 17 要使标签能够显示所需要

17、的文本，则在程序中应设置（ ）属性的值。 （ A） Caption （ B） Text （ C） Name （ D） AutoSize 18 在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是（ ）。 （ A）， （ B）； （ C）、 （ D）： 19 用标准工具栏中的工具按钮不能执行的操作是（ ）。 （ A）添加工程 （ B）打印源程序 （ C）运行程序 （ D）打开工程 20 对象 .cls方法对（ ）控件有效。 （ A）窗体、图像框 （ B）窗体、图片框 （ C）屏幕、窗体 （ D）图像框、图片框 21 下列叙述中正确的是（ ）。 （ A）线性链表是线性表的链式存储结构 （ B

18、）栈与队列是非线性结构 （ C）双向链表是非线性结构 （ D）只有根结点的二叉树是线性结构 22 以下叙述中，错误的是（ ）。 （ A）一个 Visual Basic应用程序可以含有多个标准模块文件 （ B）一个 Visual Basic工程可以含有多个窗体文件 （ C）标准模块文件可以属于某个指定的窗体文件 （ D）标准模块文件的扩展名是 .bas 23 若要使标签控件显示时不覆盖其背景内容，应设置标签的（ ）属性。 （ A） BackColor （ B） BorderStyle （ C） ForeColor （ D） BackStyle 24 如果将布尔常量值 True赋值给一个整型变量，

19、则整型变量的值为（ ）。 （ A） 0 （ B） -1 （ C）真 （ D）假 25 表达式 Int(-17.8)+Sgn(17.8)的值是（ ）。 （ A） 18 （ B） -17 （ C） -18 （ D） -16 26 选择循环结构的作用是（ ）。 （ A）提高程序运行速度 （ B）控制程序的流程 （ C）便于程序的阅读 （ D）方便程序的调试 27 下列叙述中错误的是（ ）。 （ A）启动 Visual Basic进入编程环境后，工具箱中只有内部控件 （ B）启动 Visual Basic进入编程环境后，窗口中 会自动建立名为 Forml的窗体 （ C）启动 Visual Basic进

20、入编程环境后，属性窗口一定同时打开 （ D）启动 Visual Basic进入编程环境后，只要存盘就会生成一个工程文件 28 若要在图片框中绘制一个椭圆，使用的方法是（ ）。 （ A） Circle （ B） Line （ C） Point （ D） Pset 29 定义过程语句中的参数表列可以是（ ）。 （ A）常量或变量名 （ B）表达式或变量名 （ C）数组元素或变量名 （ D）变量名或数组名 30 要使文本框 只具有垂直滚动条，则就（ ）。 （ A）将其 Multiline设置为 True，同时将 Scrollbars属性设置为 0 （ B）将其 Multiline设置为 True，同

21、时将 Scrollbars属性设置为 1 （ C）将其 Multiline设置为 True，同时将 Scrollbars属性设置为 2 （ D）将其 Multiline设置为 True，同时将 Scrollbars属性设置为 3 31 要使菜单项 MenuOne在程序运行时失效，使用的语句是（ ）。 （ A） MenuOne.Visible=True （ B） MenuOne.Visible=False （ C） MenuOne.Enabled=True （ D） MenuOne.Enabled=False 32 以下说法不正确的是（ ）。 （ A）使用 ReDim语句可以改变数组的维数 （

22、B）使用 ReDim语句可以改变数组的类型 （ C）使用 ReDim语句可以改变数组每一维的大小 （ D）使用 ReDim语句可以对数组中的所有元素进行初始化 33 在窗体上建立通用对话框需要添加的控件是（ ）。 （ A） Data控件 （ B） Form控件 （ C） CommonDialog控件 （ D） VBComboBox 控件 34 多分支选择结构的 Case语句中 “变量值列表 ”不能是（ ）。 （ A）常量值的列表，如 Case1,3,5 （ B）变量名的列表，如 Casex,y,z （ C） To表达式，如 Case10To20 （ D） Is 关系表达式，如 CaseIs 2

23、0 35 用 Print方法在 Form1窗体中显示出 4个星号的正确代码为（ ）。 （ A） Debug.Print“*“ （ B） Print* （ C） Form1_Print“*“ （ D） Form1.Print“*“ 36 表达式 X+1 X是（ ）。 （ A）算术表达式 （ B）非法表达式 （ C）字符串表达式 （ D）关系表达式 37 在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Command1_Click() Text1.Text=“VB Programming“ Text2.Text=Text1.Text Text1.Te

24、xt=“ABCD“ End Sub 程序运行后，单击命令按钮， Text1文本框中显示的内容为 _。 38 下列事件过程的功能是：建立一个名为 Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为 1， 2， 3， ， 90。请在空白处填人适当的内容，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private Sub Form_Click() Dim Y As Single Open“c:Datal.txt”For Random A

25、s #2 Len=10 Y=3.14159/180 For i=1 To 90 Ksc.K=i Ksc.Sinx=Sin(i * Y) Ksc.Cosx=Cos(i * Y) _ Next Close #2 End Sub 39 下列事件过程的功能是：建立一个名为 Datal的随机文件 ，存放角度值及这些角度的正弦函数值和余弦函数值，角度为 1， 2， 3， ， 90。请在空白处填入适当的内容，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private

26、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) Put #2， i， KSC Next i Close #2 End Sub 40 执行如下程序段后， intsum的值为 _。 Private Sub Command1_Click() sum=0 For i=1 To 18 Step 2 For j=2 To 6 If(i Modj) 0 Then sum=sum+j Next Next Print sum En

27、d Sub 41 下面程序是用来打印九九乘法表的，请填空。 Dim i As Integer， j As Integer， Str1 $ Str1=“ For i=1 To 9 For j=1 To 9 If _Then Str1=Str1+Str$(j)+“+Str$(i)+“=“+Str$(Val(i*j) Else Str1=Str1&Chr(13) _ End If Next Next Print Str1 42 在 3种不同类型的组合框中，只能选择而不能输入数据的组合框是 _。 43 在一个窗体上有一个命令按钮 CmdMax。单击 CmdMax时，窗体上显示 “字体由小变大 ”，字号

28、每次增加 2。请填空。 Private Sub Form_Load() Form1.Caption=“字体变化示范 “ CmdMax.Caption=“字体变大 “ End Sub Private Sub CmdMax_Click() _ Form1.Print“字体由小变大 “ Fnd Sub 44 软件定义时期主要包括 _和需求分析两个阶段。 45 软件维护活动包括：改正性维护、适应性维护、 _维护和预防性维护。 46 数据的逻辑结构有线性结构和 _两大类。 47 某二叉树中度为 2的结点有 n个，则该二叉树中有 _个叶子结点。 48 在 E-R图中，矩形表示 _。 49 当对象得到焦点时

29、，会触发 GotFocus事件，当对象失去焦点时将触发 _事件。 VB 笔试模拟试卷 219答案与解析 1 【正确答案】 B 2 【正确答案】 C 3 【正确答案】 D 4 【正确答案】 C 5 【正确答案】 A 6 【正确答案】 D 7 【正确答案】 A 8 【正确答案】 B 9 【正确答案】 A 10 【正确答案】 A 11 【正确答案】 C 12 【正 确答案】 B 13 【正确答案】 C 14 【正确答案】 D 15 【正确答案】 C 16 【正确答案】 B 17 【正确答案】 A 18 【正确答案】 D 19 【正确答案】 B 20 【正确答案】 B 21 【正确答案】 A 22 【

30、正确答案】 C 23 【正确答案】 D 24 【正确答案】 B 25 【正确答案】 B 26 【正确答案】 B 27 【正确答案】 A 28 【正确答案】 A 29 【正确答案】 D 30 【正确答案】 C 31 【正确答案】 D 32 【正确答案】 B 33 【正确答案】 C 34 【正确答案】 B 35 【正确答案】 D 36 【正确答案】 D 37 【正确答案】 ABCD 38 【正确答案】 “C:Datal txt”For Random As #2 Len=10 39 【正确答案】 text(*.txt)|*.txt 40 【正确答案】 161 41 【正确答案】 j =i Exit

31、for 42 【正确答案】 下拉式列表框 【试题解析】 下拉式列表框仅允许从下拉式列表中选择。 (缺省值 )下拉式组合框包括一个下拉式列表和一个文本框，可以从列表选择或在文本框中输入。 简单组合框包括一个文本框和一个不能下拉的列表，可以从列表中选择或在文本框中输入。简单组合框大小包括编辑和列表部分。按缺少省规定，简单组合框的大小调整在没有任何列表显示的状态。增加 Height属性值可显示列表的更多部分。 43 【正确答案】 Form1.FontSize=Form1.FontSize+2 44 【正确答案】 可行性研究 【试题解析】 软件生命周期一 般包括可行性研究与需求分析、设计、实现、测试、

32、交付使用以及维护等。另外还可以将软件生命周期分为三个阶段： 软件定义阶段：可行性研究和需求分析； 软件开发阶段：设计、实现和测试； 软件运行维护阶段：交付使用和维护。 45 【正确答案】 完善性 【试题解析】 软件维护活动包括：改正性维护、适应性维护、完善性维护和预防性维护。改正性维护是指在软件交付使用后，为了识别和纠正软件错误，改正软件性能上的缺陷，排除实施中的误使用，应当进行的诊断和改正错误的过程；适应性维护是指为了使软件适应变化，而去修改软件的过 程；完善性维护是指为了满足用户对软件提出的新功能与性能要求，需要修改或再次开发软件，以扩充软件功能、增强软件性能、改进加工效率、提高软件的可维

33、护性；预防性维护是为了提高软件的可维护性、可靠性等，为以后的进一步改进软件打下良好基础。 46 【正确答案】 非线性结构 【试题解析】 数据的逻辑结构有线性结构和非线性结构两大类。 47 【正确答案】 n+1 【试题解析】 在任意一棵二叉树中，度为 O的结点 (即叶子结点 )总是比度为 0的结点多一个。 48 【正确答案】 实体 【试题解析】 在 E-R图中用矩形表示实体；椭圆形表示属性；菱形表示联系。 49 【正确答案】 LostFocus 【试题解析】 在 Visual Basic中，当对象得到焦点时，它可以接收用户的输入；当得到焦点时会触发 GotFocus 事件，当失去焦点时会触发 LostFocus 事件。