您当前的位置:首页 > 电脑技术 > 软件技巧

FoxPro程序设计之if/else选择结构实例

2018-09-27 12:45:41人浏览
简介 Foxpro程序设计的基本程序结构有三种:顺序结构、选择结构和循环结构。选择结构分双分支选择结构和多分支选择结构。Foxpro程序设计之选择结构之双分支选择结构基本格式
      Foxpro程序设计的基本程序结构有三种:顺序结构、选择结构和循环结构。选择结构分双分支选择结构和多分支选择结构。Foxpro程序设计之选择结构之双分支选择结构基本格式:
if <条件>
    <语句组1>
else
    <语句组2>
endif

编程实例1:键盘接收一个数,判断这个数是偶数还是奇数。
clear
input "请输入一个数:" to a1
if a1%2=0
    ? "这个数是偶数。"
else
    ? "这个数是奇数。"
endif
return

编程实例2:输入一个数,判断这个数是不是3的倍数,如果是,输出“是3的倍数”,不是则输出“不是3的倍数”。
clear
input "请输入一个数:" to a1
if a1%3=0
    ? "是3的倍数"
else
    ? "不是3的倍数"
endif
return

编程实例3:键盘接收考试成绩,如果输入的成绩不小于60,则输出“合格”,否则输出“不合格”。
clear
input "请输入成绩:" to a1
if a1>=60
    ? "合格"
else
    ? "不合格"
endif
return

编程实例4:有分段函数如下,请编程实现键盘接收x的值,输出y值。
clear
input "请输入x的值" to x
if x>=0
    y=2*x+1
else
    y=3*x-2
endif
? "y=",y
return

编程实例5:键盘接收学生学号,在e:\xs\xsda.dbf中查找指定的学生学号,找到后显示学生信息,找不到输出“查无此人”。
clear
use e:\xs\xsda
accept "请输入要查找的学生的学号" to xh
locate for 学号==xh
if found()
    display
else
    ? "查无此人"
endif
use
return

编程实例6:键盘接收年份,判断该年份是不是闰年,如果是,输出“是闰年”,如果不是,输出“不是闰年”。
clear
input "请输入年份:" to y
if (y%400=0) or (y%4=0 and y%100!=0)
    ? "是闰年"
else
    ? "不是闰年"
endif
return