1、VB 机试-试卷 57 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.(1)在窗体 Forml 中绘制一个名称为 Textl、内容空的文本框和一个名称为 Commandl、标题为“大写”的命令按钮。要求程序运行时，在文本框中输入英文字母，单击“大写”，文本框中的字母全部以大写字母显示。程序代码中不得使用任何变量。程序运行的效果如图 531 所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjlfrm，工程文件名为 sjlVbp。 (2)在名为 Form1 的窗体上绘制一个容器，名称为 Fram
2、el，标题为“框架”、高度为 2400、宽度为 2000；再在容器中绘制一个标签，名称为Labell、高度为 500、宽度为 1200，其位置距容器的左边框 300，距容器的上边框 800，标签中的初始内容设置为“模拟试题”，BorderStyle 属性为 2。只建立控件，不必定义其事件过程。程序运行时的窗体界面如图 532 所示。 （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.(1)在考生文件夹下有一个工程文件 sj3vbp，两个窗体文件，文件名分别为 sj31frm 和sj32frm。此工程实现的功能是，在运行时只显示名为 For
3、m2 的窗体，单击 Form2 上的 Commandl 按钮，则弹出名为 Forml 的窗体；单击 Forml 上的 Commandl 按钮，则 Forml 的窗体关闭。这个程序并不完整，要求： 把 Form2 设为启动窗体；把 Form2 上按钮的标题改为“打开”，把 Forml 上按钮的标题改为“关闭”。去掉程序中的注释符“”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件存盘。程序正确运行后的界面如图 483 所示。 注意：不得改变工程文件名和窗体文件名，仍按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sj4vbp，它的功能是在文
4、本框中输入一个整数，单击“移动”按钮后，如果输入的数大于 0，滚动条中的滚动块向下移动到与该数相等的刻度，但如果输入的值大于滚动条的最大值，则不移动，并且显示“数值超过最大值”；如果输入的是负数，滚动条中的滚动块向上移动到与该数相等的刻度，但如果超过了滚动条的最小值，则不移动，并且显示“数值小于最小值”，如图 484 所示。 （分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生文件夹下有一个工程文件 sj5vbp，窗体上有两个文本框，名称分别为 Textl、Text2，都可以多行显示；三个命令按钮，名称分别为 C1、C2、C3，标题分
5、别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的 in5dat 文件中的 50 个整数读到数组中，并在 Textl 中显示出来；“排序”按钮的功能是对这 50 个数按升序排序，并显示在 TeXt2 中；“存盘”按钮的功能是把排好序的50 个数存到考生目录下的 out5dat 文件中。如图 95 所示。在窗体中已经给出了全部控件和部分程序代码，要求阅读程序并去掉程序中的注释符，把程序中的?改为正确的内容，并编写”排序”按钮的Click 事件过程。 （分数：2.00）_VB 机试-试卷 57 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：
6、4.00)1.基本操作题（）（分数：2.00）_解析：2.(1)在窗体 Forml 中绘制一个名称为 Textl、内容空的文本框和一个名称为 Commandl、标题为“大写”的命令按钮。要求程序运行时，在文本框中输入英文字母，单击“大写”，文本框中的字母全部以大写字母显示。程序代码中不得使用任何变量。程序运行的效果如图 531 所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjlfrm，工程文件名为 sjlVbp。 (2)在名为 Form1 的窗体上绘制一个容器，名称为 Framel，标题为“框架”、高度为 2400、宽度为 2000；再在容器中绘制一个标签，名称为Labell、高
7、度为 500、宽度为 1200，其位置距容器的左边框 300，距容器的上边框 800，标签中的初始内容设置为“模拟试题”，BorderStyle 属性为 2。只建立控件，不必定义其事件过程。程序运行时的窗体界面如图 532 所示。 （分数：2.00）_正确答案：(正确答案：(1)根据题意，新建“标准 EXE”工程，将一个文本框控件和一个命令按钮添加到窗体中，文本框的名称为 Textl、Text 属性为空，命令按钮的名称为 Commandl、Caption 属性为“大写”。双击 Commandl 进入代码窗口，编写如下代码： Private Sub Commandl_Click() TextlT
8、ext=UCase(TextlText) 将 Textl 中的字符变为大写 End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，新建“标准 EXE”工程，将一个框架控件和一个标签添加到窗体中，框架的名称为 Framel、Caption 属性为“框架”，标签的名称为 Labell、Caption 属性为“模拟试题”、BorderStyle 属性为 2、Left 属性为 300、Top 属性为 800、Width 属性为 1200、Height 属性为 500。单击)解析：二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.(1)在考生文件夹
9、下有一个工程文件 sj3vbp，两个窗体文件，文件名分别为 sj31frm 和sj32frm。此工程实现的功能是，在运行时只显示名为 Form2 的窗体，单击 Form2 上的 Commandl 按钮，则弹出名为 Forml 的窗体；单击 Forml 上的 Commandl 按钮，则 Forml 的窗体关闭。这个程序并不完整，要求： 把 Form2 设为启动窗体；把 Form2 上按钮的标题改为“打开”，把 Forml 上按钮的标题改为“关闭”。去掉程序中的注释符“”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件存盘。程序正确运行后的界面如图
10、 483 所示。 注意：不得改变工程文件名和窗体文件名，仍按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sj4vbp，它的功能是在文本框中输入一个整数，单击“移动”按钮后，如果输入的数大于 0，滚动条中的滚动块向下移动到与该数相等的刻度，但如果输入的值大于滚动条的最大值，则不移动，并且显示“数值超过最大值”；如果输入的是负数，滚动条中的滚动块向上移动到与该数相等的刻度，但如果超过了滚动条的最小值，则不移动，并且显示“数值小于最小值”，如图 484 所示。 （分数：2.00）_正确答案：(正确答案：(1)根据题意，在工程窗口中单击右键，选择“添加窗体”命令，或选择“工程”“添加窗体”命令
11、添加一个 Form，名称为 Form2，然后分别在 Forml 和 Form2 中添加一个 Command，名称都为 Commandl、Caption 属性分别为“关闭”和“打开”，设置完成后，双击 Forml 中的关闭按钮，编写如下代码： Private Sub Commandl_Click() Unload Me 关闭 forml End Sub 双击 Form2 的打开按钮，编写如下代码： Private Sub Commandl_Click() FormlShow 显示 Forml End Sub 单击 )解析：三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.
12、00）_解析：6.在考生文件夹下有一个工程文件 sj5vbp，窗体上有两个文本框，名称分别为 Textl、Text2，都可以多行显示；三个命令按钮，名称分别为 C1、C2、C3，标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的 in5dat 文件中的 50 个整数读到数组中，并在 Textl 中显示出来；“排序”按钮的功能是对这 50 个数按升序排序，并显示在 TeXt2 中；“存盘”按钮的功能是把排好序的50 个数存到考生目录下的 out5dat 文件中。如图 95 所示。在窗体中已经给出了全部控件和部分程序代码，要求阅读程序并去掉程序中的注释符，把程序中的?改为
13、正确的内容，并编写”排序”按钮的Click 事件过程。 （分数：2.00）_正确答案：(正确答案： 本题考查 Str()函数，“冒泡法”排序，For 循环语句，If 判断语句及文件操作。根据题意，打开本题工程文件，打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容，编写如下代码： Dim a(50)As Integer Private Sub C1 Click() Dim k As Integer，ch As String Open AppPath&“in5dat“For Input As#1 ch=“ For k=1 To 50 Input#1， a(k) ch=ch+Str(a
14、(k)+“ Next k Close#1 TextlText= ch End Sub Private Sub C2 Click() Dim t As Integer Dim i As Integer Dim j As Integer Dim ch As String ch=“ For i=50 To 2 Step-1 For j=1 To 49 If a(j)a(j+1)Then t=a(j+1) a(j+1)=a(j) a(j)=t End If Next j Next i For j=1 To 50 ch=ch+Str(a(j)+“ Next j Text2Text=ch End Sub Private Sub C3 Click() Open AppPath&“out5dat“For Output As#1 Print#1，Text2Text Close#1 End Sub 单击 )解析：
