1、VB机试模拟试卷 61及答案与解析 一、基本操作题（ 30分） 1 (1)在窗体 Forml中绘制一个名称为 Textl、内容空的文本框和一个名称为Commandl、标题为 “大写 ”的命令按钮。要求程序运行时，在文本框中输入英文字母，单击 “大写 ”，文本框中的字母全部以大写字母显示。程序代码中不得使用任何变量。程序运行的效果如图 531所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjl frm，工程文件名为 sjl Vbp。 (2)在名为 Form1的窗体上绘制一个容器，名称为 Framel，标题为 “框架 ”、 高度为 2400、宽度为 2000；再在容器中绘制一个标签，名
2、称为 Labell、高度为 500、宽度为 1200，其位置距容器的左边框 300，距容器的上边框 800，标签中的初始内容设置为 “模拟试题 ”，BorderStyle属性为 2。只建立控件，不必定义其事件过程。程序运行时的窗体界面如图 532所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sj2 frm，工程文件名为sj2 vbp。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sj3 vbp，两个窗体文件，文件名分别为sj31 frm和 sj32 frm。此工程实现的功能是，在运行时只显示名为 Form2的窗体，单击 Form2上的 Commandl按钮，
3、则弹出名为 Forml的窗体；单击 Forml上的Commandl按钮，则 Forml的窗体关闭。这个程序并不完整，要求： 把 Form2设为启动窗体；把 Form2上按钮的标题改为 “打开 ”，把 Forml上按钮的标题改为 “关闭 ”。去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件存盘。程序正确运行后的界面如图 483所示。 注 意：不得改变工程文件名和窗体文件名，仍按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sj4 vbp，它的功能是在文本框中输入一个整数，单击 “移动 ”按钮后，如果输入的数大于 0
4、，滚动条中的滚动块向下移动到与该数相等的刻度，但如果输入的值大于滚动条的最大值，则不移动，并且显示“数值超过最大值 ”；如果输入的是负数，滚动条中的滚动块向上移动到与该数相等的刻度，但如果超过了滚动条的最小值，则不移动，并且显示 “数值小于最小值 ”，如图 484所示。 注意：去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容，使 其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的程序以原来的文件名存盘。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sj5 vbp，窗体上有两个文本框，名称分别为Textl、 Text2，都可以多行显示；三
5、个命令按钮，名称分别为 C1、 C2、 C3，标题分别为 “取数 ”、 “排序 ”、 “存盘 ”。 “取数 ”按钮的功能是将考生文件夹下的 in5 dat文件中的 50个整数读到数组中，并在 Textl中显示出来； “排序 ”按钮的功能是对这50个数按升序排序，并显示在 TeXt2中； “存盘 ”按钮的功能是把排好序的 50个数存到考生目录下的 out5 dat文件中。如图 95所示。在窗体中已经给出了全部控件和部分程序代码，要求阅读程序并去掉程序中的注释符，把程序中的 ?改为正确的内容，并编写 ”排序 ”按钮的 Click事件过程。 注意：使其实现上述功能，但不能修改程序中的其他部分，也不能
6、修改控件的属性。最后将修改后的文件按原文件名存盘。 VB机试模拟试卷 61答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，将一个文本框控件和一个命令按钮添加到窗体 中，文本框的名称为 Textl、 Text属性为空，命令按钮的名称为Commandl、 Caption属性为 “大写 ”。双击 Commandl进入代码窗口，编写如下代码： Private Sub Commandl_Click() Textl Text=UCase(Textl Text) 将 Textl中的字符变为大写 End Sub 单击 按钮运行程序，并按要求保存。 (2)根
7、据题意，新建“标准 EXE”工程，将一个框架控件和一个标签添加到窗体中，框架的名称为Framel、 Caption属性为 “框架 ”，标签的名称为 Labell、 Caption属性为 “模拟试题 ”、 BorderStyle属性为 2、 Left属性为 300、 Top属性为 800、 Width属性为1200、 Height属性为 500。单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)根据题意，在工程窗口中单击右键，选择 “添加窗体 ”命令，或选择 “工程 ”“ 添加窗体 ”命令添加一个 Form，名称为 Form2，然 后分别在 Forml和 F
8、orm2中添加一个 Command，名称都为 Commandl、 Caption属性分别为 “关闭 ”和 “打开 ”，设置完成后，双击 Forml中的关闭按钮，编写如下代码： Private Sub Commandl_Click() Unload Me关闭 forml End Sub 双击 Form2的打开按钮，编写如下代码： Private Sub Commandl_Click() Forml Show显示 Forml End Sub 单击按钮运行程序，并按要求保存。 (2)滚动条能表示的最大值由 Max属性设置，最小值由 Min属性设置。滚动条的当前值由 Value属性设置。 根据题意，将
9、一个垂直滚动条控件、一个命令按钮、一个文本框控件和一个 Label控件添加到窗体中，垂直滚动条的名称为 VScrolll、 Max属性为 500、 Min属性为 100，命令按钮的名称为 Commandl、 Caption属性为 “移动 ”，文本框的名称为 Textl、 Text属性为空，标签的名称为 Labell、 Caption属性为空。双击 Commandl进入代码编写窗口，补充如下参考代码： Private Sub Commandl_Click() Dim i As Integer i=Val(Textl Text) 将 Textl中的字符串转换成数值 If(VScrolll Valu
10、e+iVScrolll Max)Then如果大于最大值 Labell Caption “数值超过最大值 “ 移动后数值如果大于最大值 Elself VScrolll Value+i 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 本题考查 Str()函数， “冒泡法 ”排序， For循环语句， If判断语句及文件操作。根据题意，打开本题工程 文件，打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容，编写如下代码： Dim a(50)As Integer Private Sub C1 Click() Dim k As Integer， ch As Str
11、ing Open App Path&“ in5 dat“For Input As#1 ch=“ For k=1 To 50 Input#1， a(k) ch=ch+Str(a(k)+“ Next k Close#1 Textl Text=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 Text2 Text=ch End Sub Private Sub C3 Click() Open App Path&“ out5 dat“For Output As#1 Print#1， Text2 Text Close#1 End Sub单击 按钮运行程序，并按要求保存。
