【正确答案】正确答案:① 首先将模块文件mode.bas添加到工程中,模块中包含的过程如下: Sub putdata(t_filename As String,t_str As Variant) Dim stile As String sfile="."&& t filename Open App. Path && sfile For Output As #1 Print #1,t_str Close #1 End Sub ② 编写命令按钮的事件过程: Private Sub Command1_Click<) Dim n,i As Integer Dim j As Long n=InputBox("请输入要计算的数字") j=1 For i=1 To n j=j*i Next i Text1.Text=j putdata "out3.txt",j End Sub ③ 运行程序,在inputbox对话框中输入数字“10”。 ④ 按试题要求保存窗体文件和工程文件。 2.① 建立界面和设置控件属性。 程序用到的控件及其属性如下表3所示。
.jpg)