vf练习题

〖第1题〗『填 空』(2分)(题号:581) 数据库文件的扩展名为【1】. 答案： 1). dbc 物理删除 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 中所有记录的命令是【1】. 答案： 1). ZAP 假设目前已打开表和索引文件,要确保记录指针定位在记录号为1的记录上, 应使用【1】命令. 答案： 1). GO 1 在Visual FoxPro中,指定从当前记录开始直到表文件的最后一条记录进行 操作的范围字句是【1】. 答案： 1). REST 表文件的扩展名是【1】. 答案： 1). .dbf 『判 断』在命令窗口中执行QUIT命令不能关闭Visual FoxPro. 答案：N 用ZAP命令可以删除表文件. 答案：N 将指针指向表文件中第一条记录的命令可以用GOTOP. 答案：Y 您可以在同一个工作区中同时打开多个表. 答案：N 执行DELETE命令删除数据记录后,这些数据记录并未被真正删除, 而只是被标上删除记号以示删除. 答案：Y 不同数据记录的记录号可以是相同的. 答案：N 设表文件中有5条记录,且已打开,当BOF()为真时,recno()的 返回值为 0 . 答案：N 在"文件"下拉菜单中单击"退出"命令可关闭Visual FoxPro. 答案：Y 要恢复已被DELETE命令删除的数据记录,必须执行PACK命令. 答案：N Visual FoxPro 中文版是一个关系数据库管理系统. 答案：Y 『单项选择』 修改数据表中的数据是在()环境下完成的. A:表 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 器 B:表向导 C:表浏览器 D:表编辑器 答案：C Visual FoxPro中过程固定的入口语句是(). A:go top B:goto top C:proc D:endproc 答案：C 顺序执行下列命令后,最后一条命令显示结果是(). USE CHJ GO 5 SKIP -2 ?RECNO() A:3 B:4 C:5 D:7 答案：A 要启动Visual FoxPro的向导可以(). A:打开新建对话框 B:单击工具栏上的"向导"图表按钮 C:从"工具"菜单中选择"向导" D:以上方法都可以 答案：D 重建索引的命令是(). A:REINDEX B:USE INDEX C:INDEX AGAIN D:AGAIN INDEX 答案：A 执行LIST NEXT 1命令后,记录指针的位置指向(). A:下一条记录 B:首记录 C:原来记录 D:尾记录 答案：C 数据表文件有20条记录,当前记录号为10,执行LIST NEXT 5以后, 所显示记录的序号是(). A:11~15 B:11~16 C:10~15 D:10~14 答案：D 要想在一个打开的数据表中删除某些记录,应先后选用的两个命令是(). A:DELETE、RECALL B:DELETE、PACK C:DELETE、ZAP D:PACK、DELETE 答案：B 对数据表的结构进行操作,是在()环境下完成的. A:表设计器 B:表向导 C:表浏览器 D:表编辑器 答案：A 在Visual FoxPro中,简单查询基于(). A:单个表 B:两个表 C:两个有关联的表 D:多个表 答案：A 下列选项中是日期型常量的是(). A:{″99/12/31″} B:{99/12/31} C:99/12/31 D:ctod(99/12/31) 答案：B 设当前记录号是10,执行命令SKIP-2后,当前记录号变为(). A:7 B:8 C:9 D:12 答案：B 下面关于逻辑值为真的表达式,正确的是(). A:.F.,.f.,.N.,.n. B:.T.,.t.,.Y.,.y. C:.F.,.f.,.Y.,y.. D:.T.,.t.,.N.,.n. 答案：B 数据库系统的构成为:数据库、计算机硬件系统、用户和(). A:操作系统 B:文件系统 C:数据集合 D:数据库管理系统 答案：D 字符型常量的定界符不包括(). A:单引号 B:双引号 C:花括号 D:方括号 答案：C 自定义 函 关于工期滞后的函关于工程严重滞后的函关于工程进度滞后的回复函关于征求同志党风廉政意见的函关于征求廉洁自律情况的复函 数的入口语句是(). A:function B:endfunc C:enter D:goto 答案：A Visual FoxPro中逻辑删除是指(). A:真正从磁盘上删除表及记录 B:逻辑删除是在记录旁作删除标志,不可以恢复记录 C:真正从表中删除记录 D:逻辑删除只是在记录旁作删除标志,必要时可以恢复记录 答案：D 下列命令中,修改库文件结构的命令是(). A:MODIFY FILE B:MODIFY COMMAND C:MODIFY STRUCTURE D:CREATE STRUCTURE 答案：C 下列符号中,不能作为日期型常量的定界符的是(). A:/ B:- C:· D:^ 答案：D 打开数据表文件后,当前记录指针指向100,要使指针指向记录号 为20的记录,应使用()命令. A:LOCATE 20 B:29465 C:GO 20 D:SKIP 80 答案：C 要清除内存中所有的变量,可以使用命令(). A:clear all B:clear C:delete all D:erase all 答案：A 若使自定义函数向调用程序返回一个值,应使用()语句. A:endfunc B:end C:return D:endproc 答案：C 打开"表单设计器"后,系统菜单中增加的菜单项是(). A:表单 B:菜单 C:屏幕 D:数据库 答案：A 以下赋值语句正确的是(). A:STORE 8 TO X,Y B:STORE 8,9TO X,Y C:X=8,Y=9 D:X,Y=8 答案：A 在Visual FoxPro中,打开一个数据表文件的命令是(). A:OPEN DATABASE<数据表文件名> B:USE<数据表文件名> C:OPEN<数据表文件名> D:CREATE<数据表文件名> 答案：B 自定义函数的出口语句是(). A:function B:endfunc C:enter D:goto 答案：B 使用seek 命令搜索表中出生日期为01/23/1996的记录,应执行()命令. A:seek{^1996/01/23} B:seek{01/23/96} C:seek{96/01/23} D:seek{01/23/1996} 答案：A 执行命令STORE CTOD(′03/09/94′) TO A后,变量A的类型为(). A:日期型 B:数值型 C:备注型 D:字符型 答案：A Visual FoxPro中,一个表可以创建()个主索引. A:1 B:2 C:3 D:若干 答案：A 下列选项中不是常量的是(). A:abc B:″abc″ C:1.4E+2 D:{99/12/31} 答案：A *------------------------------------------------------- *题目:求1到100之间的奇数之和、偶数之和，并将奇数之和 * 存入S1、偶数之和存入S2显示输出。请在【】处添上适当的内 * 容，使程序完整。 *------------------------------------------------------- i=1 stor 0 to s1,s2 do whil i<=100 ***********SPACE********** if 【?】 s1=s1+i ***********SPACE********** 【?】 s2=s2+i endif ***********SPACE********** 【?】 ENDD ?S1,S2 答案： 1). MOD★(I,2)★<>0 或 INT★(I,2)★<>★I/2 或 I%2★<>0 或 MOD★(I,2)★#0 或 INT★(I,2)★#I/2 或 I%2★#0 2). ELSE 3). I=I+1 或 I=1+I *------------------------------------------------------- *题目:找出XSDB.DBF中奖学金最高的学生记录并输出。请在【】 * 处添上适当的内容，使程序完整。 *------------------------------------------------------- ***********SPACE********** 【?】 MAX=0 ***********SPACE********** DO WHILE 【?】 IF MAX<奖学金 ***********SPACE********** 【?】 JLH=RECN() ENDIF SKIP ENDDO ?MAX DISP FOR RECN()=JLH USE 答案： 1). USE ★XSDB 2). !EOF() 或 .NOT.★EOF() 3). STOR★ 奖学金 TO★ MAX 或 MAX=★奖学金 *------------------------------------------------------- *题目：通过键盘输入一个数N,计算2^2+4^4+……+N^N 的值并显示输出。 *------------------------------------------------------- *注意：不可以增加或删除程序行，也不可以更改程序的结构。 *------------------------------------------------------- T=0 I=2 INPUT "N=" to N ***********FOUND********** DO WHILE .NOT.EOF() T=T+I^I ***********FOUND********** I=I+T ENDDO ?"TOTAL=",T 答案： 1). DO ★WHILE★ I<=N 或 DO ★WHILE★ N>=I 2). I=2+I 或 I=★I+2 *题目：计算1!+3!+9!的结果并输出。 *------------------------------------------------------- *注意：不可以增加或删除程序行，也不可以更改程序的结构。 *------------------------------------------------------- M=1 S=0 DO WHILE M<=9 STOR 1 TO I,P P=1 ***********FOUND********** DO WHILE I>M P=P*I I=I+1 ENDDO S=S+P ***********FOUND********** M=M+3 ENDDO ? "1!+3!+9!=",S 答案： 1). DO ★WHILE★ I<=M 或 DO ★WHILE★ M>=I 2). M=M*3 或 M=3*M *题目：编程求P=1x(1x2)x(1x2x3)x … x(1x2x … xN)，N由键盘输入。 * 将结果存入变量OUT中。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------- SET TALK ON SET LOGERRORS ON INPUT "请任意输入一个数字:" TO N ?FUN(N) YZJ() FUNCTION FUN(N) OUT=-1 **********Program********** ********** End ********** RETURN OUT FUNCTION YZJ() USE IN LOCA FOR TIHAO=3 IF FOUND() N=N1 O=FUN(N) DO YZJ3 WITH O ELSE ?"考试输入文件错误，请重新配置考试环境" ENDIF RETURN 答案：---------------------- p=1 for i=1 to n q=1 for j=1 to i q=q*j endfor p=p*q endfor O=p ---------------------- 『窗体设计』 --------------------------------------------------------------------- 设置： 1：设置表单名称为Form1。 2：在窗体内添加3个Label控件，名称分别为：Label1、Label2、Label3。 添加2个TextBox控件，名称分别为：Text1、Text2。 添加1个CommandButton控件，名称为：Command1。 3：设置Label1的标签内容为“行李重量（公斤）：”，字体为：宋体、14号字。 设置Label2的标签内容为“托运费(元)：”，字体为：宋体、14号字。 设置Label3的标签内容为“托运费核算”，字体为：隶书、20号字。 *题目:实现:求0-100之间的奇数之和，超出范围则退出。请在【】处 * 添上适当的内容，使程序完整。 *------------------------------------------------------- X=0 Y=0 DO WHILE .T. X=X+1 DO CASE ***********SPACE********** CASE 【?】 LOOP CASE X>=100 ***********SPACE********** 【?】 OTHERWISE Y=Y+X ENDCASE ***********SPACE********** 【?】 ? "0-100之间的奇数之和为: ", Y RETURN 答案： 1). MOD(★X,2)★=0 或 INT★(X/2)★=X/2 或 X%2★=0 或 0=MOD★(X,2) 或 X/2★=★INT(X/2) 或 0=★X%2 2). EXIT 3). ENDDO 或 ENDD *题目：将一串ASCII码字符"ABC123"，逆序输出为：321CBA"。 *------------------------------------------------------- *注意：不可以增加或删除程序行，也不可以更改程序的结构。 *------------------------------------------------------- S="ABC123" ?S+"的逆序为：" ***********FOUND********** L=STR(S) DO WHIL L>=1 ??SUBS(S,L,1) ***********FOUND********** L=L+1 ENDD 答案： 1). L=LEN(S) 2). L=L-1 *题目：显示XSDB.DBF中每个学生的姓名、计算机成绩和等级；等 * 级划分如下：计算机成绩大于等于90显示"优秀"；60到89 * （包括 60和89）之间显示"及格"；60分以下显示"补考"。 * 如显示：张丽娜 90 优秀 。 *------------------------------------------------------- *注意：不可以增加或删除程序行，也不可以更改程序的结构。 *------------------------------------------------------- USE XSDB DO WHIL .NOT. EOF() ***********FOUND********** LIST 姓名,计算机 DO CASE CASE 计算机>=90 ??'优秀' CASE 计算机>=60 ??'及格' OTHERWISE ??'补考' ENDCASE ***********FOUND********** GO NEXT ENDDO USE 答案： 1). ?姓名,计算机 或 DISP姓名,计算机 或 DISPLAY姓名,计算机 2). SKIP *------------------------------------------------------- *题目：编程求序列s=2/1-3/2+5/3-8/5+13/8-21/13+34/21的值。 * 要求使用for...endfor语句来完成。 * 将结果存入变量OUT中。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------- SET TALK ON SET LOGERRORS ON OUT=-1 **********Program********** ********** End ********** DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OFF 答案：---------------------- f1=1 f2=1 s=0 for i=1 to 7 f3=f1+f2 f1=f2 f2=f3 s=s+((-1)^(i+1))*f2/f1 endf out=s ? out ---------------------- 『窗体设计』--------------------------------------------------------------------- --------------------------------------------------------------------- 设置： 1：设置表单名称为“Form1”，标题为“Form1”。 2：在窗体内添加4个Label控件，名称分别为：Label1、Label2、Label3、Label4。 添加3个TextBox控件，名称分别为：Text1、Text2、Text3。 添加1个CommandButton控件，名称为：Command1。 3：设置Label1的标签内容为“输入两个数：”，字体为：幼圆、12号字。 设置Label2的标签内容为“m=”，字体为：宋体、12号字。 设置Label3的标签内容为“n=”，字体为：宋体、12号字。 设置Label4的标签内容为“两数的最小公倍数为：”，字体为：宋体、12号字。 *------------------------------------------------------- *题目:在XSDB.DBF数据表中查找学生王迪，如果找到，则显示： * 学号、姓名、英语，生年月日，否则提示"查无此人！"。 * 请在【】处添上适当的内容，使程序完整。 *------------------------------------------------------- ***********SPACE********** 【?】 XM="王迪" ***********SPACE********** 【?】姓名=XM IF FOUN() ***********SPACE********** 【?】学号, 姓名, 英语, 生年月日 ELSE ? "查无此人！" ENDIF USE RETURN 答案： 1). USE ★XSDB 2). locate ★for 3). display 或 ? 或 display ★off *------------------------------------------------------- *题目：打开表XSDB.DBF, 查找计算机和英语的平均成绩最高的学生， * 并显示姓名和计算机、英语成绩。 *------------------------------------------------------- *注意：不可以增加或删除程序行，也不可以更改程序的结构。 *------------------------------------------------------- USE XSDB JSJ=计算机 YY=英语 XM=姓名 PJ=(JSJ+YY)/2 DO WHILE .NOT.EOF() ***********FOUND********** X=计算机+英语 ***********FOUND********** IF PJ>X JSJ=计算机 YY=英语 XM=姓名 ENDIF SKIP ENDDO ?XM,JSJ,YY 答案： 1). X=(计算机+英语)/2 或 X=(英语+计算机)/2 2). IF X>PJ 或 IF PJ★<★X *------------------------------------------------------- *题目：输出下面图形：（要求使用双重循环语句） * * * * * * * * * * * * * * * 请按照题目要求，在下面编写程序代码。 *要求：将输出第三行的所有字符存入变量S中 *------------------------------------------------------- CLEAR SET TALK OFF SET LOGERRORS ON S="" **********Program********** ********** End ********** DO YZJ6 WITH S CANCEL 答案：---------------------- for i=1 to 4 for j=1 to i ??"*" endfor ? endfor S="***" ---------------------- 『窗体设计』--------------------------------------------------------------------- 设置： 1：设置表单名称为Form1。 2：在窗体内添加2个Label控件，名称分别为：Label1、Label2。 添加1个CommandButton控件，名称为：Command1。 添加1个ListBox控件，名称为：List1。 3：设置Label1的内容为：“单击“开始”按钮，可以求出从2000年到2100年之间的所有闰年并显示在列表框中。”，字体为宋体、12号字。 设置Label2的内容为“闰年如下:”，字体为：隶书加粗、14号字。 *题目:依次显示XSDB.DBF数据表中的记录内容。请在【】处添上适当 * 的内容，使程序完整。 *------------------------------------------------------- ***********SPACE********** 【?】 ***********SPACE********** DO WHILE【?】 DISP ***********SPACE********** 【?】 ENDDO USE RETURN 答案： 1). use★ xsdb 2). .not.eof() 或 !eof() 3). SKIP *题目：接收键盘输入的任意5个整数(不超过3位数), 找出其中的最 * 大数并显示。程序中共有2个错误。 *------------------------------------------------------- *注意：不可以增加或删除程序行，也不可以更改程序的结构。 *------------------------------------------------------- INPUT "请输入第一个数:" TO X STORE X TO MA N=5 ***********FOUND********** DO WHILE N>=5 INPUT "请输入下一个数:" TO X IF MAI 或 I★<=3 或 3★>=I 2). ??"*" 3). I=★I+1 或 I=★1+I *题目：根据姓名查询RSH.dbf中的职工情况，如果有则显示该职工的 * 工资和职称，否则显示"查无此人!"。 *------------------------------------------------------- *注意：不可以增加或删除程序行，也不可以更改程序的结构。 *------------------------------------------------------- USE RSH XM="赵红" LOCATE FOR 姓名 = XM ***********FOUND********** IF BOF() WAIT "查无此人! " ELSE ***********FOUND********** ? "工资+职称" ENDIF USE 答案： 1). IF EOF() 或 IF .NOT.FOUN() 2). ?工资, 职称 或 ?STR(工资)+职称 *题目：将200到300之间的所有能被3整除或被5整除的数求和并统计个数。 *------------------------------------------------------- *注意：不可以增加或删除程序行，也不可以更改程序的结构。 *------------------------------------------------------- STORE 0 TO S,C I=200 DO WHILE I<=300 ***********FOUND********** IF INT(I/3)=INT(I/5) S=S+I ***********FOUND********** C=C+I ENDIF I=I+1 ENDDO ?"200到300之间的所有能被3整除或被5整除的数之和="+STR(S,6) ?"200到300之间的所有能被3整除或被5整除的数的个数="+STR(C,6) 答案： 1). IF INT(I/3)★=I/3★.OR.★INT(I/5)=★I/5 或 IF MOD(I,3)=0★.OR.★MOD(I,5)=0 或 IF INT(I/5)=I/5★.OR.★ INT(I/3)=I/3 或 IF MOD(I,5)=0★.OR.★MOD(I,3)=0 或 IF INT(I/3)=★I/3 ★OR★ INT(I/5)=I/5 或 IF MOD(I,3)=0 ★OR★ MOD(I,5)=0 或 IF INT(I/5)=I/5 ★OR★ INT(I/3)=I/3 或 IF MOD(I,5)=0 ★OR★ MOD(I,3)=0 2). C=★1+C 或 C=★C+1 *题目：编程找出一批正整数中的最大的偶数。。 * 将结果存入变量OUT中。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------- SET TALK ON SET LOGERRORS ON dime array(10) array(1)=1 array(2)=3 array(3)=6 array(4)=96 array(5)=4 array(6)=23 array(7)=35 array(8)=67 array(9)=12 array(10)=88 OUT=-1 **********Program********** ********** End ********** DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OFF 答案：---------------------- max=array(1) for i=1 to 10 if array(i)%2=0 if max=90 ★.AND.★英语★>=90 或 LOCA★FOR★90<=★计算机★.AND.★90<=英语 或 LOCA★FOR★90<=★计算机★.AND.★英语★>=90 或 LOCA★FOR★计算机★>=90 ★.AND.★90<=★英语 2). OTHERWISE 3). CONT *题目：在RSH.dbf 中，查找职工赵红的工资，如果工资小于200元， * 则增加100元；如果工资大于等于200元且小于500元时，则增 * 加50元；否则增加20元。最后显示赵红的姓名和工资。 *------------------------------------------------------- *注意：不可以增加或删除程序行，也不可以更改程序的结构。 *------------------------------------------------------- CLEAR USE RSH ***********FOUND********** LOCATE FOR 姓名 =赵红 DO CASE CASE 工资< 200 REPLACE 工资 WITH 工资+ 100 CASE 工资< 500 REPLACE 工资 WITH 工资+ 50 OTHERWISE REPLACE 工资 WITH 工资+ 20 ENDCASE ***********FOUND********** LIST 姓名,工资 USE 答案： 1). LOCATE★ FOR 姓名=★"赵红" 或 LOCA FOR 姓名=★'赵红' 或 LOCA FOR 姓名=★"赵红" 2). DISP 姓名,工资 或 ?姓名,工资 或 DISPLAY 姓名,工资 *题目：打开表XSDB.DBF, 查找计算机和英语的平均成绩最高的学生， * 并显示姓名和计算机、英语成绩。 *------------------------------------------------------- *注意：不可以增加或删除程序行，也不可以更改程序的结构。 *------------------------------------------------------- USE XSDB JSJ=计算机 YY=英语 XM=姓名 PJ=(JSJ+YY)/2 DO WHILE .NOT.EOF() ***********FOUND********** X=计算机+英语 ***********FOUND********** IF PJ>X JSJ=计算机 YY=英语 XM=姓名 ENDIF SKIP ENDDO ?XM,JSJ,YY 答案： 1). X=(计算机+英语)/2 或 X=(英语+计算机)/2 2). IF X>PJ 或 IF PJ★<★X *题目：三个数据表分别为学生库(STUDENT.DBF)、选课程库(XK.DBF) * 和课程库(KC.DBF),将所有选必修课的记录内容生成新库 * STUDENT1.DBF,新库中包括学号、姓名、课程号、课程名称、 * 课程类型字段。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------- SET TALK ON SET LOGERRORS ON CLEAR **********Program********** ********** End ********** CLOSE DATA SET LOGERRORS OFF SET TALK OFF 答案：---------------------- SELE 1 USE XK SELE 2 USE KC JOIN WITH XK TO XK1 FIELDS A.学号,课程号,课程名称,课程类型 FOR 课程号=A.课程号 .AND. 课程类型="选修 " SELE 3 USE XK1 SELE 4 USE STUDENT JOIN WITH XK1 TO STUDENT1 FIELDS 学号,姓名, C.课程号,C.课程名称,C.课程类型 FOR 学号=C.学号 SELE 5 USE STUDENT1 LIST 〖 *题目：编程计算正整数num的各位上的数字之和。 * * 将结果存入变量OUT中。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------- SET TALK ON SET LOGERRORS ON ?"输入正整数num=434" num=434 OUT=-1 **********Program********** ********** End ********** DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OFF 答案：---------------------- s=0 do while num<>0 s=s+num%10 num=int(num/10) endd out=s ? out *题目：统计RSH.dbf 中职称是教授、副教授、讲师和助教的人数。 *------------------------------------------------------- *注意：不可以增加或删除程序行，也不可以更改程序的结构。 *------------------------------------------------------- USE RSH ***********FOUND********** STORE 1 TO A , B , C , D DO WHILE .NOT.EOF ( ) DO CASE CASE 职称 = "教授" A = A + 1 CASE 职称 = "副教授" B = B + 1 CASE 职称 = "讲师" C = C + 1 CASE 职称 = "助教" D = D + 1 ENDCASE ***********FOUND********** NEXT 1 ENDDO USE ? A,B,C,D 答案： 1). STORE★ 0 TO A,B,C,D 2). SKIP *题目：编程判断一个整数w的各位数字平方之和能否 * 被5整除, 可以被5整除则返回1,否则返回0。 * 将结果存入变量OUT中。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------- SET TALK ON SET LOGERRORS ON ? "输入一个整数：w=39" OUT=-1 w=39 **********Program********** ********** End ********** DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OFF 答案：---------------------- s=0 do while w>0 s=s+(w%10)*(w%10) w=int(w/10) enddo if s%5=0 out=1 else out=0 endif ? out *题目: 下面程序是计算1+3+5+…+99之和的程序。 * 请在【】处添上适当的内容，使程序完整。 *------------------------------------------------------- SET TALK OFF ***********SPACE********** 【?】 ***********SPACE********** FOR I=1 TO 99 【?】 S=S+I ENDFOR ***********SPACE********** ?"结果=",【?】 RETURN SET TALK ON 答案： 1). s=0 2). step★ 2 3). s 或 str(s) 或 str(s,4) *题目：计算S=1+3+5+…+99 的程序。 *------------------------------------------------------- *注意：不可以增加或删除程序行，也不可以更改程序的结构。 *------------------------------------------------------- store 0 to s,i ***********FOUND********** do i<=99 ***********FOUND********** i=i+1 s=s+i enddo ?"s=",s 答案： 1). do while i<=99 或 do while i<100 2). I=2+I 或 I=★I+2 *题目：从键盘输入3个数，然后找出其中最大值和最小值。 * 　　最大值存入ＭＡ中，最小值存入ＭＩ中。 *请按照题目要求，在下面编写程序代码。 *------------------------------------------------------- SET TALK OFF SET LOGERRORS ON CLEAR INPUT "请输入一个数：" TO A INPUT "请输入一个数：" TO B INPUT "请输入一个数：" TO C Ma=-1 Mi=-1 FUN(A,B,C) ?MA ?MI YZJ() RETURN FUNC FUN(A,B,C) **********Program********** ********** End ********** RETURN FUNC YZJ() FUN(45,69,78) DO YZJ25 WITH MA,MI RETURN 答案：---------------------- MA=A MI=A IF B>A MA=B ENDIF IF BA MA=C ENDIF IF C=I 或 DO ★WHILE★ 10>I 2). IF MOD(N,3)=0 或 IF N%3=0 或 IF ★INT(N/3)★=N/3 *题目：分别统计化学系的男、女生总人数并显示出来。 *------------------------------------------------------- *注意：不可以增加或删除程序行，也不可以更改程序的结构。 *------------------------------------------------------- USE XSDB STOR 0 TO RS1,RS2 ***