程序调试概要.docVIP

程序调试大纲 程序调试大纲 PAGE/NUMPAGES 程序调试大纲 （二）程序调试(参照答案) 程序调试题的操作步骤是： （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.Printsum=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))+个 Nexti EndSub  ‘个位数为  0统计结果保存在  x(10)中 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)=atThen sum=sum+1 EndIf i=i+1  ) Loop Ifsum=0Then MsgBox没有找到！  Else MsgBox找到了  Str(sum)  个 EndIf EndSub 4.已有一模块文件Modify.Bas。该模块中的Guess过程是猜数游戏，由计算机产生一个 输入猜数后计算机给出提示，假如5次后还没