第七讲菜单文档格式.docx
《第七讲菜单文档格式.docx》由会员分享,可在线阅读,更多相关《第七讲菜单文档格式.docx(7页珍藏版)》请在冰豆网上搜索。
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
Form1.Hide
Form2.Show
EndSub
程序运行时发现刚输入口令时就隐藏了Form1,显示了Form2,程序需要修改。
下面修改方案中正确的是
A)把Form1中Text1文本框及相关程序放到Form2窗体中
B)把Form1.Hide、Form2.Show两行移到2个EndIf之间
C)把IfKeyAscii=13Then改为IfKeyAscii="
Teaeher"
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$
则在弹出的信息框标题栏中显示的标题是
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
C)PrivateSubText1_Click()
EndSub
D)PrivateSubLabel1_Click()
11.以下说法中错误的是
A)如果把一个命令按钮的Default属性设置为True,则按回车键与单击该命令按钮的作用相同
B)可以用多个命令按钮组成命令按钮数组
C)命令按钮只能识别单击(Click)事件
D)通过设置命令按钮的Enabled属性,可以使该命令按钮有效或禁用
12.如果执行一个语句后弹出如图所示的窗口,则这个语句是
A)InputBox("
输入框”,”请输入VB数据”)
B)x=InputBox("
C)InputBox("
请输入VB数据”,”输入框”)
D)x=InputBox("
13.有弹出式菜单的结构如下表,程序运行时,单击窗体则弹出如下图所示的菜单。
下面的事件过程中能正确实现这一功能的是
A)PrivateSubForm_Click()
PopupMenucut
B)PrivateSubCommandlClick()
PopupMenuedit
C)PrivateSubForm_Click()
D)PrivateSubForm_lick()
PopupMenupaste
14.窗体上有一个名称为Text1的文本框和一个名称为Commandl、标题为“计算”的命令按钮,如图所示。
函数fun及命令按钮的单击事件过程如下,请填空。
PrivateSubCommand1_Click()
DimxAsInteger
x=Val(InputBOX("
输入数据"
))
Text1=Str(fun(x)+fun(x)+fun(x))
PrivateFunctionfun(ByRefnAsInteger)
IfnMod3=0Then
n=n+n
n=n*n
_【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
PrivateSubList1_DbICIickO
IfRTrim(List1.List(i))=RTrim(_【12】_)Then
Picturel.Picture=LoadPicture(p(i)._【13】_)
ExitFor
Next
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