admin 管理员组文章数量: 1086019
2024年3月27日发(作者：python安装numpy库出错)
国家二级VB机试（上机操作）模拟试卷586
(题后含答案及解析)
题型有： /> 注意：存盘时必须存放在考生文件夹下，工程文件
名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。 (2)在名称为Form1的窗
体上添加一个名称为Hscroll1的水平滚动条，其刻度范围为1～100；再添加一
个名称为Text1的文本框，初始文本内容为1。程序开始运行时，焦点在滚动条
上。请编写适当的事件过程，使得程序运行时，文本框中实时显示滚动框的当前
位置。运行情况如图所示。 注意：要求程序中不得使用变量，每个事件
过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名保存
为sjt2．vbp，窗体文件名保存为sjt2．frm。
正确答案： (1)【操作步骤】 步骤1：建立界面，添加相应的控件并设
置控件的属性。程序中用到的控件及属性见表4．49。 步骤2：调试并
运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1：新建
一个窗体，按照题目要求建立控件并设置其属性，如表4．50所示 步骤
2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Private Sub
HScroll1_Change( ) Text1．Text=HScroll1．Value End Sub 步骤
3：调试并运行程序，关闭程序后按题目要求存盘。
解析：(1)标签的Name和Caption属性设置标签的名称和标题，AutoSize属
性设置控件是否能够自动调整大小以显示所有的内容，BorderStyle属性使标签带
有边框，FontSize属性设置字体的大小。 (2)Tablndex属性是当前窗体上控件
的＜Tab＞键切换顺序：运行时按＜Tab＞键会按照TabIndex值从小到大的顺序
进行切换。将滚动条的Tablndex属性设置为0，可以使程序开始运行时，焦点在
滚动条上。当滚动框的位置改变时，触发Change事件。通过
Text1．Text=HScroll1．Value语句可以实现在文本框中显示滚动框的当前位置。
简单应用题
2． (1)在考生文件夹下有一个工程文件sjt3．vbp(相应的窗体文件名为
sjt3．frm)，在窗体上添加一个名称为List1的列表框和一个名称为Text1的文本
框，如图1所示。编写窗体的MouseDown事件过程。程序运行后，如果用鼠标
单击窗体，则从键盘上输入要添加到列表框中的项目(内容任意，不少于三个)；
如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。
程序的运行情况如图2所示。这个程序不完整，请把它补充完整，并能正确运行。
要求：去掉程序中的注释符，把程序中的?改为适当的内容，使其正确运行，但
不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 (2)在
考生文件夹下有一个工程文件sjt4．vbp(相应的窗体文件名为sjf4．frm)，其功能
是通过调用过程FindMin求数组的最小值。程序运行后，在4个文本框中各输入
一个整数，然后单击命令按钮，即可求出数组的最小值，并在窗体上显示出来(如
图所示)。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其
实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名
存盘。
正确答案：(1)【操作步骤】 步骤1：打开本题工程文件，按表4．18所
列在窗体画出控件并设置其属性。 步骤2：打开代码编辑窗口，去掉程
序中的注释符“‘”，将问号改为正确的内容。 参考答案(画线部分是需考生
填入的内容) Private Sub Form_MouseDown(Button AsInteger，Shift As Integer，
X As Single，YAs Sinqle) If Button=1 TnenText1．Text=InputBox(“请输入
要添加的项目”)List1．ActdItem ’将Text1中的内容加入列表 End
If If Button=2 ThenText1．Text=InpuLBox(“请输入要删除的项目”)
‘列表总数用LisLCount求得 For i =0 unt-1 ‘判断
列表项是否为要删除的项 Tf List1．List(i) = Then ‘删
除i所对应的项 List1．RemoveItem i End IfNext i End If
End Sub 程序结束 步骤3：调试并运行程序，关闭程序后按题目要求存
盘。 (2)【操作步骤】 步骤1：打开本题工程文件。 步骤2：打开代
码编辑窗口，去掉程序中的注释符“‘”，将问号改为正确的内容。 参考答案
(画线部分是需考生填入的内容) Option Base 1 Private Function
FindMin(a( )As Integer) Dim Start As Integer Dim Finish As
Integer，i As Integer Start=LBound(a)’求数组下界值
Finish=UBound(a)’求数组上界值 Min=a(Start)’将第一个数赋给最小值进
行比较 For i=Start To Finish’循环判断找最小值Tf a(i)＜Min Then Min=a(i)
Next i FindMin=Min End Function Private Sub
Commandl_Click( ) Dim arr1 Dim art2(4)As Integer arr1
=Array(Val(Text1．Text)，Val(Text2．Text)，Val(Text3．Text)，Val(Text4．Text))’
申请arr1数组并初始化 For i=1 To 4art2(i)=CInt(arr1(i))’CInt 函数将
arr1中的数值转换为整型 Next．i M=FindMin(arr2) Print”
最小值是：”；M End Sub 步骤3：调试并运行程序，关闭程序后按题目
要求存盘。
解析：(1)当在窗体上按下鼠标键时将触发其MouseDown事件，该事件过程
的参数Button值为1时表示当前按下的是鼠标左键；当Button值为2时表示当
前按下的是鼠标右键。向列表框添加项目使用Addhem方法，删除列表项使用
RemoveItem方法。当执行删除操作时，本题在For循环语句中逐一判断列表中
各项是否与输入内容一致，若一致则删除列表框中该项。 程序中用到了
InputBox( )函数，其格式为： InputBox(prompt[，title][，default][，xpos][，
ypos][，helpfile，context]) 其中常用参数为prompt和title。prompt是一个字
符串，其长度不得超过1024个字符，它是在对话框内显示的信息，用来提示用
户输入。 title：是一个字符串，它是对话框的标题，显示在对话框顶部的标
题区。 (2)文本框里的内容(包括数字)默认都是当做字符串来处理的，如果需
要参与数据运算，则需先用Val( )函数将其转化为数字(例如Val(Textl．Text))。
CInt函数将数值转换为整型。 这里需要指出的是，利用Army对数组各元素
赋值，声明数组的类型只能是Variant。 在本题的FindMin过程中，用变量
Min记录最小值，最初把数组的第一个元素的值赋给Min，然后通过For循环语
句将其后的元素依次与之比较，如果小于Min的值则与之交换，依次类推，最
终Min的值就是数组各元素中的最小值。 在窗体上打印信息可以通过Print
方法来实现，其形式为： [对象．]Print要显示的内容
综合应用题
3． 在考生文件夹下有一个工程文件sjt5．vbp，功能是用来计算勾股定理
整数组合的个数。勾股定理中3个数的关系是：a2+b2=c2。例如，3、4、5就是
一个满足条件的整数组合(注意：a，b，c分别为4，3，5与分别为3，4，5被视
为同一个组合，不应该重复计算)。编写程序，统计均在60以内的三个数满足上
述关系的整数组合的个数，并显示在标签Label1中。 注意：不得修改原有
程序的控件属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的
结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。
正确答案：【操作步骤】 步骤1：打开本题工程文件。 步骤2：打开
代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 参考答案 Dim
i As Integer Dim j As Integer Dim k As Integer For i=1 To 60 For
j=1 To 60 For k=1 To 60 ‘判断三个数是否满足勾股定律 If i =j +k
Then m=m+1’m为记录满足条件的个数 End If Next k Next 3
Next i Label1=m／2’去掉相同的项 步骤3：调试并运行程序，关闭程序
后按题目要求存盘。
解析：通过循环嵌套实现遍历60以内的整数，通过勾股定理表达式判断是
否为勾股数整数组合，并通过变量的累加实现勾股定理整数组合个数的统计。
版权声明：本文标题：国家二级VB机试(上机操作)模拟试卷586(题后含答案及解析) 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1711505315a597401.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论