问答题 在考生文件夹下有一个工程文件sj4.vbp,窗体中有3个标签,名称分别为Label1、Label2和Label3,标题分别为“字型”、“字体”、“模拟考试”;在Label1和Label2标签的下面有两个组合框,名称分别为Combo1和Combo2,并为Combo1添加项目:“下画线”、“黑体”和“斜体”,为Comb02添加项目:“华文行楷”、“隶书”和“宋体”。请编写适当的事件过程,使得程序在运行时,当在Combo1中选一个字号、在Combo2中选一个字体,标签Label3中的文字立即变为选定的字号和字体,如下图所示。
注意:考生不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须选择一个字号和字体。必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后按原文件名存盘,程序中不能使用任何变量。
【正确答案】控件的名称由Name属性设置,向组合框添加项目有两种方法,可以在“属性”窗口的List属性里直接添加,也可以在代码中添加。本题要求在设计时添加。
根据题意,将两个ComboBox控件和3个标签添加到窗体中,ComboBox的名称属性分别为Combo1和Combo2,分别在
List属性中添加“下画线”、“黑体”、“斜体”和“华文行楷”、“宋体”、“隶书”,并将Style属性都设为3,标签的名称分别为Label1、Label2和Label3,Caption属性分别为“字型”、“字体”和“模拟考试”。双击窗体进入代码编写窗口,单击ComboBox调用Click函数,具体代码如下:
Private Sub Combo1_Click() 'Combo1的单击事件
If Combo1.ListIndex=0 Then
Label3.Font.Underline=True '下画线为真
Label3.Font.Bold=False '黑体为假
Label3.Font.Italic=False '斜体为假
Else
If Combo1.ListIndex=1 Then
Label3.Font.Bold=True
Label3.Font.Italic=False
Label3.Font.Underline=False
Else
Label3.Font.Italic=True
Label3.Font.Bold=False
Label3.Font.Underline=False
End If
End If
End Sub
Private Sub Combo2_Click() 'Combo2的单击事件
Label3.Font.Name=Combo2.List(Combo2.Listlndex) '将选中的项赋给Label3的字体属性
End Sub
单击
【答案解析】