1、VB笔试章节练习试卷 20及答案与解析 1 假定有一个菜单项，名称为 MenuItem，为了在运行时使该菜单项失效 (变灰 )，应使用的语句为 _。 （ A） MenuItem. Enabled = False （ B） MenuItem. Enabled= Ture （ C） MenuItem. Visible = True （ D） MenuItem. Visible= False 2 以下叙述中错误的是 _。 （ A）在同一窗体的菜单项中，不允许出现 Name 属性相同的菜单项 （ B）在菜单的 标题栏中， “&”所引导的字母指明了访问该菜单项的访问键 （ C）程序运行过程中，可以重新设
2、置菜单的 Visible 属性 （ D）同一个窗体中的所有弹出式菜单都在同一个菜单编辑器中定义 3 以下关于菜单的叙述中，不正确的是 _。 （ A）在程序运行过程中能够增加或减少菜单项 （ B）使菜单项的 Enabled 属性为 False，则可删除该菜单项 （ C）弹出式菜单在菜单编辑器中设计 （ D）利用控件数组可以实现菜单项的增加或减少 4 如果要在菜单中添加一个分隔线，则应将其 Caption 属性设置 为 _。 （ A） = （ B） * （ C） & （ D） - 5 以下叙述中错误的是 _。 （ A）每个菜单项都是一个控件，与普通控件一样，也有属性和事件 （ B）菜单项只能响应
3、Click 事件 （ C）菜单项的索引号必须从 1开始 （ D）菜单项的索引号可以不连续 6 以下叙述中错误的是 _。 （ A）菜单名称是程序使用菜单的标识 （ B）菜单名称是设置菜单属性的对象 （ C）菜单名称是显示在菜单项上的字符串 （ D）菜单名称是引用菜单项属性的对象 7 假定已经在菜单编辑器中 建立了窗体的弹出式菜单，其顶级菜单的名称为 a1，其 “可见 ”属性为 False，则程序运行后，可以同时响应鼠标左键单击和右键单击的事件过程是 _。 （ A） Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer
4、, X As Single, Y As SinglE)If Button = 1 And Button = 2 Then PopupMenu al End If End Sub （ B） Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As SinglE)PopupMenu a1 End Sub （ C） Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As S
5、inglE)If Button = 1 Then PopupMenu a 1 End If End Sub （ D） Private Sub Form_ MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As SinglE)If Button = 2 Then PopupMenu a 1 End If End Sub 8 设通用对话框的名称为 CD1，如，果希望在 “打开 ”对话框中的 “文件类型 ”列表中包含所有文件、 Word 文档和文本文件，则应把 Filter 属性设置为 _。 （ A） CD1.Filter
6、=”所有文件 Word 文档文本文件 ” （ B） CD1.Filter=”所有文件 *.* Word文档 *.doc，文本文件 *.txt“ （ C） CD1.Filter=所有文件 *.* Word 文档 *.doc文本文件 *.txt （ D） CD1.Filter=”*.*所有文件 *.doc Word 文档 *.txt文本文件 ” 9 如果设置了通用对话框的以下属性： DefaultExt=“doc“ FileName=“c:file1.txt“，Filter= “应用程序 *.exe”，则显示 “打开 ”对话框式，在 “文件类型 ”下拉列表中的默认文件类型是 _。 （ A）应用程序
7、 (*.exE) （ B） *.doc （ C） *.txt （ D）不确定 10 在窗体上画一个通用对话框，其名称为 CommonDialog1，然后画一个名为Command1的命令按钮，并编写如下事件过程： Private Sub Command1_ Click() CommonDialogFlags= cd10FNHideReadOnly CommonDialogFilter= “All Files (*.*) *.* Text File“ & _ “(*.txt) *.txt Batch Files (*.bat) *.bat“ CommonDialogFilterIndex = 2
8、CommonDialogShowOpen MsgBox CommonDialogFileName End Sub程序运行后，单击命令按钮，将显示一个 “打开 ”对话框，此时在 “文件类型 ”框中显示的是 _。 （ A） All Files (*.*) （ B） Text Files(*.txt) （ C） Batch Files (*.bat) （ D）不确定 11 在启动窗体 Form1上画一个名为 Command1的命令按钮和两个文本框 (其名称分别为 Text1和 Text2)，新建一个窗体 Form2。然后编写如下程序： Private Sub Command1_ Click() ms
9、g$ = “Retry“ Title$ = “Error!“ If TextText = “a“ And TextText = “1“ Then Unload Me Form Show Else MsgBox msg$, vbOKOnly + vbCritical, Title$ End If End Sub运行该程序，要实现单击Command1命令按钮后卸载当前窗体，再弹出名为 Form 2的窗体，则在两个文本框中应分别输入 _。 （ A） a 1 （ B） a a （ C） 1 a （ D） 1 1 12 假定一个文本框的 Name属性为 Text1，为了在该文本框中显示 “Hello!”，所使用的语句为【 】。 VB笔试 章节练习试卷 20答案与解析 1 【正确答案】 A 2 【正确答案】 A 3 【正确答案】 B 4 【正确答案】 D 5 【正确答案】 C 6 【正确答案】 C 7 【正确答案】 B 8 【正确答案】 B 9 【正确答案】 A 10 【正确答案】 B 11 【正确答案】 C 12 【正确答案】 Text1.text=“Hello!“
