2021计算机二级(VB)考试机试题库.docx
《2021计算机二级(VB)考试机试题库.docx》由会员分享,可在线阅读,更多相关《2021计算机二级(VB)考试机试题库.docx(176页珍藏版)》请在咨信网上搜索。
1、2021年 VB题库第01套 简单应用题注意:不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 Private Sub Op1_Click(Index As Integer) Dim a As String, b As String, c As String a = 我坐 b = 我开 Select Case ? * Index * Case 0 Text1.Text = a + Me.Op1(0).Caption + 去 Case 1 Text1.Text = ? + Me.Op1(1).Caption + 去 * a * Case 2 Text1.Text = b + Me.O
2、p1(2).Caption + 去 End SelectEnd Sub(2)在考生文件夹下有一个工程文件sjt4.vbp,Form1窗体中有一个文本框,名称为Text1;请在窗体上添加两个框架控件,名称分别为F1、F2,标题分别为性别、身份;在F1中添加两个单选按钮控件Op1、Op2,标题分别为男、女;在F2中添加两个单选按钮控件Op3、Op4,标题分别为学生、教师;再添加一个命令按钮,名称为C1,标题为确定。如图所示。请编写适当的事件过程,使得在运行时,在F1、F2中各选一个单选按钮,然后单击确定按钮,就可以按照下表把结果显示在文本框中。 性别 身份 在文本框中显示的内容 男 学生 我是男学
3、生 男 教师 我是男教师 女 学生 我是女学生 女 教师 我是女教师 最后把修改后的文件以原来的文件名存盘。 注意:考生不得修改窗体文件中已经存在的程序和Text1的属性,在结束程序运行之前,必须进行能够产生上表中一个结果的操作。必须用窗体右上角的关闭按钮结束程序,否则无成绩。 * 请考生编写程序 *If op1 and op3 then Text1.Text=”我是男学生”If op1 and op4 then Text1.Text=”我是男教师”If op2 and op3 then Text1.Text=”我是女学生”If op2 and op4 then Text1.Text=”我是女
4、教师”*第01套 综合应用题以下数列:1,1,2,3,5,8,13,21,的规律是从第3个数开始,每个数都是其前面两个数之和。 在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图所示。请编写适当的事件过程完成如下功能:选中一个单选按钮后,单击计算按钮,则计算出上述数列的第n项的值,并在文本框中显示,n是选中的单选按钮后面的数值。(提示:因计算结果较大,应使用长整型变量。) 注意:不能修改已经给出的程序和已有的控件的属性;在结束程序运行之前,必须选中一个单选按钮,并单击计算按钮获得一个结果;必须使用窗体右上角的关闭按钮结束程序,否则无成绩。最后把修改后的文件按原文件名存
5、盘。 * 请考生编写程序 *Dim a(35) As LongIf op1(0) then n=30If op1(1) then n=33If op1(2) then n=35 a(1) = 1 a(2) = 1 For i = 3 To n a(i) = a(i - 1) + a(i - 2) Next Text1.Text = a(n)End Sub第02套 简单应用题(1)在考生文件夹下有一个工程文件sjt3.vbp,窗体中有两个图片框,名称分别为P1、P2,其中的图片内容分别是一架航天飞机和一朵云彩,一个命令按钮,名称为C1,标题为发射,还有一个计时器,名称为Timer1。并给出了两个
6、事件过程,但并不完整,要求:设置Timer1的属性,使其在初始状态下不计时;设置Timer1的属性,使其每隔0.1秒调用Timer事件过程一次。去掉程序中的注释符,把程序中的?改为正确的内容,使得在运行时单击发射按钮,则航天飞机每隔0.1秒向上移动一次,当到达P2的下方时停止移动,如图所示。注意:不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。Private Sub C1_Click()Timer1.Enabled = ? * True *End SubPrivate Sub Timer1_Timer()Static a%a = a =+1If P1.Top P2.Top P2.?
7、 Then * Height *P1.Move P1.Left, P1.Top - 5 - a, P1.Width, P1.HeightElseTimer1.Enabled = ? * False *End IfEnd Sub(2)在考生文件夹下有一个工程文件sjt4.vbp,运行情况如图所示。程序的功能是计算下列表达式的值: 在给出的窗体文件中已经添加了全部控件和程序,但程序不完整。要求去掉程序中的注释符,把程序中的?改为正确的内容。 Private Function xn(a As Single, m As Integer)Dim i As Integertmp = 1For i = 1
8、To mtmp = ? * tmp*a *Nextxn = ? * tmp *End FunctionDim n As IntegerDim i As IntegerDim t As SingleDim s, x As Singlen = Val(Text1.Text)x = Val(Text2.Text)z = 0For i = 2 To nt = x + iz = z +? * xn(t,i) *NextLabel1.Caption = ? * z *Call SaveResultEnd SubPrivate Sub SaveResult()Open App.Path & out4.dat
9、 For Output As #1Print #1, Label1.CaptionClose #1End Sub*第02套 综合应用题Private arr(100) As IntegerPublic Function prime(x As Integer)k = Int(Sqr(x) + 5)For i = 2 To kIf x Mod i = 0 Thenprime = FalseExit FunctionEnd IfNextprime = TrueEnd FunctionOpen App.Path & in5.txt For Input As #1For i = 1 To 40Input
10、 #1, arr(i)NextClose #1End Sub * 请考生编写程序 * Dim a As Integer Dim b As Integer a = 0 b = arr(1) For i = 1 To 40 If prime(arr(i) Then a = a + 1 Label3.Caption = a Next For i = 1 To 40 If prime(arr(i) And arr(i) = b Then b = arr(i) Label4.Caption = b Next* 考生编写程序结束 *Open App.Path & out5.txt For Output A
11、s #1Print #1, Label3.Caption, Label4.CaptionClose #1End Sub*第03套 简单应用题(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是: 单击读数据按钮,则将考生文件夹下in3.dat文件中的100个0到999之间的整数读入到数组a中; 单击计算按钮,则找出这100个整数中的所有水仙花数,并将它们的最大值与最小值分别显示在文本框Text1、Text2中。(注:当一个数的值等于该数中的各位数字的立方和时,此数被称为水仙花数。如:所以153就是一个水仙花数) 在窗体文件中已经给出了全部控件(如图所示)和读数据命令按钮的事件过程以及判
12、断一个数是否为水仙花数的通用过程。要求编写计算命令按钮的事件过程。 注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行前,必须进行计算,并且必须通过单击窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。Dim a(100) As IntegerDim k As IntegerOpen App.Path & in3.dat For Input As #1For k = 1 To 100Input #1, a(k)Next kClose #1End Sub * 需考生编写的程序 * Dim i As Integer Dim max As Integer, min A
13、s Integer max = -1 min = 1000 For i = 1 To 100 If isnarc(a(i) Then If max = a(i) Then min = a(i) End If Next i Text1 = max Text2 = minEnd Sub以下Function 过程用于判断某数是否为水仙花数Function isnarc(p As Integer)x = Fix(p / 100)y = Fix(p - x * 100) / 10)z = p - x * 100 - y * 10If p = x 3 + y 3 + z 3 Thenisnarc = Tr
14、ueElseisnarc = FalseEnd IfEnd FunctionPrivate Sub Form Unload(Cancel As Integer)Open App.Path & out3.dat For Output As #1Print #1, Val(Text1.Text)Print #1, Val(Text2.Text)Close #1End Sub(2)在考生文件夹下有一个工程文件sjt4.vbp。请在窗体上添加一个组合框,名称为cb1,并输入三个列表项:3、7、11(列表项的顺序不限,但必须是这3个数字);添加一个名为Text1的文本框;再添加一个标题为计算、名称为C1
15、的命令按钮。如图所示。请编写适当的事件过程,使得在程序运行时,在组合框中选定一个数字后,单击计算按钮,则计算5000以内能够被该数整除的所有数之和,并放入Text1中。最后,按原文件名存盘。提示:由于计算结果较大,应使用长整型变量。 注意:考生不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须至少进行一次计算。并且必须用窗体右上角的关闭按钮结束程序,否则无成绩。Private Sub C1_Click()* 需考生编写的程序 * Dim sum As Long Dim n As Integer Dim i As Integer n = Val(Cb1.Text) For i = n T
16、o 5000 If i Mod n = 0 Then sum = sum + i End If Next i Text1.Text = sumEnd Sub*第03套 综合应用题在考生文件夹下有一个工程文件sjt5.vbp,其名称为Form1的窗体上已有三个文本框Text1、Text2、Text3,以及部分程序代码。请完成以下工作: 在属性窗口中修改Text3的适当属性,使其在运行时不显示,作为模拟的剪贴板使用。窗体如图所示; 建立下拉式菜单,如下表所示:标题 名称 编辑 Edit 剪切 Cut 复制 Copy 粘贴 Paste 窗体文件中给出了所有事件过程,但不完整,请去掉程序中的注释符,把
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 2021 计算机 二级 VB 试机 试题库
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【二***】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【二***】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。