第二章VisualFoxPro6.0编程四.pptVIP

第二章 Visual FoxPro 6.0编程知识(4) 信息工程系 用户定义对话框MESSAGEBOX()函数的使用 MessageBox函数用于显示短消息，它所显示的小窗口实质为一个对话框。 MessageBox函数在对话框中显示信息，等待用户单击按钮，并返回一个整数以表明用户单击了哪个按钮。 【格式】MESSAGEBOX(CMessageText,[nDialogboxType[,CTitleBarText]]) 【功能】该函数用于显示一个消息框. 【说明】 CMessageText:表示显示在信息框中的正文内容。 nDialogboxType：确定消息框中要显示哪些按钮和图标，一般有3个参数。其取值和含义为： ?0～5：代表出现在信息框中的按钮（P152表7－1） ?16、32、48及64：表示出现在消息框中的图标（P152表7－2） ?0、256及512：表示消息框中哪些是默认按钮（P153表7－3） 注意： （1）如果默认nDialogboxType，则消息框中只有“确定”按钮。 （2）CTitleBarText表示出现在消息框标题栏中的文本。若缺省此项，系统会给出默认的标题：Microsoft Visual FoxPro。 （3）MESSAGEBOX()函数的返回值是一个数值、用于确定在消息框中选择了哪个按钮，见下页表格所示。 （4）如果省略了某些可选项，必须加入相应的逗号分隔符。 MESS()函数的返回值 * 1.当型循环结构 循环结构程序：按照一定条件重复进行某种特定操作的程序称为循环结构程序。 格式：DO WHILE 条件表达式 语句行序列1 [LOOP] 语句行序列2 [EXIT] 语句行序列3 ENDDO 说明： 结构组成：循环起始语句、循环体、循环终端语句 注意：在循环体内要设置修改循环条件的语句，避免死循环。 ENDDO后面的语句 语句行序列 条件表达式 循环体 Y N 循环结构 例1：编程求和S=1+2+3+…+100。 SET TALK OFF CLEAR STORE 0 TO N,S DO WHILE N=100 S=N+S N=N+1 ENDDO ?”累加和S=”,S SET TALK ON RETURN 死循环示例：X=1 S=0 DO WHILE X=1 S=S+X X=X+1 ENDDO 例2：编程显示学生表中所有女生的记录。 SET TALK OFF CLEAR USE 学生 INDEX ON 性别 TAG xs-xb SEEK “女” DO WHILE 性别=”女” DISP SKIP ENDDO USE SET TALK ON RETURN 例4：编写程序能根据键盘输入的姓名，从学生表中查找该生的信息。 SET TALK OFF CLEAR ACCEPT “请输入姓名：” TO XM USE 学生表 DO WHILE .NOT.EOF() IF 姓名=XM DISP EXIT ELSE SKIP ENDIF ENDDO USE SET TALK ON 2 固定次数的循环结构 格式： FOR 循环控制变量=初值 TO 终值 [STEP 步长] 语句序列1 [LOOP] 语句序列2 [EXIT] 语句序列3 ENDFOR 注意：步长可为正值和负值 例1：编程求和S=1+2+3+…+100。 SET TALK OFF CLEAR S=0 FOR N=1 TO 100 ?”S=”,S S=S+N SET TALK ON ENDFOR RETURN 循环体 3 表扫描循环结构 格式： SCAN [范围]