程序改错程序功能：把一张百元钞票,换成一元、二元和五钞票,每种至少8张,求对换方案数。程序中有两行有错误。改正错误，使它能输出正确的结果。PrivateSubCommand1_Click()n=0'下一行程序有错！Forx=1To100x=8to100Fory=8To50Forz=8To20'下一行程序有错！Ifx+y+z=100Thenn=n+1x*1+y*2+z*5=100NextzNextyNextxEndsub程序功能：猴子第1天摘下若干桃子，当即吃掉一半，又多吃一个，第二天将剩余的部分吃掉一半还多一个；以此类推，到第10天只剩余1个。问第1天共摘了多少桃子。程序中有两行有错误。改正错误，使它能输出正确的结果。PrivateSubForm_Click()DimdayAsInteger,sumAsInteger'下一行程序有错！day=10;sum=1:DoWhileday>1'下一行程序有错！sum=sum*2–2+day=day-1LoopPrintsumEndSub程序功能：计算y=1+2/3+3/5+4/7+…+n/(2*n-1)(n=50),要求：按四舍五入的方式精确到小数点后第二位。程序中有一处错误。改正错误，使它能输出正确的结果。PrivateSubCommand1_Click()DimsAsSingleDimnAsIntegers=0Forn=1To50'下一行程序有错s=s+n/(2*n–1)NextnPrintRound(s,2)EndSub程序功能：计算两个数的最大公约数。程序中有一处错误，改正错误，使程序能输出正确结果。PrivateSubCommand1_Click()Printfun(14339,507)EndSubPrivateFunctionfun(u,v)m=uForI=mTo1Step-1IfvModI=0AnduModI=0Then'下一行程序有错！Fun=1___i____ExitForEndIfNextIEndFunction程序功能：计算两个数的最小公倍数。程序中有一处错误，改正错误，使程序能输出正确结果。PrivateSubCommand1_Click()Printfun(248,848)EndSubPrivateFunctionfun(u,v)t=uDoWhiletModu<>0OrtModv<>0t=t+uLoop'下一行程序有错fun=utEndFunction程序功能：求[1，130]间所有整数的立方和并输出结果。程序中有两行有错误。改正错误，使它能输出正确的结果。PrivateSubCommand1_Click()'下一行程序有错！DimsAsIntegerDouble/LongDimxAsIntegerx=1s=0'下一行程序有错！DoWhilex>130untils=s+x^3x=x+1LoopPrintsEndSub程序功能：求[351,432]之间既不能被3整除,也不能被8整除的正整数的个数。程序中有一处错误。改正错误，使它能输出正确的结果。PrivateSubCommand1_Click()DimcAsIntegerDimxAsIntegerForx=351To432IfxMod3<>0AndxMod8<>0Thenc=c+1EndIf'下一行程序有错NextcxPrintcEndSub程序功能：求1～200之间的能被7整除的数的平方和。程序有一处错误。改正错误，使它能输出正确的结果。PrivateSubCommand1_Click()DimxAsIntegerDimsumAsLongx=1sum=0Whilex<=200'下一行程序有错Ifx/7=0Thenxmod7=0sum=sum+x^2EndIfx=x+1WendPrintsumEndSub程序功能：求1～200之间能被7整除的数的平方和。程序有一处错误。改正错误，使它能输出正确的结果。PrivateSubCommand1_Click()DimxAsInteger'下一行程序有错DimsumAsIntegerdoublex=1sum=0Whilex<=200IfxMod7=0Thensum=sum+x^2EndIfx=x+1WendPrintsumEndSub程序功能：求1~60之间的所有整数的平方和。程序中有错误。改正错误，使它能输出正确的结果。PrivateSubCommand1_Click()DimsAsLongDimxAsInteg