UND()
THISFORM.LABEL4.CAPTION="已找到" THISFORM.TEXT2.VALUE=
THISFORM.TEXT3.VALUE=YEAR(出生日期) THISFORM.CHECK1.VALUE=性别 ELSE
THISFORM.LABEL4.CAPTION="查无此人"
7
THISFORM.TEXT2.VALUE="" THISFORM.TEXT3.VALUE=""
THISFORM.CHECK1.VALUE=2 ENDIF
15、
1720005-2011/12
1、 观察数据环境中相关表格的内容
2、在LIST2的CLICK事件中编写如下代码:
SELECT 成绩 FROM GRADE WHERE =THISFORM.LIST1.VALUE =THISFORM.LIST2.VALUE INTO ARRAY X DO CASE
CASE X(1)>=90 AND X(1)<=100 Y="优秀"
CASE X(1)>=80 AND X(1)<90 Y="良好"
CASE X(1)>=70 AND X(1)<80 Y="中等"
CASE X(1)>=60 AND X(1)<70 Y="及格" CASE X(1)<60 Y="不及格" ENDCASE
THISFORM.TEXT1.VALUE=Y 16、1720009-2011/12
AND 课程号
8
1、 注意到LIST1的ROWSOURCETYPE为3-SQL语句,并观察数据环境中相关表格的内容。 2、 在“查询”按钮的CLICK事件中编写如下代码:
THISFORM.LIST1.ROWSOURCE="SELECT ,
课程号,成绩 FROM STUDENT,GRADE WHERE STUDENT.=GRADE. AND STUDENT.=THISFORM.COMBO1.VALUE INTO CURSOR AAA" SELECT AVG(成绩) FROM AAA INTO ARRAY X THISFORM.TEXT1.VALUE=X(1)
thisform.refresh
1720010-2011/12 17、
2、 1、注意到两个GRID1的RECORDSOURCETYPE均为“4-SQL说明”,观察数据环境中相关表格的内容 2、在“查询”按钮的CLICK事件中编写如下代码:
THISFORM.PAGEFRAME1.PAGE1.GRID1.RECORDSOURCE="SELECT STUDENT.,,专业 FROM STUDENT WHERE 专业=THISFORM.COMBO1.VALUE INTO CURSOR AAA"
THISFORM.PAGEFRAME1.PAGE2.GRID1.RECORDSOURCE="SELECT STUDENT.,,COUNT(课程号) AS 选课门数,AVG(成绩) AS 平均分 FROM STUDENT,GRADE WHERE STUDENT.=GRADE. AND 专业=THISFORM.COMBO1.VALUE GROUP BY STUDENT. INTO CURSOR BBB"
thisform.refresh
18、
设计题3
9
在“ASCII最大值字符”按钮的CLICK事件中编写代码: C=ALLTRIM(THISFORM.TEXT1.VALUE) N=LEN(C) FOR I=1 TO N
A=ASC(SUBSTR(C,I,1)) IF I=1
MAX=A ENDIF IF A>MAX MAX=A ENDIF ENDFOR
THISFORM.TEXT2.VALUE=CHR(MAX)
(2)方法二
rc=thisform.text1.value c=substr(rc,1,1) for i=2 to len(rc) if substr(rc,i,1)>c c=substr(rc,i,1) endif endfor
thisform.text2.value=c
10
19、
在“结果字符串”按钮的CLICK事件中编写如下代码: C1=ALLTRIM(THISFORM.TEXT1.VALUE) N=LEN(C1)
C2=ALLTRIM(THISFORM.TEXT2.VALUE) C3=""
FOR I=1 TO N
IF SUBSTR(C1,I,1)<>C2 C3=C3+SUBSTR(C1,I,1) ENDIF ENDFOR
THISFORM.TEXT3.VALUE=C3
(2)方法二
rc=thisform.text1.value c=thisform.text2.value dc=chrtran(rc,c,"")
thisform.text3.value=dc
20、
11
在“统计结果”的CLICK事件中编写如下代码: C1=ALLTRIM(THISFORM.TEXT1.VALUE) N=LEN(C1)
C2=ALLTRIM(THISFORM.TEXT2.VALUE) C3=0
FOR I=1 TO N
IF SUBSTR(C1,I,1)=C2 C3=C3+1 ENDIF ENDFOR
THISFORM.TEXT3.VALUE=C3 21、
在“统计数字个数”按钮的CLICK事件中编写代码: C1=ALLTRIM(THISFORM.TEXT1.VALUE) N=LEN(C1) N2=0
FOR I=1 TO N
IF ASC(SUBSTR(C1,I,1))>=48 AND ASC(SUBSTR(C1,I,1))<=57 N2=N2+1 ENDIF ENDFOR
THISFORM.TEXT2.VALUE=N2
12
22、设计题3----1720001-2011/12
1、 在“产生随机数”按钮的CLICK事件中编写如下代码: THISFORM.TEXT1.VALUE=INT(RAND()*89+10)
2、 在“是否为奇数”按钮的CLICK事件中编写如下代码: N=THISFORM.TEXT1.VALUE IF N%2=0 Y="不是" ELSE
Y="是" ENDIF
THISFORM.TEXT2.VALUE=Y 23、
1720002-2011/12
1、 注意到OPTIONGROUP1的VALUE属性初始值为1 2、 在“计算”按钮的CLICK事件中编写如下代码: N1=THISFORM.TEXT1.VALUE N2=THISFORM.TEXT2.VALUE
13
N3=0 DO CASE
CASE THISFORM.OPTIONGROUP1.VALUE=1 N3=N1+N2
CASE THISFORM.OPTIONGROU