考试网 >> IT认证 >> 等级 >> 二级考试 >> 二级FOXPRO样卷(五)

发布时间：2006-06-27 23:58     点击：

(8)ELSE 

(9)?"欢迎进入系统" 

(10)ENDIF 

(11)DO系统工程 

(12)RETU 

3. 输入10个数,找出最大的。 

(1)SET TALK OFF 

(2)DIME A(10) 

(3)FOR I=1 TO 10 

(4)INPUT "输入整数" TO A(I) 

(5)ENDFOR 

(6)B=A(1) 

(7)FOR I=2 TO 10 

(8)IF B>A(I) 

(9)B=A(I) 

(10)ENDIF 

(11)ENDFOR 

(12)?B 

(13)SET TALK ON 

(14)RETUR 

4. 显示XS1库记录第三条的信息。 

(1)SET TALK OFF 

(2)CLEA 

(3)USE XS1 

(4)SKIP 3 

(5)DISP 

(6)USE 

(7)RETU 

5. 将XS2库中的记录逐条的显示出来。 

(1)SET TALK OFF 

(2)CLEA

(3)USE XS2 

(4)DO WHILE .NOT.EOF() 

(5)DISP ALL

(6)WAIT "接任意键显示下一条" 

(7)SKIP 

(8)ENDDO 

(9)USE 

(10)RETU 

6. 将XS2库按外语建立索引,外语分相同再按计算机应用分建立索引。 (1)SET TALK OFF 

(2)SET SAFE OFF 

(3)USE XS2 

(4)INDE ON 外语+计算机应用 TO WYJSJ 

(5)LIST 

(6)USE

(7)RETU 

7. 输入10个整数,将奇数与偶数分别相加并输出。

(1)SET TALK OFF 

(2)CLEA 

(3)I=l 

(4)A=0 

(5)J=0 

(6)DIMENO(10) 

(7)DO WHIL<=10 

发表评论： 匿名发表 用户名: 查看评论

您将承担一切因您的行为、言论而直接或间接导致的民事或刑事法律责任 留言板管理人员有权保留或删除其管辖留言中的任意内容 本站提醒：不要进行人身攻击。谢谢配合。