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

admin2015-06-30  26

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

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

选项

答案(1)【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Private Sub Form_Unload(Cancel As Integer) unload sub End Sub 程序结束 参考答案 Private Sub Command1_Click() If Op1.Value = True Then Text1.FontName = "宋体" Else Text1.FontName = "隶书" End If If Ch1.Value = 1 Then Text1.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:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() Dim n As Long CD1.FileName = "" ’ CD1.? = "所有文件|*.*|文本文件|*.txt|Word文档|*.doc" CD1.FilterIndex = 2 ’ CD1.? If CD1.FileName <> "" Then ’ Open ? For Input As #1 n = LOF(1) Text1 = Input$(n, #1) ’ ? End If End Sub 程序结束 参考答案 第1个?处填入:Filter 第2个?处填入:ShowOpen 第3个?处填入:CD1.FileName 第4个?处填入:Close #1 步骤3:调试并运行程序,关闭程序后按题目要求存盘。

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

最新回复(0)