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

admin2017-10-27  35

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

    注意:不能修改已经给出的程序部分和已有的控件;在结束程序运行之前,必须选中一个单选按钮和至少一个复选框,并单击“确定”按钮;必须通过单击窗体右上角的关闭按钮结束程序,否则无成绩。最后把修改后的文件按原文件名存盘。
    (2)在考生文件夹下有一个工程文件sjt4.vbp。窗体中已经给出了所有控件。程序运行时,单击“读入文件”按钮,将显示一个“打开”对话框,可以在该对话框中选择考生文件夹下的文本文件in4.txt,并把该文件的内容显示到Text1文本框中。要求:请去掉程序中的注释符,并把程序中的?改为正确的内容,使其能正确运行,但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。

选项

答案(1)【操作步骤】 步骤1:打开考生文件下的本题工程文件sjt3.vbp。 步骤2:打开代码编辑窗口,编写“确定”按钮的Click事件过程,代码如下。参考代码: Private Sub Command1_Click() If Op1.Value Then Text1.FontName=Op1.Caption ElseIf Op2.Value 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:按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符“’”将问号“?”改为正确的内容。参考代码: Private Sub Command1 _Click() Dim n As Long CD1.FileName=" " CD1.Filter="所有文件|*.*|文本文件 |*.txt|Word文档|*.doc" CD1.FiiterIndex=2 CD1.Action=1 If CD1.FileName<>" "Then Open CD1.FileName For Input As#1 _=LOF(1) Text1=Inputs(n,#1) Close #1 End If End Sub 步骤2:按要求将文件保存至考生文件夹中。

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

最新回复(0)