在考生文件夹下有工程文件djks044.vbp及窗体文件djks044.frm，该程

题目：

在考生文件夹下有工程文件djks044.vbp及窗体文件djks044.frm，该程序是不完整的，请在有的地方填入正确内容，然后删除及所有注释符(’)，但不能修改其他部分。存盘时不得改变文件名和文件夹。

本题描述如下：在Form1窗体上建立一个名称为Op1的单选按钮数组，含有三个单选按钮，其标题分别为“10!”、“11!”、“12!”，Index属性分别为0、1、2；再画两个命令按钮，按钮的名称分别为Cmd1与Cmd2，标题分别为“计算”与“保存”；画一个名称为Tex1的文本框。程序的功能是在选定一个单选框并单击“计算”按钮后，可以计算出相应的阶乘值，在Text1中显示该值。单击“保存”，文本框中的数据可以保存到考生文件夹下的out044.txt文件夹中。注意窗体加载时，Cmd2按钮不可用，单击“计算”按钮后，Cmd2变为可用。

程序运行时的窗体界面如下图所示。

试题源程序

1 Private Sub Cmd1_Click( )

2 Cmd2.Enabled=True

3 Dim i As Integer

4 Dim t As Integer

5 For i=0 To 2

6 If Opl(i)=True Then

i. t=Val(Left$(Op1(i).Caption，))

ii. Text1.Text=(t)

7 End If

8 Next i

9 End Sub

10 Function Out(n As Integer)

11 Dim i As Integer

12 Dim t As Long

13 t=1

14 For i=2 To n

15 Print

16 Next i

17 Out=t

18 End Funtion

19 Private Sub Cmd2_Click( )

20 Open App.Path &"\out044.txt" For Output As #1

21 Print#1，Text1.Text

22 Close #1

23 End Sub

24 Private Sub Form Load( )

25 Cmd2.Enabled=

26 End Sub