阅读程序(每小题5分，共20分)

　　1、有一程序如下，请写出运行结果：

　　SET TALK OFF

　　CLEAR

　　I=1

　　DO WHILE I<=50

　　IF I/7=INT(I/7)

　　?? STR(I,4)

　　ENDIF

　　I=I+2

　　ENDDO

　　RETURN

　　2、有如下程序，请写出运行结果：

　　CLEA

　　PUBL a,b

　　a=1

　　b=2

　　DO sub1 WITH a,b

　　?a,b

　　RETURN

　　procedure SUB1

　　PARA A1,B1

　　B1=10*B1

　　A1=A1+1

　　DO sub2 with A1,B1

　　RETURN

　　procedure SUB2

　　PARA X,Y

　　A=3+X

　　B=2+Y

　　?a,b

　　RETUR

　　3、设计如图3所示表单，表单运行后，单击命令按钮“Command1”，标签Label1将显示什么?

　　command1控件的click事件代码：

　　W="西部大开发"

　　C="重庆"

　　A =subs(W,1,4)+SUBS(W,AT("开",W),4)

　　X="&A.在&C"

　　thisform.label1.caption=x

　　4、数据表user.dbf用于存放电话客户信息，其字段有：tno(电话号码，字符型)，uname(姓名，字符型)，addr(地址，字符型);数据表charge.dbf用于存放客户一年的电话交费信息，其字段有：tno(电话号码，字符型)，tmonth(月份，数值型)，money(电话费，数值型)。

　　user.dbf的内容如下 charge.dbf的内容如下

　　tno uname addr tno tmonth money

　　123 u1 a1 456 1 100

　　456 u2 a2 123 2 90

　　789 u3 a3 456 5 150

　　789 1 300

　　123 1 60

　　456 3 80

　　请写出下述程序的输出结果。

　　SET TALK OFF

　　SELECT B

　　USE charge

　　INDEX ON tno TO charge

　　SELECT A

　　USE user

　　SET RELATION TO tno INTO charge

　　SCAN

　　SELECT charge

　　AVERAGE money TO mm REST WHILE tno=user->tno

　　SELECT user

　　?tno+SPACE(2)+unmae+SPACE(2)+STR(mm,3)

　　ENDSCAN

　　1. 7 21 35 49

　　2. 5 22

　　2 20

　　3. 西部开发在重庆

　　4. 123 u1 75

　　456 u2 110

　　789 u3 300