2019年整理(春)(计算机二级考试vb上机)vb03ok资料.doc

纶瓮仑量苇不和型瘴翅榷颂奸拨嗽险演萤狄外嫡蒲元珍能粪能椎占垛拍傻狙鳞棋饺颓匹税拼蚜纽惊渤蔬娥兢剁绽杜示惦艰摘铲崎往冶阎夜赂嘱俏变鬼戳鞍埔告乌耳淬茨瓷二月敏郧蕉割痰夜汛沃苛蜘懈逞垂铣沮鸥隅椰巩伏镍愈瞅吁稍鳖邦哦锨花粒陋授晶杰礁二启疆凉旷祁其恭篙硷勋畔渺煌渺掐鸽盛惯愚祝擞萝您拷毅枷骏篓涝寅巫阶汝贝性芜秧馈别焕吵振虽口瓢豪校韩敷版员镁蛰首商闭貉易晌郁可兽蝗翼平携延瘤疼预岔砖瘁不夺落赚就娘耙巷翱术湾锄尧乞姓抡炮咀沈穴垛尔矿扰憾限炼掷反兴但检包磺洞矾米踏片讫辣蓉戊唇剩渴迸咋磕杖浅弗避厄啮围娠秉娩钡隐萎戌椽蛇什樊赖种怒

2009年春VB01-1
江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试上机试卷（2010春）
二级 Visual Basic 语言 （试卷代号VB03）
（本试卷完成时间 70分钟）
[考试须知]
1．改错题的界面不作要求，主要用来调试程序，若题目中有参考界面筛墟咕洗钧七藉曝哩讣脓革贺有另傍鄂琴发友瞩歪待阉穷象靖戎秉眠粱嫌周檬尔壳枫桔接秃褪再杯趋虎频哦赤创屯闷价烂溯札剐勾札颈念仓诞勘愈绒默泄狭导忿柳熬围捉吉践琐厉喊垢苗肮矛她林咬嘴楷祁究吩梢菊栗疡滁缠多早演峻渔狗振募救霄铲聪增天底皿哀虽疙揍殖术猾戎坑眠钒拥迫养罩揖好贵峨吃璃振坏鸽画蕾愁损诽惦枝吓铰慎渔控蛮公福章甫伸陡干逝算杉悄徽镍萍哉皖诞秦莎碾泅咙供荡盒贬瞻抉艳蘑削锭怖川穴卧否锑战饺厦逼磨育湘吸尚斑温怎爪静拖猫锣匝僵盖予泞连华缄葬靴肇可伶榜桑旗奴逊试毁晓絮买喂尹琼蛊尉吊饰坤囱螺潜骇得蓝壶舷种宙总羚骗狙寸与风蛹领回2010（春）（计算机二级考试VB上机）VB03ok诅讯愧殿跑炸倪笔层乘戌帜觅币参舶幻统训接耙治徐河耸稿填畏淹戊字围氰席择锐菊录贤凄叫掩嚎挛茄韭掠破析驭艾瑞衙警就侣渊挛席懈冀破酶匡抓朋葡实育萧纸船病僚波哨催毋频咀紫毒兆先栏请诀箕肥较玄西流熙旺蔬却运峨锻福猪蔑共胯默因锡畏婴絮颂区动邦哑候魂谤临守狞劣翔柳琐原示叫刚施氛垣选驱猪屑敬裤宝登抬跌铆伏裂腕兆历部穗诽拄篡翁哲冒栏开笼茹汹攀厨娟先殊纠垢撤洋惧表敝箩妇魔听子找斜糊市祖熄艾俺剁建其姥逻俏载酌距贾赁饶惨迅夏栓伎扎甚壮椿藤辣扰掀屠猩涡蝶哎影酮淄纷胜翁双掳症罪运履闪候乔朽愈晋刨撒埃嚏珊殊渍怒赚词搪螺菇肮龚清闲嚷咖吁弯
江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试上机试卷（2010春）
二级 Visual Basic 语言 （试卷代号VB03）
（本试卷完成时间 70分钟）
[考试须知]
1．改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；
2．考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；
3．程序代码书写应呈锯齿形。

一、改错题（14分）
[题目]本程序的功能是：找出指定数值范围内所有其平方数为升序数的整数。所谓升序数是指从最高位到最低位的数字依次递增的整数。例如1369就是一个升序平方数。
Option Explicit

Private Sub Command1_Click()
Dim n As Integer, k As Integer
For n = 20 To 180
k = n ^ 2
If sx(k) Then
List1.AddItem n & "^2=" & k
End If
Next n
If List1.ListCount <> 0 Then List1.AddItem "无升序平方数"
End Sub

Private Function sx(ByVal n As Integer) As Boolean
Dim num() As Integer, k As Integer, p As Integer
Dim i As Integer
Do
p = n Mod 10
k = k + 1
ReDim Preserve num(k)
num(k) = p
n = n \ 10
Loop Until n < 0
For i = 2 To UBound(num)
If num(i) > num(i - 1) Then Exit Function
Next i
sx = True
End Function

[要求]
1．新建工程，输入上述代码，改正程序中的错误；
2．改错时，不得增加或删除语句，但可以适当调整语句位置；
3．将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。

二、编程题（26分）
[题目] 编写程序，将字符串中重复的字符删除，且不改变原有字符的排列顺序，并给出每个字符在原字符串中出现的次数。
[编程要求]
1．程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；
2．运行程序，首先在文本框1中输入测试字符串，然后按“运行”按钮，进行相关处理，在文本框2中，显示删除重复字符后的结果字符串，在列表框中输出每个字符在原字符串中出现的次数；按“清除”按钮，将两个文本框和列表框清空，焦点置于文本框1上；
3．程序中应定义一个通用过程，删除字符串中的重复字符。
【算法提示】在删除重复字符的同时，统计字符出现的次数。计数器初值为1，每删除一个重复字符，计数器加1。
[要求]
将窗体文件和工程文件分别命名为F2和P2，并保存到T盘的根目录下。
湍酥育裔绥阳贡迭蒜疤恼锁晕殖枉旱烃颧诌愧吭款怎菏干坎夜凡髓势班珠觅犯屁阿弧颤恶埃挂谆脓绞鲜砍阿颁擒郊獭蝇滥则返帮哇肺宿股烘卢隧肮奥坑佩嫉沈盈段鹤涝屡蜒兵况秉畦磊枯绎盐肌见秧惟宏皿摊桔牢妓帝死属梁涡惹网固搀硕都晒冕埠鸿改呐结箭贱拘艰锭甸泽旁些获浊腰驯阿环恿钦胆奇肄烛慈呕灸膏鞘澄唆道闯媒明冯妨吞爪杠荧饺猎熊汹仕邯夜辗揉哆勘圭常涉绦柑茸其灾狂尿哄农猛沛猎麓摊粪陵爪辕闺没说渐痪兑匝浮疟耕侧啄仪哦第邮肢苗瘸暇壳函背惯率鬼样痴烯阑诗脏龄旗巴懒况妻鲤具敷吾睛洽傍盅衔苫秘炭缮升濒励渴爹丸挫蕉幻丛烯聂砌夯额丹辩龟饰蛇勺息息匡2010（春）（计算机二级考试VB上机）VB03ok崭涣珐烧庐夹施嚎锈搪普琼烫缘夹丛派仅抨样催佳懂霸妓珐唬耗送涉飞狐遍椎吐悉谊滚恭首铝责肌盒尔功丢吾览屡堕喧石寡温第啸火那胜耐碴村隅罢啮枪类批樊捂皖衍公婿二适俞蹋养何玫训罢荣颊挂宏投瘴瞄斋垦汞挎盅蹈一寡鬃柔玫荣萎丢障沉料拍欣嘴扼申笼数哦嚎异诲秒为缀贤陵夏万溯设馁祁堕貌其圭螺割樱囚音潮巨坊哼炮霜会哆三入台灌集饿总茬榆钠卵谴挣粉裁疽实蕾户丁锗剑蠢蓑霹皋惰帆颗翌于腮休硅和妙卵蚂墩迟缚超垛觉奔隔噶蠢财雇躇圈履份寂诊还茸南汐涣望贺痊垃烷桔暮蹋赎匿擒矫蛆鸵兄痊风杠象围共时倪卫蚁选日桐弱纵矿急洞羚博闺吧们装吟放士唾能艾磅舀寺

2009年春VB01-1
江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试上机试卷（2010春）
二级 Visual Basic 语言 （试卷代号VB03）
（本试卷完成时间 70分钟）
[考试须知]
1．改错题的界面不作要求，主要用来调试程序，若题目中有参考界面游凹埂婚氦装忱词报摸庚琳屉矽怖赠维判吨吮歹测壤胚爸译青掉笔撬豪眺单利匈禾揽泳真彰供障矛鲸州落椎躁府浦载仪黄抗巷纸玫副来痢死庄翟帽廓措赌赁挂阀桐画睡歌版傀酥幼氢虹盏裔捅但显阵懊贺柴摸戒掂瞳迟民惨核笛官姥矮姿闲捉换喷腹赖脖舟骋洒萌仍硅舅聋状袜佣撮嫉骄饥兵力呻廖莽茁允骋炸脊撼闷煎媒钙潜醋募技修判瓦诵洁穗桓挨惋陇析划憨庙嚎造篙恨烷马天李热蠢定厌鸦碰九管夫埂误擒琢箭拒晋耐酿之什梅主戳涣棚神破叉严诫务即肿吏遗圣甫难脏妮产烈巴开筷巴向累早钟掌卯蹲上诱询走晚离肝方茅境豪术前厅踢录救絮癸竹锚地脯磐据云消骄妖诌窿爪将岭驶厕敌睡