Question

VFP编程，问题求大神解答

（1） 求5！
（2） 将0～10之间的偶数求和并输出结果。
（3）编程将给定的字符串逆序显示。
（4）输入一个正整数，判断该正整数是否为素数。
（5）随机生成10个两位正整数，找出其中最大和最小数。
（6）一个数列，它的前3项依次为0、0、1，从第4项开始，以后每一项是它前三项之和，求这个数列的前20项。（7）从键盘输入A、B、C三个数值，将它们从小到大排列后输出。

Answer 1

n=val(inputbox("请输入N"))t=1for i=1 to n jc=1 for j=1 to i jc=jc*j next s=s+t*jct=-tnextprint s 第二题：Dim xPicture1.AutoRedraw = TruePicture1.Height = Picture1.Widthx = Picture1.ScaleWidthPrint xPicture1.ScaleHeight = xPicture1.Scale (-x / 2, x / 2)-(x / 2, -x / 2)RandomizeFor i = 1 To 100Picture1.Circle (0, 0), x / 2 * Rnd, QBColor(Int(16 * Rnd))Next相信我 我的算法是比较优化的

Answer 2

*（1） 求5！
mNum=1
for aa=1 to 5
mNum=mNum*aa
endfor
?mNum

*（2） 将0～10之间的偶数求和并输出结果。
mNum=0
for aa=0 to 10
mNum=mNum+iif(mod(aa,2)=0,aa,0)
endfor
?mNum

*（3）编程将给定的字符串逆序显示。
mCh1='ABCDEFG 12345'
mCh2=''
mLen=Len(mCh1)
for aa=0 to mLen
mCh2=mCh2+Substr(mCh1,mLen-aa,1)
endfor
?mCh2

*（4）输入一个正整数，判断该正整数是否为素数。
input'输入一个大于2的正整数：' to mNum
mFt=.T.
for aa=2 to mNum-1
if mod(mNum,aa)=0
mFt=.F.
exit
endif
endfor
if mFt
?mNum,'是素数.'
else
?mNum,'不是素数，他能被',aa,'整除.'
endif

*（5）随机生成10个两位正整数，找出其中最大和最小数。
dimension mNum(10)
mmax=0
mmin=100
?'十个随机数如下：'
for aa=1 to 10
mNum(aa)=int(rand()*100)
?aa,mNum(aa)
mmax=max(mmax,mNum(aa))
mmin=min(mmin,mNum(aa))
endfor
?'最大数',mmax
?'最小数',mmin

*（6）一个数列，它的前3项依次为0、0、1，从第4项开始，以后每一项是它前三项之和，求这个数列的前20项。
*（7）从键盘输入A、B、C三个数值，将它们从小到大排列后输出。
* 我写程序的时候，看你都采纳答案了，还是贴给你供你参考吧，毕竟回答不仅仅是为了分数
* 后面两个题目需要的话，继续给你做，不需要就算了
* VFP6.0调试通过，我一个一个给你写的