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 相关资料 |
