1、VB 机试-试卷 39 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.(1)在名称为 Forml 的窗体上绘制一个文本框，其名称为 Textl，然后通过“属性”窗口设置窗体和文本框的属性，实现如下功能：在文本框中可以显示多行文本，显示垂直滚动条，显示的初始信息为“模拟考试”，显示的字体为四号、黑体；窗体的标题为“设置文本框属性”，如图 331 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjlvbp，窗体文件名为 sjlfrm。 (2)在名称为Forml 的窗体上绘制两个命令按钮，其名称分
2、别为 Commandl 和 Command2，编写适当的事件过程。程序运行界面如图 332 所示，如果单击命令按钮 Commandl，则可使该按钮移到顶部；如果单击命令按钮Command2，则可使该按钮在高度和宽度上各扩大到原来的 2 和 3 倍。程序的运行时的窗体界面如图 333所示。 （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.(1)在考生文件夹中有一个工程文件 sj3vbp，相应的窗体文件为 sj3frm。在在名为 Forml 的窗体上有一个命令按钮，其名称为 Cmdl，标题为“输入”；还有一个文本框，其名称为 Textl，初
3、始内容为空白。程序运行后，单击“输入”命令按钮，显示“输入”对话框。在对话框中输入某个月份的数值(112)，然后单击“确定”按钮，即可在文本框中输出该月份所在的季节。例如输入 8，将输出“8 月份是秋季”，如图 133 所示。 该程序不完整，请补充完整。 注意：去掉程序中的注释符“”，把程序中的问号“?”改为正确的内容，使其能正确运行，但不得修改程序的其他部分。最后用原名保存工程文件和窗体文件。 (2)在考生文件夹中有一个工程文件 sj4vbp，相应的窗体文件为 sj4frm。在名为 Forml 的窗体上有一个名称为 Cmdl、标题为“计算”的命令按钮；两个水平滚动条，名称分别为 HSl 和
4、HS2，其Max 属性均为 100，Min 属性均为 1；4 个标签，名称分别为 Labl、Lab2、Lab3 和 Lab4，标题分别为“运算数 1”、“运算数 2”、“运算结果”和空白；此外，还有一个包含 4 个单选按钮的控件数组，名为Optl，标题分别为“+”、“一”、“*”和“”。程序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选钮，然后单击命令按钮，相应的计算结果将显示在 Lab4 中，程序运行时的窗体界面如图 134 所示。 （分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.打开考生文件夹下的 s
5、j5vbp。在名称为 Forml 的窗体上建立一个名为 Textl 的文本框和两个命令按钮，名称分别为 commandl 和 Command2，命令按钮上分别显示“读入”和“排序”。程序运行时，单击“读入”按钮，将 intxt 文件中的 50 个数读入，单击“排序”则把数组 a 中的数值按照降序排列。请在有“?”号的地方填正确内容，然后删除“?”及代码前的所有注释符(即“”号)，但不能修改其他部分。 注意：存盘时不得改变文件名和文件夹。（分数：2.00）_VB 机试-试卷 39 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分
6、数：2.00）_解析：2.(1)在名称为 Forml 的窗体上绘制一个文本框，其名称为 Textl，然后通过“属性”窗口设置窗体和文本框的属性，实现如下功能：在文本框中可以显示多行文本，显示垂直滚动条，显示的初始信息为“模拟考试”，显示的字体为四号、黑体；窗体的标题为“设置文本框属性”，如图 331 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjlvbp，窗体文件名为 sjlfrm。 (2)在名称为Forml 的窗体上绘制两个命令按钮，其名称分别为 Commandl 和 Command2，编写适当的事件过程。程序运行界面如图 332 所示，如果单击命令按钮 Commandl，则
7、可使该按钮移到顶部；如果单击命令按钮Command2，则可使该按钮在高度和宽度上各扩大到原来的 2 和 3 倍。程序的运行时的窗体界面如图 333所示。 （分数：2.00）_正确答案：(正确答案：(1)根据题意，新建“标准 EXE”工程，将一个文本框控件添加到窗体中，名称为Textl、MultiLine 属性为 True、Text 属性为“模拟考试”、ScrollBar 属性为 2、Font 中字体为宋体，字型为黑体、大小为四号，设置完成后，单击按钮运行程序，并按原文件名保存。 (2)根据题意，新建“标准 EXE”工程，将两个命令按钮添加到窗体中，名称分别为 Commandl 和 Comman
8、d2，Caption 属性分别为“Commandl”和“Command2”，双击 Commandl 进入代码窗口，编写如下代码： Private Sub Commandl_Click() CommandlTop=0Commandl 置顶 End Sub Private Sub Command2_Click() Command2Width=Command2Width*3Command2 的宽度扩大 3 倍 Command2Height=Command2Height*2Command2 的高度扩大 2 倍 End Sub 单击 )解析：二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）
9、（分数：2.00）_解析：4.(1)在考生文件夹中有一个工程文件 sj3vbp，相应的窗体文件为 sj3frm。在在名为 Forml 的窗体上有一个命令按钮，其名称为 Cmdl，标题为“输入”；还有一个文本框，其名称为 Textl，初始内容为空白。程序运行后，单击“输入”命令按钮，显示“输入”对话框。在对话框中输入某个月份的数值(112)，然后单击“确定”按钮，即可在文本框中输出该月份所在的季节。例如输入 8，将输出“8 月份是秋季”，如图 133 所示。 该程序不完整，请补充完整。 注意：去掉程序中的注释符“”，把程序中的问号“?”改为正确的内容，使其能正确运行，但不得修改程序的其他部分。最
10、后用原名保存工程文件和窗体文件。 (2)在考生文件夹中有一个工程文件 sj4vbp，相应的窗体文件为 sj4frm。在名为 Forml 的窗体上有一个名称为 Cmdl、标题为“计算”的命令按钮；两个水平滚动条，名称分别为 HSl 和 HS2，其Max 属性均为 100，Min 属性均为 1；4 个标签，名称分别为 Labl、Lab2、Lab3 和 Lab4，标题分别为“运算数 1”、“运算数 2”、“运算结果”和空白；此外，还有一个包含 4 个单选按钮的控件数组，名为Optl，标题分别为“+”、“一”、“*”和“”。程序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个
11、单选钮，然后单击命令按钮，相应的计算结果将显示在 Lab4 中，程序运行时的窗体界面如图 134 所示。 （分数：2.00）_正确答案：(正确答案： (1)打开题目所给工程文件。 将注释语句改为： Loop Until n0 And n解析：三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.打开考生文件夹下的 sj5vbp。在名称为 Forml 的窗体上建立一个名为 Textl 的文本框和两个命令按钮，名称分别为 commandl 和 Command2，命令按钮上分别显示“读入”和“排序”。程序运行时，单击“读入”按钮，将 intxt 文件中的 50
12、个数读入，单击“排序”则把数组 a 中的数值按照降序排列。请在有“?”号的地方填正确内容，然后删除“?”及代码前的所有注释符(即“”号)，但不能修改其他部分。 注意：存盘时不得改变文件名和文件夹。（分数：2.00）_正确答案：(正确答案：根据题意，在窗体上添加一个 Text 控件和两个 Command 控件，Text 的名称为Textl、Text 属性为空、MultiLine 属性为 True、ScrollBar 属性为 2，Command 的名称分别为 Commandl和 Command2、Caption 属性分别为读入和排序”。双击 Commandl 命令按钮，编写如下代码：Dim a(5
13、0)As Long全局变量 Private Sub Commandl Click() TextlText=“ Open AppPath&“intxt“For Input As #1打开“intxt“文件 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 TextlText=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) str 在 Textl 中显示 End Sub 单击*按钮运行程序，并按要求保存。)解析：
