？\再见！\ SET TALK ON RETURN
18．下列程序用于在屏幕上显示一个由\组成的三角形（如下图），请填空。 * *** ***** *******
SET TALK OFF CLEAR R=1 CC=10
DO WHILE R<=4 S=1
DO WHILE S<=2*R-1 @R,CC SAY \ CC=CC+1 S=S+1 ENDDO CC=10-R R=R+1 ENDDO
19．阅读下列程序，并写出执行 *A.PRG M=1 N=2 DO B.PRG ?\ RETURN
在命令窗口中执行DO A命令后，屏幕上显示的结果是20．设ABC.DBF为职工数据表文件SET TALK OFF
ACCE “请输入数据库表名USE &AAA
DO WHILE .NOT.EOF( ) IF .NOT. “王” $ 姓名 SKIP LOOP ENDIF DISPLAY SKIP ENDDO USE
A.PRG的显示结果。*B.PRG PRIVATE M M=3 N=4 RETURN ,”姓名”为该表中一字段名” TO AAA M=1 N=4 。 .
:本程序的功能是:
三、
程序设计
1. 设已建立了一个日销售库文件RXS.DBF(其中营业员代号(字符型),品名(字符型),数量(数值型),单价(数值型),营业额(数值型)),每一营业额构成一个记录,但其中营业额字段的值都不填写,而为0.00,为查询某个营业员全天的营业额,试编制程序。 Set talk off Close all Clear
Use rxs
Accept \请输入营业员代号:\ TO dh sum 数量*单价 to yye for 代号=dh ?mz+”当日的营业额为：”+str(yye) use
set talk on return
2、设班级表（banji.dbf）有字段：class(字符型)
成绩表（chengji.dbf）中有字段：
class(字符型),number(字符型),)name(字符型),score(数字型) 统计表（tongji.dbf）中字段：
class(字符型),pingjun(数字型), zuigao(数字型), zuidi(数字型请编写程序（tongji.prg）实现成绩的统计计算并把结果写入统计表（
*tongji.prg
sele 0 use banji sele 0 use chenji sele 0 use tongji sele banji
do while not EOF()
bjh=class high=0 low=100
count for chengji.class=bjh to rs sum score to zf pj=zf/rs
tongji.dbf）中 )
sele chengji
do while not EOF() if score>high high=score else if score insert into tongji(class,pingjun,zuigao,zuidi) values(bjh,pj,high,low) sele banji skip enddo 3、以下表单是实现解方程ax?bx?c?0。编写“求解”命令按钮的代码（6分） 2 a=thisform.text1.value b=thisform.text2.value c=thisform.text3.value if a=0 if b=0 if c=0 thisform.text4.value=”方程有无限多个解” else thisform.text4.value=”方程无解” endif else thisform.text4.value=”方程有一个解x=”+str(-val(c)/val(b)) endif else p=val(b)**2-4*val(a)*val(c) do case case p=0 thisform.text4.value=”方程有两个同解x1=x2=”+str(-val(b)/(2*val(a))) case p>0 thisform.text4.value=”x1=”+str((-val(b)+sqrt(p))/(2*val(a)))+”,”+”x2=”+ str((-val(b)-sqrt(p))/(2*val(a))) endcase 4、 有如下的表单,对键盘输入的两个数进行加,减,乘和除四种基本运算.请编写表单的” 计算”和”退出”命令按钮的程序代码.说明： 第一操作数文本框text1；第二操作数文本框text2；计算结果文本框为text3 操作符为组合框combo1,可选择的值为“+，-，*，/” “计算”命令按钮代码，“退出”命令按钮代码 “计算”命令按钮代码 do case case thisform.combo1.value=”*” thisform.text3.value=str(val(thisform.text1.value)*val(thisform.text2.value)) case thisform.combo1.value=”/” thisform.text3.value=str(val(thisform.text1.value)/al(thisform.text2.value)) case thisform.combo1.value=”+” thisform.text3.value=str(val(thisform.text1.value)+val(thisform.text2.value)) case thisform.combo1.value=”-” thisform.text3.value=str(val(thisform.text1.value)-val(thisform.text2.value)) endcase “退出”命令按钮代码 thisform.release 5、编写如下表单的加密和解密程序，即把原文的字符的ASCII值转换成ASCII小于等于32的不可见字符 6.设计一个学生成绩管理系统,管理一门课程的成绩.要求: (1)自己规划数据库结构,至少有姓名,平时出勤成绩,平时作业成绩,平时实习成绩, 期中考试成绩,期末考试成绩和最终存档成绩. (2)编程序 计算最终存档成绩并填入数据库中其中: ①最终存档成绩=期中考试成绩*60%+期末考试成绩*40%+三种平时成绩 ②三种平时成绩总分共20分 ③期中考试成绩和期末考试成绩总分都是80分