亚洲欧洲国产欧美一区精品,激情五月亚洲色五月,最新精品国偷自产在线婷婷,欧美婷婷丁香五月天社区

　　閱讀程序(每小題5分，共20分)

　　1、有一程序如下，請寫出運(yùn)行結(jié)果：

　　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、有如下程序，請寫出運(yùn)行結(jié)果：

　　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、設(shè)計如圖3所示表單，表單運(yùn)行后，單擊命令按鈕“Command1”，標(biāo)簽Label1將顯示什么?

　　command1控件的click事件代碼：

　　W="西部大開發(fā)"

　　C="重慶"

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

　　X="&A.在&C"

　　thisform.label1.caption=x

　　4、數(shù)據(jù)表user.dbf用于存放電話客戶信息，其字段有：tno(電話號碼，字符型)，uname(姓名，字符型)，addr(地址，字符型);數(shù)據(jù)表charge.dbf用于存放客戶一年的電話交費(fèi)信息，其字段有：tno(電話號碼，字符型)，tmonth(月份，數(shù)值型)，money(電話費(fèi)，數(shù)值型)。

　　user.dbf的內(nèi)容如下 charge.dbf的內(nèi)容如下

　　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

　　請寫出下述程序的輸出結(jié)果。

　　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. 西部開發(fā)在重慶

　　4. 123 u1 75

　　456 u2 110

　　789 u3 300