2012年计算机二级VB用户界面设计练习题及答案(9)

会计考友 · 发表于 2012-7-31 22:15:04

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

		自动登录	找回密码
密码			立即注册

[考试试题] 2012年计算机二级VB用户界面设计练习题及答案(9)