1、VB 机试-试卷 45 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.(1)在名称为 Froml 的窗体上放置一个名称为 Drivel 的驱动列表框控件、一个名称为 Dir1 的目录列表框控件和一个名称为 Filel 的文件列表框控件。程序运行时，可以对系统中的文件进行浏览。程序运行时的窗体界面如图 581 所示。 注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为 sjlfrm，工程文件名为 sjlvbp。 (2)在名称为 Forml 的窗体上画一个命令按钮，名称为Command
2、l、标题为“无效”，请编写适当的事件过程，使得在运行时，如果单击命令按钮，则 Textl 文本框变为无效(即不可用)，双击窗体，该文本框变为有效(即可用)。程序中不得使用任何变量。程序运行的效果如图 582 所示。 （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.(1)在考生文件夹下有工程文件 sj3vbp 及窗体文件 sj3frm，该程序是不完整的。在窗口中有一个Label 控件和两个名称分别为 Commandl 和 Command2、标题分别为“开始”和“关闭”的命令按钮。要求程序运行后，单击“开始”按钮，能将下面给出的菱形写入考生
3、文件夹下的 shapedat 文件中；执行完毕，“开始”按钮变成“完成”，且无效(变灰)。程序运行时的窗体界面如图 514 所示。 注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹下有工程文件 sj4vbp 及窗体文件 sj4frm，该程序是不完整的。在窗体中有一个名称为 Commandl、标题为“读取字体大小”的命令按钮，一个名称为Listl 的列表框。要求程序运行后，单击“读取字体大小”按钮读取系统的字体，并在 Listl 中显示，如图 515 所示。 （分数：2.00）_三、综合应用题
4、(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生文件夹中有工程文件 sj5vbI)及其窗体文件 sj5frm，该程序是不完整的，请在有“?”的地方填人正确内容，然后删除“?”及代码前的所有注释符(即“”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在名称为 Form1 的窗体上有一个文本框，名称为Text1，MultiLine 属性为 True，ScrollBars 属性为 2；两个命令按钮，名称分别为 command1 和Command2、标题分别为“读人数据”和“计算保存”，运行界面如图 75 所示。要求程序运行后，如果单击“读人数
5、据”按钮，则读人 intxt 文件中的 50 个整数，放人一个数组中(数组下界为 1)，同时在文本框中显示出来；如果单击“计算保存”按钮，则先进行升序排列，计算前 25 个数的和与后 25 个数的和之差，并把求得的结果在文本框 Text2 中显示出来，同时把该结果存人考生文件夹中的 outtxt 文件中。(在考生文件夹下的标准模块 modebas 中的 writedata 过程可以把结果存入指定的文件。) 注意：文件必须存放在考生文件夹下，窗体文件名为 sj5frm，工程文件名为 sj5vbp，计算结果存入outtxt 文件，否则没有成绩。 （分数：2.00）_VB 机试-试卷 45 答案解析
6、(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.(1)在名称为 Froml 的窗体上放置一个名称为 Drivel 的驱动列表框控件、一个名称为 Dir1 的目录列表框控件和一个名称为 Filel 的文件列表框控件。程序运行时，可以对系统中的文件进行浏览。程序运行时的窗体界面如图 581 所示。 注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为 sjlfrm，工程文件名为 sjlvbp。 (2)在名称为 Forml 的窗体上画一个命令按钮，名称为Commandl、标题为“无效”，请编写适
7、当的事件过程，使得在运行时，如果单击命令按钮，则 Textl 文本框变为无效(即不可用)，双击窗体，该文本框变为有效(即可用)。程序中不得使用任何变量。程序运行的效果如图 582 所示。 （分数：2.00）_正确答案：(正确答案： (1)根据题意，新建“标准 EXE”工程，将一个驱动器列表框控件、一个目录列表框控件和一个文件列表框控件添加到窗体中，驱动器列表框的名称为 Drivel，目录列表框的名称为Dirl，文件列表框的名称为 Filel。双击 Drivel 进入代码窗口，编写如下代码： Private Sub Dirl_Change() FilelPath=DirlPath将 Filel
8、与 Dirl 关联起来 End Sub Private Sub Dirl_Click() FilelPath=DirlPath将 Filel 与 Dirl 关联起来 End Sub Private Sub Drivel_Change() DirlPath=DrivelDrive将 Dirl 与 Drivel 关联起来 End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，新建“标准 EXE”工程，将一个文本框控件和一个命令按钮添加到窗体中，文本框的名称为 Textl，命令按钮的名称为 Commandl、Caption 属性为“无效”，设置完成后双击 Commandl 进入代码窗口
9、，编写如下代码： Private Sub Commandl_Click() TextlEnabled=False将 Textl 变为不可用 End Sub Private Sub Form_DblClick() TextlEnabled=True双击窗 El 将 Textl 变为可用 End Sub 单击 )解析：二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.(1)在考生文件夹下有工程文件 sj3vbp 及窗体文件 sj3frm，该程序是不完整的。在窗口中有一个Label 控件和两个名称分别为 Commandl 和 Command2、标题分别为“开
10、始”和“关闭”的命令按钮。要求程序运行后，单击“开始”按钮，能将下面给出的菱形写入考生文件夹下的 shapedat 文件中；执行完毕，“开始”按钮变成“完成”，且无效(变灰)。程序运行时的窗体界面如图 514 所示。 注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹下有工程文件 sj4vbp 及窗体文件 sj4frm，该程序是不完整的。在窗体中有一个名称为 Commandl、标题为“读取字体大小”的命令按钮，一个名称为Listl 的列表框。要求程序运行后，单击“读取字体大小”按钮读取系统的字
11、体，并在 Listl 中显示，如图 515 所示。 （分数：2.00）_正确答案：(正确答案： (1)根据题意，将两个命令按钮和一个标签添加到窗体中，标签的 Caption 属性为“编写打印到目标文件的菱形。目标文件为 shapedat”，命令按钮的 Caption 属性分别设为“开始”和“关闭”，名称分别为 Commandl 和 Command2。双击 Commaildl。利用循环打印空格和字母“A”来画出菱形，进入代码窗口，补充后的代码如下： Private Sub Commandl_Click() Open AppPath&“shape5dat“For Output As#1 打开文件，
12、准备写入 Dim n As Integer Dim i As Integer Dim str AS String For n=0 To 4打印菱形上半部分 str=“ For i= 0 To 4-n 打印空格 str=str+“ Next i For i=0 To 2*n 打印字母“A“ str=str+“A“ Next i Print#1，str$ Next n For n=5 To 8 打印下半部分 str=“ For i=0 To n-4 打印空格 str=str+“ Next i For i=0 To 2* (8-n) 打印字母“A“ str=str+“A“ Next i Print#
13、1，str$ Next n Close#1 Commandl Enabled =False Commandl Caption =“完成“ End Sub Private Sub Command2 Click() Unload Me End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，将一个列表框控件和一个命令按钮添加到窗体中，列表框的名称设为Listl，命令按钮的名称设为 Commandl、Caption 属性为“读取字体大小”。双击 Commandl 进入代码编写窗口，其中 ScreenFonts 是读取系统字体的函数，然后利用循环添加到 Listl 中，补充后的具体代码如下
14、： Private Sub Commandl Click() Dim i As Integer For i=0 To Screen FontCount -1 Listl Addltem Screen Fonts(i) Next i End Sub 单击 )解析：三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.在考生文件夹中有工程文件 sj5vbI)及其窗体文件 sj5frm，该程序是不完整的，请在有“?”的地方填人正确内容，然后删除“?”及代码前的所有注释符(即“”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在名称为 F
15、orm1 的窗体上有一个文本框，名称为Text1，MultiLine 属性为 True，ScrollBars 属性为 2；两个命令按钮，名称分别为 command1 和Command2、标题分别为“读人数据”和“计算保存”，运行界面如图 75 所示。要求程序运行后，如果单击“读人数据”按钮，则读人 intxt 文件中的 50 个整数，放人一个数组中(数组下界为 1)，同时在文本框中显示出来；如果单击“计算保存”按钮，则先进行升序排列，计算前 25 个数的和与后 25 个数的和之差，并把求得的结果在文本框 Text2 中显示出来，同时把该结果存人考生文件夹中的 outtxt 文件中。(在考生文件
16、夹下的标准模块 modebas 中的 writedata 过程可以把结果存入指定的文件。) 注意：文件必须存放在考生文件夹下，窗体文件名为 sj5frm，工程文件名为 sj5vbp，计算结果存入outtxt 文件，否则没有成绩。 （分数：2.00）_正确答案：(正确答案：根据题意，将两个 Text 控件和两个 Command 控件添加到窗体上，Text 的名称分别为 Textl 和 Text2、Text 属性都为空，其中 Textl 的 MuhiLine 属性为 True、ScrollBar 属性为2，Command 的名称分别为 Commandl 和 Command2、Caption 属性分
17、别为“读入数据”和“计算保存”。双击 Commandl 命令按钮进入代码窗口，编写如下代码： Dim a(50)As Long全局变量 Private Sub Command1 Click() TextlText=“ Open AppPath&“intxt“For Input As#1打开“intxt“文件 Dim i As Integer Dim temp As Integer For i=1 To 50 Input#1，temp a(i)=temp按顺序读入到数组中 Next i For i=1 To 50 TextlText=TextlText+CStr(a(i)+vbCrLf将数组中的
18、数放入 Text 中显示 Next i Close#1 End Sub Private Sub Command2 Click() Dim i As Integer Dim J As Integer Dim k As Integer Dim temp As Integer For i=l To 50 升序序排列 temp=a(i) For j=1 To i If a(j) temp Then读取的数据比原位置的数据大则偏移 For k=i To j+1 Step-l a(k)=a(k-1) 数据向后偏移一个 Next k a(j)=temp Exit For End If Next j Next i Dim totall As Long Dim total2 As Long totall=0 total2=0 For i=1 TO 25 totall=totall+ a(i) 计算前 25 个数据的和 Next i For i=26 To 50 totel2=total2+a(i) 计算后 25 个数据的和 Next i Text2Text=totall-total2 Writedata(totall-total2) End Sub 单击 )解析：
