admin 管理员组

文章数量: 1086019


2024年3月27日发(作者：重定向过多网页打不开清除也没用)

国家二级VB机试（上机操作）模拟试卷592

(题后含答案及解析)

题型有： /> 步骤2：打开代码编辑窗口，在指定位置编写如下

代码。 参考答案 PriVate Sub Commandl_Click( )

HScrolll．Max=1500′设置滚动条的最大值、最小值、最大改变值、最小改变值

HScrolll．Min=100 HScrolll．LargeChanqe=100

HScrolll．SmallChange=10 End Sub PriVate Sub HScrolll_Change( )

Picturel．Width =HScrolll．Value′将图片的width与滚动条的value保持一致

End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。

解析：在设计阶段通过Picture属性为图片框指定显示的图片，通过Width

属性来设定或修改图片框的宽度。通过调整滚动条滑块的位置即可改变其Value

属性的值，滚动条的Max和Min属性限定了滚动条所能表示的最大值和最小值，

LargeChange属性用于设置当单击滑块与两侧箭头间区域时Value属性值的改变

量，SmallChange属性用于设置当单击滚动条两侧箭头时Value属性值的改变量。

当改变滚动条滑块位置后将触发其Change事件。

简单应用题

3． 在考生文件夹下有一个工程文件sjt3．vbp(相应的窗体文件名为

sjt3．frm)，在窗体上添加一个名称为Listl的列表框和一个名称为Textl的文本框，

如图1所示。编写窗体的MouseDown事件过程。程序运行后，如果用鼠标单击

窗体，则从键盘上输入要添加到列表框中的项目(内容任意，不少于三个)；如果

用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程

序的运行情况如图2所示。这个程序不完整，请把它补充完整，并能正确运行。

要求：去掉程序中的注释符，把程序中的?改为适当的内容，使其正确运行，但

不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。

正确答案： 【操作步骤】 步骤l：打开本题工程文件，按表4．18所列

在窗体画出控件并设置其属性。 步骤2：打开代码编辑窗口，去掉程序中的

注释符“′”，将问号改为正确的内容。 参考答案(阴影部分是需考生填入的

内容)PriVate Sub Form_MouseDown(Button AsInteger，Shift As Integer，X As

Single，YAs Sinqle) It BUttOn=1 Then Textl．Text=InputBox(”请输入要添

加的项目”) Listl．AddItem Textl,Text ′将Textl中的内容加入列表 End

If If Button=2 Then Textl．Text=InputBox(”请输入要1啊4除的项

目”) ′列表总数用LiStCount求得 For i =0 To

List1,ListCount-1 ′ ′判断列表项是否为要删除的项 If Listl．List(i) =

Textl,Text ′Then ′删除i所对应的项 Listl．RemoveItemiEnd If

Next i End If End Sub 程序结束 步骤3：调试并运行程序，关

闭程序后按题目要求存盘。 【易错提示】列表数组List(i)下标从0开始，列

表项的循环上限应为ListCount-l，要注意InputBox语句的格式。

解析：当在窗体上按下鼠标键时将触发其MouseDown事件，该事件过程的

参数Button值为1时表示当前按下的是鼠标左键；当Button值为2时表示当前

按下的是鼠标右键。向列表框添加项目使用Addltem方法，删除列表项使用

Removeltem方法。当执行删除操作时，本题在For循环语句中逐一判断列表中

各项是否与输入内容一致，若一致则删除列表框中该项。

4． 在考生文件夹下有一个工程文件sjt4．vbp(相应的窗体文件名为

sjt4．frm)，其功能是通过调用过程FindMin求数组的最小值。程序运行后，在4

个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的最小值，并在

窗体上显示出来(如图所示)。 要求：去掉程序中的注释符，把程序中的?改

为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改

后的文件按原文件名存盘。

正确答案：【操作步骤】 步骤l：打开本题工程文件。 步骤2：打开

代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容。 参考

答案(阴影部分是需考生填入的内容) Option Base I Private Function

FindMin(a( )As Inte·ger) Dim Start As Integer Dim Finish As Integer，i

As Inte-ger Start= LBound(a)′求教组下界值 Finish= UBound(a)′求数组

上界值 Min= a (Start)’将第一个数赋给最小值进行比较 For i=Start To

Finish’循环判断找最小值 If a(i) ＜Min ThenMin= a(i) Next i

FindMin=Min End Function Private Sub Commandl_Click( ) Dim

arrl Dim arr2(4)As Integer arrl=Array(Val(Textl．Text)，Val(Text2．Text)，

Val(Text3．Text)，Val(Text4．Text))′申请arrl数组并初始化 For i=1 To 4

arr2(i)=CInt(arrl(i))′CInt函数将arrl中的数值转换为整型 Next i

M=FindMin( arr2) Print＂最小值是：＂；M End Sub 步骤3：调试并

运行程序，关闭程序后按题目要求存盘。 【易错提示】option base在模块级

别中使用，用来声明数组下标的默认下界，option base后面只能是0或者l，默

认值为0。

解析：文本框里的内容(包括数字)默认都是当做字符串来处理的，如果需要

参与数据运算，则需先用Val( )函数将其转化为数字(例如Val(TextI．Text))。

CInt函数将数值转换为整型。

综合应用题

5． 在窗体上建立三个菜单(名称分别为Read、Calc和Save，标题分别为“读

入数据”、“计算并输出”和“存盘”)，然后再添加一个文本框，名称为Textl，

MultiLine属性设置为True，ScrolIBars属性设置为2(如图所示)。程序运行后，

如果执行“读入数据”命令，则读入考生文件夹下datainl．txt文件中的100个

整数，放入一个数组中，数组的下界为1；如果单击“计算并输出”按钮，则把

该数组中下标为偶数的元素在文本框中显示出来，求出它们的和，并把所求得的

和在窗体上显示出来；如果单击“存盘”按钮，则把所求得的和存入考生文件夹

下的dataout．txl文件中。在考生文件夹下有一个工程文件sjt5．vbp，窗体文件

中的ReadData过程可以把datainl．txt文件中的100个整数读入Arr数组中；而

WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过

计算求得，文件名为dataout．tx1)。 注意：考牛不得修改窗体文件中已经存

在的程序。存盘时，工程文件名仍保存为sjt5．vbp，窗体文件名仍保存为sjt5．frm。

正确答案：【操作步骤】 步骤l：打开本题工程文件，利用菜单设计器，

按表中的设置建立菜单项，在窗体Forml中绘制一个文本框，其相关属性及其值

见表4．19和表4．20。 步骤2：打开代码编辑窗口，在代码编辑窗口指定

位置编写以下代码。 参考答案 ′需要考生编写的内容 Dim sum As

integer ′考生编写程序结束 ′需要考生编写的内容 Private Sub Calc

Click( ) Textl．Text=＂＂ For i=2 To 100 Step 2′从2开始循环．以2

为步长的下标都是偶数 Textl．Text=Textl．Text＆Arr(i)＆Space(5)

sum=sum+Arr(i)′对下标为偶数的值求和 Next i Print sum End

Sub Private Sub Read Click( ) ReadData′调用ReadData子过程

End Sub Private Sub Save Click( )′调用SaveClick函数 WriteData＂

dataout．txt＂，sum End Sub ′考生编写程序结束 步骤3：调试并运

行程序，关闭程序后按题目要求存盘。 【易错提示】调用writeData过程时

需传递参数dataout．txt和sum，变量sum应为窗体变量。

解析：根据题意在“读入数据”命令的Click事件过程中，通过调用ReadData

过程将数据从datainl．txt文件读入到数组Art(窗体变量)中；在“计算并输出”

命令的Click事件过程中，在For循环语句(循环变量i的初值为2，终值为100，

步长为2)中依次将数组Arr中下标为偶数的元素显示在文本框中，并将其值累加

到变量sum；在“存盘”命令的Click事件过程中，通过调用WriteData过程将

sum的值写入数据文件dataout．txl中。


本文标签： 窗体 考生 数组 程序 文件

版权声明：本文标题：国家二级VB机试(上机操作)模拟试卷592(题后含答案及解析)_图文_ 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1711505139a597392.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。