注意：下面出现的“考生文件夹”均为c：\wexam\25160001。 (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有号的地方填入正确内容，然后删除及所有注释符(即’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在名称为Form1的窗体上有三个Labe1控件和两个命令按钮，Labe1控件均为提示信息。命令按钮 CMDstart和CMDexit，程序运行后，单击“开始”按钮，程序自动利用循环计算1＋1/2＋1/3＋...＋1/10的结果，并把结果写入到考生文件夹下result.txt文件中。执行完毕“开始”按钮变成“完成”，且无效(变灰)。程序运行界面如图15-4所示。 (2) 在考生文件夹下有工程文件sit4.vbp及窗体文件sjt4.frm，该程序是不完整的，请在有号的地方填入正确内容，然后删除及所有注释符(即’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 程序启动时文本框的默认文字为“请输入您要设置的文本”，默认的字体为“仿宋GB2312”，字号为五号。程序运行过程中可以修改文本框的内容在单击“初始化”时恢复启动时的状态；在单击“清除”后，文本框的内容为空，并恢复默认的字体，字型号。选择相应的字体和字型号可以设置文本框内文字的字体和属性。程序运行界面如图15-5所示。
参考答案：
解析： 在窗体上建立好控件后，先设置控件属性，再编写事件过程。
按钮的标题由其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 | 退出 |
程序提供的代码：
Private Sub CmdEXIT_Click()
End
End Sub
Private Sub Cmdstart_click()
Dim E As Single, J As Integer
Dim T As Single
’Open App.Path& For As
’E=
T=1
For J=2 To 10 Step 1
T=i/J
E=E+T
Next J
’Write #1,
Close #1
’CMDSTART.Caption=
’CMDSTART.Enabled=
End Sub
参考代码：
Private Sub CMDEXIT_Click()
End
End Sub
Private Sub CMDstart_click()
Dim E As Single, J As Integer
Dim T As Single
Open App.Path & "\" & "result.txt" For Output As #1
E=1
T=1
For J=2 To 10 Step 1
T=1/J
E=E+T
Debug.Print T, E
Next J
Write #1, E
Print E
Close #1
CMDSTART.Caption= "完成"
CMDSTART.Enabled=False
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(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 | 退出 |
程序提供的代码：
Option Explicit
Private Sub Command1_Click()
Option1.Value=True
Option6.Value=True
Text1.Text="请输入您要设置的文本"
End Sub
Private Sub Command2_Click()
Option1.Value=True
Option6.Value=True
’Text1.Text=
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Option1.Value=True
Option6.Value=True
Text1.Text="请输入您要设置的文本"
End Sub
Private Sub Option1_Click()
Text1.FontName ="仿宋GB2312"
End Sub
Private Sub Option2_Click()
’Text1.FontName=
End Sub
Private Sub Option3_Click()
Textl.FontName="隶书"
End Sub
Private Sub Option4_Click()
Text1.FontName="黑体"
End Sub
Private Sub Option5_Click()
Text1.FontSize="5.5"
End Sub
Private Sub Option6_Click()
’Text1.FontSize=
End Sub
Private Sub Option7_Click()
Text1.FontSize="16"
End Sub
Private Sub Option8_Click()
Text1.FontSize="42"
End Sub
参考代码：
Option Explicit
Private Sub Command1_Click()
Option1.Value=True
Option6.Value=True
Text1.Text="请输入您将要设置的文本"
End Sub
Private Sub Command2_Click()
Option1.Value=True
Option6.Value=True
Text1.Text=""
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Option1.Value=True
Option6.Value=True
Text1.Text="请输入您要设置的文本"
End Sub
Private Sub Option1_Click()
Text1.FontName="仿宋GB2312"
End Sub
Private Sub Option2_Click()
Text1.FontName="楷体GB2312"
End Sub
Private Sub Option3_Click()
Text1.FontName="隶书"
End Sub
Private Sub Option4_Click()
Text1.FontName="黑体"
End Sub
Private Sub Option5_Click()
Text1.FontSize="5.5"
End Sub
Private Sub Option6_Click()
Text1.FontSize="10.5"
End Sub
Private Sub Option7_Click()
Text1.FontSize="16"
End Sub
Private Sub Option8_Click()
Text1.FontSize="42"
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。