Question

2．在考生文件夹下有一个工程文件kt4.vbp，请在Form1窗体上建立一个名称为Op1的单选按钮数组，它含有三个

2．在考生文件夹下有一个工程文件kt4.vbp，请在Form1窗体上建立一个名称为Op1的单选按钮数组，它含有三个单选按钮，其标题分别为“10!”、“11！”和“12！”，Index属性分别为0、1和2；再画一个名称为C1的命令按钮，标题为“计算”；画一个名称为Text1的文本框。程序的功能是选定一个单选按钮并单击“计算”按钮后，可以计算出相应的阶乘值，并在Text1中显示该阶乘值。请画出上述控件并编写程序，使其能正确运行。
注意：考生不得修改工程中已经存在的内容，在结束程序运行之前，必须进行一次计算；必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后按原文件名保存。

ji yong shui gei wo xie yi ge dai ma ?ganxie wan fen

Answer 1

代码如下：

Private Sub Command1_Click()

Dim i, j, h, k, o, p As Double

If Option1(0) = True Then '10的阶乘

    For i = 1 To 10

        For j = 1 To 10

            i = i * j

        Next

    Next

Text1.Text = i

ElseIf Option1(1) = True Then '11的阶乘

    For h = 1 To 11

        For k = 1 To 11

            h = h * k

        Next

    Next

Text1.Text = h

ElseIf Option1(2) = True Then '12的阶乘

    For o = 1 To 12

        For p = 1 To 12

            o = o * p

        Next

    Next

Text1.Text = o

End If

End Sub

Answer 2

dim s as integer
dim i as integer
dim j as integer
temp=1
for i= 0 to 2
if op1(i).value=true then
s=val(op1(i).caption)
end if
next i
for j=1 to s
temp=temp*j
next j
text1.text=temp