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

15 查阅

[多项选择题] 请根据以下各小题的要求设计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

计算机考试