1、VB机试模拟试卷 98及答案与解析 一、基本操作题（ 30分） 1 (1)请在名称为 Forml的窗体上绘制一个名称为 H1水平滚动条，请在属性窗口中设置它的属性值，使其满足下列要求：它的最小刻度值为 1，最大刻度值为 100，在程序运行时，用鼠标单击滚动条上滚动框以外的区域 (不包括两边按钮 )，滚动框移动 10个刻度。再在滚动条下面画两个名称分别为 U和 L2的标签，并分别显示 1和 100运行时的窗体如图 441所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjl vb，窗体文件名为 sjl frm。 (2)在窗 体上画两个文本框，名称分别为 Text1和 Text2。请设置
2、适当的控件属性，并编写适当的事件过程，使得在运行时。如果在 Text1中每输入一个字符，则显示一个 “*”，同时在 Text2中显示输入的内容，如图 442所示。程序中不得使用仟何变量。注意：存盘时必须存放在光盘相应目录下，工程文件名为 sjt2 vbp，窗体文件名为sjt2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有工程文件 sj3 vbp及窗体文件 sj3 frm，在窗体上画一个名称为 Text1的文本框和两个名称分别为 Command1和 Command2、标题分别为 “大写 A”和 “小写 a”的命令按钮。要求程序运行后，如果单击 “大写 A”命令按钮，则弹出对话
3、框，输入要显示的个数，根据输入的数值在文本框中显示相应数量的大写字符串 A；如果单击 “小写 a”命令按钮，也弹出对话框，输人要显示的个数，根据输入的数值在文本框中显示相应数量的小写字符串 a。程序运行时的窗体界面如图53所示。 注意：该程序是不完整的，请在有 “?”的地方添入正确的内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹下有工程文件 sj4 vbp及窗体文件 sj4 frm，在窗体上有一个名称为 HScrolll的水平滚动条 (Min为 400， Max为 2000)和三个名称分别为Command1、
4、 Command2和 Command3、标题分别为 “减 200”、 “显示 ”和 “加 200”的命令按钮。程序运行后，如果单击 “减 200”命令按钮，则滚动块向左滚动 200单位；如果单击 “显示 ”命令按钮，则显示当前滚动条的值；如果单击 “加 200”命令按钮，则滚动块向右滚动 200单位。程序运行时效果如图 54所示。注意：请在有 “?”的地方 正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。编写程序使程序运行时满足下列的条件。存盘时不得改变文件名和文件夹。 三、综合应用题（ 30分） 3 打开考生文件夹下的 sj5 vbp，在名称为 Form
5、l的窗体上有一个名称为 Text1的文本框两个命令按钮，名称分别为 Commandl和 Command2，命令按钮上分别显示 “读入 ”和 “排序 ”(如图 705所示 )。程序运行时单击 “读入 ”按钮，将文件in5 dat中的数据读人数组 a中，单击 “排序 ”则把数组 a中的数值按照升序排列，并显示 在文本框中。 注意：请在有 “?”号的地方填入正确的内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 VB机试模拟试卷 98答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，将
6、一个滚动条控件和两个标签控件添加到窗体中，滚动条的名称为 H1， Min属性为 1， Max属性为 100，LargeChange属性为 10，两个标签的名称分别为 L1和 L2， Caption属性分别为 “1”和 100。设置完成后，单击按钮运行 程序，并按要求保存。 (2)建立界面并设置控件属性。程序用到的控件及其属性见下表。 双击 “工具箱 ”中的文本框控件在窗体上建立 2个文本框，用鼠标分别拖动它们的边框到合适的大小，然后再用鼠标将它们分别调整到合适的位置。并按下表分别设置它们的属性。编写程序代码。 Private Sub Textl_Change()Text2 Text=Textl
7、 TextEnd Sub然后，调试并运行。最后，按题目要求存盘。 二、简单应用题（ 40分） 2 【正确答案】 (1)本题主要考查考生对 For循环、文本框内容的显示和 InputBox()函数的理解。 Inpu,Box()函数用于显示一个输入框，提示用户输入一个数据，该函数返回值默认为字符串类型，其常用语法格式为： InputBox(Prompt， Title，Default)。其中 Prompt字符串为输入框上显示的提示文本； Title字符串在输入框的标题栏 i：显示； Default字符串为输入框的缺省文本。 根据题意，将一个文本框控件和两个命令按钮添加到窗体中，文本框的名称为 Tex
8、tl、 Text属性为空，命令按钮的名称分别为 Commandl和 Command2、 Caption属性分别为 “大写 A”和 “小写 a”。双击 Commandl进入代码窗口，补充后的代码如下： Private Sub Commandl_Click() Dim a As Integer Dim str As String Dim i AS Integer a=Val(InputBox(“输入个数 “) 读取输入的个数 str=“ For i=1 To a str=str+“A“ 循环写入大写字母 “A“ Next i Textl Text=str在 Text1中显示结果 End Sub P
9、rivate Sub Command2_Click() Dim a As Integer Dim str AS String Dim i As Integer a=Val(InputBox(“输入个数 “) 读取输入的个数 str=“ For i=1 To a str=str十 “a“ 循环写入小写字母 “a“ Next i Textl Text=str在 Textl中显示结果 End Sub 单击 按钮运行程序，并按要求保存。 (2)滚动条常用于取代数据的键盘输入，通过调整滚动条滑块的位置即可改变其 Valtie属性的值。滚动条的 Max属性、 Min属性限定了滚动条所能表示的最大值和最小值
10、，即 Value属性值的取值范围在程序中改变Value属性的值，滚动条滑块会随之移动到相应位置。 根据题意，将一个水平滚 动条控件和 3个命令按钮添加到窗体中，水平滚动条的名称为 HScrolll、 Min属性为400、 Max属性为 2 000，命令按钮的名称分别为 Commandl、 Command2和Command3， Caption属性分别为 “减 200”、 “显示 ”和 “加 200”。双击 Commandl进入代码窗口，编写如下代码： Private Sub Commandl_Click() If HScrolll Value-200HScrolll Max Then如果移动后大
11、于最大值 HScrolll Value=HScroll1 Max则HScrolll的值为最大值 Else 否则 HScrolll Value=HScrolll Value+200HScrolll的值加 200End IfEnd Sub单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 (1)本题主要考查了从文件中读取数据和数据的排序。要从文件中读取数据，首先要打开文件，在读文件的时候要用到 EOF函数判断文件是否已读完。本题补充后的代码如下： Dim a()As Integer Dim num As Integer Private Sub Commandl_Cli
12、ck() Dim str As String num=0 str=“ Open“App Path& in5 dat“For Input As#1 打开文件准备读取 While EOF(1)=False 查看是否读到文件尾 Input#1，str读取文件 num=num+1 计数 Wend Close#1 关闭文件 ReDim a(num) 动态分配数组空间 Dim i As Integer str=“ Open“App Path& in5 dat“For Input As#1 For i=1 To numl利用 For循环 Input#1， a(i) 逐个读取数据 str=str+CStr(a
13、(i)+“ 将数组写入字符串中 Next i Close#1 Textl Text str将字符串显示在 Textl中 End Sub Private Sub Command2_Click() Dim tex As String For i=1 To num 升序排列 temp=a(i) For j=1 To i If a(j)temp Then 读取的数据比原位置的数 据大 For k=i To j+l Step-l a(k)=a(k-1) 数据向后偏移一个 Next k a(j)=temp Exit For End If Next j Next i tex=“ For i=1 To 40 tex=rex+CStr(a(i)+“ Next i Textl Text=tex在 Textl中显示排序后的结果 Open“App Path& out5 txt“For 0utput As#2 Print#2， Textl.Text Close#1 End Sub单击 按钮运行 程序，并按要求保存。
