Question

用VFP编写程序

2．编程求1—100 之内的所有的素数之和
3．编写程序计算1到1000之间所有奇数的和。
4．下图是一个QQ登录界面，要求当在text1中输入12345，在text2中输入“abcd”时单击登录按键（名称为command1）则显示“欢迎进入QQ世界”，否则显示“你的用户名或密码是错误的！”。请编写command1的click事件代码。

5．若“教学管理.DBC”数据库中有一个表名为STUDENT.DBF的数据表，其表结构如下：
STUDENT(学号 C(7)，姓名 C(8)，性别 C(2)，专业 C(10)，出生日期 D，
是否党员 L， 入学年月 D，入学成绩 N(7,2)，备注 M )
要求用用命令实现以下的操作
（1）查询入学成绩大于500的学生的全部信息。
（2）列出“李”姓学生的学号、姓名、专业信息。
（3）统计所有女生的人数到变量mm中
6．任意输入10个数，按从大到小的顺序排列并输出。
各位帮帮忙 一定要用VFP语言呀 谢谢各位了

Answer 1

2、clear
?"1到100之内的所有素数："
s=0
for i=2 to 100
x=0
for j=2 to i-1
if i/j=int(i/j)
x=1
endif
endfor
if x=0
??alltrim(str(i))+space(2)
s=s+i
endif
endfor
?"它们的和是：",s
3、clear
?"1到1000之间所有奇数的和:"
s=0
for i=1 to 1000
if mod(i,2)<>0
s=s+i
endif
endfor
?s
4、command1的click代码：
if ALLTRIM(thisform.text1.value)="12345".and.alltrim(thisform.text2.value)="abcd"
messagebox("欢迎进入QQ世界")
else
messagebox("你的用户名或密码是错误的!")
endif
5、1）select * from STUDENT where 入学成绩>500
2)select 学号,姓名,专业信息 from STUDENT where substr(alltrim(姓名),1,2)="李"
3)count for 性别="女" to mm
6、CLEAR
SET UDFPARMS TO REFERENCE &&地址传递
DIME AAA(10)
FOR i= 1 TO 10
input "请输入第"+ALLTRIM(STR(i))+"个数：" to AAA(i)
NEXT
=MySort(AAA,10) &&调用冒泡排序函数.
i=1
?"从大到小排序结果为："
do while i<=10
??AAA(i) &&显示排完序后的数据.
i=i+1
enddo
RETURN

*冒泡排序函数.
*参数: pData: 传入数组, nCount:数组的大小.
function MySort
para pData, nCount
for i=1 to nCount
for j=nCount to i+1 step -1
if pData(j)>pData(j-1)
iTemp = pData[j-1]
pData(j-1) = pData[j]
pData(j) = iTemp
endif
endfor
endfor
endfunc

Answer 2

一点都不难，但要全写出来，太费时间了。