1、二级 VISUAL+BASIC 机试-96 及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在名为 Form1 的窗体上绘制一个名为 Cmd1 的命令按钮，标题为“打开文件”，再绘制一个名为 CD1 的通用对话框。程序运行后，若单击命令按钮，则弹出“打开文件”对话框，如下图所示。请按下列要求设置属性和编写代码：设置适当属性，使对话框的标题为“打开文件”。设置适当属性，使对话框的“文件类型”下拉式组合框中有两行：“文本文件”、“所有文件”(如下图所示)，默认的类型是“所有文件”。编写命令按钮的事件过程，使得单击按钮可以弹出“打开文件”对
2、话框。注意：程序中不得使用变量，事件过程中只能写一条语句；文件必须存放在考生文件夹中，工程文件名为 sj1.vbp，窗体文件名为sj1.frm。（分数：15.00）_2.在名为 Form1 的窗体上绘制两个命令按钮，其名称分别为 Cmdl 和 Cmd2。编写适当的事件过程使程序运行后若单击命令按钮 Cmd1，则可使该按钮移到窗体的左上角(只允许通过修改属性的方式实现)；如果单击命令按钮 Cmd2，则可使该按钮在长度和宽度上各扩大到原来的 3 倍。程序的运行情况如下图所示。注意：不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 sj2.vbp，窗体文件名为sj2.frm。（分数：15.
3、00）_二、2 简单应用题(总题数：2，分数：40.00)3.在考生文件夹中有一个工程文件 sj3.vbp，相应的窗体文件为 sj3.frm。在名为 Form1 的窗体上有一个命令按钮，其名称为 Cmd1，标题为“输入”；还有一个文本框，其名称为 Text1，初始内容为空白。程序运行后，单击“输入”命令按钮，显示“execise 25”对话框。在对话框中输入某个月份的数值(112)，然后单击“确定”按钮，即可在文本框中输出该月份所在的季节。例如输入 8，将输出“8 月份是秋季”，如下图所示。该程序不完整，请补充完整。要求：去掉程序中的注释符“”，把程序中的问号“?”改为正确的内容，使其能正确运
4、行，但不得修改程序的其他部分。最后用原名保存工程文件和窗体文件。（分数：20.00）_4.在考生文件夹中有一个工程文件 sj4.vbp，相应的窗体文件为 sj4.frm。在名为 Form1 的窗体上有一个名称为 Crod1，标题为“计算”的命令按钮；两个水平滚动条，名称分别为 HS1 和 HS2，其 Max 属性均为100，Min 属性均为 1；4 个标签，名称分别为 Lab1、Lab2、Lab3 和 Lab4，标题分别为“运算数 1”、“运算数 2”、“运算结果”和空白；此外还有一个包含 4 个单选按钮的控件数组，名为 Optl，标题分别为“+”、“-”、“*”和“/”。程序运行后，移动两个
5、滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选钮，然后单击命令按钮，相应的计算结果将显示在 Lab4 中，程序运行情况如下图所示。本程序不完整，请补充完整，并能正确运行。要求：去掉程序中的注释符“”，把程序中的问号“?”改为正确的内容，使其能正确运行，但不得修改程序的其他部分，也不得修改控件的属性。最后用原名保存工程文件和窗体文件。（分数：20.00）_三、3 综合应用题(总题数：1，分数：30.00)5.在考生文件夹下有工程文件 sj5.vbp 及窗体文件 sj5.frm。在名为 Form1 的窗体上有 5 个 Label 控件和2 个命令按钮，数据文件 in13.dat 存
6、放学生的编号、姓名、性别和体重，如下图所示。程序运行后，按“Begin“按钮后，能从考生文件夹下的 in13.dat 中读出数据并把体重大于平均体重的学生的所有数据写入考生文件夹下的 out13.dat 文件中。执行完毕，“Begin“按钮变成“完成”按钮，且无效。要求：该程序不完整，请在有问号“?”的地方填入正确内容，然后删除问号“?”及所有注释符“”，但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的数据文件也保存到考生文件夹下。（分数：30.00）_二级 VISUAL+BASIC 机试-96 答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：
7、30.00)1.在名为 Form1 的窗体上绘制一个名为 Cmd1 的命令按钮，标题为“打开文件”，再绘制一个名为 CD1 的通用对话框。程序运行后，若单击命令按钮，则弹出“打开文件”对话框，如下图所示。请按下列要求设置属性和编写代码：设置适当属性，使对话框的标题为“打开文件”。设置适当属性，使对话框的“文件类型”下拉式组合框中有两行：“文本文件”、“所有文件”(如下图所示)，默认的类型是“所有文件”。编写命令按钮的事件过程，使得单击按钮可以弹出“打开文件”对话框。注意：程序中不得使用变量，事件过程中只能写一条语句；文件必须存放在考生文件夹中，工程文件名为 sj1.vbp，窗体文件名为sj1.
8、frm。（分数：15.00）_正确答案：(新建一个名为 Form1 的窗体；选择“工程”菜单中的“部件”选项，弹出“部件”对话框或在“工具箱”上单击鼠标右键，选择弹出菜单中的“部件”选项，弹出“部件对话框”，在对话框的“部件”列表中选择“MicroSoft Common Dialog Control 6.0”项目，使它前边的方框为选中；在窗体上添加一个通用对话框 CD1，并将其 DialogTitle 属性设置为“打开文件”，其 Filter 属性设置为“文本文件|*.txt1，所有文件|*.*|”，其 FiherIndex 属性设置为“2”；再添加一个命令按钮名称为 Cmd1，Caption
9、 为“打开文件”；Private Sub Command1_Click()CD1.ShowOpenEnd Sub最后按照题目要求保存文件即可。)解析：2.在名为 Form1 的窗体上绘制两个命令按钮，其名称分别为 Cmdl 和 Cmd2。编写适当的事件过程使程序运行后若单击命令按钮 Cmd1，则可使该按钮移到窗体的左上角(只允许通过修改属性的方式实现)；如果单击命令按钮 Cmd2，则可使该按钮在长度和宽度上各扩大到原来的 3 倍。程序的运行情况如下图所示。注意：不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 sj2.vbp，窗体文件名为sj2.frm。（分数：15.00）_正确答案
10、：(新建一个名为 Form1 的窗体；单击工具箱中的 CommandButton 控件图标，在窗体上拖拉出两个命令按钮，在属性窗口设置该命令按钮名称分别为 Cmd1 和 Cmd2,Caption 分别为 Cmd1 和 Cmd2；打开代码窗口输入如下代码：Private Sub Cmd1_Click()Cmd1.Left=0将命令按钮放在最左方Cmd1.Top=0将命令按钮放在最上方End SubPrivate Sub Cmd2_Click()Cmd2.Height=Cmd2.Height*3将 Cmd2 的高变为 3 倍Cmd2.Width=Cmd2.Width*3将 Cmd2 的宽变为 3
11、倍End Sub按要求保存文件即完成本题。)解析：二、2 简单应用题(总题数：2，分数：40.00)3.在考生文件夹中有一个工程文件 sj3.vbp，相应的窗体文件为 sj3.frm。在名为 Form1 的窗体上有一个命令按钮，其名称为 Cmd1，标题为“输入”；还有一个文本框，其名称为 Text1，初始内容为空白。程序运行后，单击“输入”命令按钮，显示“execise 25”对话框。在对话框中输入某个月份的数值(112)，然后单击“确定”按钮，即可在文本框中输出该月份所在的季节。例如输入 8，将输出“8 月份是秋季”，如下图所示。该程序不完整，请补充完整。要求：去掉程序中的注释符“”，把程序
12、中的问号“?”改为正确的内容，使其能正确运行，但不得修改程序的其他部分。最后用原名保存工程文件和窗体文件。（分数：20.00）_正确答案：(打开题目所给工程文件；将注释语句改为：Loop Until n0Andn13、Select Casen 和 Select Case m按要求保存文件即完成本题。)解析：4.在考生文件夹中有一个工程文件 sj4.vbp，相应的窗体文件为 sj4.frm。在名为 Form1 的窗体上有一个名称为 Crod1，标题为“计算”的命令按钮；两个水平滚动条，名称分别为 HS1 和 HS2，其 Max 属性均为100，Min 属性均为 1；4 个标签，名称分别为 Lab
13、1、Lab2、Lab3 和 Lab4，标题分别为“运算数 1”、“运算数 2”、“运算结果”和空白；此外还有一个包含 4 个单选按钮的控件数组，名为 Optl，标题分别为“+”、“-”、“*”和“/”。程序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选钮，然后单击命令按钮，相应的计算结果将显示在 Lab4 中，程序运行情况如下图所示。本程序不完整，请补充完整，并能正确运行。要求：去掉程序中的注释符“”，把程序中的问号“?”改为正确的内容，使其能正确运行，但不得修改程序的其他部分，也不得修改控件的属性。最后用原名保存工程文件和窗体文件。（分数：20.00）_正确答
14、案：(打开题目所给工程文件；将注释语句改为：If Optl(i).Value=True ThenSelect CaseoptLab4=Str(HS1.Value)&“ “&opt&Str(HS2.Value)&“=“&Str(Result)按要求保存文件即完成本题。)解析：三、3 综合应用题(总题数：1，分数：30.00)5.在考生文件夹下有工程文件 sj5.vbp 及窗体文件 sj5.frm。在名为 Form1 的窗体上有 5 个 Label 控件和2 个命令按钮，数据文件 in13.dat 存放学生的编号、姓名、性别和体重，如下图所示。程序运行后，按“Begin“按钮后，能从考生文件夹下的
15、 in13.dat 中读出数据并把体重大于平均体重的学生的所有数据写入考生文件夹下的 out13.dat 文件中。执行完毕，“Begin“按钮变成“完成”按钮，且无效。要求：该程序不完整，请在有问号“?”的地方填入正确内容，然后删除问号“?”及所有注释符“”，但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的数据文件也保存到考生文件夹下。（分数：30.00）_正确答案：(根据题目1打开题目所给工程文件；2打开代码窗口输入如下代码：Private Sub Cmd1_Click()Dim i As IntegerDim total As IntegerDim aver As SingleDi
16、m num(10),namstring(10),sexstring(10),wages(10)MyFile1=App.Path & “/“ & “in13.dat“ “out13.dat“Open MyFile1 For Input As # 1Open MyFile2 For Output As # 2For i=1 To 10Input # 1,num(i),namstring(i),sexstring(i),wages(i)total=total+wages(i)Next iaver=total/10For i=1 To 10If wages(i)aver Then Write # 2,num(i),namstring(i),sexstring(i),wages(i)Next iCmd1.Caption=“完成“Cmd1.Enabled=FalseEnd Sub3按要求保存文件即完成本题。)解析：
