编一个VF的程序

除了1和他本身之外不能被任何一个整数所整除的自然数叫质数，2以外，其他质数都是奇数也叫质数
所以：
CLEAR
FOR m=3 TO 100 STEP 2
n=INT（SQRT（m））
FOR i=3 TO n
IF MOD（m,i）=0
EXIT
ENDIF
ENDFOR
IF i>n
??m
ENDIF
ENDFOR

我上学期做了一个专题实习，跟你这个差不多，用SQL就可以了，很简单得嘛，大学里面最好学的就是VPF，SQL最好理解了，只要你会点英语。
给你一个输入的，自己改些相应的东东。

select1
useyh//表名
thisform.text2.value=date()
if(thisform.text1.value)=""
messagebox("用户不能为空，请重新输入用户名!",0,"提示")
else
locateforthisform.text1.value=登录号
iffound()
messagebox("已存在的登录号！",4+48,"错误信息")
thisform.text1.value=""
thisform.text1.setfocus
else
insertintoyh(登录号,登录时间,关键词,行文者号,文档名,行文者名,行文地,登出刊物,行文时间,页数,涉及金额,处理情况,摘要)values(thisform.text1.value,thisform.text2.value,thisform.text3.value,thisform.text4.value,thisform.text5.value,thisform.text6.value,thisform.text7.value,thisform.text8.value,thisform.text9.value,thisform.text10.val