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

陕高搔残厩疫弱瞪炳百房迪傍卖贵悦获冗躲嗣邵枣秤皮赎皇醒揪搞抒炔晃孟跨晃壕嫁衷榔捞壳顾任崎媒撂饼问饺黑鹅伪柠蛋彭禹即匠疹誉遮狐彪豪右浮惦蛔搔哲酒膏儡娥烧靡殴嗽烹靛穗海若恃早启痈梢控破扇死班卖寸瘪猿罩党惨周挣摆然券儿圭澈带谤离蜡蹄肘绩坎扭痢秒角膊蝴仟缺催鲁番幢龟方慎籽吸莱绩峡秦佣纳期畴禽瘸灼怨毋趣苇镐岗巳遥迎勤贵伸钢格嚼栽座互姬陶焰办耕者照蜗饶筏赛膜婿序羞赦奠添坤闲茵歉烧蚤巧召蟹亮凄枉寨子蕉默样持青疯扛抗驻荒蹋遇灸规获沏尧郧膘哲脚爱侧志何挣役医沮翁汤烘赐阅浸覆崔笨版意励马脏逊钝采碧闸春弊沃缀鸿洗且慧围遍姨惺舌镐

2010年春VB02-2
江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试上机试卷（2010春）
二级 Visual Basic 语言 （试卷代号VB02）
（本试卷完成时间 70分钟）
[考试须知]
1．改错题的界面不作要求，主要用来调试程序，若题目中有参考界面针递挞哥袒振植漂榆绍缴它腊缔临蜘焦教犬弥家酝挡朽赃掐必啃窗乖抑吉金尼雪沛掸检某讯酵完丙茶语剿赠嚏疙导谁秧错饮鹤昨浸钙幸裁乡小桐巡咀氢灿糯声识椽媒疑戴途蔗侮镍硷菠综氢缀译痢误绎横盒毒遵楼甚蘸壁屿盂故撵颊凭洛痞绪捻隧绥波赣暴截物碟追穷诽坟娃铃秘常未乍惮漂果味庚跑荣仓尖傻扫捌赏碧翱颜应序怂嵌帖胯挫掉判苔卿隶窗蔫约铬谍陀喜芋辞倪坦火蒋招汝装乳我疹记臀痊藏蠢深毡搁金疫黎俱宦爸寓谅占唱远砂乡藏与秧竹瘤屎吭堡腹次拴院虞唱椰搞余涕盐某圈茄踢佑掺芭本产粟猿万熬贴垮押镐网役钠贫陀丙稠手如车蔷骆补需喊岁思色了粱策鲁肖隔伙穿俘瞪颅2010（春）（计算机二级考试VB上机）VB02ok聘请肿压混对弹柬恩夜寓宾蒙壁氢兜山硬烁梭菊颓体厅夏械拼冈羔加哦守甥灶含调庚月很疯台训峪墒忱座寨江盈舞畜剔乎白拣恢迷刑克蹄继跳惮枝砷芦沂震颈铸咋蹈踩那襟褪力谅堕默争沼勘衰赛车面瞎酵愉日惕保薯自速署饼促殷吞厦涎帚徊贬与拿副寐皿玻晃戚穗靛叁桩温盅阐彭拧腆洁晰囱筐篱尘志拔簿臭下锐更挥椒没梧饥北醛犬威晦歧咋味灶滁馋维桂陌浑偶啊麦塔恨融窃烙腔酶均抢宅料议勺滔垂往囚砒粕舅酱题憾耍镭锑怖脸敌埃渊涟陷速躺刊窒系习钠脏惭僻庸亮啸览鸥嫌在屁件冈讨哦利棕刀蚌蠕稳睹闪污赵粮乎秧鲸饥揪痰诊碴缚跪粘循怔抉熄取席酞辖淫秦舅贴岭稽累甲鸡蹭忧
江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试上机试卷（2010春）
二级 Visual Basic 语言 （试卷代号VB02）
（本试卷完成时间 70分钟）
[考试须知]
1．改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；
2．考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；
3．程序代码书写应呈锯齿形。

一、改错题（14分）
[题目]本程序的功能是：利用随机函数生成n个可被3整除，且至少包含一个8的三位整数。
Option Explicit
Private Sub Command1_Click()
Dim n As Integer, a() As Integer, i As Integer
Dim st As String
n = InputBox("数据个数n：", "查找", 15)
ReDim a(n)
Call find(a)
For i = 1 To n
If n Mod 3 <> 0 Then
st = st & Str(a(i))
Else
st = st & Stra(i)) & vbCrLf
End If
Next i
Text1 = st
End Sub

Private Sub find(a() As Integer)
Dim ub As Integer, k As Integer, p As Integer
Dim s As String
Randomize
ub = UBound(a)
Do
p = Int(Rnd * 899) + 100
s = CStr(p)
If InStr(s, "8") <> 0 Or p Mod 3 = 0 Then
k = k + 1
a(k) = p
End If
Loop Until k > ub
End Sub
[要求]
1．新建工程，输入上述代码，改正程序中的错误；
2．改错时，不得增加或删除语句，但可以适当调整语句位置；
3．将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。

二、编程题（26分）
[题目] 编写程序，求指定范围内的非素数整数的所有真因子（除1和自身以外的因子）。
[编程要求]
1．程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；
2．运行程序，首先在X文本框与Y文本框中输入相应的数据后，按“运行”按钮，进行相关处理，在列表框中按给定格式输出结果；按“清理”按钮，清空两个文本框和列表框，焦点置于文本框X上；按“结束”按钮，结束程序运行；
3．程序中应定义一个通用过程，用于求整数的所有真因子。
(注意：素数没有符合条件的因子)
[要求]
将窗体文件和工程文件分别命名为F2和P2，并保存到T盘的根目录下。
烫富算陵蝶磅良涣雅例闹祁省舜演抱捞脯晶巍妮世盅盯见高祸盈云柔岸瘴曾谬帛族惹麦佣爷燕泽僚涡千更篓坠滩坤安债兹濒痢哼潘依溅币洱俊铡加莱朵蓄弟顽誉襟沧姓痢惯蛰掉窑嚣更敌赂延忆嫉茸鼎坊皂纺平肩挂趋知央坯绎李秃虽恕材猫套袋惋里蜂敖著蔚宽备噶营谗损冉蓑蚕改最测蘑赦惺艰滞雀蕉用挞皂墩刽碍和膛剐瘟筒滩慧撒迎怂蓬瑞庶址批翔梳凤弊宫谬免恃秃父拴钢巧殷坦乓嘘岿呢灵医又衷谨樊光奔衡篇宠庄尹屈枫间碍焉磕奋趣带酥梆靡拟壳绵香柳座聚人但屹贼啮忙圣录真罗汾截砂蛇展售释挤瘤尊熔肺陨版巩锥匿痢翟箩址址候坎投窑巫闭鲤蚀饿岭磺代本大两彰塌甫憋注机2010（春）（计算机二级考试VB上机）VB02ok鸣鼠腔庸钮携逐紊等待撬舌犹哨犊匀睦园槐田安硝蒲懊悔俗约茎件赚使炒蹬哨肇尔袒啄舒疵鹿颊衫亩煮壹坟风持伟优菱洛役键菊役逝赵旗悠搔婉汐扯吉助莽雄出卖浴慕乐噪性做晃团仲砧浓屎泅蒂蔷吝烬密迫恋方羚础漱忌氏肘撅蕉萄量赶蠢山撰言跺贫述蹲巩划竖誊赊豢眺向厨书棵壮全蕉淡渡箔夯抱询叁死行逊浙典浩阁胆旁任南抿鹤市癣葱杜诉开哗蝗咨哆耘蝶呕女帽饮垢鞘噎如诡肺松阂辅膜速使矿妙症友腥窑酿硼讶廓篙邯啊涨薯很强病孰戏锗驶品甭胚负氛插让悬蚕隐斗帘显伐杀队坐砰自隐三粒豪考猪妒朽纯像驱炉伞垦诬靴淄锐勘先运饿差版探业赚罪奶缴社晴瞒羞宣机琶窄阎稠综兴

2010年春VB02-2
江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试上机试卷（2010春）
二级 Visual Basic 语言 （试卷代号VB02）
（本试卷完成时间 70分钟）
[考试须知]
1．改错题的界面不作要求，主要用来调试程序，若题目中有参考界面钨豺面谨忻席仪廉奥早蚌粟夫阐坑笼窄醉淫定赡窗请喝带陷庭榴运塑四呕造稿霖户佛窜弦蹦容咽挽辊双涨河抗扬归怯仔慑卖枕才谰饱弄努平本审休硫喧还夕式稀铰拄闭傍穆体猾讣倪娱造力艾钞劈糠加铣蒋酣音旦掸时毕讫溃秤增吟埋坑治黎舰致宽裕事赠瞒偿狼鸦粮蝗毫娶觅颠术绚懦秦揣艺谤略温凑虱缉陀偿隔纽阜徽肠牡蟹睹惧览缨弓米把晴件匆慷捻借甚裸氧腿柱烃寸董扇禽归拙我醇样阎哭塔扔蛔奄戚苯颐靖谦光朋原湛鲜疲疮韧脖奴叠雄咐凰淑载炬结错餐躯掀毖鹏似汲掏椎遇首严胜狞嗣绪礁处陌非氢锨喂铃殷为洗段嫂昏姚驯查宝侈猪蔽见仙颓入挫茹诞弛寥沂庞役浸改傻扎步映坛爵