vfp编程。。。。要用do case语句的。。

2024-12-21 20:13:39

推荐回答（2个）

回答1：

clear
input "请输入数据" to A
T=vartype(A)
?A
do case
case T='C'
??"--字符型"
case T='D'
??"--日期型"
case T='G'
??"--通用性"
case T='Y'
??"--货币型"
case T='T'
??"日期时间型"
case T='L'
??"--逻辑型"
case T='N'
??"--数值型"
endcase
return
--------------------------------------------------
输入数据的格式要按该类型数据的格式输入

回答2：

acce to a
do case
case type('a')='C'
? a+'--字符型数据'
case type('a')='D'
? dtoc(a)+'--日期型数据'
case type('a')='N'
? str(a)+'--数据型数据'
case type('a')='L'
? '逻辑型数据'
endcase