2. 计算机
  3. (1)在窗体上有一个名为Labell的标签控件和三个单选按钮，均没有标题，请利用“属性”窗口为单选按钮依次添加标题“汉语”、“英语”、“德语”；再添加一个标题为“输出”的命令按钮，如图45—3所示。程序的功能是：运行时，如果选中一个单选按钮后，单击“输出”

(1)在窗体上有一个名为Labell的标签控件和三个单选按钮，均没有标题，请利用“属性”窗口为单选按钮依次添加标题“汉语”、“英语”、“德语”；再添加一个标题为“输出”的命令按钮，如图45—3所示。程序的功能是：运行时，如果选中一个单选按钮后，单击“输出”

admin2010-07-13  49
问题 (1)在窗体上有一个名为Labell的标签控件和三个单选按钮，均没有标题，请利用“属性”窗口为单选按钮依次添加标题“汉语”、“英语”、“德语”；再添加一个标题为“输出”的命令按钮，如图45—3所示。程序的功能是：运行时，如果选中一个单选按钮后，单击“输出”按钮，则根据单选按钮的选中情况，在Labell显示“我的母语是汉语”、“我的母语是英语”或“我的母语是德语”。设初始选中的是“汉语”。
    注意：去掉程序中的注释符“’”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按sj3．vbp和sj3．frm文件名存盘。
    (2)在考生文件夹下有一个工程文件sj4．vbp，窗体中有3个标签，名称分别为Labell、Label2和Label3，标题分别为“字型”、“字体”、“模拟考试”；在Labell和Label2标签的下面有两个组合框，名称分别为Combo1和Combo2，并为Combol添加项目：“下划线”、“黑体”和“斜体”，为Combo2添加项目：“华文行楷”、“隶书”和“宋体”。请编写适当的事件过程，使得程序在运行时，当在Combol中选一个字号、在Combo2中选一个字体，标签Label3中的文字立即变为选定的字号和字体，如图45—4所示。

    注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须选择一个字号和字体。，必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，按原文件名存盘，程序中不能使用任何变量。
选项
答案 (1)单选按钮的标题由Caption属性设置．判断单选按钮的状态通过Value属性来实现。如果单选按钮被选中，则Value值为1；没选中，Value值为0。 根据题意，将3个单选按钮控件、一个命令按钮和一个标签添加到窗体中，单选按钮的名称分别为Optionl、Option2和Option3，Caption属性分别为“汉语”“英语”和“德语”，命令按钮的名称为Commandl、Caption属性为“输出”，标签的名称为Labell、Caption属性为空。双击Commandl进入代码编写窗口，利用If…else语句进行判断，补充后的具体代码如下： Private Sub Commandl_Click() If Optionl．Value=True Then Labell．Caption="我的母语是"+Optionl．Caption Else If Option2．Value=True Then Labell．Caption="我的母语是"+Option2．Caption Else Labell．Caption="我的母语是"+Option3．Caption End If End If End Sub 单击[*]按钮运行程序，并按要求保存。 (2)控件的名称由Name属性设置，向组合框添加项目有两种方法，可以在“属性”窗口的List属性里直接添加，也可以在代码中添加。本题要求在设计时添加。 根据题意，将两个ComboBox控件和三个标签添加到窗体中，ComboBox的名称属性分别为Combol和Comb02，分别在List属性中添加“下划线”、“黑体”、“斜体”和“华文行楷”、“宋体”、“隶书”，并将Style属性都设为3，标签的名称分别为Labell、Label2和Label3，Caption属性分别为“字型”’‘‘字体”和“模拟考试”。双击窗体进入代码编写窗口，单击Combo调用Click函数，具体代码如下： Private Sub Comb01_Click()’Combol的单击事件 If Cornbo1．ListIndex=0 Then Label3．Font．Underline=True’下划线为真 Label3．Font．Bold=False’黑体为假 Label3．Font．Italic=False’斜体为假 Else If Combo1．Listlndex=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 Comb02_Click() ’Comb02的单击事件 Label3．Font．Name=Comb02．List(Comb02．ListIndex) ’将选中的项赋给Label3的字体属性 End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/GGmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)