ImageVerifierCode 换一换
格式:DOCX , 页数:10 ,大小:74KB ,
资源ID:4517509      下载积分:5 金币
验证码下载
登录下载
邮箱/手机:
验证码: 获取验证码
温馨提示:
支付成功后,系统会自动生成账号(用户名为邮箱或者手机号,密码是验证码),方便下次登录下载和查询订单;
特别说明:
请自助下载,系统不会自动发送文件的哦; 如果您已付费,想二次下载,请登录后访问:我的下载记录
支付方式: 支付宝    微信支付   
验证码:   换一换

开通VIP
 

温馨提示:由于个人手机设置不同,如果发现不能下载,请复制以下地址【https://www.zixin.com.cn/docdown/4517509.html】到电脑端继续下载(重复下载【60天内】不扣币)。

已注册用户请登录:
账号:
密码:
验证码:   换一换
  忘记密码?
三方登录: 微信登录   QQ登录  
声明  |  会员权益     获赠5币     写作写作

1、填表:    下载求助     留言反馈    退款申请
2、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
3、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,个别因单元格分列造成显示页码不一将协商解决,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
4、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
5、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【二***】。
6、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
7、本文档遇到问题,请及时私信或留言给本站上传会员【二***】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。

注意事项

本文(09年春浙江省高校VB二级计算机等级考试真题试卷(含详解).docx)为本站上传会员【二***】主动上传,咨信网仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知咨信网(发送邮件至1219186828@qq.com、拔打电话4008-655-100或【 微信客服】、【 QQ客服】),核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
温馨提示:如果因为网速或其他原因下载失败请重新下载,重复下载【60天内】不扣币。 服务填表

09年春浙江省高校VB二级计算机等级考试真题试卷(含详解).docx

1、2021年春浙江省高等学校计算机等级考试试卷(二级Visual Basic)说明:(1)请将所有试题的答案填写在试卷上。其中试题1试题6在答卷上各小题正确选项的对应位置处填“”:(2)请在答卷上填写学校名称、准考证号和姓名,并将你的准考证号的后五位填写在答卷右下角的指定位置内:(3)考试时间为90分钟。试题1(每小题3分,共12分) 阅读下列程序说明和程序,在每小题提供的若干可选答案中,挑选一个正确答案。【程序说明】输入n后,计算并显示下列表达式的值。 运行时初始界面如下图左所示,输入10并按回车键后的界面如下图中所示(输入数若小于1则清空文本框,需重新输入),按“计算”按钮后的界面如下图右所

2、示。 【程序】Dim n As IntegerPrivate Sub Form_Load()End SubPrivate Sub (2) (K As Integer)If K 13 Then Exit Sub (3) If n 0 Then Text1.Enabled = FalseElse Text1.Text = End IfEnd SubDim y As Single, i As IntegerFor i = 1 To n (4) Next iLabel3.Caption = yText1.Enabled = TrueText1.Text = Text1.SetFocusEnd Sub【

3、供选择的答案】(1)A、Enabled=True B、Enabled=False C、Visible=True D、Visible=False(2)A、Text1_KeyPress B、Text1_Click C、Text1_Change D、Text1_KeyDown(3)A、k=Text1.Text B、k=13 C、n=13 D、n=Text1.Text(4)A、y=y+1/n B、y=y+1n C、y=y+1/i D、y=y+1i【解答】(2)Text1_Change()子过程是没有形参的,即括号里应该是空的。Text1_KeyDown(KeyCode As Integer, Shif

4、t As Integer)应该有两个Integer参数,而Text1_Click()子过程也没有形式参数,只有Text1_KeyPress(KeyAscii As Integer)有一个Integer参数,用来接收用户输入字符的Ascii(3)“If K 13 Then Exit Sub”意思是如果用户没有按回车键,则退出Sub过程继续接收用户输入。如果用户按回车键,即K=13时,接下来要判断用户输入的数是否小于1。故首先要获取文本框里的值。由下一行“If n 0 Then”可知,将文本框里的值保留到变量n中。故选D。(4)“/”是除法,结果是实数;而“”是整除,结果取整。For i = 1

5、To n (4) Next i这里的循环变量是i,而n是一个固定的值,本题中n等于10。A表示计算1/n+1/n+.+1/n,而题目要计算的是1+1/2+1/3+1/4+1/n试题2(每小题3分,共12分) 阅读下列程序说明和程序,在每小题提供的若干可选答案中,挑选一个正确答案。【程序说明】运行时输入10个数后,输出其中较小的5个数。【程序】Dim a(10) As Single, t As Single, i As Byte, j As Byte, k As ByteFor i = 1 To 10 a(i) = InputBox( (5) )Next iFor i = 1 To 9 (6)

6、For j = i + 1 To 10 If (7) Then k = j Next j t = a(i): a(i) = a(k): a(k) = tNext iFor i = (8) Print a(i)Next iEnd Sub【供选择的答案】(5)A、a( & i & )= B、”a(“ + i + “)=” C、”a(“,i,”)=” D、”a(“;i;”)=”(6)A、k=i B、i=k C、k=i+1 D、i=k+1(7)A、a(j)a(i) C、a(j)a(k) D、a(j)a(k)(8)A、5 To 1 B、10 To 6 C、1 To 5 D、5 To10【解答】见讲座讲解

7、试题3(每小题3分,共12分)阅读下列程序说明和程序,在每小题提供的若干可选答案中,挑选一个正确答案。 【程序】End SubPrivate Sub (10) P1.ScaleMode = 3 设置P1的坐标单位为像素End SubPrivate Sub P1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Dim r As Long, i As Long, j As Longr = P1.ScaleWidth / 3For i = P1.ScaleLeft To P1.ScaleLeft + P1

8、.ScaleWidth For j = P1.ScaleTop To P1.ScaleTop + P1.ScaleHeight If (i - X) 2 + (j - Y) 2 (11) r * r Then P1.PSet (i, j), (12) End If Next jNext iEnd Sub【供选择的答案】(9) A.Action B.ShowOpen C.ShowFont D.Action = 3(10) A.Form_Load() B.Form_Click() C.P1_Load D.P1_Click()(11) A. C. D. =(12) A.White B.Rgb(0,0

9、,255) C.vbWhite D.Rgb(255,0,0) 【解答】(1)由题意,这里应该用打开文件对话框加载图片,故调用ShowOpen方法或Action = 1,故选B。(2)“窗体加载后,p1的坐标单位应为像素。”故P1.ScaleMode = 3的设置应该在Form_Load()事件中。(3)设A(X1,Y1)、B(X2,Y2),则两点之间的距离|AB|=sqr(X1- X2)2+(Y1- Y2)2),故(i - X) 2 + (j - Y) 2 r * r,则表示(i, j)这一点到圆心的距离大于半径,即(i, j)这一点在圆的外面。(4)“p1宽度的三分之一为半径的圆之外的区域改

10、为白色”,故选C或RGB(255, 255, 255),B.Rgb(0,0,255)为蓝色,D.Rgb(255,0,0)为红色,VB中的常量都是以vb开头的,故选C。试题4(每小题3分,共12分)阅读下列程序并回答问题,在每小题提供的若干可选答案中,挑选一个正确答案。【程序】 Dim n As Integer, i As Integer, j As Integer List1.Clear n = InputBox(n=) ReDim a(2 To n) As Integer For i = 2 To n a(i) = i Next i For i = 2 To Sqr(n) If a(i) 0

11、 Then For j = 2 * i To n Step i a(j) = 0 Next j End If Next i For i = 2 To n If a(i) 0 Then List1.AddItem i Next iEnd Sub【供选择的答案】 A、1,2 B、2,3 C、3,4 D、2 A、2,3,5 B、2,3 C、3,5 D、2,4 A、3,5 B、2,4,6 C、3,5,7 D、2,3,5,7(16)该事件过程的功能是,输入n后:A、显示小于n的奇数 B、显示小于n的偶数C、显示小于n的素数 D、显示不大于n的素数【解答】For i = 2 To Sqr(n) If a(

12、i) 0 Then For j = 2 * i To n Step i a(j) = 0 Next j End If Next i上述循环语句执行后将a(4)置为0(外循环和内循环各执行1次)。故选BFor i = 2 To Sqr(n) If a(i) 0 Then For j = 2 * i To n Step i a(j) = 0 Next j End If Next i上述循环语句执行后将a(4)= 0,a(6)= 0(外循环执行1次,内循环执行2次)。故选A(3)分析过程同上(4)可用排除法求解:首先排除A、B,当n=13时,列表框中显示:2 3 5 7 11 13,故选D试题5(每

13、小题3分,共12分)阅读下列程序并回答问题,在每小题提供的若干可选答案中,挑选一个正确答案。【程序】Private Function f(ByVal a As Integer, ByVal b As Integer) As IntegerDim r As Integerr = a Mod bWhile r 0 a = b: b = r: r = a Mod bWendf = bEnd FunctionDim m As Integer, n As Integerm = InputBox(m=): n = InputBox(n=)Form1.ClsPrint f(m, n); m; nEnd Su

14、b【供选择的答案】 A、 4 4 8 B、4 8 4 C、4 28 36 D、4 36 28 A、 4 4 8 B、4 8 4 C、4 28 36 D、4 36 2836,窗体显示:A、4 4 8 B、4 8 4 C、4 28 36 D、38 36 442,窗体显示:A、6 54 42 B、6 12 6 C、42 12 6 D、12 6 6【解答】(1) 函数f是求两个整数的最大公约数,采用的是辗转相除法。即使不知道这个算法也可以很快的求解。f(ByVal a As Integer, ByVal b As Integer)即按照值传递,即调用函数f时,f(m, n)将m的“值”传递给a,将n的

15、值传递给b,但a和b的改变不会影响m和n,故输出的后两位应该是28 36,故选C(2) 分析同上,选D(3) 将函数f参数设置改为“a As Integer,b As Integer”,则按地址传递,即a,b的改变会影响到m,n。输入28、36,即调用f(28,36)后a=28,b=36, r=a mod b=28,接下来执行循环语句。r=28时, a=36 b=r=28 r= a mod b=36 mod 28=8r=8时, a=b=28 b=r=8 r= a mod b=28 mod 8=4r=4时, a=b=8 b=r=4 r= a mod b=8 mod 4=0 循环结束故最终a=8

16、b=4由于是按地址传递,故m=8 n=4,故选B(4) 分析过程同上试题6(每小题3分,共12分) 程序运行时的初始界面如下图所示,列表框中所显示的是从磁盘文件输入的信息。回答问题,在每小题提供的若干可选答案中,挑选一个正确答案。【程序】Private Sub Form_Load() 从文件e : aa.txt读入数据、追加到List1Dim ss As StringOpen e:aa.txt For Input As #1While Not EOF(1) Line Input #1, ss List1.AddItem ssWendClose #1End SubDim xm As String

17、, rq As Date, cj As IntegerDim i As IntegerFor i = 0 To List1.ListCount - 1 If Val(Mid(List1.List(i), 16, 3) cj Then xm = Trim(Mid(List1.List(i), 1, 4) rq = Mid(List1.List(i), 5, 10) cj = Val(Mid(List1.List(i), 16, 3) End IfNext iOpen e:aa.txt For Output As #1Print #1, xm; rq; cjClose #1End SubA、王小波

18、1987-12-5 92 B、“王小波”,#1987-12-5#,92C、董召弟1988-5-24 43 D、“董召弟”,#1988-5-24#,43A、王小波1987-12-5 92 B、“王小波”,#1987-12-5#,92C、董召弟1988-5-24 43 D、“董召弟”,#1988-5-24#,43A、1 B、10 C、11 D、12(24)若将Click事件中“Output”用“Append”置换,运行后文件e:aa.txt中的记录数为:A、1 B、10 C、11 D、12【解答】见讲座试题7(28分) 【解答】Dim ave As DoubleDim x() As DoubleD

19、im n As IntegerRem 一开始不知道并不知道n是多少,所以要使用动态数组 Dim i As Integer n = Val(InputBox(请输入数的个数n的值:) ReDim x(n) As Double For i = 1 To n x(i) = Val(InputBox(请输入第 & i & 个数:) Next iEnd Sub s = 0 下面的循环计算出n个数的总和 For i = 1 To n s = s + x(i) Next i ave = s / n 计算平均值 Text1.Text = aveEnd Sub Dim y As Double For i = 1

20、 To n s1 = s1 + (x(i) - ave) 2 Next i y = Sqr(s1 / n) Text2.Text = yEnd Sub2009年春浙江省高等学校计算机等级考试试卷(二级Visual Basic)参考答案试题1试题6:12345678910BADCAADCBA11121314151617181920BCBADDCDBB21222324ABAC试题7:Dim ave As DoubleDim x() As DoubleDim n As IntegerDim i As Integern = Val(InputBox(请输入数的个数n的值:)ReDim x(n) As DoubleFor i = 1 To n x(i) = InputBox(请输入第 & i & 个数:)Next iEnd Subs = 0For i = 1 To n s = s + x(i)Next iave = s / nText1.Text = aveEnd SubDim y As DoubleFor i = 1 To n s1 = s1 + (x(i) - ave) 2Next iy = Sqr(s1 / n)Text2.Text = yEnd Sub

移动网页_全站_页脚广告1

关于我们      便捷服务       自信AI       AI导航        获赠5币

©2010-2024 宁波自信网络信息技术有限公司  版权所有

客服电话:4008-655-100  投诉/维权电话:4009-655-100

gongan.png浙公网安备33021202000488号   

icp.png浙ICP备2021020529号-1  |  浙B2-20240490  

关注我们 :gzh.png    weibo.png    LOFTER.png 

客服