题目:打开XSDB.DBF数据表, 分别统计男、女生的人数。USE XSDBSTOR 0 TO B,GDO WHILE .NOT.EOF( )***********FOUND**********IF 性别<>”男”B=B+1***********FOUND**********ENDIFG=G+1ENDIFSKIPENDDO?”男生人数是:”+STR(B)?”女生人数是:”+STR(G)
查看答案
题目:分别统计化学系的男、女生总人数并显示出来。USE XSDBSTOR 0 TO RS1,RS2***********FOUND**********FIND FOR 系别=”化学”DO WHILE .NOT.EOF()***********FOUND**********IF 性别<>”男”RS1=RS1+1ELSERS2=RS2+1ENDIFCONTENDDO? “男生人数=”,RS1? “女生人数=”,RS2USE
题目:在XSDB.DBF中查找学生徐秋实的记录, 如果找到则将该记录的系别、姓名,两科科目名称和对应的成绩显示在屏幕上,否则显示:”查无此人!”。 *-------------------------------------------------------*注意:不可以增加或删除程序行,也不可以更改程序的结构。*------------------------------------------------------- USE XSDB***********FOUND**********FIND FOR 姓名=”徐秋实”IF .NOT.FOUND()?”查无此人!”ELSE?系别,姓名, “计算机=”+STR(计算机), “英语=”+STR(英语)***********FOUND**********ENDFORUSERETURN
题目:查找RSH.dbf 中女职工的最高工资,并显示其姓名和工资。USE RSHMGZ = 0DO WHILE .NOT.EOF( )***********FOUND**********IF 性别=”女”,MGZ<”工资”MGZ=工资MXM=姓名ENDIF***********FOUND**********CONTENDDO?MXM,MGZUSE
题目:计算出1-30以内(包含30)能被5整除的数之和。CLEARSET TALK OFFX=0**********FOUND**********Y=1DO WHILE .T.X=X+1DO CASECASE MOD(X,5)=0Y=Y+XCASE X<=30**********FOUND**********EXITCASE x>30**********FOUND**********LOOPENDCASEENDDO?YSET TALK ON