第一篇：vfp程序題總結(jié)
五．程序題 在Text1中輸入一個3位自然數(shù)，分解求和的結(jié)果存入Text2中
x= thisform.text1.value a=int【1 】
b=int 【 2】
c=【 3】
s=【 4】
thisform.text2.value=【5 】
x/100(x-a*100)/10 x-a*100-b*10 a+b+c s 2 文本框Text1中輸入的值與文本框Text2中輸入的值交換
a= thisform.text1.value b= thisform.text2.value d=【1 】
【2 】
【3 】=d thisform.text1.value=【4 】
thisform.text2.value=【 5】
a a=b b a b 3 已知任意一個三角形的三條邊為a、b、c，求其面積。
a=thisform.text1.value b=【 1】
c=【 2】
p=(a+b+c)/【3 】
s=【 4】(p*(p-a)*(p-b)*(p-c))thisform.text4.value=【5 】
thisform.text2.value thisform.text3.value 2 sqrt s 4 判斷一個學(xué)生的計算機(jī)考試成績x屬于哪個分?jǐn)?shù)段之間（0-59，60-69，70-79，80-89，90-100）Command1_click事件代碼如下：
x= thisform.text1.value store 0 to h5,h6,h7,h8,h9 do case case x>=0 and x<=59 h5=h5+1 case 【1 】 and x<=69 h6=h6+1 case x>=70 and x<=79 【 2】
case 【3 】 and x<=89 h8=h8+1 case x>=90 and 【 4】
h9=h9+1 【 5】
thisform.label1.caption=str(h5)+ str(h6)+str(h7)+str(h8)+str(h9)x>=60 h7=h7+1 x>=80 x<=100 endcase 5 假設(shè)表單與第二題中的表文件zgqk.dbf 建立了數(shù)據(jù)環(huán)境，在其中按姓名查找職工情況，找到后將其情況在表單上顯示，否則在信息框中顯示“查無此人”。試完成下面程序。
【 1】 zgqk xm=thisform.text1.value locate for【2 】
if 【 3】eof()thisform.【4 】
else 【5 】(“查無此人”)Endif use xm=姓名 not refresh messagebox 6 求s=1/1^2+1/2^2+?+1/n^2 【 1】
n=thisform.text1.【2 】
FOR i=1 TO 【3 】
s=s+【4 】
next THISFORM.Label3.Caption=【5 】
s=0 value n 1/i^2 str(s)7 計算1+3+5+??99，并將結(jié)果存入文本框Text1中，請?zhí)羁?/p>
【 1】
FOR N=1 TO 【 2】 step 【 3】
s=s+n end【4 】
【5 】
s=0 99 2 for thisform.text1.value=str(s)8 計算1+3+5+??99，并將結(jié)果存入文本框Text1中，請?zhí)羁?/p>
【 1】
FOR N=1 TO 【 2】
if 【 3】(n/2)<> n/2 s=s+n endif end【 4】
【5 】 s=0 99 int for thisform.text1.value=str(s)9 計算2+4+6+??100，并將結(jié)果存入文本框Text1中，請?zhí)羁?/p>
【1 】
FOR N=2 TO 【2 】step 1 if int(n/2)=【 3】
s=s+n 【4 】
endfor 【 5】
s=0 100 n/2 endif thisform.text1.value=str(s)10 求所有的3位正整數(shù)除以99的商和余數(shù)，并輸出。
for i= 【1 】to 【2 】
a= 【 3】
b=【4 】
?【5 】
Endfor 100 999 int(i/99)i%99 a, b 11 求1！+2！+3！+4！+5！。
S=0 For i=1 to【1 】
t=【2 】
for k=1 to 【 3】
t=t*【4 】
endfor s=s+【 5】
endfor 5 1 I k t 12 計算1+2+3+??100，并將結(jié)果存入文本框Text1中，請?zhí)羁?/p>
【 1】
FOR N=1 TO【 2】step 【 3】
s=s+n 【 4】for 【5 】
s=0 100 1 end thisform.text1.value=str(s)13 統(tǒng)計1至100之間能被7整除的數(shù)的個數(shù)并求其和，結(jié)果用信息框（對話框）輸出。Command1_click事件代碼如下：
k=0 s=0 for i=1 to 100 if 【1 】(I,7)=0 k=k+【 2】
s=s+【3 】
endif endfor a=messagebox(【 4】+【 5】)mod 1 I str(k)str(s)14 在文本框Text1中輸入一個字符串，統(tǒng)計其中數(shù)字字符的個數(shù)，結(jié)果存入文本框Text2中。Command1_click事件代碼如下： k=0 x=allt(thisform.text1.value)n=【1 】
for i=1 to 【 2】
if subs(x,i,1)>”0” and【3 】
【 4】
endif endfor thisform.text2.value=【 5】
len(x)n subs(x,i,1)>”9” k=k+1 str(k)15.s=求1！+2！+3！+...+20!【1 】
for n=1 to 20 t=1 for m=1 to 【 2】
t=t*【3 】
endfor 【 4】
endfor THISFORM.Text1.Value=【 5】
s=0 n m s=s+t s 16.找出2010至2100之間所有閏年的年份
FOR i=【 1】 TO 【2 】
if i%4=0 AND i%100!=0 OR i%【3 】
? 【4 】
endif 【5 】
2010 2100 400=0 I ENDFOR 17.設(shè)計一個求t=n!的自定義函數(shù)
【 1】f(x)t=【 2】
FOR j = 1 to 【3】 t=t*【4 】 endfor return 【 5】
function[###]func 1 x j t 18.求 Fibonacci 數(shù)列(1,1,2,3,5?)的前n(n>3)項,并輸出
input “n=” to n 【 1】 a(n)a(1)=1 a(2)=1 ? a(1),a(2)for i=3 to 【 2】
a(i)=【 3】+【 4】
?? a(i-1),a(i-2)end【 5】
dime n a(i-1)a(i-2)for 19.輸出zgqk.dbf的基本工資大于600的記錄
【 1】zgqk do while not 【 2】
if 【 3】
【 4】
endif 【5 】
enddo use eof()基本工資>600 disp[###]display skip 1.在Text1中輸入一個3位自然數(shù)，分解求和的結(jié)果存入Text2中 2.文本框Text1中輸入的值與文本框Text2中輸入的值交換 3.已知任意一個三角形的三條邊為a、b、c，求其面積。
4.判斷一個學(xué)生的計算機(jī)考試成績x屬于哪個分?jǐn)?shù)段之間（0-59，60-69，70-79，80-89，90-100）287 5.求s=1/1^2+1/2^2+?+1/n^2 6.計算1+3+5+??99，并將結(jié)果存入文本框Text1中，7.計算1+3+5+??99，并將結(jié)果存入文本框Text1中 8.計算2+4+6+??100，并將結(jié)果存入文本框Text1中，9.求所有的3位正整數(shù)除以99的商和余數(shù)，并輸出。
10.編寫程序計算：s=1+1/2!+1/3!+?+1/n!,說明：在表單中有一個文本框控件：Text1,用來接收n的值，有一個標(biāo)簽控件：Label1，用來顯示S的值，試編寫表單的單擊事件，實現(xiàn)計算與顯示功能，只要求寫出事件的主要代碼，事件過程的起始語句和結(jié)束語句可略去。11.編寫程序計算：S=1X2＋2X3＋?＋NX(N+1)。0
12.編寫程序計算多項式：1^1+2^2+3^3+?+10^10 0
13.編寫程序在表單上顯示出：1～15之間的偶數(shù) 0
14.編寫程序在表單上顯示出：5/6+4/5+3/4+2/3+1/2 15.假設(shè)表單與第二題中的表文件zgqk.dbf 建立了數(shù)據(jù)環(huán)境，在其中按姓名查找職工情況，找到后將其情況在表單上顯示，否則在信息框中顯示“查無此人”
第二篇：VFP程序題
VFP程序題 第一套題
一、運(yùn)行結(jié)果題
1、以下程序運(yùn)行結(jié)果是
SET TALK OFF
CLEAR
A = 5
B = 12
C = 18 IF MAX(A , B)< C
? MAX(A, B)
ELSE IF MIN(A , B)< C
? C
ELSE
? MIN(A , B)
ENDIF
ENDIF SET TALK ON
RETURN
2、以下程序運(yùn)行結(jié)果是
SET TALK OFF CLEAR USE STCJ
DO WHILE ,NOT, EOF()
REPLACE 總分 WITH 高數(shù) + 計算機(jī) + 英語 SKIP
ENDDO GO BOTTOM
? 學(xué)號，總分
USE
RETURN
3、以下程序運(yùn)行結(jié)果是
SET TALK OFF
SET HEADINGS OFF SELECT 2 USE STCJ
INDEX ON 編號
TO GZ21
REPLACE ALL 總分
WITH 高數(shù) + 計算機(jī) + 英語 SELECT 1 USE STDA
SET RELATION TO 編號
INTO B DISPLAY FIELDS 姓名，B.總分
FOR 四級通過
OFF CLOSE ALL RETURN
4、以下程序運(yùn)行結(jié)果是
SET TALK OFF SET SAFETY OFF USE STDA INDEX ON 民族
TO XBSY TOTAL ON 民族
TO GZHZ USE GZHZ COUNT TO N ? N
SET SAFETY ON SET
TALK
ON RETURN
5、以下程序運(yùn)行結(jié)果是
SET TALK OFF SET DELETED ON USE STDA DELETE FOR 性別 = “ 男 ” COUNT TO A SET DELETED OFF COUNT TO B DELETE ALL PACK COUNT TO C ? A , B , C SET TALK ON RETURN
6、以下程序運(yùn)行結(jié)果是
SET TALK OFF USE STDA
INDEX ON 獎學(xué)金
TO GZSY SKIP 2
? 姓名，獎學(xué)金 USE
SET TALK ON RETURN
7、以下程序運(yùn)行結(jié)果是
SET TALK OFF
SET PROCEDURN TO SP S = 0
DO SP1 WITH 5 , S ? S
SET TPROCEDURE
TO RETURN * SP PRG PROCEDURE
PARAMETERS X , Y N = 1 Y = 1
DO WHILE N < X
Y = Y + N
N = N + 1
ENDDO
RETURN
8、以下程序運(yùn)行結(jié)果是
SET TALK OFF DIMENSION X(2 ,2)X = 5 FOR I = 1 TO 2 FOR J = 1 TO 2 IF I = J
X(I , J)ENDIF ?? X(I , J)ENDFOR ENDFOR SET TALK ON RETURN
二、完善程序
1、下列程序計算機(jī) S =1！+ 2！+3！+4！+5！中，填空完成程序。
S = 0 FOR N = 1
TO 5
FOR I = 1 TO N
P = P * I
ENDFOR
ENDFOR
? “SUN =” , S
2、用下列程序找出所有的水仙花數(shù)，所謂水仙花數(shù)，是指這樣一
個三位數(shù)，其各位數(shù)字的立方和等于該數(shù)本身，如 153 = 1^3 +5^3 +3^3，對以下程序填空完成該功能。FOR N = 100 TO 999
A = INT(N / 100)
B =
C = N – INT(N / 10)* 10 IF N = A^3 +B^3 +C^3
? N
ENDIF
ENDFOR
RETURN
3、將新表 DB2.DBF 文件中學(xué)號重復(fù)的記錄刪掉（只保留一個）SET TALK OFF SET SAFETY
OFF
USE STDA
COPY TO DB2 USE DB2
INDEX ON 學(xué)號
TO XH DO WHILE.NOT.EOF()XH = 學(xué)號 SKIP
DELETE ENDIF ENDDO
CLEAR ALL
4、顯示STDA.DBF 文件中男同學(xué)的記錄
SET
TALK
OFF
SET
HEADING
OFF
USE
STDA
DO
WHILE
.NOT.EOF()
IF
ENDIF
DISPLAY
WAIT
ENDDO
USE
SET
TALK ON
RETURN
5、將STDA.DBF 表中未通過英語四級考試學(xué)生的將賞金取消，通過者獎學(xué)金加50元，并顯示姓名和獎學(xué)金額。SET TALK OFF
CLEAR USE STDA DO WHILE.NOT.EOF()IF.NOT.四級通過
REPLACE 獎學(xué)
WITH 0
ELSE
? 姓名，獎學(xué)金
ENDIF
SKIP
ENDDO
USE
SET TALK ON
RETURN
6、按學(xué)號查詢成績
SET TALK OFF CLEAR SELECT 1 USE STDA
INDEX ON 學(xué)號 TO IXH SELECT 2 USE STCJ
INDEX ON 學(xué)號 TO ICJ
ACCEPT “請輸入查詢學(xué)號：” TO XH SEEK
XH IF
FOUND()
DISPLAY
學(xué)號，A->姓名，總分
ELSE
? “ 查無此人！”
ENDIF
USE RETURN
7、請閱讀下列判斷一個自然數(shù)是否為質(zhì)數(shù)的程序，并將程序填寫完整。
SET
TALK
OFF
INPUT
“ 請輸入一個大于1 的自然數(shù)：”
TO N
K = 0
J = 2
DO
WHILE
J < N IF MOD(N , J)
J = J +1
LOOP
ELSE
K = 1
EXIT
ENDIF
ENDDO
IF
K = 0
?
+ “ 素數(shù)”
ENDIF
? “ 再見！” SET TALK ON
RETURN
8、修改數(shù)據(jù)表文件 STDA.DBF 中指定同學(xué)的四級通過情況。SET TALK OFF USE STDA
INDEX TO ISY
DO
WHILE.T.CLEAR
ACCEPT “ 輸入待學(xué)生的姓名” TO XM SEEK XM
IF
FOUND()
@ 10 , 10 SAY “ 修改” + XM + “ 的四級通過情況：” GET 四級通過
WAIT
“ 繼續(xù)修改？（Y / N）”
TO N IF
ENDIF ENDDO USE RETURN
9、將數(shù)據(jù)表文件STDA.DBF 中的第三條記錄與第四條記錄的內(nèi)容互換，并顯示第三條記錄。
SET
TALK
OFF
CLEAR
USE
STDA
GO
SCATTER
TO
A
GO
SCATTER
TO
B
GO
GATHER
FROM
B
DISPLAY
GO
USE
SET
TALK
ON
RETURN
10、如下程序根據(jù)鍵入的學(xué)號使用SQL SELECT 語句顯示學(xué)生的學(xué)號、姓名和平均成績。請在下劃線處填寫適當(dāng)?shù)膬?nèi)容，使程序能正確的運(yùn)行。
DO
WHILE.T.CLEAR
ACCEPT
“請輸入學(xué)號：” TO KEYNO
SELECT
STDA.學(xué)號，姓名，（高數(shù) +計算機(jī) +英語）/3 AS平均成績;FROM STDA.STCJ WHERE
WAIT
“如果退出，請按【Y】鍵！”
TO KEY
IF
UPPER(KEY)= “ Y”
ENDIF ENDDO USE RETURN
三、程序改錯題
1、在STDA.DBF 中，查詢某人英語四級通過情況，若通過了，則授予學(xué)位，否則不授予學(xué)位。(1)SET
TALK OFF(2)USE
STDA
(3)ACCEPT “請輸入姓名：”
TO XM(4)SEEK
FOR 姓名 = XM(5)IF
EOF()
(6)? “查無此人！”(7)RETURN(8)ENDIF
(9)IF
英語四級通過
(10)?姓名 + “英語四級通過，授予學(xué)位”(11)ELSE
(12)?姓名 + “英語四級沒通過，不授予學(xué)位”(13)ENDIF(14)USE
(15)SET
TALK
ON(16)RETURN 錯誤的行是 改為：
2、顯示 STCJ.DBF 中總分不低于190分的所有學(xué)生的姓名和總分字段的值。
(1)
SET
TALK OFF
(2)
SET
HEAD
OFF
(3)
USE
STCJ
(4)
DO
WHILE
RECNO()< = RECCOUNT()
(5)
REPL
總分
WITH
高數(shù) +計算機(jī) +英語
(6)
IF
總分> = 190
(7)
DISP
學(xué)號，總分 OFF
(8)
ENDIF
(9)
LOOP
(10)
ENDDO
(11)
RETURN 錯誤的行是： 改為：
3、在STDA.DBF 中，快速查詢性別為“男”，“09/12/92”出生的人
(1)
SET
TALK OFF
(2)
USE
STDA
(3)
INDEX
ON 性別 +入學(xué)時間
TO LKL
(4)
SEEK “男” + “09/12/92”
(5)
IF
.NOT.EOF()
(6)
DISPLAY
(7)
ELSE
(8)
? “查無此人！”
(9)
ENDIF
(10)
USE
(11)
SET
TALK ON
(12)
RETURN 錯誤的行是： 改為：
4、求出 STCJ 表中總成績的最大值和最小值。(1)
SET
TALK
OFF
(2)
USE
STCJ
(3)
DO
WHILE
.NOT.EOF()
(4)
REPLACE
總分
WITH 高數(shù) +計算機(jī)+英語
(5)
SKIP
(6)
ENDDO
(7)
GO
TOP
(8)
STORE
總分
TO MAX , MIN
(9)
DO
WHILE
.NOT.EOF()
(10)
IF MAX >總分
(11)
MAX = 總分
(12)
ENDIF
(13)
IF MIN <總分
(14)
MIN = 總分
(15)
ENDIF
(16)
SKIP
(17)
ENDDO
(18)
? “最高分：” ,MAX ,”最低分：” , MIN
(19)SET
TALK
ON
(20)RETURN 錯誤的行是： 改為：
第九套題
一、完善程序題
1、將“職工”表中的數(shù)據(jù)按工資降序排列后生成新表，程序如下：
CLOSE
ALL
SET
TALK
OFF CLEAR USE 職工
TO 職工1 ON
工資/D USE 職工1 DISPLAY ALL USE
RETURN
2、在“職工”表中查找且顯示“孫大鵬”的信息，程序如下：
SET TALK OFF CLEAR USE 職工 LOCATE
IF
FOUND()DISPLAY ENDIF USE
3、顯示“職工”表中女職工的工資和，程序如下：
SET
TALK
OFF CLEAR SELECT
FROM 職工 RETURN
1、設(shè)計一個查詢表單BD.SCX,其界面如圖所示，其中文本框控件
名為TEXT1，表格控件名為GRID1。當(dāng)在其中輸入職工姓名并單擊“查詢”按鈕時，將下邊的表格內(nèi)顯示該職工的信息。“查詢”按鈕的Click 事件代碼應(yīng)如下：
THISFORM.GRID1.RECORDSOURCETYPE=4
THISFORM.GRID1.FRCORDSOURCE=”SELECT
* FORM 職工
WHERE
姓名
= = ”
5、將“職工”表中第6條記錄的“出生日期”改為“12/12/1972”,程序如下：
SET TALK OFF CLEAR USE 職工 SKIP 5
出生日期
WITH {^1972/12/12} DISPLAY USE
RETURN
第三篇：VFP讀程序選擇題
讀下列程序： CLEAR STORE 1 TO I, J DO WHILE J<5 @ I , J SAY “*” J=J+1 ENDDO CANCEL（1）屏幕顯示的起始坐標(biāo)為___D___。A)1, 5 B)i, j C)0, 0 2）程序執(zhí)行后，i,j的值分別為__A____A)1, 5 B)i , j C)0, 0 設(shè)表文件XS.DBF有10條記錄，程序如下： USE XS GO BOTTOM N=3 DO WHILE N>=1 DISPLAY SKIP-1 WAIT N=N-1 ENDDO USE RETURN（1）程序的功能是（D）
（A）顯示所有記錄（B）分別顯示前3個記錄（C）顯示第3個記錄（2）退出循環(huán)后，N的值是（A）（A）0（B）1（C）3 第9題、閱讀下面程序 INPUT“輸入年齡” TO NL DO CASE CASA NL<7 ？“童年” CASE NL<18 ？“少年” CASE NL>18 ？“少年” CASE NL>=60 ？“老年” CASE NL>=35 ？“中年” OTHER ？“青年” ENDCASE 由于設(shè)計不當(dāng)，本程序運(yùn)行結(jié)果不對
(1)運(yùn)行時輸入 11，輸出的結(jié)果是：B A)童年 B)少年 C)青年 D)(2)運(yùn)行時輸入 36，輸出的結(jié)果是：B A)中年 B)少年 C)青年 D)（D）分別顯示后三個（D）4 老年 老年
第10題、DIME A(6)S=0 FOR K=1 TO 6 INPUT“請輸入數(shù)據(jù)：” TO A(K)S=S+A(K)ENDFOR AV=S/6 R=0 FOR K=1 TO 6 IF A(K)>AV ??A(K)R=R+1 ENDIF ENDFOR ?R(1)若輸入的數(shù)據(jù)分別是：1 2 3 4 5 6，則顯示的是(D)A)1 2 3 B)2 3 4 C)3 4 5 D)4(2)？R的值是多少(B)A)2 B)3 C)4 D)5 第11題、讀下列程序：
*MAIPROGRAM CLEA CLEAR ALL X1=“工資-100” Y1=200 Z1=100 DO SUB1 ? 'A處:',X1,Y1,Z1 X1=1 Y1=2 Z1=3 DO SUB2 WITH X1,Z1+10,10 ? 'C處:',X1,Y1,Z1 CANCEL PROCEDURE SUB1 PRIV Z1 Z1=10 X1=300 Y1=2 ? 'B處:',X1,Y1,Z1 Z1=1 RETURN
PROCEDURE SUB1 PRIV Z1 Z1=10 X1=300 Y1=2 ? 'B處:',X1,Y1,Z1 Z1=1 RETURN
PROCEDURE SUB2 PARA X1,Z1,Y1 X1=X1+10 Y1=Y1+10 X1=X1+10 RETURN（1）程序顯示A處的X1，Y1，Z1值分別為___B___。
A)300 200 100 B)300 2 100 C)300 200 10 D)300 2 10（2）程序顯示B處的的X1，Y1，Z1值分別為___D___。
A)300 200 10 B)300 200 100 C)300 2 100 D)300 2 10（3）程序顯示C處的的X1，Y1，Z1值分別為___D___。
A)21 20 30 B)21 20 3 C)21 2 30 D)21 2 3
二、讀程序選擇_1(本大題共4道小題，每小題分值6分，共24分。)
第7題、有學(xué)生信息表XS.DBF文件，其結(jié)構(gòu)和記錄如下：
記錄號 學(xué)號 姓名 年齡 性別 入學(xué)日期 出生地 1 Y001 李明 21 男 09/01/99 重慶 2 Y002 林雨 20 女 09/01/99 成都 現(xiàn)有一程序段：
DIMENSION X(3)USE XS SCATTER TO X X(1)=“A003” X(2)=“曾真” X(3)=19 APPEND BLANK GATHER FROM X LIST RETURN（1）運(yùn)行結(jié)果X數(shù)組的數(shù)據(jù)元素的個數(shù)是___B___。A)0個 B)3個 C)6個（2）LIST顯示記錄中，最后一條記錄的姓名字段值是__D____。
A)字段值為空 B)林雨 C)李明 D)曾真
第8題、讀下列程序： Clear Store 1 To I, A, B Do While I<=3
個 D)1 Do Prog1 ??“P(”+Str(I, 1)+“)=”+Str(A, 2)+“,” I=I+1 Enddo ??“B=”+Str(B, 2)Return Procedure Prog1 A=A*2 B=B+A Return(1)程序的運(yùn)行結(jié)果為（D）。
（A）P（1）=2，P（2）=3，P（3）=4，b=15（B）P（1）=2，P（2）=4，P（3）=6，b=8（C）P（1）=2，P（2）=4，P（3）=6，b=18（D）P（1）=2，P（2）=4，P（3）=8，b=15（2）變量i的最終結(jié)果是(C)(A)3(B)5(C)4(D)6
第9題、閱讀下面程序： CLEAR OPEN DATABASE emplorer USE compen SCAN FOR RECNO()<=10 IF 姓名='李強(qiáng)' LOOP ENDIF ?姓名，實發(fā)工資 ENDSCAN USE CLOSE DATABASE（1）compen是：（D）A．自由表 B．?dāng)?shù)據(jù)庫表
Ｃ．?dāng)?shù)據(jù)庫 Ｄ．可能是自由表，也可能是（2）若數(shù)據(jù)庫有50條記錄，則程序的功能是：（D）A前10條記錄中搜索“李強(qiáng)”的記錄 B列出前10條記錄
C.每10條記錄一屏顯示記錄，但不顯示“李強(qiáng)”的記錄 D.列出前１０條記錄，但是不顯示“李強(qiáng)”的 第10題、閱讀下面程序： CLEA clear store 1 to i store 2 to j,k do a1 ?“i=”+str(i,2)+“ j=”+str(j,2)+“ k=”+str(k,2)proc a1 i=3*i+2 private i i=2*j+k ?“i=”+str(i,2)+“ j=”+str(j,2)+“ k=”+str(k,2)retu RETURN(1)主程序中“do a1”后的顯示語句顯示結(jié)果為：（C）
（A）i=6 j=7 k=2（B）i=5 j=7 k=2（C）i=5 j=2 k=2（D）i=6 j=8 k(2)過程a1中的顯示語句將顯示：（D）
（A）i=6 j=7 k=2（B）i=5 j=7 k=2（C）i=5 j=8 k=2（D）i=6 j=2 k=第7題、CLEAR CLOSE ALL USE 學(xué)生 COUNT TO X GO TOP FOR I=1 TO X IF 性別='男' DISP ENDIF SKIP ENDFOR CLOSE ALL(1)該程序的功能是：(C)A)顯示一條男同學(xué)的記錄 B)顯示一條女同學(xué)的記錄 C)顯示所有男同學(xué)的記錄 D)顯示所有女同學(xué)的記錄
(2)程序退出循環(huán)的條件是(C)A)記錄指針指向文件尾 B)記錄指針指向文件頭 C)循環(huán)次數(shù)大于表中記錄條數(shù) D)循環(huán)次數(shù)小于表中記錄條數(shù) 第8題、閱讀下面程序： 有圖書數(shù)據(jù)表TS和訂書單表DSD如下： TS：（書號：C3，單價：N6.2 書名C10）
書號 單價 書名
001 12.0 計算機(jī)應(yīng)用 002 10.0 化學(xué)
003 15.0 分析化學(xué)
DSD：（班級：C6，書號：C3，數(shù)量：N3.0, 款項：N7.2）
記錄號 班級 書號 數(shù)量 款項 1 化95.4 001 47 0.00 2 數(shù)94.3 002 74 0.00 3 物96.4 003 67 0.00 4 生95.4 002 47 0.00 5 地94.3 001 67 0.00 6 物94.3 002 67 0.00 7 數(shù)94.3 001 74 0.00 8 化95.4 003 47 0.00 9 數(shù)94.3 003 74 0.00 程序： CLEA ALL SELE 1 USE Ts ALIAS SHU INDEX on 書號 tag TSSH SELE 2 USE dsd alias shdn SET RELA TO 書號 INTO SHU REPL ALL 款項 WITH數(shù)量＊shu.單價 LIST DO WHIL.T.ACCE “輸入0退出” TO BJ IF BJ ='0' EXIT ENDI ACCE“輸入書號” TO SH LOCAT FOR 書號=SH DISP ？“書號”+書號+str(款項)+“元?！? ENDD clea all RETURN（1）do while循環(huán)中l(wèi)ocate操作的表是：（B）（A）數(shù)據(jù)表TS（B）數(shù)據(jù)表DSD（C）系統(tǒng)臨時表aaa（D）系統(tǒng)臨時表cursor aaa（2）運(yùn)行時輸入書號“003”，則輸出為：_C（A）分別顯示書號為“003”的所有款項（B）顯示書號為“003”的所有款項之和（C）顯示書號為“003”的第一條記錄的款（D）輸入錯誤，沒有輸出
第9題、讀下列程序： &&MAIN.PRG PUBLIC X，Y SET PROC TO KK X=20 Y=50 DO A1 ?X,Y SET PROC TO RETU *過程文件kk.prg Proc a1 Private x X=30 Local y Do a2 ?x,y Return Proc a2 X=“kkk” Y=“mmm” Return 第一次顯示的X，Y的值是(B)A)KKK 30 B)KKK.F.C)KKK 50 D)30.F.第二次顯示的X，Y的值是(B)A)20 50 B)20 MMM C)30 50 D)30 MMM 第10題、讀程序： CLEAR CLOSE ALL SELE 2 USE CJ INDEX ON 學(xué)號 TO XH SELE 1 USE XS SET RELATION TO 學(xué)號 INTO B SET SKIP TO B replace b.成績 with b.成績*1.1 for a.姓名=“王小平”(1)在以上程序中(A)A)表CJ是子表 B)表XS是子表 C)表XS是主表也可以是子表 D)無法確(2)該程序的功能是B A)修改王小平的成績?yōu)?.1分 B)修改王小平的成績?yōu)樵煽兊?.1C)修改字段名成績?yōu)槌煽?.1 D)顯示王小平的記錄
第11題、有以下三段程序
*Main.PRG CLEA K1=10 K2=20 DO SuB ?K1,K2 &&(1)DO Sub1 With K2+10,K1 ?K1,K2 &&(3)RETU PROC SUB PRIV K1 K1=K2+1 K2=K1+1 RETU PROC Sub1 PARA Xl,x2 X1=10 X2=20 X1=STR(X1,2)+STR(X2,2)X2=X1+STR(X2,2)?X1,X2 &&(2)RETU(1)程序運(yùn)行到(1)處顯示的結(jié)果是(D)(A)10 20 b)20 30(C)10 30(D)l0 2(2)程序運(yùn)行到(2)處顯示的結(jié)果是(B)A)1020 102010(B)1020 102020(C)1010 101010(D)1020 101010(3)程序運(yùn)行到(3)處顯示的結(jié)果是(D)(A)101010 22(B)102020 30(C)102020 40(D)102020 22 第7題、I=0 DO WHILE I<10 IF INT(I/2)=I/2 I=I+3 ENDIF I=I+2 ENDDO ?I RETU（1）上述程序執(zhí)行后，共循環(huán)了__C____次。A)10 B)5 C)4 D)死循環(huán)（2）上述程序執(zhí)行后，屏幕顯示為___B___。A)10 B)11 C)9 D)13
第7題、讀下列程序： k=1 DO WHILE k<=21 k=k+2 ?STR(k,2)IF k=9 EXIT ENDIF ENDD（1）程序循環(huán)了多少次__A____。A)4 B)3 C)6 D)5（2）程序執(zhí)行的結(jié)果是___C___。A)1 3 5 7 B)2 4 6 8 C)3 5 7 9 第8題、讀下列程序： CLEAR FOR K=1 TO 4 A=“$” FOR J=1 TO k A=A+STR(K,1)ENDFOR @K,5 SAY A ENDFOR WAIT RETURN（1）程序運(yùn)行的結(jié)果是___B___。
A)$1 B)$1 $22 $22 $122333 $333 $4444 C)$122333 D)$（2）程序運(yùn)行到WAIT處，變量K與J的值分別是___D___A)1, 1 B)4, 4 C)4, 1 第9題、如下程序顯示的結(jié)果是()。s=1 i=0 do while i<8 s=s+i i=i+2 enddo ?s(1)S的值為(D)A)10 B)11 C)12 D)13(2)程序循環(huán)次數(shù)為：(B)A)3 B)4 C)5 D)6
第10題、閱讀下面程序： CLEAR OPEN DATABASE emplorer USE compen SCAN FOR RECNO()<=10 IF 姓名='李強(qiáng)' LOOP ENDIF ?姓名，實發(fā)工資 ENDSCAN USE CLOSE DATABASE（1）compen是：（D）A．自由表 B．?dāng)?shù)據(jù)庫表
C．?dāng)?shù)據(jù)庫 D.可能是自由表，也可能是數(shù)據(jù)（2）若數(shù)據(jù)庫有50條記錄，則程序的功能是：（D）
A． 前10條記錄中搜索“李強(qiáng)”的記錄 B．列出前10條記錄 C.每10條記錄一屏顯示記李強(qiáng)“的記錄 D.列出前１０條記錄，但是不顯示”李強(qiáng)“的記錄
第7題、讀下列程序： USE GZ Y='Y' DO WHILE Y$'Yy' CLEA ACCE '請輸入姓名' TO XM INDEX ON 職稱 TO ZX FOR 姓名=ALLT（XM）L=3 M=10 DO WHILE.NOT.EOF()@ L,M GET 姓名
@ L,M+20 GET 基本工資 L=L+2 SKIP ENDDO WAIT '下一個（Y/N）？' TO Y ENDDO USE RETU（1）這個程序的功能是___B___。A)輸入 B)查詢（C）修改（D）統(tǒng)計（2）程序中變量Y的作用是___A___。
A)控制整個程序循環(huán) B)把指針指向下一條記錄 C)等待 D)沒有作用 第9題、有如下程序段： DO CASE CASE X>100 ?? ”1“ CASE X>200 ?? ”2“ OTHERWISE ?? ”3“ ENDCASE(1)若在X=300的情況下執(zhí)行這個程序段，屏幕上將顯示A A）1 B）2 C）12 D）3(2)輸入下列什么數(shù)據(jù)時，屏幕上將顯示字符 3 A A）100 B）200 C）300 D）400 第7題、有如下教師授課表： 教師號 主講課程 t1101 數(shù)據(jù)結(jié)構(gòu) t1102 C語言 t1103 網(wǎng)頁制作 t1104 計算機(jī)網(wǎng)絡(luò) t1105 計算機(jī)網(wǎng)絡(luò) t1105 C語言 t1105 數(shù)據(jù)庫
下列程序段的輸出結(jié)果是 CLOSE DATA a=0 USE教師 GO TOP DO WHILE.NOT.EOF()IF主講課程＝”數(shù)據(jù)結(jié)構(gòu)“.OR.主講課程＝”C語言“ a=a+1 ELSE DISP ENDIF SKIP ENDDO ?a 1 A A)3 B)4 C)5 D)6(2)命令DISP一共顯示的記錄條數(shù)是：A)3 B)4 C)5 D)6
第8題、讀下列程序并進(jìn)行判斷。S=0 I=1 Do While I<4 Accept ”請輸入字符串: “ To X If ”A“ $ X S=S+1 Endif I=I+1 Enddo ?S Return(1)運(yùn)行時輸入 ”abcd“, ”ABCD“, ”aBcD “, 輸出 S的值是(B)(A)2(B)1(C)3((2)運(yùn)行時輸入”ABCD“, ”ABcd“, ”cdab“, 輸出 S的值是(C)(A)1(B)4(C)2(D)第7題、如下程序顯示的結(jié)果是()。s=1 i=0 do while i<8 s=s+i i=i+2 enddo ?s(1)S的值為(D)A)10 B)11 C)12 D)13(2)程序循環(huán)次數(shù)為：(B)A)3 B)4 C)5 D)6
第8題、CLEAR N=10 FOR J=1 TO 3 ?STR(J,2)+')' ??SPACE(6*J)FOR K=1 TO 3-J+1 ?? STR(J*K,6)N=N+2 ENDFOR ? ENDFOR RETURN（1）輸出的圖形為：（C）
A.1)1 B.1)1 2 3 C.1)1 2 3 D.1)1 2 3 2)2 4 2)2 4 2)2 4 2)4 6 8 3)3 6 9 3)3 3)3 3)9 12 15（2）程序結(jié)束時，N的值是：（A）A.22 B.9 C.10 D.15 第9題、設(shè)表文件XS.DBF有10條記錄，程序如下： USE XS GO BOTTOM N=3 DO WHILE N>=1 DISPLAY SKIP-1 WAIT N=N-1
ENDDO USE RETURN（1）程序的功能是（D）
（A）顯示所有記錄（B）分別顯示前3個記錄（C）顯示第3個記錄（D）分別顯示后三（2）退出循環(huán)后，N的值是（A）（A）0（B）1（C）3（D）4
讀下列程序：
USE GZ Y='Y' DO WHILE Y$'Yy' CLEA ACCE '請輸入姓名' TO XM INDEX ON 職稱 TO ZX FOR 姓名=ALLT（XM）
L=3 M=10 DO WHILE.NOT.EOF()@ L,M GET 姓名 @ L,M+20 GET 基本工 L=L+2 SKIP ENDDO WAIT '下一個（Y/N）？' TO Y ENDDO USE RETU（1）這個程序的功能是___B___。A)輸入 B)查詢（C）修改（D）統(tǒng)計（2）程序中變量Y的作用是___A___。
A)控制整個程序循環(huán) B)把指針指向下一條 錄C)等待 D)沒有作用
第8題、已知proc.prg程序清單如下：（12）n=10 t=15 S=1 M=0 DO proc_1 WITH n M=M+S DO proc_1 WITH T M=M+S ?M CANC proc_1.prg程序清單如下： PARAMETERS a S=1 FOR K=1 TO A S=S*K ENDFOR RETURN(1)程序proc.prg的功能是(C)A）輸出N 和T的乘積 B）輸出N 和T的階乘 C）輸出N 和T的階乘之和D）輸出N 和T的值(2)在程序中變量S是(D)A)全局變量 B)私有變量 C)本地變量 D)局部變量 讀程序 clear use 學(xué)生
locate for 入?？偡?=580 do while.not.eof()disp continu enddo ?'結(jié)束' Cancel(1)該程序的功能是：(B)A)顯示表中一條入總分大于580分的學(xué)生記錄 B)顯示表中所有入?？偡执笥?80分的學(xué)生記錄C)顯示表中一條學(xué)生記錄D)顯示表中所有的學(xué)生記錄
(2)循環(huán)結(jié)束后，表中記錄指針指向(B)A)文件頭 B)文件尾 C)末記錄 D)首記錄
USE XSDA N=1 XH=”200201“ DO WHILE N<=120 APPEND BLANK REPL 學(xué)號 WITH STR(VAL(XH)+N,6)N=N+1 ENDDO USE CANCEL（1）上述程序數(shù)據(jù)庫中，”學(xué)號“這個字段是__A___A)字符型 B)數(shù)值型 C)日期型 D（2）該程序的功能是____D__。
A)修改表文件的字段 B)修改表文件原有記錄中學(xué)號字段的值 C)增加表文件的字段 D)追加新記錄并填充學(xué)號字段的值
（3）程序運(yùn)行到最后，變量N的值是___C___。A)1 B)120 C)121 D)0 現(xiàn)有表文件STUD.DBF，表中有：學(xué)號（C/6），姓名（C/8），性別（C/2），出生日期（D/8）等字段干條，根據(jù)已有的表文件運(yùn)行下面程序： SET TALK OFF CLEAR USE STUD INDEX ON TRIM(姓名)TO ISTUD S=.T.DO WHILE S XM=SPACE(8)ACCEPT ‘請輸入姓名:’ TO XM IF LEN(TRIM(XM))=0 EXIT ENDIF SEEK XM IF.NOT.EOF()@3,10 SAY “學(xué)號” @3,20 SAY 學(xué)號
@5,5 SAY “姓名”+姓名 @7,5 SAY “性別”+性別 @9,5 SAY “出生日期:” @ 9,20 SAY 出生日期 ELSE @20,3 SAY “沒有找到該姓名的學(xué)生” S=.F.ENDIF WAIT ENDDO CANCEL（1）程序中的索引關(guān)鍵字和索引文件名分別為__B____。
A)學(xué)號, STUD.DBF B)姓名,ISTUD.DBF C）學(xué)號, ISTUD.IDX D)姓名,ISTUD.IDX（2）程序中用SEEK進(jìn)行___C___查找。A)順序 B)條件 C)索引 D)范圍（3）執(zhí)行EXIT命令的條件是____C___。
A）輸入姓名后直接按
C)輸入姓名，又按空格鍵，再按
A=“Abcde” N=LEN(A)I=1 DO WHILE I<=N B=SUBSTR(A,I,1)IF ISLOW(B)B=CHR(ASC(B)-32)A=STUFF(A,I,1,B)ENDIF I=I+2 ENDDO ?A RETURN（1）程序運(yùn)行的結(jié)果是___D___。A)abcde B)ABCDE C)abCdE D)AbCdE（2）程序循環(huán)的次數(shù)是___C___。A)5 B)4 C)3 D)6
讀下列程序： USE 學(xué)生 I=1 FILEN=”” DO WHILE I<=9 FILEN=”S”+STR(I,1)+”.DBF” COPY TO &FILEN I=I+1 ENDDO USE（1）程序運(yùn)行的結(jié)果是___C___。A)無結(jié)果 B)拷貝了1個文件C)拷貝了9個文件
了10個文件
（2）拷貝所產(chǎn)生的新文件名是___D___。A)S.DBF B)FILEN C)&FILEN D)S1.DBF~S9.D
有如下程序段： USE CLASS LOCATE FOR 政治面目=”團(tuán)員“ DO WHILE FOUND()DISPLAY CONTINUE ENDDO該程序的功能是：C
A)顯示團(tuán)員的一條記錄 B)顯示非團(tuán)員的一條記錄C)顯示團(tuán)員的所有記錄D)顯示非團(tuán)員的所程序退出循環(huán)的條件是A
A)FOUND()函數(shù)返回值為B)FOUND()函數(shù)返回值為假 C)與 FOUND()函數(shù)的值無關(guān)D)EOF()函數(shù)返回值為真
有如下程序段： DO CASE CASE X>100 ?? ”1“ CASE X>200 ?? ”2“ OTHERWISE ?? ”3" ENDCASE(1)若在X=300的情況下執(zhí)行這個程序段，屏幕上將顯示A A）1 B）2 C）12 D）3(2)輸入下列什么數(shù)據(jù)時，屏幕上將顯示字符 3 A A）100 B）200 C）300 D）400
讀程序
1、CLEAR M=0 FOR X=1 TO 10 IF MOD(X,3)=0 M=M+X ENDIF ENDFOR ? M RETURN（1）該程序的功能是：求1到10之間B A.能被3整除數(shù)的個數(shù) B.能被3整除數(shù)C.不能被3整除數(shù)的個數(shù) D.不能被3整除數(shù)的和
（2）該程序執(zhí)行的結(jié)果是：C A.3 B.10 C.18 D.37
&&MAIN.PRG &&P1.PRG X1=1 PARA W1,W2 X2=2 PRIVATE W1 DO P1 WITH X1,X2 W1=W1*3 ?’X1=’+STR(X1,1)W2=W2*4
??’X2=’+STR(X2,1)RETURN X1=1 X2=2 DO P1 WITH X1,X1+X2 ?’X1=’+STR(X1,1)??’X2=’+STR(X2,1)
RETURN（1）第一次顯示X1，X2的值是B A 1 , 8 B 3 , 8 C.1 , 1 D.8 , 8（2）第二次顯示X1，X2的值是C A 1 , 2 B 3 , 1 C 3 , 2 D.1 , 3
CLEAR DIME A（20）P=1 FOR N=1 TO 20 INPUT“請輸入數(shù)據(jù)：“ TO A(N)ENDFOR FOR L=1 TO 19 FOR M=L+1 TO 20 IF A(L)<=A(M)T=A(L)A(L)=A(M)A(M)=T ENDIF ENDFOR ??A(I)ENDFOR 程序完成的功能是將20個數(shù)組元素值A(chǔ) A 排序后按從大到小的順序輸出 B 排序后按從小到大的順序輸出C． 倒序輸出 D.按自然順序輸出
將DIME A（20）改成 DIME A（10）后，B A． 出現(xiàn)“數(shù)組重復(fù)定義”的錯誤 B． 出現(xiàn)“數(shù)組下標(biāo)越界”的錯誤 C． 程序功能不變，只是輸出10個數(shù)組元素值 D． 程序功能不變，仍然輸出20個數(shù)組元素值
CLEAR CLOSE ALL USE 學(xué)生 SCAN IF性別=’男’ DISP ENDIF N=N+1 ENDSCAN ？N CLOSE ALL CANC(1)D A)該程序顯示一條男同學(xué)的記錄 B)該程序顯示一條女同學(xué)的記錄 C)該程序顯示全班同學(xué)的記錄 D))該程序顯示全班男同學(xué)的記錄(2)命令？N 顯示的是C A)男同學(xué)的記錄個數(shù) B)女同學(xué)的記錄個數(shù) C)全班同學(xué)的記錄個數(shù) D)無法確定
USE SB SORT TO RQX ON 啟用日期/D FIELDS 編號，名稱，啟用日期 FOR NOT 主要設(shè)備 USE RQX LIST USE SB SORT TO BMX ON 部門/D，價格 FOR 主要設(shè)備 USE BMX LIST RETURN（1）程序執(zhí)行到第一個LIST命令時，輸出結(jié)果是C
（A）將主要設(shè)備按編號，名稱，啟用日期分別升序排序。（B）將主要設(shè)備按編號，名稱，啟用日期分別降序排序。（C）將非主要設(shè)備按啟用日期降序排序。（D）將非主要設(shè)備按啟用日期升序排序。
（2）程序執(zhí)行到第二個LIST命令時，輸出結(jié)果是B
（A）將主要設(shè)備按部門升序排序，當(dāng)部門相同時，按價格降序排序。（B）將主要設(shè)備按部門降序排序，當(dāng)部門相同時，按價格升序排序。（C）將主要設(shè)備按部門降序排序，當(dāng)部門相同時，按價格升序排序。（D）將主要設(shè)備按部門升序排序，當(dāng)部門相同時，按價格降序排序。
共有3個數(shù)據(jù)庫文件TB1.DBF, TB2.DBF, TB3.DBF,下面程序功能是把每個庫文件的末尾記錄刪掉。序，將程序填寫完整。N=1 DO WHILE N<=3 TB=“TB“+STR(N，1)USE &TB GO BOTTOM DELETE PACK N=N+1 ENDDO 該程序的功能是B（A）將數(shù)據(jù)表的末記錄作物理刪除（B）將數(shù)據(jù)表的末記錄作邏輯刪除（C）將數(shù)據(jù)表的首記錄作物理刪除（D）將數(shù)據(jù)表的首記錄作邏輯刪除
該程序一共刪除了()表中的記錄C（A）1個（B）2個（C）3個
（D）4個
閱讀下面程序： 有圖書數(shù)據(jù)表TS和訂書單表DSD如下： TS：（書號：C3，單價：N6.2 書名C10）
書號 單價 書名
001 12.0 計算機(jī)應(yīng)用 002 10.0 化學(xué)
003 15.0 分析化學(xué) DSD：（班級：C6，書號：C3，數(shù)量：N3.0, 款項：N7.2）
記錄號 班級 書號 數(shù)量 款項 1 化95.4 001 47 0.00 2 數(shù)94.3 002 74 0.00 3 物96.4 003 67 0.00 4 生95.4 002 47 0.00 5 地94.3 001 67 0.00 6 物94.3 002 67 0.00 7 數(shù)94.3 001 74 0.00 8 化95.4 003 47 0.00 9 數(shù)94.3 003 74 0.00 程序： CLEA ALL SELE 1 USE Ts ALIAS SHU INDEX on 書號 tag TSSH SELE 2 USE dsd alias shdn SET RELA TO 書號 INTO SHU REPL ALL 款項 WITH數(shù)量＊shu.單價 LIST DO WHIL.T.ACCE “輸入0退出” TO BJ
IF BJ =’0’ EXIT ENDI ACCE“輸入書號” TO SH LOCAT FOR 書號=SH DISP ENDI ？“書號”+書號+str(款項)+”元?！? ENDD clea all RETURN（1）do while循環(huán)中l(wèi)ocate操作的表是：B A數(shù)據(jù)表TS B數(shù)據(jù)表DSD C系統(tǒng)臨時表aaa D系統(tǒng)臨時表cursor aaa（2）運(yùn)行時輸入書號“003”，則輸出為：_C（A）分別顯示書號為“003”的所有款項（B）顯示書號為“003”的所有款項之和（C顯示書號為“003”的第一條記錄的款項（D）輸入錯誤，沒有輸出
閱讀下面程序： CLEAR T=65 R=20 INPUT “請輸入圖形的行數(shù)N=” TO N I=1 DO WHILE I<=N J=1 DO WHILE J<=2*I-1 @I,J+R SAY CHR(T)J=J+1 IF J<=I T=T+1 ELSE T=T-1 ENDIF ENDDO I=I+1 R=R-1 T=65 ENDDO RETURN(1)運(yùn)行程序后輸出圖形C
（A）A（B）A BBB ABC CCCCC ABCDE DDDDDDD ABCDEFG EEEEEEEEEEEE ABCDEFGHIJ
??????? ??????
（C）A A ABA BAB ABCBA CBABC ABCDCBA DCBABCD ABCDEDCBA EDCBABCDE
??????? ???????（2）語句@I,J+R SAY CHR(T)中函數(shù)CHR（）的功能是D（A）從字符T中取出子串（B）返回字符T的ACSⅡ碼值（C）返回字符T的ACSⅡ碼字符
（D）返回<數(shù)值表達(dá)式>表示的ACSⅡ碼字符
：
CLEA BM=SPACE(10)@5，10 SAY“請輸入表名：”GET BM READ BM=ALLTRIM(BM)IF FILE(“&BM..DBF”)USE &BM BROWSE ELSE WAIT“文件不存在!” WINDOW NOWAIT ENDIF USE RETURN(1)程序的功能是C(A)瀏覽任意一個打開的表文件(B)修改任意一個打開的表(c)瀏覽指定表文件BM(D)修改指定表文件BM(2)函數(shù)FILE(“&BM..DBF”)的功能是C(A)測試指定的文件的類型正確否(B)指定文件類型為(C)測試指定的文件存在否(D)指定文件為&BM．．DBF
有圖書目錄數(shù)腳sml，dbf和入庫流水單表skc．dbf如下 sml.dbf：(5條記錄)書號 書名 作者 出版社 1 計算機(jī)基礎(chǔ) 楊振山 高等教育 2 計算機(jī)原理 費(fèi)利民 西安交大 3 C語言設(shè)計 趙國民 上海 4 C語言教程 張 揚(yáng) 四川 5 C++教程 張 敏 高等教育 skc.dbf：(5條記錄)書號 單價 數(shù)量 金額 入庫日期 1 15.00 30 450.00 20030818 2 11.00 21 231.00 20030818 3 22.00 30 660.00 20030818 4 19.00 30 570.00 20031218 5 22.21 23 510.83 20031218 程序： CLEAR @1，15 SAY ‘新書入庫’ Y=’Y’
DO WHILE upper(Y)=”Y” SM=SPACE(14)ZZ=SPACE(8)CBS=SPACE(10)@3，10 SAY ’書名’ GET SM @3，30 SAY ’作者’ GET ZZ @3，45 SAY，出版社 GET CBS READ SELE 1 USE SML LOCA FOR TRIM(書名)=TRIM(SM)AND TRIM(作者)=TRIM(ZZ)AND TRIM(出版;社)=TRIM(CBS)IF FOUND()SH=書號 ELSE SKIP-1 SH=STR(val(書號)+1，4)APPE blan REPL書名WITH SM，書號WITH SH，作者WITH ZZ，出版社with cbs ENDIF SELE 2 USE skc APPE BLAN REPL書號with sh @4，10 SAY ‘單價’ GET單價 @4，30 SAY ‘購人數(shù)’ GET數(shù)量 READ REPL金額 WITH 單價*數(shù)量 REPL入庫日期 WITH date()WAIT “是否繼續(xù)(Y／N)” to Y ENDD CLOSE DATA 設(shè)運(yùn)行時依次輸入下列數(shù)據(jù)：
代數(shù) 張三 清華 22.00 31 幾何 李四 北大 33.00 32 概率 王五 南開 44.00 33 幾何 李四 北大 33.00 41 代數(shù) 張三 清華 22.00 56(1)此時sml表中的記錄條數(shù)和最大記錄號分別為C A 10條，10 B 10條，5 C 8條，8 D 8(2)SKC表中記錄數(shù)為C(A)10(B)5(C)8(D)7
clear dimension k(2,3)i=l ? do while i<=2 j=l do while j<=3 k(i,j)=i*j ??k(i，i)??” ” j=j+1 enddo ? i=i+1 enddo(1)運(yùn)行程序后，屏幕的顯示結(jié)果是A
(A)1 2 3(B)1 2 2 4 6 3 2(C)1 2 3(D)1 2 3 1 2 3 2 4 9(2)如果將dimension k(2,3)語句改為：dimension K(2，2)后，A(A)出現(xiàn)“數(shù)組重復(fù)定義”的錯誤(B)出現(xiàn)“數(shù)組下標(biāo)超界”的錯誤
(C)程序功能不變，只輸出4個數(shù)組元素(D)程序功能不變，仍然輸出6個數(shù)組元素
閱讀下列程序 CLEAR M=0 FOR K=0 TO 2 FOR J=3-k TO 3+K @K,J SAY STR(K，2)+STR(J,1)M=M+1 NEXT K NEXT 1 ?M RETURN(1)輸出圖形為： A
(A)03(B)03(C)03(D)0 3 14 14 14 1 4 25 25 25 2 5(2)程序結(jié)束時，M的值是： B(A)11(B)9(C)10(D)8
讀下列程序： J=0 CLEAR FOR K=1 TO 4 FOR R=1 TO 5-K ？？“” &&此處括號內(nèi)有1個空格 ENDFOR FOR M=1 TO 2*K-1 ？？STR(K，1)J=J+1 ENDFOR ? ENDFOR ? J(1)程序運(yùn)行的結(jié)果是：A
A)1 B)1 C)2 D)1 222 121 121 212 33333 1331 1331 31113 4444444 144441 144441 4111114(2)程序結(jié)束時，J的 值為C A)7 B)17 C)16 D)6
SUM=0 N=0 DO WHILE N< 100 N=N+1 SUM=SUM+N ENDDO ?’SUM=’,SUM(1)該程序的功能是B A)計算1+100的值 B)計算1+2+3+?+100的值 C)計算1+99的值 C)計算1+2+3+?+99的值(2)循環(huán)結(jié)束后，N的值為A
A)100 B)99 C)101 D)102
Clea FOR N=1 TO 4 FOR I=1 TO 2*N-1
IF I<=N
@ N,10-N+I SAY STR(I,1)
ELSE
@ N,COL()SAY STR(2*N-I,1)
ENDI ENDF ENDF Canc(1)該程序的顯示的是：B
A)1 B)1 C)1 D)1 222 121 212 121 33333 12321 31213 13331 4444444 1234321 4123214 1444441(2)循環(huán)結(jié)束后，N的值為C A)3 B)4 C)5 D)6
INPUT”請輸入數(shù)據(jù)1：“ TO X INPUT”請輸入數(shù)據(jù)2：“ TO Y INPUT”請輸入數(shù)據(jù)3：“ TO Z IF X>Y N=Y ELSE N=X ENDI IF N (1)A)輸入的最大值 B)輸入的最小值 C)輸入的中間值 D)輸入的任意值 有一學(xué)生情況表STU，表中有成績字段 以下程序的功能是： N=0 S=0 USE STU 輸入的任 D)SCAN FOR 成績>=560 S=S+成績 N=N+1 ENDS S=S/N USE ?S CANC 程序中命令？S，S 表示的是D A)表中成績大于560分的人數(shù) B)統(tǒng)計表中成績小于560分的人數(shù) C)表中成績大于560分的人的總分?jǐn)?shù) D)表中成績大于560分的人的平均分?jǐn)?shù) 有一學(xué)生情況表STU，表中有成績字段 以下程序的功能是： N=0 S=0 USE STU SCAN FOR 團(tuán)員 S=S+成績 N=N+1 ENDS S=S/N USE ?S CANC 程序中命令？S，S 表示的是D A)表中團(tuán)員人數(shù) B)表中非團(tuán)員的人數(shù) C)表中團(tuán)員總分?jǐn)?shù) D)均分?jǐn)?shù) 南京信息工程大學(xué)實驗(實習(xí))報告 實驗(實習(xí))名稱順序和選擇結(jié)構(gòu)程序設(shè)計實驗(實習(xí))日期 得分 指導(dǎo)老師 系專業(yè) 班級 學(xué)號 【實驗?zāi)康摹?/p> 1、掌握程序的建立、修改與運(yùn)行 2、掌握基本輸入輸出語句與函數(shù) 3、熟練掌握if語句（包括單分支和雙分支）和do case語句的使用。 4、分析程序的運(yùn)行結(jié)果。 【實驗內(nèi)容】 操作結(jié)果的界面截圖顯示。 1、從鍵盤輸入兩個數(shù)存入變量x和y，若x>y則交換他們的值，否則直接輸出x和y的值。 2、執(zhí)行下列程序后，變量x的值為（）。x=1 if x>=1 do case case x>0 x=x+1 case x>1 x=x+1 otherwise x=4 endcase else x=3 endif 3、執(zhí)行下列命令序列，屏幕顯示（）a=100 b=50 a=a+b b=a-b b=a*2 ? a+b 4、執(zhí)行下列命令序列，屏幕顯示（）。b=6 do case case mod(b,3)=0 b=b+1 case mod(b,2)=0 b=b+2 otherwise b=b+3 endcase ? b 5、執(zhí)行下列命令序列，屏幕顯示（）input to a if a=10 b=0 else b=1 endif ? b篇二：vfp實驗報告 天水師范學(xué)院數(shù)學(xué)與統(tǒng)計學(xué)院 實驗報告 實驗項目名稱 所屬課程名稱 實 驗 類 型 實 驗 日 期 班 級 學(xué) 號 姓 名 成 績 1 附錄1：源 程 序 2 附錄2：實驗報告填寫說明 1．實驗項目名稱：要求與實驗教學(xué)大綱一致。2．實驗?zāi)康模耗康囊鞔_，要抓住重點(diǎn)，符合實驗教學(xué)大綱要求。3．實驗原理：簡要說明本實驗項目所涉及的理論知識。4．實驗環(huán)境：實驗用的軟、硬件環(huán)境。5．實驗方案（思路、步驟和方法等）：這是實驗報告極其重要的內(nèi)容。概括整個實驗過程。對于驗證性實驗，要寫明依據(jù)何種原理、操作方法進(jìn)行實驗，要寫明需要經(jīng)過哪幾個步驟來實現(xiàn)其操作。對于設(shè)計性和綜合性實驗，在上述內(nèi)容基礎(chǔ)上還應(yīng)該畫出流程圖、設(shè)計思路和設(shè)計方法，再配以相應(yīng)的文字說明。對于創(chuàng)新性實驗，應(yīng)注明其創(chuàng)新點(diǎn)、特色。6．實驗過程（實驗中涉及的記錄、數(shù)據(jù)、分析）：寫明具體實驗方案的具體實施步驟，包括實驗過程中的記錄、數(shù)據(jù)和相應(yīng)的分析。7．實驗結(jié)論（結(jié)果）：根據(jù)實驗過程中得到的結(jié)果，做出結(jié)論。8．實驗小結(jié)：本次實驗心得體會、思考和建議。9．指導(dǎo)教師評語及成績：指導(dǎo)教師依據(jù)學(xué)生的實際報告內(nèi)容，給出本次實驗報告的評價。3 篇三：vfp實驗報告范例 指導(dǎo)老師 萬潤澤 實驗名稱visual foxpro 操作基礎(chǔ) 同組人 日期日 成績 一、實驗?zāi)康?/p> 1)理解各種不同的數(shù)據(jù)類型 2)常量的含義以及各種不同數(shù)據(jù)類型的常量 3)變量的含義以及字段變量、內(nèi)存變量、系統(tǒng)變量和數(shù)組變量的使用 二、實驗環(huán)境（儀器設(shè)備、軟件等）windowsxp操作系統(tǒng)、visual foxpro環(huán)境 三、實驗原理（或要求） （1）數(shù)值型、貨幣型、字符型、日期型和日期時間型常量的輸入 （2）日期格式的設(shè)置的命令 （3）字段變量與內(nèi)存變量同名時候，觀察賦值運(yùn)算結(jié)果（4）數(shù)組變量的賦值 （5）內(nèi)存變量顯示、清除與保存所使用的命令 四、實驗步驟 ？”計算機(jī)”,?123.45?,[?abc?,?abc?] 日期格式的設(shè)置 set century on|off set date to american ?{^2007-1-2} 結(jié)果: set mark to “.” ?{^2007-1-2} 結(jié)果 set strictdate to 0 ?{2007-5-30} 結(jié)果 set century on set mark to “|” set date to ymd 結(jié)果 創(chuàng)建一個學(xué)生表“學(xué)生.dbf”，其中包含字段學(xué)號、姓名、性別、出生日期等字段。并輸入多行記錄，再使用以下命令 use 學(xué)生 ？姓名 go 3 ？姓名 五、記錄與處理（實驗數(shù)據(jù)、誤差分析、結(jié)果分析） 注意： 實驗步驟與記錄處理合成一個部分，都是用來記載上機(jī)實驗中的代碼以及運(yùn)行結(jié)果，對于visual foxpro編程而言，不必分兩個部分。 在此頁中繼續(xù)寫入程序代碼以及相應(yīng)的運(yùn)行結(jié)果。 這個部分內(nèi)容到課本52面結(jié)束 六、思考題 1、什么是常量？visual foxpro中哪幾種類型的數(shù)據(jù)有常量表示？ 2、什么是變量？visual foxpro中有哪幾種變量？變量名取名是如何規(guī)定的？ 七、實驗小結(jié) 這個地方可以寫入自己對上機(jī)內(nèi)容的理解，也可把自己不懂的內(nèi)容寫在下面 同組人 日期 成績 一、實驗?zāi)康?/p> 1)掌握表達(dá)式中各種運(yùn)算符的運(yùn)算規(guī)則 2)掌握各種類別的運(yùn)算符的優(yōu)先級 3)理解函數(shù)的三要素以及各常用函數(shù)的用法 二、實驗環(huán)境（儀器設(shè)備、軟件等）windowsxp操作系統(tǒng)、visual foxpro環(huán)境 三、實驗原理（或要求）（1）幾種算術(shù)運(yùn)算符、日期時間運(yùn)算符和關(guān)系運(yùn)算符的規(guī)則與使用 （2）字符串匹配運(yùn)算符“=”、“= =”、“$”的含義 （3）在含有多種運(yùn)算符的表達(dá)式中根據(jù)運(yùn)算符優(yōu)先級進(jìn)行運(yùn)算 （4）常用函數(shù)的用法，注意函數(shù)的參數(shù)與返回類型 四、實驗步驟 p52 例3-8 3-9 3-10 例3-12 課后練習(xí)習(xí)題一（13）小題 例 3-14 五、記錄與處理（實驗數(shù)據(jù)、誤差分析、結(jié)果分析） （接上頁） 例 3-15 ~ 34 選取有代表性的例子 注意： 實驗步驟與記錄處理合成一個部分，都是用來記載上機(jī)實驗中的代碼以及運(yùn)行結(jié)果，對于visual foxpro編程而言，不必分兩個部分。 在此頁中繼續(xù)寫入程序代碼以及相應(yīng)的運(yùn)行結(jié)果。 這個部分內(nèi)容從課本53到課本63面結(jié)束 六、思考題 1.什么是表達(dá)式？當(dāng)一個表達(dá)式中有多種類型的運(yùn)算符并存時，一般的運(yùn)算 順序是什么？ 2.函數(shù)的三要素是什么？試指出month（）函數(shù)在使用時的參數(shù)和返回值 數(shù)據(jù)類型？另外測試數(shù)據(jù)類型的函數(shù)是什么？ 七、實驗小結(jié) 這個地方可以寫入自己對上機(jī)內(nèi)容的理解，也可把自己不懂的內(nèi)容寫在下面 同組人 日期 成績 一、實驗?zāi)康?/p> 1)掌握數(shù)據(jù)庫的基本操作 2)掌握表的基本操作，包括表結(jié)構(gòu)的創(chuàng)建、表結(jié)構(gòu)的顯示與修改以及表記錄的顯示、增加和修改 3)理解索引的概念并會在表設(shè)計器中建立索引 二、實驗環(huán)境（儀器設(shè)備、軟件等）windowsxp操作系統(tǒng)、visual foxpro環(huán)境 三、實驗原理（或要求） （1）建立自由表，并使用表設(shè)計器設(shè)計每個字段的字段名、數(shù)據(jù)類型、寬度等 （2）在數(shù)據(jù)庫中創(chuàng)建表，在表設(shè)計器中對字段的有效性規(guī)則、默認(rèn)值、格式、輸入掩碼等進(jìn)行修改 （3）表的打開與瀏覽，增加表記錄和刪除表記錄 （4）在表設(shè)計器中建立索引，另外通過命令方式建立索引 四、實驗步驟 這個部分內(nèi)容從69面到課本88面結(jié)束 例4-1 顯示表結(jié)構(gòu) 例4-3 顯示男生的記錄 例4-4 例4-7 8 9 理解物理刪除和邏輯刪除之間的區(qū)別 例4-11 五、記錄與處理（實驗數(shù)據(jù)、誤差分析、結(jié)果分析） 注意： 實驗步驟與記錄處理合成一個部分，都是用來記載上機(jī)實驗中的代碼以及運(yùn)行結(jié)果，對于visual foxpro編程而言，不必分兩個部分。 在此頁中繼續(xù)寫入程序代碼以及相應(yīng)的運(yùn)行結(jié)果。 六、思考題 1)什么叫參照完整性？參照完整性分為哪幾種？ 2)數(shù)據(jù)庫表和自由表有什么區(qū)別？ 七、實驗小結(jié) 這個地方可以寫入自己對上機(jī)內(nèi)容的理解，也可把自己不懂的內(nèi)容寫在下面 同組人 日期 成績 一、實驗?zāi)康?/p> 1)使用sql查詢語句對表進(jìn)行條件查詢 2)理解select命令中的幾個常用關(guān)鍵字的含義 3)能熟練掌握簡單查詢、聯(lián)接查詢、嵌套查詢 4)排序顯示查詢結(jié)果和計算查詢 二、實驗環(huán)境（儀器設(shè)備、軟件等）windowsxp操作系統(tǒng)、visual foxpro環(huán)境 三、實驗原理（或要求）1)select說明要查詢的數(shù)據(jù) 2)from說明要查詢的數(shù)據(jù)來自哪些表 3)where說明查詢的條件 4)order by 用來對查詢的結(jié)果排序 5)幾個特殊的運(yùn)算符，如like，not in，between。。and。。，以及計算查詢 中用到的函數(shù)，如count，sum，avg，max，min等 四、實驗步驟 這個部分內(nèi)容從104面到課本112面結(jié)束 例5-1 到 5-21 選擇典型的sql查詢語句 五、記錄與處理（實驗數(shù)據(jù)、誤差分析、結(jié)果分析） （接上面的實驗步驟） 注意： 實驗步驟與記錄處理合成一個部分，都是用來記載上機(jī)實驗中的代碼以及運(yùn)行結(jié)果，對于visual foxpro編程而言，不必分兩個部分。 在此頁中繼續(xù)寫入程序代碼以及相應(yīng)的運(yùn)行結(jié)果。 六、思考題 1、課本136面 三、上機(jī)題 2（注：題目也要抄寫） 2、課本136面 三、上機(jī)題 3（注：題目也要抄寫） 七、實驗小結(jié) 這個地方可以寫入自己對上機(jī)內(nèi)容的理解，也可把自己不懂的內(nèi)容寫在下面篇四：vfp實驗報告1 實驗報告 時間：2013.4.6 地點(diǎn)：經(jīng)濟(jì)管理學(xué)院機(jī)房 實驗1：visual foxpro 集成環(huán)境及項目管理 實驗?zāi)康模?.掌握vfp啟動與退出的各種方法 2.熟悉vfp的集成操作環(huán)境，包括掌握工具欄、命令窗口打開與關(guān)閉的方法 3.了解“選項”對話框的內(nèi)容，并掌握一些常用的設(shè)置與命令 4.了解vfp幫助系統(tǒng)的大致結(jié)構(gòu)，掌握其使用方法 5.掌握項目文件建立與打開的方法 6.了解項目管理器的結(jié)構(gòu)及其定制方法 實驗內(nèi)容： 一、vfp的啟動與退出 1.vfp的啟動 2.vfp的退出 二、工具欄 1、通過菜單命令“編輯”——“工具欄” “工具欄”對話框 2、右擊工具欄無按鈕區(qū)域，利用快捷菜單打開與關(guān)閉快捷菜單 vfp主窗口 “工具欄”快捷菜單 三、“命令”窗口 1、命令窗口的打開與關(guān)閉 2、在“命令”窗口中執(zhí)行命令 練習(xí)內(nèi)容： ①計算并顯示算術(shù)表達(dá)式的值 ；？和？？命令的區(qū)別 ②clear清除vfp主窗口中所有信息;顯示默認(rèn)文件夾中類型為dbf的文件目錄 ；顯示d盤根文件夾中所有文件的目錄 ③新建文件夾、復(fù)制文件夾、改名文件、刪除文件、運(yùn)行“計算器” 3、命令的編輯與重用 四、“選項”對話框 五、vfp的幫助系統(tǒng) 菜單命令”幫助——vfp幫助主題” 六、創(chuàng)建項目文件 “新建”對話框;“創(chuàng)建”對話框 1、項目文件的打開與關(guān)閉 2、項目管理器的定制 3、利用項目管理器管理文件 ①添加文件 ②移去文件 ③其他操作 實驗心得：通過這次實驗，進(jìn)一步掌握了vfp 啟動與退出的各種方法和vfp項目管理器有關(guān)的操作，同時也熟悉了vfp的集成操作環(huán)境。篇五：vfp--劉子恒--實驗報告1 13級電子信息工程班vfp實驗報告1 注： 1、一個實驗題目編寫一個實驗報告，每個報告至少占用1頁。 2、報告內(nèi)容必須具體、詳實，不得籠統(tǒng)、簡單。 班級：電氣2013-1 學(xué)號：20***9 VFP程序設(shè)計 ——課設(shè)總結(jié) 為期幾周的VFP數(shù)據(jù)庫設(shè)計的課設(shè)就快過去了，在這做課設(shè)的這段時間，可以說是有苦有甜，令人難忘。因此，有必要寫一篇總結(jié)，記錄一下自己做課設(shè)的歷程。 剛剛接到老師的課設(shè)要求的時候有點(diǎn)傻眼了，得優(yōu)秀的要求是系統(tǒng)完善、寫一篇系統(tǒng)總結(jié)、回答老師對于代碼方面的提問。第一點(diǎn)似乎都還算能做到，但是對于我們這種連SQL語言的皮毛都沒學(xué)，對于數(shù)據(jù)庫的系統(tǒng)結(jié)構(gòu)完全不了解的人，怎么能把三點(diǎn)要求都完成。 但是經(jīng)過一段時間的摸索，我漸漸對vf的數(shù)據(jù)庫系統(tǒng)有了大體的了解知道了什么是項目，數(shù)據(jù)庫就是數(shù)據(jù)表的集合，搞清了基本表單的制作過程，知道如何用快速報表和報表向?qū)ё龈袷降膱蟊?，以及對報表的美化、求和、計算等處理，還有就是如何去制作菜單，以及用菜單調(diào)用各種數(shù)據(jù)文件，最后的主程序是直接復(fù)制老師的代碼，但是憑著一點(diǎn)點(diǎn)C++和C語言基礎(chǔ)，能夠看懂代碼的意思，這有助于我后期對整個系統(tǒng)進(jìn)行查錯和修改。下面就講一下我對自己做的系統(tǒng)的總結(jié)。 1數(shù)據(jù)表（.dbf）:數(shù)據(jù)表是整個系統(tǒng)的“原材料”，后期所有的制作處理，都是為了去處理和顯示這些數(shù)據(jù)，去用這些數(shù)據(jù)，當(dāng)然也可以說數(shù)據(jù)表依靠后期的表單等等呈現(xiàn)給用戶。 2數(shù)據(jù)庫（.dbc）：數(shù)據(jù)庫以我看來就是數(shù)據(jù)表的集合，可以將無聯(lián)系的自由表集合到一個容器里，使他們可以產(chǎn)生聯(lián)系。并且將這些表作為后面其他東西的數(shù)據(jù)環(huán)境。 3表單（.scx）：表單就是最后呈現(xiàn)給用戶的人機(jī)交互界面，并且?guī)в幸欢ǖ墓δ?。表單的制作首先需要要給他設(shè)置數(shù)據(jù)環(huán)境，因為其上面的各種控件都是以數(shù)據(jù)環(huán)境里面的數(shù)據(jù)實現(xiàn)控件的意義。各種控件比如標(biāo)簽就是用來顯示表單上需要顯示的一些文字提示，文本框就是用來顯示文本內(nèi)容，組合框可以下拉顯示一連串的內(nèi)容，表格控件可以顯示表格數(shù)據(jù)，可以用生成器做出自定義的表格，按鈕控件可以通過某個過程比如單擊執(zhí)行用戶需要的事件代碼等等。最后表單生成以后，作為整個系統(tǒng)的優(yōu)良的用戶與系統(tǒng)的交互平臺。 4菜單（.mnx）:菜單就是整個系統(tǒng)調(diào)用文件的工具，通過點(diǎn)擊菜單，可以調(diào)用任意用戶想要調(diào)用的文件比如表單，數(shù)據(jù)表，程序等等。 5程序(.prg)程序就是一段代碼，生成文件以后可以由其他文件調(diào)用并執(zhí)行，如主程序就是在系統(tǒng)運(yùn)行時的入口，當(dāng)然得先設(shè)置好主文件；quit程序可以實現(xiàn)系統(tǒng)的退出。 除了以上幾個以外，還有工具欄、自定義類等等在系統(tǒng)中都起著重要的作用，最后講一下設(shè)置背景音樂所用的方法，用set bell to的方式定位到文件，用？chr（7）就能對WAV格式的音樂進(jìn)行播放。 致謝： 整個課設(shè)過程收獲很多，不僅僅是了解了利用Visual fox 制作系統(tǒng)的方法，而且還增進(jìn)了同學(xué)們之間的友誼。在這里感謝同學(xué)們的互相學(xué)習(xí)以及交流分享，還有老師孜孜不倦的引導(dǎo)，總之，感謝老師，感謝同學(xué)，感謝大家！ XXX第四篇：VFP實驗報告總結(jié)
第五篇：VFP程序設(shè)計總結(jié)
點(diǎn)擊咨詢 