第七讲菜单.docx
《第七讲菜单.docx》由会员分享，可在线阅读，更多相关《第七讲菜单.docx（7页珍藏版）》请在冰豆网上搜索。
第七讲菜单
第七讲菜单
1.下面不能在信息框中输出“VB”的是
A）MsgBox"VB"
B）x=MsgBox（"VB"）
C）MsgBox（"VB"）
D）CallMsgBox"VB"
2.窗体上有一个名称为Option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程
PrivateSubOption1_C1ick（IndexAsInteger）
…
EndSub
下面关于此过程的参数Index的叙述中正确的是
A）Index为1表示单选按钮被选中，为0表示未选中
B）Index的值可正可负
C）Index的值用来区分哪个单选按钮被选中
D）Index表示数组中单选按钮的数量
3.设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发
A）Text1的SetFocus事件
B）Text1的GotFocus事件
C）Text1的LostFocus事件
D）窗体的GotFocus事件
4.VB中有3个键盘事件：
KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母
A）这3个事件都会触发
B）只触发KeyPress事件
C）只触发KeyDown、KeyUp事件
D）不触发其中任何一个事件
5.设工程中有2个窗体：
Form1、Form2，Form1为启动窗体。
Form2中有菜单。
其结构如表。
要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键（回车键的ASCII码为13）后，隐藏Form1，显示Form2。
若口令为“Teacher”，所有菜单项都可见;否则看不到“成绩录入”菜单项。
为此，某人在Form1窗体文件中编写如下程序：
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
IfKeyAscii=13Then
IfText1.Text="Teacher"Then
Form2.input.visible=True
Else
Form2.input.visible=False
EndIf
EndIf
Form1.Hide
Form2.Show
EndSub
程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。
下面修改方案中正确的是
A）把Form1中Text1文本框及相关程序放到Form2窗体中
B）把Form1.Hide、Form2.Show两行移到2个EndIf之间
C）把IfKeyAscii=13Then改为IfKeyAscii="Teaeher"Then
D）把2个Form2.input.Visible中的“Form2”删去
6.在VisualBasic集成环境中，要添加一个窗体，可以单击工具栏上的一个按钮，这个按钮是
A）
B）
C）
D）
7.在VisualBasic集成环境的设计模式下，用鼠标双击窗体上的某个控件打开的窗口是
A）工程资源管理器窗口
B）属性窗口
C）工具箱窗口
D）代码窗口
8.设窗体上有一个命令按钮数组，能够区分数组中各个按钮的属性是
A）Name B）Index C）Caption D）Left
9.在窗体上画一个名称为Commandl的命令按钮。
单击命令按钮时执行如下事件过程：
PrivateSubCommand1_Click（）
a$="softwareandhardware"
b$=Right（a$,8）
c$=Mid（a$,1,8）
MsgBoxa$,,b$
EndSub
则在弹出的信息框标题栏中显示的标题是
A）softwareandhardware
B）hardware
C）software
D）1
10.在窗体上画一个文本框（名称为Text1）和一个标签（名称为Label1），程序运行后，如果在文本框中输入文本，则标签中立即显示相同的内容。
以下可以实现上述操作的事件过程是
A）PrivateSubText1_Change（）
Label1.Caption=Text1.Text
EndSub
B）PrivateSubLabel1_Change（）
Label1.Caption=Text1.Text
EndSub
C）PrivateSubText1_Click（）
Label1.Caption=Text1.Text
EndSub
D）PrivateSubLabel1_Click（）
Label1.Caption=Text1.Text
EndSub
11.以下说法中错误的是
A）如果把一个命令按钮的Default属性设置为True，则按回车键与单击该命令按钮的作用相同
B）可以用多个命令按钮组成命令按钮数组
C）命令按钮只能识别单击（Click）事件
D）通过设置命令按钮的Enabled属性，可以使该命令按钮有效或禁用
12.如果执行一个语句后弹出如图所示的窗口，则这个语句是
A）InputBox（"输入框”，”请输入VB数据”）
B）x=InputBox（"输入框”，”请输入VB数据”）
C）InputBox（"请输入VB数据”，”输入框”）
D）x=InputBox（"请输入VB数据”，”输入框”）
13.有弹出式菜单的结构如下表，程序运行时，单击窗体则弹出如下图所示的菜单。
下面的事件过程中能正确实现这一功能的是
A）PrivateSubForm_Click（）
PopupMenucut
EndSub
B）PrivateSubCommandlClick（）
PopupMenuedit
EndSub
C）PrivateSubForm_Click（）
PopupMenuedit
EndSub
EndSub
D）PrivateSubForm_lick（）
PopupMenucut
PopupMenupaste
14.窗体上有一个名称为Text1的文本框和一个名称为Commandl、标题为“计算”的命令按钮，如图所示。
函数fun及命令按钮的单击事件过程如下，请填空。
PrivateSubCommand1_Click（）
DimxAsInteger
x=Val（InputBOX（"输入数据"））
Text1=Str（fun（x）+fun（x）+fun（x））
EndSub
PrivateFunctionfun（ByRefnAsInteger）
IfnMod3=0Then
n=n+n
Else
n=n*n
EndIf
_【9】_=n
EndFunction
当单击命令按钮，在输入对话框中输入2时，文本框中显示的是_【10】_
15.窗体上有一个名称为List1的列表框，一个名称为Picture1的图片框。
Form_Load事件过程的作用是，把Datal.txt文件中的物品名称添加到列表框中。
运行程序，当双击列表框中的物品名称时，可以把该物品对应的图片显示在图片框中如图所示。
以下是类型定义及程序，请填空。
PrivateTypePic
gNameAsString*10 ‘物品名称
picFileAsString*20 ‘物品图片的图片文件名
EndType
Dimp（4）AsPic，pRecAsPic
PrivateSubForm_Load（）
Open”Datal.txt"ForRandomAs＃1_【11】_=Len（pRec）
Fori=0To4
Get＃1，i+l，P（i）
LISt1.AddItemp（i）.gName
Nexti
Close＃1
EndSub
PrivateSubList1_DbICIickO
Fori=0To4
IfRTrim（List1.List（i））=RTrim（_【12】_）Then
Picturel.Picture=LoadPicture（p（i）．_【13】_）
ExitFor
EndIf
Next
EndSub
16.窗体上有一个名称为CD1的通用对话框。
通过菜单编辑器建立如图1所示的菜单。
程序运行时，如果单击“打开”菜单项，则执行打开文件的操作，当选定了文件（例如：
G:
\VB\2010-9\in.txt）并打开后，该文件的文件名会被添加到菜单中，如图2所示。
各菜单项的名称和标题等定义如下表。
以下是单击“打开”菜单项的事件过程，请填空。
DimmnuCounterAsInteger
PrivateSubtnnuOpen_Click（）
CDI．Show0pen
IfCDI．FileName＜＞""Then
Open_【14】_ForInputAs＃1
mnuCounter=mnuCounter+1
LoadFName（mnuCounter）
FName（mnuCounter）.Caption=CDI.FileName
FName（mnuCounter）._【15】_=True
Close＃1
EndIf
EndSub
升级会员 