中科新闻网沙发管家和当贝市场:VFP程序,帮帮忙!!!!!!!!!
来源：百度文库 编辑：中科新闻网 时间：2024/04/28 02:19:38
以下是我的期末考试的程序题，请大家帮忙做做！
1。任意输入10个数，判断其中的偶数（判断是显示“T”或“F“），并且显示偶数的个数！
2。任意输入10个数，判断其中的奇数（判断是显示“T”或“F“），并且显示奇数的个数！
3。输入任意一个职工的职工号，在职工表中显示该姓名，工资，反之，显示“查无此人”。
谢谢大家了！！帮帮忙吧！！
2楼的!!!!!!!!!!!这是我们考试的题,让我们自己研究,就这几道出现问题,只是在网上寻求帮助,这叫浪费吗 ??你就说你不会就行了吗??干吗说这些没用的!!!!!!!!!!!!!
1。任意输入10个数，判断其中的偶数（判断是显示“T”或“F“），并且显示偶数的个数！
2。任意输入10个数，判断其中的奇数（判断是显示“T”或“F“），并且显示奇数的个数！
3。输入任意一个职工的职工号，在职工表中显示该姓名，工资，反之，显示“查无此人”。
谢谢大家了！！帮帮忙吧！！
2楼的!!!!!!!!!!!这是我们考试的题,让我们自己研究,就这几道出现问题,只是在网上寻求帮助,这叫浪费吗 ??你就说你不会就行了吗??干吗说这些没用的!!!!!!!!!!!!!
********** 题一 ***********
clea
b=0 && 保存偶数个数,起始值为0
for i=1 to 10
input "请输入数字：" to a
if mod(a,2)=0 && (除2后余数为0,则为偶数.奇数则反之)
?"T"
b=b+1
else
?"F"
endif
endf
?b
retu
********** 题二 ***********
clea
b=0 && 保存奇数个数,起始值为0
for i=1 to 10
input "请输入数字：" to a
if mod(a,2)#0
?"T"
b=b+1
else
?"F"
endif
endf
?b
retu
********** 题二 ***********
use 职工 in 0
sele 职工
clea
accept "请输入待查职工职工号:" to hh && 职工号都应该是字符型
loca for 职工号=hh
if not eof()
?"姓名:"+姓名
?"工资:",工资
else
?"查无此人!"
endi
retu
i=1
do while i<=10
input "请输入数字：" to a
if a/2==int(a/2)
?"T"
else
?"F"
endif
i=i+1
enddo
第二个问题将T改为F，F改为T就是了。
第三题：取决于你的表的结构，你的职工号字段什么类型？表的结构？
input "请输入职工号：" to a
use table1
loca for 职工号=a
？姓名,工资
晕，这个太简单了啊。
不过一来我没有时间全写出来，
二来这么简单的事你应该自已学，
才不会浪费了父母给你学习的钱啊！
我是学过，不过给忘的差不多了，不过再看看书应该是没有什么问题!
好孩子，好好学习吧
问题很简单