vf程序改错题

1、*- *【程序改错】*-*题目:首先把b所指字符串中的字符按逆序存放， 然后将a所指字符* 串中的字符和b所指字符串中的字符， 按排列的顺序交叉合* 并到c所指字符串中，过长的剩余字符接在c所指字符串的尾* 部。 * 例如，当a所指字符串中的内容为abcdefg，b所指字符串* 中的内容为1234时，c所指字符串中的内容为a4b3c2d1efg* ； 而当a所指字符串中的内容为1234，b所指字符串* 中的内容为abcdefg时，c所指字符串中的内容该为* 1g2f3e4dcbf。*-*注意：不可以增加或删除程序行，也不可以更改程序的结构。*-set talk offcleara=abcdef

2、gb=1234c=if len(a)len(b) m=len(a) n=len(b) for i=1 to m *found* c=c+subs(a,i,1)+subs(b,n+i+1,1) 改为：c=c+subs(a,i,1)+subs(b,n-i+1,1) endforelse*found* for i=1 to m 改为：for i=1 to n c=c+subs(a,i,1)+subs(b,n-i+1,1) endfor*found*endf 改为：endif或endi ? cset talk onretu*- *【程序改错】*-*题目:猴子吃桃问题：猴子第一天摘下若干个桃子，当即吃了

3、一半，* 还不过瘾，又多吃了一个，第二天早上又将剩下的桃子吃掉* 一半，又多吃了一个。以后每天早上都吃了前一天剩下的一* 半零一个。到第10天早上想再吃时，见只剩下一个桃子了。* 求第一天共摘了多少。*-*注意：不可以增加或删除程序行，也不可以更改程序的结构。*-set talk offclearday=9*found*x2=0 改为x2=1 do while day0*found* x1=(x2+1)/2 改为：x1=(x2+1)*2 x2=x1*found* day=day-1enddo? 第一天摘下,x1,个桃子set talk onretu*-*【程序改错】*-*题目：以下程序输出如下

4、图所示的图形。* !$!* !$!$!$* !$!$!* !$!$!$!$!$*-*注意：不可以增加或删除程序行，也不可以更改程序的结构。*-set talk offi=4do while i10*found* if int(i/2)=i/2 改为：if int(i/2)i/2 或 if int(i/2)!=i/2 或if int(i/2)#i/2 i=i*2 else i=i-1 endif for j=1 to i*found* if j/2=0 改为： if j%2=1 或 if mod(j,2)=1 ? ! else ? $*found* enddo 改为：endif 或endi en

5、dfor ?enddoset talk onreturn*- *【程序改错】*-*题目:计算s=1+1+2+1+2+3+.+1+2+3+4+.+10* 请在屏幕上输出结果。*-*注意：不可以增加或删除程序行，也不可以更改程序的结构。*-set talk offclear*found*s=p=0 改为：store 0 to s,p 或store 0 to p,sfor i=1 to 10*found* p=p-i 改为：p=p+1或p=i+p s=s+pendf*found*? p=,p 改为：?s 或 ?s=,sset talk onretu*- *【程序改错】*-*题目：输入两个任意整数，求最大公约数，并显示输出最大公* 约数。*-*注意：不可以增加或删除程序行，也不可以更改程序的结构。*-set talk offinput x= to x*found*accept y= to y 改为：input y= to y或input y=to yif xy m=x n=yelse m=y n=x*found*endfor 改为：endif 或 endia=mod(m,n)*found*do