1、VB机试模拟试卷 99及答案与解析 一、基本操作题（ 30分） 1 (1)在窗体 Forml上画一个命令按钮，名称为 Command1，标题为 “打开文件 ”，在窗体上添加适当的控件并编写适当的程序代码，要求程序运行时，单击 “打开文件 ”命令按钮，可以弹出 “打开文件 ”对话框。程序运行时的窗体界面如图 51所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sj1 frm，工程文件名为sj1.vbp。 (2)在窗体 Forml上画一个列表框，名称为 List1，有 “Item1”、 “Item2”、“Itera3”和 “Item4”4个表项。要求编写适当的程序代码，当双击列表中某一项
2、时，弹出一个对话框提示 “是否删除 ”。对话框中只有 “是 ”与 “否 ”两个选择按钮，单击按钮，则继续当前的操作。程序运行时的窗体界面如图 52所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sj2 frm，工程文件名为 si2 vbp。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sj3 vbp，窗体上有两个单选按钮，标题为“Iteml”和 “Item2”；两个标题分别为 “按钮 1”和 “按钮 2”的命令按钮，如图 70-3所示。程序 的功能是：运行时如果选中单选按钮 “Iteml”后， “按钮 1”可用， “按钮2”不可用；如果选中单选按钮 Item2后
3、，则相反，单击可用按钮，在窗口上打印该按钮的标题。 注意：设初始选中的是 “Iteml”；去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sj4 vbp，相应的窗体文件为 sj4.frm，在窗体上有一个命令按钮和两个文本框。程序运行后，单击计算按钮， 即可计算出大于 Text1中输入的数且能被 3、 5和 7同时整除的最小整数并在文本框 Text2中显示出来，如图 70一4所示。在窗体的代码窗口中，已给出了部分程序。注意：去掉程序中的注释符
4、 “”，把程序中的 “?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sj5 vbp，相应的窗体文件为 sj5 frm，此外在考生文件夹下还有一个名为 in5 txt的文本文件，其内容如下： 10， 11， 12，13， 14， 15， 16， 17， 18， 19， 20， 21， 22， 23， 24， 25， 26， 27， 28， 29， 30，31， 32， 33， 34 程序运行后，双击窗体，将把文件 in5 txt中的数据输人到二维数组 A
5、rr中，在窗体上按 5行 5 列的矩阵形式显示出来，并在其下显示该矩阵左上一右下对角线的右上部分。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并使之能正确运行。程序运行效果如图 2-5所示。要求：去掉程序中的注释符 “”把程序中的 “?”改为正确的内容，使其实现上述功能 ，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 VB机试模拟试卷 99答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)通用对话框 (CommonDialog)提供诸如打开文件、保存文件、设置打印选项、选择颜色、设置字体、显示帮助等操作的一组标准对话框，通用对话框显示这
6、对话框对应的方法分别为 ShowOpen、 ShowSave、 ShowPrinter、ShowColor、 ShowFont、 ShowHelp。该控件运行时不可见。通用对话框的 Action属性也可用于设置被打开对话框 的类型。根据题意，新建 “标准 EXE”工程，一个命令按钮和一个文件对话框控件添加到窗体中， CommonDialog控件需要选择 “工程 ”“ 部件 ”命令，或在左侧工箱中单击鼠标右键，选择 “部件 ”菜单，打开 “部件 ”对话框，将 Microsoft Common Dialog Control 6 0前面的复选按钮勾上，单击 “确定 ”按钮，则添加成功，再同其他控件一
7、样添加到窗体上，其名称为CommonDialogl。命令按钮的名称为 Commandl、 CaptiOn属性为 “打开文件 ”。双击Commandl进入代码窗口，编写如下 代码： Private Sub Commandl_Click()CommonDialogl ShowOpen打开 CommonDialogEnd Sub单击按钮运行程序，并按要求保存。 (2)MsgBox()函数用于显示提示信息，并可返回一个代表用户点击了哪个按钮的 Integer类型值，其常用语法为： MsgBox(prompt，buttons， title)。其中， prompt参数为消息框的提示信息； buttons参
8、数用于控制消息框中按钮的数目、形式及消息框图标的样式； title参数为消息框标题栏上显示的内容。 根据题意，新建 “标准 EXE”工程，将一个 List控件添加到窗体中，其名称为 Listl、 List属性中添加 “heml”、 “Item2”、 “Itern3”和 “Item4”。双击 Listl进入代码编写窗口补充后的代码如下： Private Sub Listl DblClick() Dim a AS Integer a=MsgBox(“是否删除 “， vbYesNo) 弹出提示对话框 If a=6 Then6表示选择 “是 “ Listl Removehem Listl Listln
9、dex删除选中项 End If End Sub单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)本题主要考查命令按钮的属性设置及单选按钮的单 击事件，补充后的代码如下： Private Sub Commandl_Click() CIs Print“按钮 1“ 显示 “按钮 1“ End Sub Private Sub Command2_Click() Cls Print“按钮 2“显示 “按钮 2“ End Sub Private Sub Form_Load() Commandl Enabled=True按钮 1可用 Command2 Enabled=Fa
10、lse按钮 2不可用 End Sub Private Sub Optionl Click() Commandl Enabled=True Command2 Enabled=False End Sub Private Sub Option2_Click() Commandl Enabled=False按钮 1不可用 Command2 Enabled=True按钮 2可用 End Sub 单击 按钮运行程序，并按要求保存。 (2)要判断一个数能否被另一个数整除，要用到 Mod函数，当余数为 0表示能被整除，否则不能被整除。本题使用了 WhileWend循环，且条件中要使三个条件都满足，要用 And
11、运算符。补充后的 代码如下： Private Sub Commandl_Click() Dim a As Integer a=Val(Textl Text) While Not(a Mod 3=0 And a Mod 5=0 And a Mod 7=0) 当 a不能同时被 3、 5、 7整除时进入 While循环 a=a+1 a逐渐加 1 Wend Text2 Text=a在 Text2中显示结果 End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 本题重点考查二重 For循环和二维数组 的使用。根据题意，将两个文本框控件和两个标签控件添加到窗体中
12、，文本框的名称分别为 Textl和 Text2、Text属性都为空， Textl的 MultiLine属性为 True、 ScrollBar属性为 2、标签的Caption属性分别为 “矩阵如下： ”和 “矩阵的右上半部： ”。设置完成后，双击 Form进入代码编写窗口，在其 DblClick事件中补充如下代码： Private Sub Form_DblClick() Dim str AS String Dim tmp As String Dim i As Integer Dim j As IntegeT Dim ArT(5， 5)As Integer定义二维数组 str=“ Open“App Path&in5 txt“For Input As#1 打开文件准备读取 For i=1 To 5第一层 For循环代表数组的行读取 For j=1 To 5 第二层 For循环代表数组的列读取 Input#1， Arr(i， j) 将读取到的数放人数组中 str=str+CStr(Arr(i， J)+“ 将数组写入字符串中 Next j str=str+vbCrLf 每读完 一行则添加换行字符串 Next i Close#1 关闭文件 tmp=“ For i=1 To 5 For循环读取数组对角线的右上部分 For j=1 To 5 If j 按钮运行程序，并按要求保存。
