资源描述：
《二级vb上机江苏2009-2010试卷》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。
1、二级vb上机江苏2010春第三套试卷答案1.改错题OptionExplicitPrivateSubCommand1_Click()DimNAsInteger,kAsIntegerForN=20To180 k=N^2 Ifsx(k)Then List1.AddItemN&"^2="&k EndIfNextIf List1.ListCount<>0 ThenList1.AddItem"无升序平方数" EndSubPrivateFunctionsx(ByValNAsInteger)AsBooleanDimnum()AsInt
2、eger,kAsInteger,pAsIntegerDimiAsIntegerDo p=NMod10 k=k+1 ReDimPreservenum(k) num(k)=p N=N10LoopUntilN<0 '错误点2，应修改为N=0Fori=2ToUBound(num) Ifnum(i)>num(i-1)ThenExitFunction'错误点3 修改为num(i)>num(i-1)Nextisx=TrueEndFunction2009秋二级VisualBasic上机试卷(本试卷完成时间为70分钟)考试说明：1．改错题的界面
3、不作要求,主要用来调试程序,若题目中有参考界面,则仅作参考；2．考试结束后,文件必须存放在指定位置,否则适当扣分；考试盘中若无指定文件,j予评分；3．程序代码书写应呈锯齿形。一、改错题(14分) 【题目】本程序的功能是,将24位真彩色图像的一个像素的颜色值,转换成用十进制表示的绿、蓝三基色的亮度值。110011000101010110101010OptionExplicitOptionBase1PrivateSubCommand1_Click()DimstAsString,C(3)asString*8DimkAsInteger,color(3)AsStr
4、ingcolor(1)="红色"color(2)="绿色"color(3)="蓝色"st=text1Dok=k+1c(k)=Left(st,8)st=Right(st,Len(st)-8)LoopUntilk>3Fork=1To3Text2=Text2&color(k)&":"&b2d(C)&vbCrLfNextkEndSubPrivateFunctionb2d(sAsString)AsIntegerDimkAsIntegerDob2d=b2d+Val(Right(s,1))*2^ks=Left(s,Len(s)-1)k=K+1LoopUntilk=Le
5、n(s)EndFunction【要求】1．新建工程,输入上述代码,改正程序中的错误；2．改错时,不得增加或删除语句,但可适当调整语句位置；3．将窗体文件和工程文件分别命名为F1和P1,并保存到T:盘的根目录下。二、编程题(26分)．【题目】编写程序,随机生成m行n列由1位非零整数组成的数组;并分别求出数组中所有周边元素之和与非周边元素(内部)之和。(m、n由InputBox函数输入,缺省值分别为4、5)【编程要求】1．程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见；2．运行程序,按"运行"按钮,出现如
6、图的InputBox函数窗口,分别输入数组行、列数(或使用缺省值)后按"确定",则生成随机数组并显示在图片框中,并在文本框1与2中分别输出数组周边元素之和与非周边元素(内部)之和；按"清除"按钮,将所有文本框和图片框清空；按"结束"按钮,结束程序运行；3．程序中应定义一个通用过程,用于求二维数组的周边元素之和与非周边元素之和。【要求】将窗体文件和工程文件分别命名为砣和P2,并保存到T:盘的根目录下*******************************************************************2009秋上机题参考答案一
7、、改错题(1)LoopUntilk>3改为LoopUntilk=3(2)Text2=Text2&color(k)&":"&b2b(c)&vbCrLf改为Text2=Text2&color(k)&":"&b2b(c(k))&vbCrLf(3)LoopUntilk=len(s)改为LoopUntils=""或改为LoopUntilLen(s)=0二:编程题OptionExplicitOptionBase1Dima()AsInteger,nAsInteger,mAsIntegerPrivateSubCommand1_Click()DimiAsInteger,j
8、AsIntegerDimextAsInteger,insAsIntegern=I
