Question

vf的题目

1、任意输入一个日期值，用中文输出它的星期数。如输入2007/05/22，则输出“今天是星期二”。
提示：用DOW函数或CDOW函数。
2、逐条显示stud表中性别是男的所有记录，并统计男记录的人数。(用do while not eof()...enddo)
3、将字符串"ABCDEFG"逆序输出。
4、输入两个正整数，求它们的最大公约数和最小公倍数。
提示：求最大公约数，可采用取余的方式。最小公倍数则由m*n除以最大公约数而得到。
5、输出以下图形。
1
222
33333
4444444
33333
222
1
6、表单的功能是：单击“计算”按钮，对于数列1,1,2,3,5, 8,……(从第3项开始，每一数列项的值为前2项之)，求前多少项的和刚好不大于1000。
帮忙写出程序!
7点前答出还有送分!哪位快帮我解决啊!

Answer 1

1、任意输入一个日期值，用中文输出它的星期数。如输入2007/05/22，则输出“今天是星期二”。
k=DOW({^2007-05-22})*2-1
? "今天是星期"+SUBSTR("日一二三四五六", k, 2)

2、逐条显示stud表中性别是男的所有记录，并统计男记录的人数。(用do while not eof()...enddo)
* 显示stud表中性别是男的所有记录
Use stud
Brow for 性别="男"
* 统计男记录的人数。(用do while not eof()...enddo)
n=0
Go top
do while not eof()
if 性别="男"
n=n+1
endif
enddo
? n && 男记录的人数

3、将字符串"ABCDEFG"逆序输出。
S0="ABCDEFG"
SS=""
for i=1 to 7
k=8-i
SS=SS+Substr(S0,k,1)
endf
? ss

4、输入两个正整数，求它们的最大公约数和最小公倍数。
x=32
y=24
xy=x*y

Do while .t.
z=Mod(y,x)
if z=0
exit
endif
y=x
x=z
enddo
? "最大公约数"+str(x)
? "最小公倍数"+str(xy/x)
5、输出以下图形。
for i=1 to 7
if i<=4
m=i
k=2*i-1
else
m=8-i
k=15-2*i
endif
?
for j=1 to k
?? STR(m,1)
endfor
endf

6、表单的功能是：单击“计算”按钮，对于数列1,1,2,3,5, 8,……(从第3项开始，每一数列项的值为前2项之)，
求前多少项的和刚好不大于1000。
x1=1
x2=1
n=2
S=X1+x2
do while s<1000
x3=x1+x2
S=S+x3
x1=x2
x2=x3
enddo
? "前"+STR(n-1,2)+"项的和 = "+Str(s-x3,3)