2012年计算机二级VB用户界面设计练习题及答案(9)
二、 填空题
1.复选框 【1】 属性设置为2—Grayed时，变成灰色,禁止用户使用。
2.组合框是组合了文本框和列表框的特性而形成的一种控件。 【2】 风格的组合不允许用户输入列表框中没有的选项。
3.滚动条响应的重要事件有 【3】 和Change。
4.当用户单击滚动条的空白处时，滑块移动的增量由 【4】 属性决定。
5.在对象的KeyPress事件过程中，参数KeyAscii表示所按键的__【5】__值。
6.在程序运行时，如果将框架 【6】 属性设置为False，则框架的标题呈灰色，表示框架内的所有的对象均被屏蔽，不允许用户对其进行操作。
7.当用户单击右键时，MouseDown、MouseUp和MouseMove事件过程的Button参数值为 【7】 。
8.当用户同时按下Ctrl和Shift并单击鼠标时，MouseDown、MouseUp和MouseMove事件过程的Shift参数值为 【8】 。
9.只要将MousePoint属性设置为 【9】 ，鼠标指针就恢复原样。
10.如果将窗体的 【10】 属性设置为True，则控件的KeyPress事件过程可以接收到在窗体的KeyPress过程中修改过的KeyAscii 值。
11.下面的程序段是将列表框List1中重复的项目删除，只保留一项。
For i = 0 To List1.ListCount – 1
For j = List1.ListCount – 1 To 【11】 Step – 1
If List1.List(i) = List1.List(j) Then
【12】
End If
Next j
Next i
12.下列程序段是允许用户按Enter键将一个组合框(CboComputer)中没有的项目添加到组合框中。
Sub CboComputer_Keypress(KeyAscii As Integer)
Dim flag As Boolean
If KeyAscii = 13 Then
flag = False
For i = 0 To CboComputer.ListCount – 1
If 【13】 Then
flag = True
Exit for
End If
Next i
If 【14】 Then
【15】
Else
MsgBox(“组合框中已有该项目！”)
End If
End If
End Sub
13.在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码：
Dim SaveAll As String
Private Sub Command1_Click()
Textl．Text=Left(UCase(SaveAll)，4)
End Sub
Private Sub Texl1_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是_【16】____ 。
14.列表框中列表项的数目可通过__【17】__属性获得。
15.为了使计时器控件Timer1每隔1秒触发一次Timer事件,应将Timer1控件的_【18】___属性设置为__【19】___。
16.在窗体上画一个名称为Command1）标题为"计算"的命令按钮；画两个文本框，名称分别为Text1和Text2；然后画4个标签，名称分别为Label1）Label2）Label3和Label4，标题分别为"操作数1"）"操作数2"）"运算结果"和空白；再建立一个含有4个单选按钮的控件数组，名称为Option1，标题分别为"+"）"-"）"*"和"/"。程序运行后，在Text1）Text2中输入两个数值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在Label4中。请在____处填入适当的内容，将程序补充完整。
Private Sub Command1_Click()
For i = 0 To 3
If _【20】___ = True Then
opt = Option1(i).Caption
End If
Next
Select Case _【21】___
Case "+"
Result = Val(Text1.Text) + Val(Text2.Text)
Case "-"
Result = Val(Text1.Text) - Val(Text2.Text)
Case "*"
Result = Val(Text1.Text) * Val(Text2.Text)
Case "/"
Result = Val(Text1.Text) / Val(Text2.Text)
End Select
_【22】___ = Result
End Sub
17. 菜单的热键指使用 【23】 键和菜单项标题中的一个字符打开菜单。
18. 建立热键的方法是在菜单标题的某个字符前加一个 【24】 符号，在菜单中这一字符会自动加上下划线，表示该字符是一个热键。
19. 如果把菜单的 【25】 属性设置为True， 则该菜单项将成为一个选项。
20. 不管是在窗口顶部的菜单条上显示菜单还是隐藏菜单，都可以用 【26】 方法把它们作为弹出菜单，在程序运行期间显示出来。
21. 假定有一个通用对话框CommonDialog1，除了可以用CommonDialog1.Action=3显示颜色对话框外，还可以用 【27】 方法显示。
22. 在显示字体对话框之前必须设置 【28】 属性，否则将发生不存在的字体错误。
23. 在用Show方法后显示自定义的对话框时，如果Show方法之后带 【29】 参数，就将窗体作为模式对话框显示。
24. 如果在建立菜单时，在标题文本框中输入一个" 【30】 "，那么菜单显示时，形成一个分割线。
25. CommonDialog是ActiveX控件，需要通过 【31】 命令选择Microsoft Common Dialog 6.0选项，将CommonDialog控件添加到工具箱中。
26.在菜单编辑器中建立一个菜单，名为pmenu，用下面的语句可以把它作为弹出式菜单弹出，请填空。
Form1.__ 【32】__ .pmenu
27.在菜单编辑器中建立一个菜单，其主要菜单项的名称为mnuEdit,Visible属性为False。程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit对应的菜单。以下是实现上述功能的程序，请填空。
Private Sub Form_ __【33】___(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button=2 Then
__【34】___ mnuEdit
End If
End Sub