[多项选择题] 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。1．在考生文件夹下打开工程sjt3.vbp，在窗体Form1上建立一个名称为Text1的文本框和一个名称为

[多项选择题] 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
1．在考生文件夹下打开工程sjt3.vbp，在窗体Form1上建立一个名称为Text1的文本框和一个名称为Command1，标题为“计算”的命令按钮(如图2—1所示)。程序运行后，单击“计算”命令按钮，通过在对话框输入整数10，放入整形变量a中，然后计算a!，(提示：运算结果应放入Long型变量中)，在文本框中显示结果，并把结果存入文件out3.txt中。在考生文件夹中有一个标准模块mode.bas，该模块中提供了保存文件的过程putdata，考生可以直接调用。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt3.frm，工程文件名为sjt3.vbp。
2．在名称为Form1的窗体上画一个驱动器列表框，其名称为Driver1，再画一个目录列表框，其名称为Dir1；然后添加一个文件列表框，名称为File1。请设置适当的控件属性和编写适当的事件过程，使得在运行时，实现驱动器列表框、目录列表框和文件列表框的同步操作，且在列表框中只显示后缀名为exe的文件；如果双击文件列表框中的文件，则执行该文件(如图2—2所示)。程序中不得使用任何变量。已知；可以用Shell函数来运行可执行文件。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。

参考答案：

① 首先将模块文件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 #A Print #A,t_str Close #A End Sub ② 编写命令按钮的事件过程： Private Sub CommandA_Click() Dim n,i As Integer Dim j As Long n=InputBox("请输入要计算的数字") j=A For i＝A To n j＝j*i Next i TextA.Text＝j putdata "outC.txt",j End Sub ③ 运行程序，在inputbox对话框中输入数字“A0”。 ④ 按试题要求保存窗体文件和工程文件。B．① 建立界面和设置控件属性。 程序用到的控件及其属性如下表C所示。 表 C 控件

问题解析:

解析无