1、VB机试模拟试卷 70及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Forml的窗体上绘制一个文本框，其名称为 Textl，然后通过 “属性 ”窗口设置窗体和文本框的属性，实现如下功能：在文本框中可以显示多行文本，显示垂直滚动条，显示的初始信息为 “模拟考试 ”，显示的字体为四号、黑体；窗体的标题为 “设置文本框属性 ”，如图 331所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjl vbp，窗体文件名为 sjl frm。 (2)在名称为 Forml的窗体上绘制两个命令按钮，其名称分别为 Commandl和Command2，编写适当的事件过程。程序运行界面如图 3
2、32所示，如果单击命令按钮 Commandl，则可使该按钮移到顶部；如果单击命令按钮 Command2，则可使该按钮在高度和宽度上各扩大到原来的 2和 3倍。程序的运行时的窗体界面如图333所示。注意：不得使用任何变量，存盘时必须存放在考生文件夹下，工程文件名为sj2 vbp，窗体文件名为 sj2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹中有一个工程文件 sj3 vbp，相应的窗体文件为 sj3 frm。在在名为 Forml的窗体 上有一个命令按钮，其名称为 Cmdl，标题为 “输入 ”；还有一个文本框，其名称为 Textl，初始内容为空白。程序运行后，单击 “输入 ”命令
3、按钮，显示 “输入 ”对话框。在对话框中输入某个月份的数值 (112)，然后单击 “确定 ”按钮，即可在文本框中输出该月份所在的季节。例如输入 8，将输出 “8月份是秋季 ”，如图 133所示。该程序不完整，请补充完整。 注意：去掉程序中的注释符 “”，把程序中的问号 “?”改为正确的内容，使其能正确运行，但不得修改程序的其他部分。最后用原名保存工程文件和窗体文件。 (2)在考生文件夹中有 一个工程文件 sj4 vbp，相应的窗体文件为sj4 frm。在名为 Forml的窗体上有一个名称为 Cmdl、标题为 “计算 ”的命令按钮；两个水平滚动条，名称分别为 HSl和 HS2，其 Max属性均为
4、 100， Min属性均为1； 4个标签，名称分别为 Labl、 Lab2、 Lab3和 Lab4，标题分别为 “运算数 1”、 “运算数 2”、 “运算结果 ”和空白；此外，还有一个包含 4个单选按钮的控件数组，名为 Optl，标题分别为 “+”、 “一 ”、 “*”和 “ ”。程序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单 选钮，然后单击命令按钮，相应的计算结果将显示在 Lab4中，程序运行时的窗体界面如图 134所示。本程序不完整，请补充完整，并能正确运行。 注意：去掉程序中的注释符 “”，把程序中的问号 “?”改为正确的内容，使其能正确运行，但不得修改
5、程序的其他部分，也，不得修改控件的属性。最后用原名保存工程文件和窗体文件。 三、综合应用题（ 30分） 3 打开考生文件夹下的 sj5 vbp。在名称为 Forml的窗体上建立一个名为 Textl的文本框和两个命令按钮，名称分别为 commandl和 Command2，命令按钮上分 别显示 “读入 ”和 “排序 ”。程序运行时，单击 “读入 ”按钮，将 in txt文件中的 50个数读入，单击 “排序 ”则把数组 a中的数值按照降序排列。请在有 “?”号的地方填正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。 注意：存盘时不得改变文件名和文件夹。 VB机试
6、模拟试卷 70答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，将一个文本框控件添加到窗体中，名称为 Textl、 MultiLine属性为 True、 Text属性为 “模拟考试 ”、 ScrollBar属性为 2、 Font中字体为宋体，字型为黑体、大小为四号，设置完成后，单击按钮运行程序，并按原文件名保存。 (2)根据题意，新建 “标准 EXE”工程，将两个命令按钮添加到窗体中，名称分别为 Commandl和 Command2， Caption属性分别为“Commandl”和 “Command2”，双击 Commandl进入代码窗口，编
7、写 如下代码： Private Sub Commandl_Click() Commandl Top=0Commandl置顶 End Sub Private Sub Command2_Click() Command2 Width=Command2 Width*3Command2的宽度扩大 3倍 Command2 Height=Command2 Height*2Command2的高度扩大 2倍 End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1) 打开 题目所给工程文件。 将注释语句改为： Loop Until n0 And n13、 Selec
8、t Case n和 Select Case m。 按要求保存文件即完成本题。 (2) 打开题目所给工程文件。 将注释语句改为： If Optl(i) Value=True Then Select Case opt Lab4=Str(HSl Value)&“ “& opt&Str(HS2 Value)&“=“&Str(Result) 按要求保存文件即完成本题。 三、综合应用题（ 30分） 3 【正确答案】 根据题意，在窗体上添加一个 Text控件和两个 Command控件，Text的名称为 Textl、 Text属性为空、 MultiLine属性为 True、 ScrollBar属性为 2，Co
9、mmand的名称分别为 Commandl和 Command2、 Caption属性分别为 读入 和排序 ”。双击 Commandl命令按钮，编写如下代码： Dim a(50)As Long全局变量 Private Sub Commandl Click() Textl Text=“ Open App Path&“ in txt“For Input As#1打开 “in txt“文件 Dim i As Integer Dim temp As Integer For i=1 To 50 Input#l，temp a(i)=temp按顺序读入到数组中 Next i For i=1 To 50 Textl Text=Textl Text+CStr(a(i)+vbCrLf将数组中的数放人 Text中显示 Next i CIose#1 End Sub Private Sub Command2_Click() Dim i As Integer Dim j As Integer Dim k As Integer Dim temp As Integer Dim str As String str=“ For i=1 To 50 降序排列 temp=a(i) For j=1 To i If a(j) 按钮运行程序，并按要求保存。
