在考生文件夹下有工程文件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