问答题
程序改错(5分)
下列程序的功能是利用随机函数RAND()随机产生100个100以内的整数,统计它们在0--49和50--100之间出现的次数,要求:
1.项目中有一个程序文件Pcode,将T盘中VFP01.TXT中的程序代码复制到其中并进行修改
2.在修改程序时,不允许修改程序的总体框架和算法,不允许增加或减少语句数目
Create Cursor cur1(r i)
For i=1 To 100
Insert Into cur1 Values (Int(Rand()*100))
EndFor
Select cur1
Skip Top
n=0
Do while Not Eof()
If cur1.r>49
n=n-1
EndIf
Skip
EndDO
Clear
?”小于50的次数是:”+ Str(100-n,2)
?”大于或等于50的次数是:”+Str(n,2)
Use
【正确答案】程序改错
第6行 SKIP TOP 修改为 : GO TOP
第10行 n=n-1 修改为: n=n+1