注意：
    保存時(shí)必須存放在考生文件夾下，窗體文件名為djks006.frm，工程文件名為djks006.vbp。

【答案】
1.建立工程（略）
2.添加窗體
3.設(shè)計(jì)窗體
    直接在窗體上畫出文本框Text1與控制按鈕Command1，并將Command1的Caption屬性設(shè)置為“計(jì)算”。
4.編寫代碼
    雙擊Command1,進(jìn)入Command1的Click事件過(guò)程中，編寫代碼：
Private Sub Command1_Click()
Dim a As Integer
Dim temp As Long
Dim i As Integer
a = Val(InputBox("請(qǐng)輸入", ,"10"))
temp = 1
For i = 1 To Val(a)
temp = temp * i
Next
 Text1.Text = temp
 putdata "out006.txt",Text1.Text
End Sub
【解析】
    根據(jù)題意，要使用InputBox()函數(shù)彈出對(duì)話框用來(lái)輸入數(shù)值10，并將10賦給變量a。由于InputBox()函數(shù)返回的是字符串，故需要將返回值經(jīng)過(guò)Val()函數(shù)處理。由于是階乘，故使用For循環(huán)語(yǔ)句。每執(zhí)行一次For循環(huán)，temp值乘i，最終temp為10！。最后調(diào)用putdata過(guò)程，兩個(gè)參數(shù)分別表示被輸入的文件以及輸入的數(shù)據(jù)。