二程序调试参考答案概要.docx

二程序调试参考答案概要.docx

《二程序调试参考答案概要.docx》由会员分享，可在线阅读，更多相关《二程序调试参考答案概要.docx（22页珍藏版）》请在冰豆网上搜索。

二程序调试参考答案概要

（二）程序调试（参考答案）

程序调试题的操作步骤是：

（1）建立一标准EXE工程，将这一模块程序添加到工程中。

如果你是通过双击标准模块程序Model1.BAS进入VisualBasic系统的，则首先需要添加一个窗体模块。

（2）将该标准模块程序Model1.BAS中代码的指定的错误修改正确或在指定的空位填上适当的语句，并在窗体模块中编写代码（常常写在窗体的Click（）事件中）调用标准模块中的Sub过程或用户自定义函数（如果在标准模块程序Model1.BAS有多个过程或函数，要注意调用的先后顺序，否则得不到正确结果），调试运行程序，使其能输出正确结果。

（3）按试题要求保存工程。

如果你的计算机中没有模块程序Model1.BAS，你必需先自己新建一工程，再添加一个默认标准模块，将题目所附的参考程序输入（可复制粘贴），将其中用---n---（n为1，2，3，4，5）部分删除后改为合适的内容或将用****错误n****标示的下一语句中的错误改正，然后调试运行程序使其达到该题目的要求。

1．已有一模块文件Modify.Bas。

该模块中的Summary过程是用于计算1!

+2!

+...+20!

，并打印出计算结果，但不完整，请在横线上填入必要的内容，使其完整。

Modify.Bas模块中的nFactor函数过程用于计算n!

。

程序如下：

PublicFunctionnFactor（ByValnAsInteger）AsDouble

DimiAsInteger

DimtempAsDouble

temp=1

Fori=1Ton

temp=temp*i

Nexti

nFactor=temp

EndFunction

PublicSubsummary（）

DimsumAsDouble

DimiAsInteger

DimnAsInteger

n=20

Fori=1Ton

sum=sum+nFactor（i）

Nexti

Form1.Print"sum="&sum

EndSub

2．已有一模块文件Modify.Bas。

该模块中的Calculate过程是产生100个[0，99]范围内的随机整数，统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数并打印出来。

程序如下：

PublicSubcalculate（）

Dima（1To100）AsInteger

Dimx（1To10）AsInteger

DimiAsInteger,pAsInteger

'产生100个[0，99]范围内的随机整数

'每行10个打印出来

Fori=1To100

'********错误1***********

a（i）=int（Rnd*100）

Ifa（i）<10Then

Form1.PrintSpace

（2）;a（i）;

Else

Form1.PrintSpace

（1）;a（i）;

EndIf

IfiMod10=0ThenForm1.Print

Nexti

'统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数

'并将统计结果保存在数组x

（1）,x

（2）,...,x（10）中，将统计结果打印出来

Fori=1To100

'********错误2**********

p=Int（a（i）mod10）'求个位上的数字

Ifp=0Thenp=10

'********错误3**********

x（p）=x（p）+1

Nexti

Form1.Print"统计结果"

Fori=1To10

p=i

Ifi=10Thenp=0

'********错误4*********

Form1.Print"个位数为"+Str（p）+"共"+Str（x（i））+"个"‘个位数为0统计结果保存在x（10）中

Nexti

EndSub

3.已有一模块文件Modify.Bas。

该模块中的Findat过程是用于在一个字符串变量中查找"at"，并用消息框给出查找结果的报告：

没有找到或找到的个数，但不完整，请在横线上填入必要的内容，使其完整。

程序如下：

PublicSubFindat（）

'在字符串str1中查找"at"

Dimstr1AsString

DimlengthAsInteger'字符串长度

DimsumAsInteger'查到的个数

DimiAsInteger

str1=InputBox（"请输入一个字符串"）

length=len（str1）

i=1

sum=0

DoWhilei<=length

Ifmid（str1,i,2）="at"Then

sum=sum+1

EndIf

i=i+1

Loop

Ifsum=0Then

MsgBox"没有找到！

"

Else

MsgBox"找到了"&Str（sum）&"个"

EndIf

EndSub

4.已有一模块文件Modify.Bas。

该模块中的Guess过程是猜数游戏，由计算机产生一个[1，100]的任意整数，输入猜数后计算机给出提示，如果5次后还没有猜中就结束游戏并公布正确答案。

程序如下：

PublicSubGuess（）

DimRAsInteger

DimXAsInteger

DimtimesAsInteger

Randomize

'******错误1******

R=int（Rnd*100+1）'产生一个1--100的任意整数或int（Rnd*100）+1

times=1

Do

X=Val（InputBox（"输入猜数X"））

SelectCaseX

CaseR

Form1.Print"猜中了"

ExitDo

'*****错误2******

CaseIS>R

Form1.Print"太大了,继续猜!

"

CaseElse

Form1.Print"太小了,继续猜!

"

EndSelect

times=times+1

'******错误3******

LoopWhiletimes<=5

Iftimes>5Then

Form1.Print"猜数失败,游戏结束!

"

'******错误4******

Form1.Print"正确答案为"&Str（R）

EndIf

EndSub

5.已有一模块文件Modify.Bas。

该模块中的ArmstrongNumber过程是用于求出1--999之间所有的Armstrong数，并打印出来，但不完整，请在横线上填入必要的内容，使其完整。

所谓Armstrong数是指一个数等于它每位上数字的立方和。

例如：

371=3^3+7^3+1^3，那么371就是一个Armstrong数。

程序如下：

PublicSubArmstrongNumber（）

DimarmstrongAsInteger

DimiAsInteger

DimhundredAsInteger'百位上的数字

DimtenAsInteger'十位上的数字

DimoneAsInteger'个位上的数字

Fori=1To999

hundred=i\100

ten=（i-hundred*100）\10

one=imod10

Ifi=hundred^3+ten^3+one^3Then

Form1.Printi;"isarmstrongnumber"

EndIf

Nexti

EndSub

6.已有一模块文件Modify.Bas。

该模块中的CountTo60过程是用于从一堆一分、二分、五分的硬币中取出20枚，使其总值为60分，要求输出取法的数量及每一种取法的一分、二分、五分的个数。

程序如下：

PublicSubCountTo60（）

'从一堆一分、二分、五分的硬币中取出20枚，使其总值为60分

'输出取法的数量及每一种取法的一分、二分、五分的个数

DimoneAsInteger'一分硬币个数

DimtwoAsInteger'二分硬币个数

DimfiveAsInteger'五分硬币个数

Constn=20'总数20枚

DimkAsInteger'取法数量

k=0

Forone=1Ton

'*******错误1********

Fortwo=1Ton-one

five=n-one-two

'*******错误2*********

Ifone+two*2+five*5=60Then

k=k+1

Form1.Print"one=";one;"two=";two;"five=";five

EndIf

'*******错误3********

Nexttwo

'******错误4******

Nextone

Form1.Print"k=";k

EndSub

7.已有一模块文件Modify.Bas。

该模块中的TJ过程是将一批数据中小于零的数及它们的积打印出来，但不完整，请在横线上填入必要的内容，使其完整。

Modify.Bas模块中的SCSJ过程是产生数据，数据的取值范围为-10~10之间的随机数。

程序如下：

PrivateConstn=10

Privatea（1Ton）AsInteger

'TJ过程是将一批数据中小于零的数及它们的积打印出来

'数据由SCSJ过程产生，数据的取值范围为-10~10之间的随机整数

PublicSubTJ（）

DimiAsInteger

DimtAsSingle

t=1

Fori=1To10

Ifa（i）<0Then

t=t*a（i）

EndIf

Nexti

Form1.Print"T=";t

EndSub

PublicSubSCSJ（）

Randomize

Form1.Print"原始数据"

DimiAsInteger

DimjAsInteger

Fori=1Ton

'随机产生0或1，为0时取负，为1时取正

j=Int（Rnd*2）

Ifj=0Thenj=-1

a（i）=j*Int（Rnd*（n+1））

Form1.Printa（i）;

Nexti

Form1.Print

EndSub

8.已有一模块文件Modify.Bas。

该模块中的Money过程是用于统计一个有7个工作人员的餐厅发工资所需的100元、50元、10元、5元和1元的票面数，但不完整，请在横线上填入必要的内容，使其完整。

Modify.Bas模块中的SalaryData过程是给出7个员工的工资。

（工资单位是元）

程序如下：

Dimsalary（7）AsInteger

PublicSubMoney（）

DimhundredAsInteger,totalhundredAsInteger'100元票面数量、总数量

DimfiftyAsInteger,totalfiftyAsInteger'50元票面数量、总数量

DimtenAsInteger,totaltenAsInteger'10元票面数量、总数量

DimfiveAsInteger,totalfiveAsInteger'5元票面数量、总数量

DimoneAsInteger,totaloneAsInteger'1元票面数量、总数量

DimtotalsalaryAsInteger'工资总计

DimiAsInteger,tempAsInteger

totalhundred=0

totalfifty=0

totalten=0

totalfive=0

totalone=0

totalsalary=0

Fori=1To7

temp=salary（i）

hundred=Int（temp/100）

temp=temp–hundred*100

fifty=Int（temp/50）

temp=temp-fifty*50

ten=Int（temp/10）

temp=temp-ten*10

five=Int（temp/5）

temp=temp-five*5

one=temp

totalhundred=totalhundred+hundred

totalfifty=totalfifty+fifty

totalten=totalten+ten

totalfive=totalfive+five

totalone=totalone+one

totalsalary=totalsalary+salary（i）

Nexti

Form1.Print"共需100元"&Str（totalhundred）&"张"

Form1.Print"共需50元"&Str（totalfifty）&"张"

Form1.Print"共需10元"&Str（totalten）&"张"

Form1.Print"共需5元"&Str（totalfive）&"张"

Form1.Print"共需1元"&Str（totalone）&"张"

Form1.Print"合计"&Str（totalsalary）&"元"

EndSub

PublicSubSalaryData（）

salary

（1）=1398

salary

（2）=1765

salary（3）=689

salary（4）=1500

salary（5）=832

salary（6）=590

salary（7）=1200

EndSub

9.已有一模块文件Modify.Bas。

该模块中的MaxLine过程用于查找一个5行4列的二维数组中行平均值最大的行，并将该行所有数据调整到第一行的位置。

Modify.Bas模块中的DataProduce过程用于产生原始数据；Average过程用于计算各行的平均值；PrintArray过程用于打印二维数组和行平均值。

程序如下：

Dima（1To5,1To4）AsInteger

Dimave（1To5）AsInteger

PublicSubMaxLine（）

DimiAsInteger

DimjAsInteger

DimtempAsInteger

DimLine_noAsInteger'最大平均值的行号

'找出最大平均值所在行

Line_no=1

Fori=2To5

'******错误1*******

Ifave（Line_no）

'******错误2*******

Line_no=i

EndIf

Nexti

'交换第一行与最大平均值所在行

Forj=1To4

temp=a（1,j）

'******错误3******

a（1,j）=a（Line_no,j）

a（Line_no,j）=temp

Nextj

'交换对应行的平均值

temp=ave

（1）

ave

（1）=ave（Line_no）

ave（Line_no）=temp

'打印交换后的数据

Form1.Print"交换后的数据和平均值"

PrintArray

EndSub

PublicSubDataProduce（）

DimiAsInteger

DimjAsInteger

'产生5*4数组

Fori=1To5

Forj=1To4

a（i,j）=Int（100*Rnd）

Nextj

Nexti

EndSub

PublicSubAverage（）

DimiAsInteger

DimjAsInteger

DimsumAsInteger

'计算各行平均值

Fori=1To5

sum=0

Forj=1To4

'******错误4******

sum=sum+a（i,j）

Nextj

ave（i）=sum/4

Nexti

'将数组和平均值打印出来

Form1.Print"原始数据和平均值"

PrintArray

EndSub

PublicSubPrintArray（）

DimiAsInteger

DimjAsInteger

Fori=1To5

Forj=1To4

Form1.Printa（i,j）;Spc（3）;

Nextj

Form1.Print"平均值=";ave（i）

Nexti

EndSub

10．已有一模块文件Modify.Bas。

该模块中的Wrap过程用于判断一个字符串是否“回文”。

所谓“回文”是指字符串顺读与倒读都是一样的，如“潮起潮落，落潮起潮”。

程序如下：

PublicSubWrap（）

DimlengthAsInteger

Dimstr1AsString

DimstrleftAsString

DimstrrightAsString

DimkAsInteger

str1=InputBox（"请输入任意的字符串"）'输入任意字符串,如“潮起潮落，落潮起潮”

'****错误1*****

length=len（str1）

k=1

Do

'****错误2*****

strleft=mid（str1,k,1）'从左边起逐个取出一个字符

'****错误3*****

strright=mid（str1,length+1–k,1）'从右边起逐个取出一个字符

'****错误4****

Ifstrleft<>strrightThen

ExitDo

EndIf

k=k+1

LoopWhilek<=length/2

Ifk>length/2Then

Form1.Printstr1&"是回文"

Else

Form1.Printstr1&"不是回文"

EndIf

EndSub

11.已有一模块文件Modify.Bas。

该模块中的BubbleSort过程是冒泡排序法；GenerateData过程产生10个[1，20]之间互不相同的随机整数；Swap过程交换两个变量的数值。

程序如下：

PrivateConstn=10

Privatea（1Ton）AsInteger

'BubbleSort过程是冒泡排序

'Swap过程交换两个变量数值

'GenerateData过程产生10个[1，20]之间互不相同的随机整数

PublicSubBubbleSort（）

DimiAsInteger,jAsInteger

i=1

Do

Forj=i+1Ton

Ifa（j）>a（i）Then

'*******1*********

Swapa（j）,a（i）‘去掉括号,或改为callSwap（a（j）,a（i））

EndIf

Nextj

i=i+1

'*******2*******

LoopWhilei

Form1.Print"排序结果"

Fori=1Ton

Form1.Printa（i）;

Nexti

EndSub

PublicSubGenerateData（）

DimiAsInteger

DimjAsInteger

DimbAsBoolean

Fori=1Ton

b=False

DoWhileNotb

a（i）=Int（20*Rnd+1）

b=True

'******3******

Forj=1Toi–1

Ifa（i）=a（j）Then

b=False

ExitFor

EndIf

Nextj

Loop

Form1.Printa（i）

Nexti

EndSub

'********4********

PublicSubSwap（aAsInteger,bAsInteger）‘去掉ByVal，数组不能以ByVal传递

DimtempAsInteger

temp=a

a=b

b=temp

EndSub

12.已有一模块文件Modify.Bas。

该模块中的Transfer过程用于将一个十六进制整数转换为十进制整数；number函数过程用于将一个十六进制符号转换为数值。

程序如下：

PublicSubTransfer（）

DimHexAsString'十六进制数

DimDecAsDouble'十进制数

DimtempAsString

DimiAsInteger

DimnAsInteger

Hex=InputBox（"输入一个十六进制整数"）

'******错误1*******

n=len（Hex）

i=0

Do

'******错误2*******

temp=Mid（Hex,n-i,1）

'******错误3*******

Dec=Dec+number（temp）