Clear

Store 2 To A Store 4 To B B=B*A

Do Swap With A,B &&调用子程序SWAP，并传递参数A,B ? A+B

Procedure Swap

Parameters X1, X2 &&接收主程序中的A,B参数并命名为X1,X2 Temp=X1+1 X1=X2*X1 X2=Temp

Endproc

以上程序段的输出结果是

3、下列程序段用来求1～100之间的奇数之和，请将它写完整： STORE 0 TO N,S DO WHILE N<=100

N=N+1 IF N%2=0

（ loop ） ELSE S=S+N ENDIF

ENDDO

4、运行以下程序后，屏幕显示内容的第三行是：__CDE___________ CLEA S = \ N = LEN（S） P = 1

DO WHILE P<=N ?SUBS(S,P,N-P) P=P+1 ENDDO

5、运行以下程序后，屏幕显示的运行结果为：____CBA_________ STORE \ TO C P=SPACE(0)

DO WHILE LEN(C)>0 P=LEFT(C,1)+P

C=SUBS(C,2)

ENDDO ?P

6、运行以下程序后，屏幕显示的运行结果为：_____10,15________ X=8

DO WHILE .T.

X=X+1

IF X=INT(X/4)*5

??X LOOP ELSE ENDIF IF X>10 EXIT ENDIF

ENDDO

7、编写一个程序,要求如下：

1）计算数列1, 1/2, 1/3, 1/4,....,1/n之和。

2）当某一项的值与前一项的值小于0.001的时候停止计算。 3）最终在主屏幕窗口中显示计算值 N=1

S=0

DO WHILE 1/N-1(N+1)>0.01 S+S+(1+N) N=n+1 END DO

?S

8、完善列程序,其功能是显示如图1所示的文字图形。 金

字字 大大大 宝宝宝宝 塔塔塔塔塔

图1程序运行结果

【程序清单】 CLEAR

c=\金字大宝塔\ n=LEN(c)/2

FOR i=1 TO (1) N

?SPACE(30-i) FOR p=1 to i

?? SUBS(C, (2) 2*i-1 ,2) ENDFOR ENDFOR

9、XS表结构为：

字段名 XH XM BJ CSRQ CJ表结构如下：

字段名 XH KCBH CJ 使用上述XS表为数据源。

COMBO1 LIST1 CMDQUIT

字段类型 字符型 字符型 数值型 字段长度 6 2 3 字段说明 学号 课程编号 成绩 字段类型 字符型 字符型 字符型 日期型 字段长度 6 8 10 8 字段说明 学号 姓名 班级 出生日期

1）下拉列表框COMBO1的rowsourcetype设置为SQL语句，则COMBO1的rowsource应该写SQL语句为 THISFORM.COMBO1.ROWSOURCE TYPE=10 2）如要实现选择下拉列表框COMBO1中的班级后，LIST1中显示该班级的学生的学号和姓名，则需在COMBO1控件的 INTERACTIVE CHANGE 事件中写代码。 3）退出按钮CMDQUIT中的CLICK（）事件中写 THISFORM.RELEASE 命令可实现该表单释放且退出。