请根据以下各小题的要求设计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 #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所示。
表 3
控件 | 属性 | 设置值 |
驱动器列表框 | Name | Drive1 |
目录列表框 | Name | Dir1 |
文件列表框 | Name Pattern | File1 "*.exe" |
参考代码:
Private Sub Dir1_Change()
File1.Path=Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path=Driver1.Drive
End Sub
Private Sub File1_DblClick()
x=Shell(Filel.FileName,1)
End Sub
③ 按题目要求存盘。