2006年计算机二级VB上机题库练习及答案(5)

    注意：
    保存时必须存放在考生文件夹下，窗体文件名为djks006.frm，工程文件名为djks006.vbp。

【答案】
1.建立工程（略）
2.添加窗体
3.设计窗体
    直接在窗体上画出文本框Text1与控制按钮Command1，并将Command1的Caption属性设置为“计算”。
4.编写代码
    双击Command1,进入Command1的Click事件过程中，编写代码：
Private Sub Command1_Click()
Dim a As Integer
Dim temp As Long
Dim i As Integer
a = Val(InputBox("请输入", ,"10"))
temp = 1
For i = 1 To Val(a)
temp = temp * i
Next
 Text1.Text = temp
 putdata "out006.txt",Text1.Text
End Sub
【解析】
    根据题意，要使用InputBox()函数弹出对话框用来输入数值10，并将10赋给变量a。由于InputBox()函数返回的是字符串，故需要将返回值经过Val()函数处理。由于是阶乘，故使用For循环语句。每执行一次For循环，temp值乘i，最终temp为10！。最后调用putdata过程，两个参数分别表示被输入的文件以及输入的数据。