Question

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

从键盘输入数据A(可以是C,D,N,L和Y型等)，通过类型判断，输入其数据类型的汉字说明（如A的值为“OK!”,那么输出应为：OK!--字符型数据）。

高手，救命啊。。。。。

Answer 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
--------------------------------------------------
输入数据的格式要按该类型数据的格式输入

Answer 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