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

1、VB笔试模拟试卷 191及答案与解析 1 在正确安装 VisualBasic 6.0后，可以通过多种方式启动 Visual Basic。以下方式中不能启动 VisualBasic的是 ( )。 （ A）通过 “开始 ”菜单中的 “程序 ”命令 （ B）通过 “我的电脑 ”找到 Vb6 exe,双击该文件名 （ C）通过 “开始 ”菜单中的 “运行 ”命令 （ D）进入 DOS方式，执行 Vb6.exe文件 2 以下关于复选框的说法，正确的是 ( )。 （ A）复选框的 Enabled属性用于决定该复选框是否被选 中 （ B）复选框的 Value属性用于决定该复选框是否被选中 （ C）复选框的

2、Checked属性用于决定该复选框是否被选中 （ D）复选框的 Visible属性用于决定该复选框是否被选中 3 在窗体上画一个名称为 Listl的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为 ( )。 4 组合框控件是将 ( )组合成一个控件。 （ A）列表框控件和文本框控件 （ B）标签控件和列表框控件 （ C）标签控件和文本框控件 （ D）复选框控件和选项按钮控件 5 用如下语句所定义的数组的元素个数是 ( )个。 Dim b(-2 to 4)asstring （ A） 2 （ B） 4 （ C） 6 （ D） 7 6 下列每组控件中，都包含有滚动条的一组控件是 (

3、)。 （ A） ListBox和 LabelBox （ B） TextBox和 DriveListBox （ C） ComboBox和 CheckBox （ D） FileListBox和 DirListBox 7 设 x=4， y=8， z=7，以下表达式的值是 ( )。 x y And(Not(y z)Orz x （ A） 1 （ B） -1 （ C） True （ D） False 8 当执行以下过程时，在名为 lplResult的标签框内将显示 ( )。 Private Sub cmdlt_C1ick() Dimi， r r=0 Fori=1 To 5 Step 1 r=r+i Nex

4、ti 1p1Result.Caption=Str$(r) End Sub （ A）字符串 15 （ B）整数 15 （ C）字符串 5 （ D）整数 5 9 下列对于线性链表的描述中正确的是 ( )。 （ A）存储空间不一定是连续，且各元素的存储顺序是任意的 （ B）存储空间不一定是连续，且前件元素一定存储在后件元素的前面 （ C）存储空间必须连续，且前件元素一定存储在后件元素的前面 （ D）存储空间必须连续，且各元素的存储顺序是任意的 10 下面是窗体 Forml的 Crick事件过程，实现运行时每次单击窗体，窗体均向右移动 100的是 ( )。 PrivateSub_ Static Int

5、left As Integer Infiefi=Intleft+100 Forml.Left=Intleft End Sub （ A） Forml_Click() （ B） Form_Click() （ C） Commanl_Click() （ D） Commandl_Click() 11 下列说法有错误的是 ( )。 （ A）默认情况下，属性 Visible的值为 False （ B）如果设置控件的 Visible属性为 False，则运行时控件会隐藏 （ C） Visible的值可设为 True或者 False （ D）设置 Visible属性同设置 Enabled属性的功能是相同的，都是

6、使控件处于失效状态 12 通过文本框的 ( )属性可以获得当前插入点所在的位置。 （ A） Position （ B） SelStart （ C） SelEength （ D） Left 13 若在 Shape控件内以 FillStyle属性所指定的图案填充区域，而填充图案的线 条颜色由 FillColor属性指定，非线条的区域由 BackColor属性填充，则应 ( )。 （ A）将 Shape控件的 FillStyle属性设置为 2至 7间的某个值， BackStyle属性设置为 1 （ B）将 Shape控件的 FillStyle属性设置为 0或 1,BackStyle属性设置为 1 （

7、 C）将 Shape控件的 FillStyle属性设置为 2至 7间的某个值， Backstyle属性设置为 0 （ D）将 Shape控件的 FillStyle属性设置为 0或 1， BackStyle属性设置为 0 14 事件的名称 ( )。 （ A）都要由用户定义 （ B）有的由有用户定，有的由系统定义 （ C）都是由系统预先定义 （ D）是不固定的 15 在窗体上有一个文本框控件，名称为 TextTime；一个计时器控件，名称为Timed。要求每一秒在文本框中显示一次当前的时间。程序为： Private Sub Timerl_ _ TextTime.text=Time End Sub

8、在下划线上应填入的内容是 ( )。 （ A） Ena bled （ B） ViSible （ C） Interval （ D） Timer 16 网络信息服务管理工具被包含在 sual Bask的 ( )中。 （ A）试用版 （ B）学习版 （ C）专业版 （ D）企业版 17 函数过程冈的功能是：如果参数 b为奇数，则返回值为 1，否则返回值为 0。以下能正确实现上述功能的代码是 ( )。 （ A） Function Fl(bAsInteger) If b Mod2=0 Then Remm 0 Else Remm 1 End If End FunctiOn （ B） Function F1(

9、bASInteger) IfbMOd2=0Then F1=0 E1se F1=1 End If End Funcdon （ C） FuncdOnH(b As Integer) IfbMod2=0 Then F1=1 Else F1=0 End If End FunctiOn （ D） FuncdOn F1(b As Integer) If b MOd2 0 Then Retum 0 Else Return 1 End If End FunctiOn 18 Cls方法可以清除窗体或图片框中的 ( )内容。 （ A）在设计阶段使用 Picture属性设置的背景位图 （ B）在设计阶段放置的控件 （

10、 C）在运行阶段产生的图形和文字 （ D）以上全部内容 19 如果在立即窗口中执行以下操作，则输出结果是 ( )。 a=8 CR b=9 CR Printa b CR （ A） -1 （ B） 0 （ C） False （ D） True 20 假定有如下的命令按钮 (名称为 Commandl)事件过程： Private Sub Commandl_Click() x=InputBox(“输入 :“,“输入整数 “) MsgBox“输入的数据是广 “，“输入数据 :“+x End Sub 程序运行后 ，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是 ( )。 （ A） x的值是数值

11、 10 （ B）输入对话框的标题是 “输入整数 ” （ C）信息框的标题是 “输入数据： 10” （ D）信息框中显示的是 “输入的数据是： ” 21 窗体上有 1个名称为 CD1的通用对话框， 1个名称为 Commandl的命令按钮。命令按钮的单击事件过程如下： Private Sub Commandl_Click() CD1.FileName=“ CD1.Filter=“AllFiles|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt“ CD1.FilterIndex=2 CD1.Action=1 End Sub 关于以上代码，错误的叙述是( )。 （ A）执行以上事件过程

12、，通用对话框被设置为 “打开 ”文件对话框 （ B）通用对话框的初始路径为当前路径 （ C）通用对话框的默认文件类型为 *.Txt （ D）以上代码不对文件执行读写操作 22 文件是 ( )构成的数据集合。 （ A）字段 （ B）字符 （ C）记录 （ D）汉字 23 标准模块存盘后，形成的磁盘文件扩展名是 ( )。 （ A） .bas （ B） .cis （ C） .rrm （ D） .txt 24 VisualBasic是一种面向对象的程序设计语言，构成对象的三要素是 ( )。 （ A）属性、控件和方法 （ B）属性、事件和方法 （ C）窗体、控件和过程 （ D）控件、过程和模块 25 以

13、下叙述中错误的是 ( )。 （ A）语句 “Dima,b As Integer“声明了两个整型变量 （ B）不能在标准模块中定义 Static型变量 （ C）窗体层变量必须先声明，后使用 （ D）在事件过程或通用过程内定义的变量是局部变量 26 下列成员中不属于主窗口的是 ( )。 （ A）最大化按钮 （ B）状态栏 （ C）系统菜单 （ D）工具栏 27 在运行阶段，要在文本框 Text1获得焦点时选中文本框中所有内容，对应的事件过程是 ( )。 28 在窗体上画一个名称为 Commandl的命令按钮，再画两个名称分别为 Labe11、Labe12的标签，然后编写如下程序代码： Privat

14、e X As Integer Private Sub Commandl_Click() X=5:Y=3 Callproc(X,Y) Labe11.Caption=X Label2.Caption=Y End Sub Private Sub proc(ByVala As Integer,ByValb As In （ A） 5和 3 （ B） 25和 3 （ C） 25和 6 （ D） 5和 6 29 下列程序段的执行结果为 ( )。 a=0:b=0 Fori=-1 To-2 Step-1 Forj=1 To 2 b=b+1 Nextj a=a+1 Nexti Printa;b （ A） 2 4

15、（ B） -2 2 （ C） 4 2 （ D） 2 3 30 执行以下程序段后，整型变量 C的值为 ( )。 a=24 b=328 Select Caseb10 Case0 c=a*10+b Case 1 to 9 c=a*100+b Case 10 to 99 c=a*1000+b End Select （ A） 537 （ B） 2427 （ C） 24328 （ D） 240328 31 设 a=2， b=3， c=4， d=5，下列表达式的值是 ( )。 Nota =C Or 4*c=b2 And bOa+C （ A） -1 （ B） 1 （ C） True （ D） False 32

16、 关于多行结构条件语句的执行过程，正确的是 ( )。 （ A）各个条件所对应的语句序列中，一定有一个语句序列被执行 （ B）找到条件为 TRUE的第一个入口，便从此开始执行其后的所有语句序列 （ C）若有多个条件为 TRUE，则它们对应的语句序列都被执行 （ D）多行选择结构中的语句序列，有可能任何一个语句序列都不被执行 33 下列选 项中，为字符串常量的是 ( )。 （ A） 6/12/2001 （ B） 6/12/2001 （ C） #6,12,2001# （ D） 6,12,2001# 34 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Cli

17、ck() x=O Do Until X=-1 a=InputBox(“请输入 a的值 “) a=Val(A) b=InputBox(“请输入 b的值 “) b=Val(B) x=lnputBox(“请输入 x的值 “) x=Val(x) a=a+b+x Loop Printa End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入 10、 8 （ A） 12 （ B） 13 （ C） 14 （ D） 15 35 3( )使图像 (Image)控件中的图像自动适宜控件的大小。 （ A）将控件的 AutoSize属性设为 True （ B）将控件的 AutoSize属性设为 False

18、（ C）将控件的 Stretch属性设为 True （ D）将控件的 Stretch属性设为 False 36 MagBox函数除了在对话框中显示提示信息外，另一个功能是工 _。 37 一个变量未被显示定义，末尾也没有类型说明符，则该变量的隐含类型是上_类型。 38 在长度为 n的有序线性表中进行二分查找。最坏的情况下，需要的比较次数为上 _。 39 算法的基本特征是可行性、确定性、 _和拥有足够的情报。 40 如果菜单标题的某个字母前输入一个 “_”符号，那么该字母就成了热键字母。 41 6、在菜单编辑 器中建立一个菜单，其主菜单项的名称为 mnuEdit， Visible属性为 False

19、，程序运行后，如果用鼠标右键单击窗体，则弹出与 mnuEdit对应的菜单。以下是实现上述功能的程序，请填空。 PrivateSubForm_(Button As Integer,Shift As Integer,X As Single,YAs Single) If Button=2Then PopupMenu mnuEdit End If End Sub 42 为了执行自动 拖放，必须把 _属性设置为 1。 43 设 A=2,B=-2,则表达式 A/2+1 B+5OrB*(-2)=6的值是 _。 44 以下程序代码实现单击命令按钮 Commandl时生成 20个 (0， 100)之间的随机整数

20、，存于数组中，打印数组中大于 50的数，并求这些数的和。 Dimalt(1 To 20) Fori=1 To 20 arr(i)= Nexti Sub=0 For Each X In arr If X 50 Then Print Tab(20)； X Sum=Sum+X End If Next X Print Tab(20)； “Su 45 下面程序代码实现单击命令按钮 Command1时输出如下结果： 1 -1 -1 1 1 -1 1 1 1 该程序不完整，请填空。 Private Sub Command1_Click() DimX(3,3) For I=1 To 3 ForJ=1 To 3

21、 If_Then X(I,J)=1 End If If I J Then 46 阅读下面的程序： PriVate Sub Form_C1ick() Dim Check As Booleau， Counter As Integer Check=True Counter=5 Do Do While Counter 20 Counter=Counter+1 If Counter=10 Then Check=FalSe EXit Do 47 在名称为 Forml的窗体上绘制一个文本框，其名称为 Text1，在属性窗口中把该文本框的 MultiLine属性设置为 True，然后编写如下的事件过程： Pr

22、ivate SUb Form_CnCk() Open“d:tessmtext1.txt“For Input AS #1 Do While Not EOF(1) Line Iput #1,aspect$ whole$=whole$+aspect$+Chf$(13)+Chr$(10) Loop 48 在窗体上画一个文本框，名称为 Text1，画一个命令按钮，名称为 Commandl。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件 test.dat中。请在空白处填上适当的内容，将程序补充完整。 Private Sub Command1_Click() Open“

23、c： test.dat“For Output As #1 For I=1 to Len(Text1.text) _ Next I Close #1 End Sub VB笔试模拟试卷 191答案与解析 1 【正确答案】 D 2 【正确答案】 B 3 【正确答案】 A 4 【正确答案】 A 5 【正确答案】 D 6 【正确答案】 D 7 【正确答案】 D 8 【正确答案】 A 9 【正确答案】 A 10 【正确答案】 B 11 【正确答案】 D 12 【正确答案】 B 13 【正确答案】 A 14 【正确答案】 C 15 【正确答案】 D 16 【正确答案】 D 17 【正确答案】 B 18 【正

24、确答案】 C 19 【正确答案】 C 20 【正确答案】 A 21 【正确答案】 C 22 【正确答案】 B 23 【正确答案】 A 24 【正确答案】 B 25 【正确答案】 A 26 【正确答案】 B 27 【正确答案】 A 28 【正确答案】 B 29 【正确答案】 A 30 【 正确答案】 C 31 【正确答案】 D 32 【正确答案】 D 33 【正确答案】 B 34 【正确答案】 A 35 【正确答案】 C 36 【正确答案】 接受用户作出的响应，作为程序继续执行的依据。 37 【正确答案】 变体 38 【正确答案】 Log2n 39 【正确答案】 有穷性 40 【正确答案】 & 41 【正确答案】 Mouse Down或 Mouse Up 42 【正确答案】 DragMode 43 【正确答案】 False 44 【正确答 案】 Int(Rnd*99+1) 45 【正确答案】 I J 46 【正确答案】 10 47 【正确答案】 Textl.Text或 Textl或 Forml.Textl.Text或 Forml.Textl或Me.Textl.Text或 Me.Textl 48 【正确答案】 Print #1,Mid(text1.text,I,1)