[问答题] 注意：下面出现的“考生文件夹”均为c：wexam25160001。 (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有号的地方填入正确内容，然后删除及所有注释符(即’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在名称为Form1的窗体上有三个Labe1控件和两个命令按钮，Labe1控件均为提示信息。命令按钮 CMDstart和CMDexit，程序运行后，单击“开始”按钮，程序自动利用循环计算1＋1/2＋1/3＋..

在窗体上建立好控件后，先设置控件属性，再编写事件过程。按钮的标题由其Caption属性设置，单击触发其Click事件。文件的操作一般按照如下步骤进行：打开或建立文件、进行读或写操作、关闭文件。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表15-3。表15-3控件名称属性设置值　Label2　Caption　考生文件夹RESULT.TXT　Label4　Caption　目标文件：　Label5　Caption　利用循环进行计算1+1/2+1/3+…+1/10的结果，并且把结果写入目标文件中　按钮控件　１　名称　CMDSTART　Caption　开始　按钮控件　２　名称　CMDEXIT　Caption　退出　　第二步：编写程序代码。　　程序提供的代码：　　　　PrivateSubCmdEXIT_Click()　　　　　　End　　　　EndSub　　　　PrivateSubCmdstart_click()　　　　　　DimEAsSingle,JAsInteger　　　　　　DimTAsSingle　　　　　　’OpenApp.Path&ForAs　　　　　　’E=　　　　　　T=1　　　　　　ForJ=2To10Step1　　　　　　　　T=i/J　　　　　　　E=E+T　　　　　　　NextJ　　　　　　’Write#1,　　　　　　Close#1　　　　　　’CMDSTART.Caption=　　　　　　’CMDSTART.Enabled=　　　　EndSub　　参考代码：　　　　PrivateSubCMDEXIT_Click()　　　　　　End　　　　EndSub　　　　PrivateSubCMDstart_click()　　　　　　DimEAsSingle,JAsInteger　　　　　　DimTAsSingle　　　　　　OpenApp.Path&""&"result.txt"ForOutputAs#1　　　　　　E=1　　　　　　T=1　　　　　　ForJ=2To10Step1　　　　　　　　T=1/J　　　　　　　　E=E+T　　　　　　　　Debug.PrintT,E　　　　　　NextJ　　　　　　Write#1,E　　　　　　PrintE　　　　　　Close#1　　　　　　CMDSTART.Caption="完成"　　　　　　CMDSTART.Enabled=False　　　　EndSub　　第三步：调试并运行程序。　　第四步：按题目要求存盘。　　(2)单选按钮都是成组出现，用户在一组单选按钮中只能且最多选择一项，某项被选定后，其左边的圆圈中出现一个黑点；字体由FontName属性决定，字体的大小由FonfSize属性决定：清除文本框的内容可以用将文本框的内容置空来实现(文本框．Text="")。　　需要指出的是框架是一个容器控件，用于将窗体上的控件分组，不同的对象剋放在同一个框架内，它提供了视觉上的区分和总体的激活或屏蔽功能。要使用框架对控件进行分组，必须先画出框架，然后在框架内画出需要成为一组的控件，这样才能将框架内的控件组成一个整体。解题步骤：　　第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表15-4。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　表　15-4控件名称属性设置值　Option1　Caption　仿宋　Option2　Caption　楷体　Option3　Caption　隶书　Option4　Caption　黑体　Option5　Caption　七号　Option6　Caption　五号　Option7　Caption　三号　Option8　Caption　初号　Command1　Caption　初始化　Command2　Caption　清除　Command3　Caption　退出第二步：编写程序代码。程序提供的代码：OptionExplicitPrivateSubCommand1_Click()Option1.Value=TrueOption6.Value=TrueText1.Text="请输入您要设置的文本"EndSubPrivateSubCommand2_Click()Option1.Value=TrueOption6.Value=True’Text1.Text=EndSubPrivateSubCommand3_Click()EndEndSubPrivateSubForm_Load()Option1.Value=TrueOption6.Value=TrueText1.Text="请输入您要设置的文本"EndSubPrivateSubOption1_Click()Text1.FontName="仿宋GB2312"EndSubPrivateSubOption2_Click()’Text1.FontName=EndSubPrivateSubOption3_Click()Textl.FontName="隶书"EndSubPrivateSubOption4_Click()Text1.FontName="黑体"EndSubPrivateSubOption5_Click()Text1.FontSize="5.5"EndSubPrivateSubOption6_Click()’Text1.FontSize=EndSubPrivateSubOption7_Click()Text1.FontSize="16"EndSubPrivateSubOption8_Click()Text1.FontSize="42"EndSub参考代码：OptionExplicitPrivateSubCommand1_Click()Option1.Value=TrueOption6.Value=TrueText1.Text="请输入您将要设置的文本"EndSubPrivateSubCommand2_Click()Option1.Value=TrueOption6.Value=TrueText1.Text=""EndSubPrivateSubCommand3_Click()EndEndSubPrivateSubForm_Load()Option1.Value=TrueOption6.Value=TrueText1.Text="请输入您要设置的文本"EndSubPrivateSubOption1_Click()Text1.FontName="仿宋GB2312"EndSubPrivateSubOption2_Click()Text1.FontName="楷体GB2312"EndSubPrivateSubOption3_Click()Text1.FontName="隶书"EndSubPrivateSubOption4_Click()Text1.FontName="黑体"EndSubPrivateSubOption5_Click()Text1.FontSize="5.5"EndSubPrivateSubOption6_Click()Text1.FontSize="10.5"EndSubPrivateSubOption7_Click()Text1.FontSize="16"EndSubPrivateSubOption8_Click()Text1.FontSize="42"EndSub第三步：调试并运行程序。第四步：按题目要求存盘。