2017年计算机二级考试试题及答案|计算机二级上机试题及答案|计算机二级模拟试题|计算机二级练习题|国家计算机二级考试试题-233网校
233网校查分神器
您现在的位置：&&模拟试题
扫描二维码加入群组
微信订阅号：kszx233
扫描二维码加入群组2013年上半年计算机二级VB第三十七套上机试题及解题思路
用圣才电子书APP或微信扫一扫，在手机上阅读本文，也可分享给你的朋友。
1. 基本操作（2小题，每小题15分，共计30分）
　　注意：下面出现的&考生文件夹&均为%USER%
　　请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
　　（1）在名称为 Form1的窗体上画一个命令按钮，其名称为Command1（如图 1所示），然后通过属性窗口设置窗体和命令按钮的属性，实现如下功能：
　　1）窗体标题为&设置按钮属性&
　　2）命令按钮的标题为&等级考试&
　　3）程序运行后，命令按钮不显示
　　4）命令按钮的标题用三号常规黑体显示
　　程序的运行情况如图2所示。
　　要求：
　　不编写任何代码。
　　*注意：
　　存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
　　解题思路：
　　启动Visual Basic系统，创建一个Form1窗体。
　　在该窗体上画一个命令按钮控件，通过其属性窗口将名称设为Command1，标题（Caption属性）设为&等级考试&，通过Font属性的字体对话框设置字体属性为黑体，字号属性为三号，Visible属性设为False。激活Form1窗体，通过其属性窗口将标题（Caption属性）设为&设置按钮属性&。
　　参考文件：c:\wexam\\hlpsys\参考答案\sjt1.vbp、sjt1.frm、sjt1.vbw
　　请把这些文件复制到c:\wexam\中，然后打开sjt1.vbp文件并运行。
　　（2）在名称为 Form1的窗体上画一个标签，其名称为Label1，在属性窗口中把BorderStyle属性设置为1（如图 1所示），编写适当的事件过程。程序运行后，如果单击窗体，则可使标签移到窗体的右上角（只允许在程序中修改适当属性来实现）。
　　程序的运行情况如图2所示。
　　要求：
　　不得使用任何变量。
　　*注意：
　　存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件
　　名为sjt2.frm。
　　解题思路：
　　启动Visual Basic系统，创建一个Form1窗体。
　　在该窗体上画一个标签控件，通过其属性窗口将名称设为Label1，BorderStyle属性设置为1。
　　单击窗体（即运行Click事件过程），在该Click事件过程中加入语句：
　　Private Sub Form_Click()
　　Label1.Left = -Label1.Width + Me.Width
　　Label1.Top = 0
　　End Sub
　　参考文件：c:\wexam\\hlpsys\参考答案\sjt2.vbp、sjt2.frm、sjt2.vbw
　　请把这些文件复制到c:\wexam\中，然后打开sjt2.vbp文件并运行。
2. 简单应用（2小题，每题20分，计40分）
　　注意：下面出现的&考生文件夹&均为%USER%
　　（1）在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。其功能是产生30个0～1000的随机整数，放入一个数组中，然后输出其中的最小值。程序运行后，单击命令按钮（名称为 Command1，标题为&输出最小值&），即可求出其最小值，并在窗体上显示出来（如图所示）。
　　这个程序不完整，请把它补充完整，并能正确运行。
　　要求：
　　去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
　　解题思路：
　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。
　　由于所提供的窗体程序不完整，在窗体的Private Sub Command1_Click()事件过程中，有三处地方需要修改。
　　1) 将语句
　　'arrN(i) = ?
　　arrN(i) = Int(Rnd * 1000)
　　2) 将语句
　　'Min = ?
　　Min = arrN(1)
　　3) 将语句
　　'If ? Then
　　If arrN(i) & Min Then
　　参考文件：c:\wexam\\hlpsys\参考答案\sjt3.vbp、sjt3.frm、sjt3.vbw
　　请把这些文件复制到c:\wexam\中，然后打开sjt3.vbp文件并运行。
　　（2）在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出0～1000范围内不能被7整除的整数的个数，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被7整除的整数的个数的操作在通用过程Fun中实现，请编写该过程的代码。
　　要求：
　　请勿改动程序中的任何内容，只在Function Fun()和End Function之间填入你编写的若干语句。最后把修改后的文件按原文件名存盘。
　　解题思路：
　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。
　　由于所提供的窗体程序不完整，在fun()函数中需要加入语句：
　　Function Fun()
　　For i = 0 To 1000
　　If i Mod 7 && 0 Then
　　Y = Y + 1
　　End If
　　Next i
　　Fun = Y
　　End Function
　　参考文件：c:\wexam\\hlpsys\参考答案\sjt4.vbp、sjt4.frm、sjt4.vbw、outtxt.txt
　　请把这些文件复制到c:\wexam\中，然后打开sjt4.vbp文件并运行。
3. 综合应用（1小题，计30分）
　　注意：下面出现的&考生文件夹&均为%USER%
　　在考生文件夹下有一个工程文件sjt5.vbp，请先装入该工程文件，然后完成以下操作：
　　在名称为Form1 的窗体上画二个命令按钮，其名称分别为C1和C2，标题分别为&读入数据&和&计算&（如图所示）。程序运行后，如果单击&读入数据&按钮，则调用题目所提供的ReadData1和ReadData2过程读入datain1.txt和datain2.txt文件中的各20个整数，分别放入Arr1和Arr2两个数组中；如果单击&计算&按钮，则把两个数组中对应下标的元素相减，其结果放入第三个数组中（即：第一个数组的第 n个元素减去第二个数组的第n个元素，其结果作为第三个数组的第n个元素。这里的n为1、2、...、20），最后计算第三个数组各元素之和，把所求得的和在窗体上显示出来；并调用题目中给出的 WriteData过程将所求得的和存入考生文件夹下的dataout.txt文件中。
　　注意：
　　考生不得修改窗体文件中已经存在的程序，且必须执行此程序一次，最后把修改后的文件以原来的文件名存盘。
　　解题思路：
　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。
　　由于所提供的窗体控件不完整，在窗体上画三个命令按钮控件，通过其属性窗口将名称分别设为C1、C2、C3，标题（Caption属性）分别设为&读入数据&、&计算&和&存盘&。由于所提供的窗体程序不完整，需添加事件过程。
　　单击&读入数据&按钮（即运行Click事件过程），在该Click事件过程中加入语句：
　　Private Sub C1_Click()
　　ReadData1
　　ReadData2
　　End Sub
　　单击&计算&按钮（即运行Click事件过程），在该Click事件过程中加入语句：
　　Private Sub C2_Click()
　　Dim Arr3(20) As Integer
　　Dim Sum As Integer
　　Sum = 0
　　For i = 1 To 20
　　Arr3(i) = Arr1(i) - Arr2(i)
　　Sum = Sum + Arr3(i)
　　Next i
　　Print &Sum = &; Sum
　　WriteData &dataout.txt&, Sum
　　End Sub
　　参考文件：c:\wexam\\hlpsys\参考答案\sjt5.vbp、sjt5.frm、sjt5.vbw、DataOut.txt
　　请把这些文件复制到c:\wexam\中，然后打开sjt5.vbp文件并运行。
小编工资已与此赏挂钩！一赏一分钱！求打赏↓ ↓ ↓
如果你喜欢本文章，请赐赏：
已赐赏的人
我的电子书2015年计算机试题_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
2015年计算机试题
|0|0|暂无简介
总评分4.1|
浏览量17104
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩47页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢计算机VB考试试题精选_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
计算机VB考试试题精选
上传于|0|0|暂无简介
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩30页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢2015年9月vb计算机二级考试试题及答案
　　如您遇到什么问题，可添加老师微信：（陆老师微信id：edululu）（韩老师微信id：eduhpp）为您解答。
　　2015年9月vb计算机二级考试9月19日-22日举行，2015年9月vb计算机二级考试试题及答案关注本站。　　考生可** 提前预估考试分数， 第一时间获取成绩查询时间。　　热点话题：
扫描二维码添加老师微信(eduhpp)，老师帮你解答疑惑
全国计算机等级考试真题及解析
本文标题: 本文地址:
4月考试热点}