- 1、本文档共23页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
05年春江苏计算机二级VB上机试题和答案
江苏2005春二级Visual Basic语言 (试卷代号 VB01)
(本试卷完成时间 70分钟)
【考试须知】
1. 改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅作参考;
2. 考试结束后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分;
3. 程序代码书写应呈锯齿形。
一、改错题(14分)
【题目】下面程序功能是:找出100以内满足N+1个连续自然数之和等于其后N个连续自然数之和的序列(例如:4+5+6=7+8就是满足
要求的序列)。
Option Explicit
Private Sub Command1_Click()
????Dim I As Integer,S As String,Flg As Boolean
????For I=2 To 10
????Call Sub1(I,S,Flg)
????????Flg=False
????????If Flg Then
???????????Text1=Text1SvbCrLf
????????End If
?????Next I
End Sub
?
Private Sub Sub1(K As Integer,S As String,F As Boolean)
????Dim I As Integer,Sum1 As Integer,Sum2 As Integer
????Dim N As Integer, Start As Integer
????Do While Sum1Sum2 And N100
????????Start=Start+1
????????N=Start
????????S=N:Sum1=N
????????For I=1 To K-1
????????????N=N+1
????????????Sum1=Sum1+N
????????????S=S+N
????????Next I
????????S=S=N
????????N=N+1
????????Sum2=N
????????For I=1 To K-2
????????????N=N+1
????????????Sum2=Sum2+N
????????????S=S+N
????????Next I
????????N=N+1
????????If Sum1=Sum2 Then
????????????F=True
????????End If
????Loop
End Sub
?
【要求】
1. 新建工程,输入上述代码,改正程序中的错误;
2. 改错时,不得增加或删除语句,但可适当调整语句位置;
3. 将窗体文件和工程文件分别命名为F1和P1,并保存到软盘A的根目录下。
二、编程题(26分)
【题目】本程序的功能是:按设定的数据位数N(N=2、3、3、4、5、6),随机生成20个互不相等正整数,按5个一行的形式输出到
文本框中,并从中找出所有降序数输出到列表框。所谓降序数是指所有高位数字都大于其低位数字的数。例如973就是一个降序数。
【编程要求】
1. 程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见;
2. 在文本框1中输入N值,按“执行”按钮,则开始计算并在文本框2中显示生成的随机数,在列表框中输出其中的降序数;按“清
除”按钮,则将2个文本框及列表框清空,焦点置于文本框1上;按“退出”按钮,结束程序运行;
3. 程序中应定义一个用于判断一个N位数是否是降数的通用过程。
【要求】
将窗体文件和工程文件分别命名为F2和P2,并保存到软盘A的目录下。
??
二级Visual Basic语言 (试卷代号 VB02)
(本试卷完成时间 70分钟)
【考试须知】
1. 改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅作参考;
2. 考试结束后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分;
3. 程序代码书写应呈锯齿形。
一、改错题(14分)
【题目】本程序的功能是对字符串加密。密钥为一数字串,每个数字表示将首字符右移的位置,例如,若明文字符串为help me,密
钥中第一个数字4表示将首字符h移到位置4,得到新字符串elph me,再取密钥的下一个数字符串进行上述操作,直到最后一个密钥
数字处理完就得到密文。若移位超出原文长度,则自动回转(按原文长度取模)。
Option Explicit
Private Sub Command1_Click()
????Dim I As String,s2 As String,i As Integer,key As Integer
????s1=Text1 ??????????????????????????
您可能关注的文档
最近下载
- 浅析党和国家领导人教师思想与“育师为本”理念.doc VIP
- 经史子集国学文库:子部·儒家·龙溪王先生全集.pdf
- 人教版八年级上册语文《台阶》配套练习册参考答案.doc VIP
- 附件2-新冠鼠疫流行病学调查表.docx VIP
- 应急救援员(五级)理论考试题库(含答案).docx
- 2024国网陕西电力省管产业单位供电服务业务部招聘(379人)高频考题难、易错点模拟试题(共500题)附带答案详解.docx
- 全国大学生市场调查与分析大赛调查研究报告.PDF
- 创新与发明---按图索骥、循章创新智慧树知到期末考试答案2024年.docx
- 商用车智能底盘产品平台定义-2023-07-商用车.pdf VIP
- 良好的健康与福祉.PDF
文档评论(0)