在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是:在运行时,如果选中一个单选按钮和一个或两个复选框,并单击“确定”按钮,则对文本框中的文字做相应的设置,如图3-100所示。窗体上的控件已经画出,但没有给出主要程序内容,请编写适当的事件过程,完成上

admin2016-01-31  19

问题 在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是:在运行时,如果选中一个单选按钮和一个或两个复选框,并单击“确定”按钮,则对文本框中的文字做相应的设置,如图3-100所示。窗体上的控件已经画出,但没有给出主要程序内容,请编写适当的事件过程,完成上述功能。
    注意:不能修改已经给出的程序部分和已有的控件;在结束程序运行之前,必须选中一个单选按钮和至少一个复选框,并单击“确定”按钮;必须通过单击窗体右上角的关闭按钮结束程序,否则无成绩。最后把修改后的文件按原文件名存盘。
   

选项

答案审题分析 本题其实就是编写“确定”按钮的单击事件过程。设计思路:由于单选按钮数组选择的唯一性,可用一个If…Then…Else语句对可能出现的两种情况(Op1或Op2被选中)分别进行处理,为Text1的FontName属性设置不同值;对于两个复选框可用两个If…Then…Else语句依次对其选中情况进行处理,若选中则将对应的FontUnderline属性值或Fontltalic属性值设置为True,否则设置为False。 操作步骤 步骤1:打开考生文件下的本题工程文件sjt3.vbp。 步骤2:打开代码编辑窗口,编写“确定”按钮的Click事件过程,代码如下。 参考代码: Private Sub Command1_C1iCk() If Op1.Value Then Text1.FontName=Op1.Caption E1SeIf Op2.ValHe Then Text1.FontName=Op2.Caption End If If Ch1.Value=1 Then Text 1.FontUnderline=True Else Text1.FontUnderline=FalSe End If If Ch2.Value=1 Then Text1.FontItaliC=True ElSe Text1.FontItaliC=False End If End Sub 步骤3:按键运行程序,选中一个单选按钮和至少一个复选框,并单击“确定”按钮,最后单击窗体右上角的关闭按钮结束程序。 步骤4:按要求将文件保存至考生文件夹中。 特别提示 文本框的FontUnderline属性值和Fontltalic属性值一旦设置为True,将始终有效,直至将该属性值设置为False。 考点链接 选择控件、字体与字形。

解析
转载请注明原文地址:https://kaotiyun.com/show/DrLp777K
0

最新回复(0)