2. 计算机
  3. 下面程序功能是接收数据库文件名，显示数据库的字段名、字段类型、宽度和小数位数，请阅读程序并填空： SET TALK OFF CLEAR DBNAME=SPACE(10) YN=“Y” D0 WHILE UPPER(YN)；“Y

下面程序功能是接收数据库文件名，显示数据库的字段名、字段类型、宽度和小数位数，请阅读程序并填空： SET TALK OFF CLEAR DBNAME=SPACE(10) YN=“Y” D0 WHILE UPPER(YN)；“Y

admin2010-06-12  85
问题 下面程序功能是接收数据库文件名，显示数据库的字段名、字段类型、宽度和小数位数，请阅读程序并填空：
   SET TALK OFF
   CLEAR
   DBNAME=SPACE(10)
   YN=“Y”
   D0 WHILE UPPER(YN)；“Y”
   @2，16 SAY“请输入数据库文件名：”GET DBNAME
   READ
   FNAME=TRIM(DBNAME)+“.DBF.”
   IF.NOT.FILE(FNAME)
   94,30 SAY“数据库不存在!”
   LOOP
   ENDIF
   USE【  】
   COPY T0 XYZ STRUCTURE EXTENDED
   USE XYZ
   ⑦4,10 SAY“字段名:”
   ①4,10 SAY“类型:”
   @4,10 SAY  “宽度:”
   ⑦4,10 SAY“小数位数:”
   ROW=5
   DO WHILE．NOT．EOF()
   ④ROW，10 SAY FIELD-NAME
   ⑦ROW，23 SAY【  】
   @ROW，32 SAY STR(FIELD-LEN,3)
   ⑦ROW，“SAY STR(FIELD-DEC,3)
   ROW=ROW+!
   SKIP
   ENDDO
   USE
   9 ROW,30 SAY“是否继续?(Y/N)”GET YN
   READ
   ENDDO
   SET TALK 0N
   RETURN
选项
答案&FNANE, field-type
解析
转载请注明原文地址:https://www.kaotiyun.com/show/p1zp777K
本试题收录于： 二级VF题库NCRE全国计算机二级分类
0

二级VF

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)