1、VB机试模拟试卷 54及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Forml的窗体上画一个名称为 VScrolll的垂直滚动条，请在 “属性 ”窗口中设置它的属性值，使之满足以下要求：它的最大刻度值为 200，最小刻度值为l，在运行时鼠标单击滚动条上滚动块以外的区域 (不包括两边按钮 )，滚动块移动20个刻度。再在滚动条下面画两个名称分别为 Labell和 Label2的标签，并分别显示 1和 200，运行时的窗体界面如图 351所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjl vbp，窗体文件名 为 sjl_frm。 (2)在名称为 Forml的窗体上画两个
2、文本框，名称分别为 Textl和 Text2，均无初始内容；再建立一个下拉菜单，菜单标题为 “命令 ”，名称为 Com，此菜单下含有 3个子菜单项，名称分别为 Copy、 Clear和 Close，标题分别为 “复制 ”、 “清空 ”和 “关闭 ”。请编写适当的事件过程，使得程序运行时，单击 “复制 ”菜单项，则把 Textl中的内容复制到 Text2中，单击 “清空 ”菜单项，则清除 Text2中的内容 (即在 Text2中填入空字符串 )。程序运行界面如图 352所示。要求在程序中不得使用任何变 量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sj2
3、vbp，窗体文件名为sj2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sj3 vbp，其功能是： 单击 “读数据 ”按钮，则将考生文件夹下 in3 dat文件中的 100个 0 999之间的整数读入到数组 a中。 单击 “计算 ”按钮，则找出这 100个整数中的所有水仙花数，并将它们的最大值与最小值分别显示在文本框 Textl、 Text 2中。 (注：当一个数的值等于该数中的各位数字的立方和时，此 数被称为水仙花数。如：所以 153就是一个水仙花数 ) 在窗体文件中已经给出了全部控件 (如图 494所示 )和 “读数据 ”命令按钮的事件过程以及判断一个数是
4、否为水仙花数的通用过程。要求编写 “计算 ”命令按钮的事件过程。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前，必须进行 “计算 ”，并且必须通过单击窗体右上角的“关闭 ”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sj4 vbp，在名称为。 Forml的窗体上有两个标签与三个文本框，名称分别为 Labell、 Label2， Textl、 Text2、 Text3，其中三个文本框内空，两个标签的标题分别为 “横坐标 ”、 “纵坐标 ”。另设一命令按钮，名称为 Commandl，标题为 “到原点的距离 ”。编写相关程序，要求程序
5、运行时在两个文本框中输入相应的点坐标，单击 “到原点的距离 ”后，可以在 Textl和 Text2中显示该点的坐标，在Text3中显示该点到原点的距离。 注意：请去掉程序中的注释符 “”，把程序中的“?”改为正确的内容。但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。 三、综合应 用题（ 30分） 3 在考生文件夹下有一个工程文件 sj5 vbp，在 Form1的窗体中有一个标签， 3个命令按钮和一个计时器。程序的功能是：运行时，单击 “开始计数 ”按钮，就开始计数，每隔 1秒，标签中的数加 l，且该按钮不可用， “倒数计数 ”按钮可用；单击 “倒数计数 ”
6、按钮时，则倒数计数，且该按钮不可用， “开始计数 ”按钮可用，当倒数计数到 0时，则停止计数，且 “开始计数 ”按钮可用、 “倒数计数 ”按钮不可用；单击“关闭 ”按钮，则关闭窗口。 注意：修改适当的控件的属性，并去掉程序中的注释符 “”，把程序中的 “?”改为正确的内 容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件以原来的文件名存盘。程序运行时的窗体界面如图435所示。 VB机试模拟试卷 54答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)滚动条的最大值由 Max属性设置，最小值由 Min属性设置。鼠标单击滚动条上滚动框以外的区域 (不包括两边按钮 )滑
7、块移动的增量值由LargeChange属性设置。标签上的标题由 Caption属性设置，控件的名称由 Name属性设置。 根据题意，新建 “标准 EXE”工程，将两个标签和一个垂直滚动条控件添加 到窗体中，标签的名称分别为 Labell和 Label2、 Caption属性分别为 “1”和“200”，垂直滚动条的名称为 VScrolll， Max属性为 200、 Min属性为 1，LargeChange属性为 20。 单击 按钮运行程序，并按要求保存。 (2)根据题意，新建 “标准 EXE”工程，按 “Ctrl+E”组合键打开菜单编辑器，在其中添加如下菜单项： 单击 “确定 ”按钮，完成菜单设
8、置。将两个文本框控件添加到窗体中，名称分别为 Textl和 Text2、 Text属性都为空，设置完成后进人代码窗口，编写如下代码： Private Sub Clear_Click() 清空命令 Text2 Text=“ End Sub Private Sub Close_Click() 关闭命令 Unload Me End Sub Private Sub Copy_Click() 复制命令 Text2 Text=Textl Text End Sub 单击按钮运行程序，并按要 求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)本题主要是考查变量初值定义、 If判断语句、 For选择
9、语句、Vat()函数、 Fix()函数以及文件操作。按要求打开代码窗口，在指定位置编写如下代码： Dim i As Integer Dim max As Integer， rain As Integer max=-1 min=1000 For i=1 to 1000 If isnarc(a(i)Then调用 isnarc判断是否为水仙花数 If max=a(i)Then rain=a(i)求水仙 花数中的最大值和最小值 End If Next i Textl=max Text2=min 单击按钮运行程序，并按要求保存。 (2)根据题意， Textl、 Text2分别用于显示输入横坐标和纵坐标的
10、值并显示出来， Text3用于显示该点到原点的距离。由于文本框的 Text属性返回的是字符串，因此要用 Val()函数进行转换。求两点间的距离公式在 VB中的表示格式为： d=Sqr(x2-x1)2+(y2-y1)2)，由于本题原点坐标为 (0，0)，自定义点的坐标为 (a， b)，代入公式即 d=Sqr(a*a十 b*b)。 补充后的代码如下： Private Sub Commandl_Click() Dim a As Integer Dim b As Integer Dim d AS Double a=Val(Textl Text) 横坐标为 Textl输入的值 b=Val(Text2 T
11、ext) 纵坐标为Text2输入的值 d=Sqr(a*a+b*b) 到原点的距离， Sqr为求平方根的函数 Text3 Text=d在 Text3中显示距离 End Sub 单击 按钮运行程序并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 根据题意，将一个 Label控件、 3个 Command控件和一个 Timer控件添加到窗体上， Label的名称为 Labell、 Caption属性为空， Command的名称分别为 Commandl、 Command2和 Command3， Caption属性分别为 “开始计数 ”、 “倒数计数 ”和 “关闭 ”。双击 Commandl命
12、令按钮，编写如下代码： Dim a As Integer Private Sub Commandl_Click() Timerl Interval=1 000 Command1 Enabled=False Command2 Enabled=True a=1计数 End Sub Private Sub Command2 Click() Command2 Enabled=False Command1 Enabled=True a=2 倒数计数 End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Timerl Timer() If a=1 Then如果是正向的 Labell Caption=Val(Labell Caption)+l 则每过一个周期计数加1 Else Labell Caption=Val(Labell Caption)-1 如果是倒数计数，则每个周期数减 1 Command2 Enabled=False If Val(Labell Caption) 按钮运行程序，并按要求保存。
