【正确答案】① 启动Visual Basic,装入工程文件sjt5.vbp。
② 打开代码窗口,所提供的事件过程如下:
Private Sub Form_Unload(Cancel As Integer)
Open"out5.dat"For Output As #1
Print #1,Op1(0).Value,Op1(1).Value,Op1(2).Value,Va1(Text1.Text)
Close # 1
End Sub
这是窗体的Unload事件过程,用来把每个单选按钮当前的Value属性值和文本框中的内容写入out5.dat文件。程序运行后,如果通过单击窗体右上角的“关闭”按钮来关闭窗体,则自动执行该事件过程,而如果通过单击工具栏上的“结束”按钮来结束程序,则不会执行该事件过程。
③ 编写命令按钮的Click事件过程:
Private Sub Command1_Click()
Dim a As Long,a1 As Long,a2 As Long
Dim k As Integer,n As Integer
For k=0 To 2
If Op1(k). Value Then
n=Val(Op1(k).Caption)
End If
Next k
a1=1
a2=1
For k=3 To n
a=a1+a2
a1=a2
a2=a
Next k
Text1.Text=a
End Sub
该过程包含两个For循环,其中第1个 For循环用来确定n的值,选择某个单选按钮后,该单选按钮的标题即作为n的值;第2个 For循环用来计算数列第n项的值。
④ 运行程序,选择一个单选按钮,然后单击命令按钮,即可计算数列第n项的值,并在文本框中显示出来,此时可单击窗体右上角的“关闭”按钮,结束程序。
【答案解析】