2. 计算机
  3. 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 1．在考生文件夹下打开工程sjt3.vbp，在窗体Form1上建立一个名称为Text1的文本框和一个名称为Command1，标题为“计算”的命令按钮(如图2—1所示)。程序运行

请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 1．在考生文件夹下打开工程sjt3.vbp，在窗体Form1上建立一个名称为Text1的文本框和一个名称为Command1，标题为“计算”的命令按钮(如图2—1所示)。程序运行

admin2009-03-17  58
问题 请根据以下各小题的要求设计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所示。 [*] ② 编写程序代码。 参考代码： 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 ③ 按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/mj1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)