vb 2004年(秋)上机部分

《vb 2004年(秋)上机部分》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、江苏省高等学校非计算机专业学生计算机基础知识和应用能力等级考试上机试卷（2004年秋）二级VisualBasic语言（试卷代号VB01）（本试卷完成时间70分钟）[试卷须知]1．改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅供参考；2．考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3．程序代码书写应呈锯齿形。一、改错题（17分）【题目】本程序的功能是：从给定的数据范围中找出所有各位数字之和为10的数据，若一次求得各位数字之和不是壹位数，则继续求此和数的各位数字之和。例

2、如47854=>28=>10就是符合要求的数。OptionExplicitPrivateSubCommand1_Click()　　DimstAsLong,seAsLong,iAsLong　　DimsAsString　　st=Text1　　se=Text2　　Fori=stTose　　　　IfSum(i)=10Then　　　　　　s=s&i&vbCrLf　　　　EndIf　　Nexti　　text3=sEndSubPrivateFunctionsum(nAsLong)AsInteger　　DimkAsInteger　　sum

3、=0　　Do　　　Do　　　　　k=nMod10　　　　　sum=sum+k　　　　　n=n10　　　LoopUntiln<0　　　Ifsum>10Then　　　　　n=sum　　　Else　　　　　ExitFunction　　　EndIfLoopEndFunction【要求】1．新建工程，输入上述代码，改正程序中的错误：2．改错时，不得增加或删除语句，但可适当调整语句位置；3．将窗体文件和工程文件分别命名为F1和P1，并保存到软盘A的根目录下。二、编程题(26分)【题目】编写程序，以给定的方式标记出方阵中每一行最小元素

4、的位置。如果某一行有多个数值相等的最小元素，也要同时标记出来。标记方式为每一行的最小元素为0，其他元素为1。【编程要求】1．程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2．在文本框1中输入N值，按“执行”按钮，则随机生成一个N行N列的由两位正整数组成的N阶方阵，并输出到多行文本框2中，同时求出每一行的最小元素并生成标记矩阵输出到多行文本框3中；按“清除”按钮，则将3个文本框清空，将焦点置于文本框1上；按“退出”按钮，结束程序运行；3．程序中应定义一个求数组某一行的最

5、小元素值的通用过程。【要求】将窗体文件和工程文件分别命名为F2和P2，并保存到软盘A的根目录下。二级VisualBasic语言（试卷代号VB03）（本试卷完成时间70分钟）[试卷须知]1．改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅供参考；2．考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3．程序代码书写应呈锯齿形。一、改错题（17分）【题目】输入一个N位整数，求出与这个整数所包含的数字完全相同的最大N位整数与最小N位整数。OptionExplicitPrivate

6、SubCommand1_Click()　　DimnAsLong,num()AsString*1,iAsInteger　　DimkAsInteger,smaxAsString,sminAsString　　n=Text1　　k=Len(CStr(n))　　Callnsort(n,num)　　Fori=1Tok　　　　smax=smax&num(i)　　　　Ifnum(i)="0"Then　　　　　　smin=Left(smin,1)&num(i)&Right(smin,Len(smin))　　　　Else　　　　　　smin=

7、num(i)&smin　　　　EndIf　　Nexti　　Text2=smax:Text3=sminEndSubPrivateSubnsort(nAsLong,np()AsString*1)　　DimiAsInteger,jAsInteger,tAsString*1,kAsInteger　　Do　　　　ReDimPreservenp(k)　　　　np(k)=Str(nMod10)　　　　n=n10　　　　Ifn=0ThenExitDo　　　　k=k+1　　Loop　　Fori=1ToUBound(np)-1　　　　For

8、j=i+1ToUBound(np)　　　　　　Ifnp(j)>np(i)Then　　　　　　　　t=np(j):np(j)=np(i):np(i)=t　　　　　　EndIf　　　　Nextj　　NextiEndSub【要求】1．新建工程，输入上述代码，改正程序中的错误：2．改错时，不得增加或删除语句，但