[计算机类试卷]VB机试模拟试卷19及答案与解析.doc

1、VB 机试模拟试卷 19 及答案与解析 一、基本操作题（ 30分） 1 注意：下面出现的 “考生文件夹 ”均为 c： wexam25160001。 (1) 在名称为 Form1的窗体上画一个名称为 H1的水平滚动条，请在 “属性 ”窗口中设置它的属性值，使之满足以下要求：它的最大刻度值为 100，最小刻度值为 1，在运行时鼠标单击滚动条上滚动框以外的区域 (不包括两边按钮 )，滚动框移动 10个刻度。再在滚动条下面画两个名称分别为 L1 和 L2的标签，并分别显示 1和 100，运行时的窗体如图19-1所示。 注意：存盘时必须存放在考生文件夹 下，工程文件名为 sjt1.vbp，窗体文件名为

2、sjt1.frm (2) 在名称为 Form1的窗体上画两个文本框，名称分别为 Text1和Text2，均无初始内容；再建立一个下拉菜单，菜单标题为 “操作 ”，名称为 M1，此菜单下含有两个子菜单项，名称分别为 Cooy和 Clear、标题分别为 “复制 ”和 “清除 ”。请编写适当的事件过程，使得程序运行时，单击 “复制 ”菜单项，则把 Text1中的内容复制到 Text2中，单击 “清除 ”菜单项，则清除 Text2中的内容 (即在 Text2中填入空字符串 )。程序运行界面如图 19-2所示。要 求在程序中不得使用任何变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件

3、夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。二、简单应用题（ 40分） 2 注意：下面出现的 “考生文件夹 ”均为 c： wexam25160001。 (1) 在考生文件夹下有一个工程文件 sjt3.vbp，相应的窗体文件名为 sjt3.frm，请装入该文件，在窗体上画两个命令按钮，名称分别为 Command1和 Command2，标题分别为 “添加项目 ”和“删除项目 ”，再画一个列表框和一个文本框，名称分 别为 List1和 Text1，如图 21-4所示。 编写适当的事件过程。程序运行后，如果单击 “添加项目 ”命令按钮，则从键盘上输入要添加到列表框中的项目 (

4、内容任意，不少于三个 )；如果单击 “删除项目 ”命令按钮，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图 21-5所示。提供的窗体文件可以实现上述功能，但这个程序不完整，请把它补充完整。 要求：去掉程序中的注释符，把程序中的 ?改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2) 在考生文件夹下有一个工 程文件 sjtt4.vbp，相应的窗体文件名为 sjt4.frm，其功能是通过调用过程 FindMax求数组的最大值，请装入该文件。程序运行后，在 4个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的最大值，并在窗体

5、上显示出来，如图 21-6所示。这个程序不完整，请把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。三、综合应用题（ 30分） 3 注意：下面出现的 “考生文件夹 ”均为 c： wexam25160001。 在考生文件夹下有一个工程文件 sjt5.vbp，其窗体上有一个文本框，名称为 Text1；两个命令按钮，名称分别为 C1和 C2，标题分别为 “计算 ”、 “存盘 ”，设计界面如图 20-5所示。并有一个函数过程 isprime，其功能是判断参数 a是否为素数，如果是素数，则

6、返回True，否则返回 False。 请将程序中问号的地方用相应的代码补充完整，使得在运行时，单击 “计算 ”按钮，则找出小于 18000的最大的素数，并显示在 Text1中；单击 “存盘 ”按钮，则把 Text1中的计算结果存入考生文件夹下的 out5.txt文件中。 注意：考生不得修改 isprime函数过程和控件的属性，必须把计算结果通过 “存盘 ”按钮存入 out5.txt文件中，否则无成绩。 VB 机试模拟试卷 19 答案与解析 一、基本操作题（ 30分） 1 【正确答案】 滚动条的最大值由 Max属性设置，最小值由 Min属性设置。鼠标卓击滚动条上滚动框以外的区域 (不包括两边按钮

7、 )滑块移动的增量值由LargeChange属性设置。标签上的标题由 Caption属性设置，控件的名称由 Name属性设置。解题步骤： 第一步：建立界面并设置控件属性。程序用到的 控件及其属性见表 19-2。 第二步：调试并运行程序。 第三步：按题目要求存盘。 (2)在 Visual Basic中，菜单项通过 “菜单编辑器 ”窗口建立，在窗体上单击右键选择 “菜单编辑器 ”选项可以打开 “菜单编辑器 ”窗口；文本框的内容由 Text属性设置，其形式为： 文本框名 Text=要显示的内容。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的菜单项和控件的属性见表 19-3。第二步：编写程序

8、代码。 参考代码： Option Explicit Private Sub Clear_Click() Text2.Text=“ End Sub Private Sub Copy_Click() Text2.Text=Text1.Text End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 二、简单应用题（ 40分） 2 【正确答案】 使用 AddItem方法向列表框中添加列表项目，其格式为： 列表 .AddItem项目字符串 ,索引值 AddItem方法把 “列表字符串 ”的文本内容放入 “列表框 ”中。如果省略 “索引值 ”则文本本放在列表框的尾部。 “索引值 ”可以指定插

9、入项在列表框中的位置，表 中的项目从 0开始计数， “索引值 ”不能大于表中的项数减1。该方法只能单个的项列表框中添加项目。 使用 RemoveItem方法从列表框中删除列表项目其格式为： 列表 .RemoveItem索引值 RemoveItem方法从列表框中删除以 “索引值 ”为地址的项目，该方法每次只能删除一个项目。 解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 21-3。第二步：编写程序代码。 程序提供的代码： Private Sub Command1_Click() Text1.Text=InputBox(“请输入要添加的项目 “) List1.AddIte

10、m ? End Sub Private Sub Command2_Click() Text1.Text=InputBox(“请输入要删除的项目 “) For i=0 To ? If List1.List(i)= ? Then List1.RemoveItem ? End If Next i End Sub 参考代码： Private Sub Command1_Click() Text1.Text=InputBox(“请输入要添加的项目 “) List1.AddItem Text1.Text End Sub Private Sub Command2_Click() Text1.Text=Inpu

11、tBox(“请输入要删除的项目 “) For i=0 To List1.ListCount-1 If List1.List(i)=Text1.Text Then List1.RemoveItem i End If Next i End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 (2)文本框里的内容 (包 括数字 )默认都是当作字符串来处理的，如果要参与数据运算则需先用 Val()函数将其转化为数字 (如：Va1(Text1.Text)。 这里需要指出的是利用 Array对数组各元素赋值，声明数组的类型只能是 Variant。数组的上下界可用 LBound函数和 UBound

12、函数分别获得：程序中变量 Max保存最大数，最初把数组的第一个元素赋给 Max，然后将其后的元素依次与之比较，如果大于 Max的值则与之交换，后面又将 Max作为标杆，依次类推，最终 MAX中的元素就是最大值。在窗体上打印信息可以通过 Print方法来实现， 其形式为： 对象 . Print要显示的内容 解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 21-4。第二步：编写程序代码。 程序中提供的代码： Option Base 1 Private Function FindMax(a() As Integer) Dim Start As Integer Dim Fin

13、ish As Integer, i As Integer Start=?(a) Finish=?(a) Max=?(start) For i=Start To Finish If a(i) ? Max Then Max= ? Next i FindMax=Max End Function Private Sub Command1_Click() Dim arr1 Dim arr2(4) As Integer arr1=Array(Val(Text1.Text) , Val(Text2.Text) , Val(Text3.Text) , Val(Text4.Text) ) For i=1 To

14、4 arr2(i)=CInt(?) Next i M=FindMax(?) Print “最大值是： “; M End Sub 参考代码： Option Base 1 Private Function FindMax(a() As Integer) Dim Start As Integer Dim Finish As Integer, i As Integer Start=LBound(a) Finish=UBound(a) Max=a(Start) For i=Start To Finish If a(i)Max Then Max=a(i) Next i FindMax=Max End Fu

15、nction Private Sub Command1 Click() Dim arr1 Dim art2(4) As Integer arr1=Array(Val(Text1.Text) , Val(Text2.Text) , Val(Text3.Text) , Val(Text4.Text) ) For i=1 To 4 arr2(i)=CInt(arr1(i) ) Next i M=FindMax (arr2) Print “最大值是： “; M End Sub 第三步：调试并 运行程序。 第四步：按题目要求存盘。 三、综合应用题（ 30分） 3 【正确答案】 在窗体上建立好控件后，先设

16、置控件的属性，再编写事件过程。 素数的判断准则就是看是否该数除了 1和其本身外别无其他约数 (即从 2到 n-1之间没有可以将其整除的数 )即可，变量 flag是用于保留判断数是否是素数的结果的，值有 True和 False两个 (从程序中可以看出 )所以应将其定义为布尔型(Boolean)，并且在函数中判断完之后，将 flag的值赋给函数过程 isprime的名字。 文本框用 Text属性来显示计算机结果，其形式为： 文本框名 .Text=要显示的内容 将数据写入文件可用命令 Write#或 Print#，本程序中用的是后者，其形式为： Pint#文件号， 输出列表 。 解题步骤： 第一步：

17、建立界面并设置控件属性。 程序中用到的控件及其属性值见表 20-5。第二步：编写程序代码。 程序中提供的代码： Private Function isprime(a As Integer) As Boolean Dim flag As? flag=True b%=2 Do While b% =Int(a/2) And flag If Int(a/b%)=a/b% Then flag=False Else b%=b%+1 End If ? isprime=flag End Function Private Sub C1 Click() Dim i As Integer i=18000 Do i=

18、i-1 Loop Until isprime(i) Text1.?=i End Sub Private Sub C2 Click() Open “out5.txt“ For Output As #1 Print #1, Text1.Text Close #1 End Sub 参考代码： Private Function isprime(a As Integer) As Boolean Dim flag As Boolean flag=True b%=2 Do While b% =Int(a/2) And flag If Int(a/b%)=a/b% Then flag=False Else b%=b%+1 End If Loop isprime=flag End Function Private Sub C1_Click() Dim i As Integer i=18000 Do i=i-1 Loop Until isprime(i) Text1.Text=i End Sub Private Sub C2_Click() Open “out5.txt“ For Output As #1 Print #1, Text1.Text Close #1 End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。