vb调试题解答(07-3-17)

《vb调试题解答(07-3-17)》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、<~)说明等级考试上机测试的程序调试题常常是在考生II录中给岀一个标准模块程序Modify.BAS,契求根据题意修改该模块中的函数或过程，为检测所作修改是否正呦，可以按照以下操作步骤进行谓试：1-耍求学生建立一工程，将这模块添加到工程中。如果你是通过双击标准模块程序Modify.BAS进入VisualBasic程序设计系统的，则首先需要添加一个窗体模块。2・将该标准模块程序Modify.BAS代码中用一F—(n为1,2,3,4,5)部分JM除后改为合适的内容或将用t错误n**«c标示的下一语句中的错误改正,并

2、在窗体模块中编写代码(常常写在窗体的Click0$件中)调用标准模块屮的sub过程或自定义函数(如果在标准模块程序中有多个过程或曲数，耍注意调用的先后顺序.否则得不到正确结果)，调试运行程序，使其能输出正确结果。3・按试题要求保存工程。(-)程序调试题[题1]Modify.bas模块中的Transferitft?用于将一个十六进制整数转换为十进制整数：nrnnbw函数过程用于将一个十六进制符号转换为数值.EndFundion［题2］Modify.bas模块屮的BubbleSortil程是冒泡排序法；Gener

3、ateDatail程产生个［1.20］之间互不相同的阪机整数；Swap过程交换两个变址的数值。PrivateConstn=10Privatea(lTon)AsInteger^BubbleSort过程是目泡排序1Swap程交换两个变虽数(ft•GenerateData过程产生10个［1,20］之间互不相同的阪机整数PublicSubBubbleSort()DiniiAsInteger,jAsIntegeri=1DoForj=i+1TonIfa(j)>a(i)Then********1*********Swap(

4、a(j),a(i))'.Swap⑴EndIfNextj*水*水*球*2*******LoopWhilei=n'Loopwhilei

5、4forj=lloi-1Ifa(i)=a(j)Thenb=FalseExitForEndIfNextjLoopForml,Printa(i)NextiEndSub'********4卓*******PublicSubSwap(ByVaiaAsInteger,ByVaibAsInteger)'PublicSubSwap(aasintcgcr.basinteger)DimtempAsIntegertemp=aa=bb=tempEndSub[题3]Modify,bas模块中的wrapxL程用于判淅"个字符审是否"回

6、文”•所谓"回文”是指字符串顺读与倒读都是一样的•如“潮起潮落.落潮起潮”•PublicSubttrapODimlengthAsIntegerDimstrlAsStringDimstrleftAsStringDimstrrightAsStringDimkAsIntegerstrl=InputBoxC^iiV输入任意的字符串")'输入任意字符串*****错谋1水細[题4]Modify,bas模块中的MaxLine过程用于查找一个5行4列的二维数组中行平均值眾大的行，并将该行所有数据调整到第一行的位置.Modif

7、y.bas模块中的DataProduce过程用于产生原始数据;Average过程用于计算各行的平均值：PriMArnuiy过程用于打印二维数组和行平均值。Dima(lTo5,1To4)AsIntegerDimave(1To5)AsIntegerPublicSubMaxLine()DimiAsIntegerDimjAsIntegerDimtempAsIntegerDimLine_noAsInteger'最大平均值的行号'找出最大平均值所在行Line_no=1Fori=2To5'******借谋1*******I

8、fave(Line_no)>=ave(i)Then4Ifave(Line„no)