关于vf的作业，请高手帮忙，百分感激

来源：百度知道 编辑：UC知道 时间：2024/05/22 17:20:12
2、 显示1-500中能同时满足用3除余2、用5除余3、用7除余2的所有整数。
3、 在xjb表中根据学生输入的姓名进行循环查找，如果有则显示该学生的相关记录，直到用户停止输入姓名不想再查找为止。
4、 输入学生成绩，并判断其成绩等级：100-90分为“优秀”，89-80分为“良好”，79-70分为“中等”，69-60分为“差”，60分以下为“不及格”。
5、 输入20个数，统计正数、负数和零的个数。
用vf编程，希望懂vf的高手帮帮小弟，小弟下周2考试，100分作为回报。
如果都能做出来再追加100分！

FOR I=1 TO 500
IF MOD(I,3)=2 AND MOD(I,5)=3 AND MOD(I,7)=2
?I
ENDIF
ENDFOR
_______________
创建表XJB,一个输入框,一个按钮
按按钮取得输入的内容MTEXT
USE XJB
INDEX ON 姓名 TAG 姓名
SEEK MTEXT IN XJB ORDER 姓名
____________________

创一个输入框,一个按钮
按按钮取得输入的内容MTEXT

DO CASE
CASE MTEXT>=90 AND MTEXT<=100
LE="优秀"
CASE MTEXT>=80 AND MTEXT<=89
LE="良好"
CASE MTEXT>=70 AND MTEXT<=79
LE="中等"
CASE MTEXT>=60 AND MTEXT<=69
LE="差"
CASE MTEXT<60
LE="不及格"
ENDCASE
-------------------------
dimension shu(20)
for aa=1 to 20
input'输入第['+str(aa,2)+']个数字：' to shu(aa)
endfor

store 0 to zhengshu,dengyu0,fushu

for aa=1 to 20
do case
case shu(aa)>0
zhengshu=zhengshu+1
case shu(aa)=0
dengyu0=dengyu0+1
case shu(aa)<0