急!!!求解Visual FoxPro的题
1,任意输入两个数,按从大到小的顺序输出这两个数。 2,任意输入一个年份,判断该年是否为闰年。 3,任意输入一个正整数,编写程序求0到该数之间所有的奇数的和。
追问:再问一个啊 嘿嘿 求解AX²+BX+C=0的根、其中A、B、C三个参数由用户自己输入。假设输入的数据能使:b²-4ac>0成立 谢谢啊
1,任意输入两个数,按从大到小的顺序输出这两个数。 2,任意输入一个年份,判断该年是否为闰年。 3,任意输入一个正整数,编写程序求0到该数之间所有的奇数的和。
追问:再问一个啊 嘿嘿 求解AX²+BX+C=0的根、其中A、B、C三个参数由用户自己输入。假设输入的数据能使:b²-4ac>0成立 谢谢啊
答案:1、
clear
input "请输入第1个数:" to a
input "请输入第2个数:" to b
?max(a,b),min(a,b)
2、
clear
input "请输入年份:" to x
if x%4=0
?"是闰年"
else
?"不是闰年"
endif
3、
clear
input "请输入一个正整数:" to x
s=0
for i=1 to x step 2
s=s+i
endfor
?"0到该数之间所有的奇数的和是:",s
上一个:求助几道VISUAL FOXPRO的题目。。。速度,在线等
下一个:Visual FoxPro 中怎样统计表中的最高成绩或者最低成绩 要用命令的 跪谢!!