问答题
在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在名称为Form1的窗体上有两个Label控件和两个命令按钮，Label控件均为提示信息。命令按钮Command1和Command2，程序运行后，单击“开始”按钮，程序自动利用循环计算1+1/2+1/4+1/8+1/16+1/32的结果，并把结果写入到考生文件夹下的out3.txt文件中。执行完毕“开始”按钮变成“完成”按钮，且无效(变灰)。程序运行界面如下图所示。
本题描述如下：
在名称为Form1的窗体上有两个Label控件和两个命令按钮，Label控件均为提示信息。命令按钮Command1和Command2，程序运行后，单击“开始”按钮，程序自动利用循环计算1+1/2+1/4+1/8+1/16+1/32的结果，并把结果写入到考生文件夹下的out3.txt文件中。执行完毕“开始”按钮变成“完成”按钮，且无效(变灰)。程序运行界面如下图所示。
【正确答案】根据题意，新建“标准EXE”工程，将两个标签和两个命令按钮添加到窗体中，标签的Caption属性分别为“利用循环计算1+1/2+1/4+1/8+1/16+1/32的结果，并把结果写入目标文件中。”和“目标文件：考生文件夹/out3.txt”，命令按钮的名称分别为Command1和Command2，Caption属性分别为开始和关闭，由于是小数，则参数定义为Double类型，双击Command1进入代码窗口，编写如下代码：
Private Sub Command1_Click()
Dim res As Double '结果
Dim i As Integer '计数
Dim temp As Double '每个需要相加的数
res=1
temp=1
For i=1 To 5 '循环5次，表示除了1之外的5个分数
temp=temp/2 '每个数都是前一个的一半
res=res+temp '进行相加
Next i
Open "out3.txt" For Output As # 1 '打开文件
Write # 1,res '将结果写入文件
Close # 1
Command1.Caption="完成"
Command1.Enabled=False
End Sub
Private Sub Command2_Click()
Unload Me '关闭对话框
End Sub
单击
Private Sub Command1_Click()
Dim res As Double '结果
Dim i As Integer '计数
Dim temp As Double '每个需要相加的数
res=1
temp=1
For i=1 To 5 '循环5次，表示除了1之外的5个分数
temp=temp/2 '每个数都是前一个的一半
res=res+temp '进行相加
Next i
Open "out3.txt" For Output As # 1 '打开文件
Write # 1,res '将结果写入文件
Close # 1
Command1.Caption="完成"
Command1.Enabled=False
End Sub
Private Sub Command2_Click()
Unload Me '关闭对话框
End Sub
单击
【答案解析】