五．程序题
1 在Text1中输入一个3位自然数，分解求和的结果存入Text2中
x= thisform.text1.value a=int【1 】
b=int 【 2】
c=【 3】
s=【 4】
thisform.text2.value=【5 】
x/100 (x-a*100)/10 x-a*100-b*10 a+b+c s 2 文本框Text1中输入的值与文本框Text2中输入的值交换
a= thisform.text1.value b= thisform.text2.value d=【1 】
【2 】
【3 】=d thisform.text1.value=【4 】
thisform.text2.value=【 5】
a a=b b a b 3 已知任意一个三角形的三条边为a、b、c，求其面积。
a=thisform.text1.value b=【 1】
c=【 2】
p=(a+b+c)/【3 】
s=【 4】(p*(p-a)*(p-b)*(p-c)) thisform.text4.value=【5 】
thisform.text2.value thisform.text3.value 2 sqrt s 4 判断一个学生的计算机考试成绩x属于哪个分数段之间（0-59，60-69，70-79，80-89，90-100）Command1_click事件代码如下：
x= thisform.text1.value store 0 to h5,h6,h7,h8,h9 do case case x>=0 and x=70 and x
case 【3 】 and x=90 and 【 4】
h9=h9+1 【 5】
thisform.label1.caption=str(h5)+ str(h6) +str(h7) +str(h8) +str(h9) x>=60 h7=h7+1 x>=80 x
【 1】 zgqk xm=thisform.text1.value locate for【2 】
if 【 3】eof() thisform.【4 】
else 【5 】(\"查无此人\") Endif use xm=姓名 not refresh meagebox 6 求s=1/1^2+1/2^2+„+1/n^2 【 1】
n=thisform.text1.【2 】
FOR i=1 TO 【3 】
s=s+【4 】
next THISFORM.Label3.Caption=【5 】
s=0 value n 1/i^2 str(s) 7 计算1+3+5+„„99，并将结果存入文本框Text1中，请填空
【 1】
FOR N=1 TO 【 2】 step 【 3】
s=s+n end【4 】
【5 】
s=0 99 2 for thisform.text1.value=str(s) 8 计算1+3+5+„„99，并将结果存入文本框Text1中，请填空
【 1】
FOR N=1 TO 【 2】
if 【 3】(n/2) n/2 s=s+n endif end【 4】
【5 】 s=0 99 int for thisform.text1.value=str(s) 9 计算2+4+6+„„100，并将结果存入文本框Text1中，请填空
【1 】
FOR N=2 TO 【2 】step 1 if int(n/2)=【 3】
s=s+n 【4 】
endfor 【 5】
s=0 100 n/2 endif thisform.text1.value=str(s) 10 求所有的3位正整数除以99的商和余数，并输出。
for i= 【1 】to 【2 】
a= 【 3】
b=【4 】
?【5 】
Endfor 100 999 int(i/99) i%99 a, b 11 求1！+2！+3！+4！+5！。
S=0 For i=1 to【1 】
t=【2 】
for k=1 to 【 3】
t=t*【4 】
endfor s=s+【 5】
endfor 5 1 I k t 12 计算1+2+3+„„100，并将结果存入文本框Text1中，请填空
【 1】
FOR N=1 TO【 2】step 【 3】
s=s+n 【 4】for 【5 】
s=0 100 1 end thisform.text1.value=str(s) 13 统计1至100之间能被7整除的数的个数并求其和，结果用信息框（对话框）输出。Command1_click事件代码如下：
k=0 s=0 for i=1 to 100 if 【1 】(I,7)=0 k=k+【 2】
s=s+【3 】
endif endfor a=meagebox(【 4】+【 5】) mod 1 I str(k) str(s) 14 在文本框Text1中输入一个字符串，统计其中数字字符的个数，结果存入文本框Text2中。Command1_click事件代码如下： k=0 x=allt( thisform.text1.value) n=【1 】
for i=1 to 【 2】
if subs(x,i,1)>”0” and【3 】
【 4】
endif endfor thisform.text2.value=【 5】
len(x) n subs(x,i,1)>”9” k=k+1 str(k) 15.s=求1！+2！+3！+...+20! 【1 】
for n=1 to 20 t=1 for m=1 to 【 2】
t=t*【3 】
endfor 【 4】
endfor THISFORM.Text1.Value=【 5】
s=0 n m s=s+t s 16.找出2010至2100之间所有闰年的年份
FOR i=【 1】 TO 【2 】
if i%4=0 AND i%100!=0 OR i%【3 】
? 【4 】
endif 【5 】
2010 2100 400=0 I ENDFOR 17.设计一个求t=n!的自定义函数
【 1】f(x) t=【 2】
FOR j = 1 to 【3】 t=t*【4 】 endfor return 【 5】
function[###]func 1 x j t 18.求 Fibonacci 数列(1,1,2,3,5„)的前n(n>3)项,并输出
input \"n=\" to n 【 1】 a(n) a(1)=1 a(2)=1 ? a(1),a(2) for i=3 to 【 2】
a(i)=【 3】+【 4】
?? a(i-1),a(i-2) end【 5】
dime n a(i-1) a(i-2) for 19.输出zgqk.dbf的基本工资大于600的记录
【 1】zgqk do while not 【 2】
if 【 3】
【 4】
endif 【5 】
enddo use eof() 基本工资>600 disp[###]display skip 1.在Text1中输入一个3位自然数，分解求和的结果存入Text2中 2.文本框Text1中输入的值与文本框Text2中输入的值交换 3.已知任意一个三角形的三条边为a、b、c，求其面积。
4.判断一个学生的计算机考试成绩x属于哪个分数段之间（0-59，60-69，70-79， 80-89，90-100）287 5.求s=1/1^2+1/2^2+„+1/n^2 6.计算1+3+5+„„99，并将结果存入文本框Text1中， 7.计算1+3+5+„„99，并将结果存入文本框Text1中 8.计算2+4+6+„„100，并将结果存入文本框Text1中， 9.求所有的3位正整数除以99的商和余数，并输出。
10.编写程序计算：s=1+1/2!+1/3!+„+1/n!,说明：在表单中有一个文本框控件：Text1,用来接收n的值，有一个标签控件：Label1，用来显示S的值，试编写表单的单击事件，实现计算与显示功能，只要求写出事件的主要代码，事件过程的起始语句和结束语句可略去。 11.编写程序计算：S=1X2＋2X3＋„＋NX(N+1)。 0
12.编写程序计算多项式：1^1+2^2+3^3+„+10^10 0
13.编写程序在表单上显示出：1～15之间的偶数 0
14.编写程序在表单上显示出：5/6+4/5+3/4+2/3+1/2 15.假设表单与第二题中的表文件zgqk.dbf 建立了数据环境，在其中按姓名查找职工情况，找到后将其情况在表单上显示，否则在信息框中显示“查无此人”
