发布时间 : 星期六 文章VFP复习题更新完毕开始阅读
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 命令可实现该表单释放且退出。