计算机等级释疑：VFP程序设计中宏代换的巧用

IT商界

王建忠

　　全国许多高校都有规定，学生在毕业之前必须通过国家级或省级的计算机二级或三级考试，这样有利于学生计算机能力的提高。9月底也是每年等级开始的第二次时间，在此之前我们也特地为大家准备一些和考试相关的选题以供读者参考。

　　在VFP程序设计中，经常使用宏代换&，它是计算机二级VFP程序设计中常考知识点之一，它主要有以下应用。

　　1.代替变量的值

　　例如，以下程序段：

　　CLEA

　　SET TALK OFF

　　CLEA ALL

　　ACCE '请输入要打开的文件名：' TO FILE

　　ACCE '请输入要显示的性别：' TO SEX

　　USE &FILE

　　DISP FOR 性别=SEX

　　USE

　　此段程序中，ACCEPT都是用来输入字符型数据，在USE &FILE中，FILE之前使用了宏代换&。注意DISP FOR 性别=SEX不能使用。

　　2.可对有规律的文件名变化时使用&，例如：ABC1，ABC2，ABC3等

　　有以下程序：

　　SET TALK OFF

　　CLEAR

　　CLEAR ALL

　　I=1

　　DO WHILE I<=5

　　K=STR(I,1)

　　SELE I

　　USE ABC&K

　　I=I+1

　　ENDDO

　　......

　　此段程序是分别选择5个工作区，为打开ABC1，ABC2……ABC5。

　　3.对特殊试题的解答采用宏代换程序特别短

　　有以下段程序：

　　对于上图这个程序，要计算它们的结果，方法较多，常规方法是：

　　的代码可以是：

　　X1=THISFORM.TEXT1.VALUE

　　X2=THISFORM.TEXT2.VALUE

　　X3=ALLT(THISFORM.TEXT3.VALUE)

　　DO CASE

　　CASE X3='+'

　　THISFORM.TEXT3.VALUE=X1+X2

　　CASE X3='-'

　　THISFORM.TEXT3.VALUE=X1-X2

　　CASE X3='*'

　　THISFORM.TEXT3.VALUE=X1*X2

　　CASE X3='/'

　　THISFORM.TEXT3.VALUE=X1/X2

　　CASE X3='**' OR X3='^'

　　THISFORM.TEXT3.VALUE=X1**X2

　　ENDCASE

　　若采用宏代换，代码为：

　　X1=THISFORM.TEXT1.VALUE

　　X2=THISFORM.TEXT2.VALUE

　　X3=ALLT(THISFORM.TEXT3.VALUE)

　　THISFORM.TEXT3.VALUE=X1 &X3.X2

　　可见，使用宏代换后，程序特别短。