求一道VF程序设计题

问题描述:

求一道VF程序设计题
从键盘输入一个数据A,其类型可以是N,C,D,L和Y,通过对A的数据类型判断,输出其其数据类型的汉字说明.例如,当输入数据为:15,系统给出提示信息:数据型数据.

clear
input "请输入一个值:" to x
do case
case type("x")="C"
"字符型数据"
case type("x")="N"
"数值型数据"
case type("x")="D"
"日期型数据"
case type("x")="L"
"逻辑型数据"
endcase