Visual Foxpro程序改錯

〖第1題〗(練習題所在文件夾:163)

*題目：該程序完成口令檢驗功能。輸入三次不正確退出。

*注意：不可以增加或刪除程序行，也不可以更改程序的結構。

SET TALK OFF

CLEAR

ass1="AbCdEf"

TT=1

DO WHILE TT<4

@10,20 SAY "請輸入口令:"

SET CONSOLE OFF

ACCEPT TO ass

SET CONSOLE ON

**********FOUND**********

IF ass1=ass

CLEAR

?"歡迎使用本系統!"

**********FOUND**********

LOOP

ELSE

**********FOUND**********

TT=TT-1

CLEAR

?"口令錯，按任意鍵再輸入一次！"

WAIT" "

ENDIF

ENDDO

RETURN

答案：

1). IF UPPER(ass1)==UPPER(ass) 或 IF UPPER(ass1)==UPPER(ass)

2). EXIT

3). TT=TT+1 或 TT=1+TT

〖第4題〗(練習題所在文件夾:500)

*題目：ZHG.DBF是一個職工信息文件，其中包含編號(C 5)、姓名

* (C 8)、性別(C 2)、政治面貌(C 4)、出生日期(D 8)等字

* 段。性別用字符串"男"或"女"表示，政治面貌用字符串"

* 黨員"、"團員"或"群眾"表示。此文件已按政治面貌建立

* 了索引，索引文件名是ZHG_ZHZH.IDX。

* 程序功能是：顯示輸出所有政治面貌為"群眾"的女職工的

* 姓名和出生日期(每行輸出一個職工的信息)在屏幕上

*注意：不可以增加或刪除程序行，也不可以更改程序的結構。

set talk off

clear

***********FOUND**********

USE ZHG

SEEK "群眾"

***********FOUND**********

DO WHILE !EOF()

IF 性別="女"

DISP 姓名,出生日期

***********FOUND**********

ENDD

SKIP

ENDDO

USE

SET TALK ON

答案：

1). USE ZHG INDEX ZHG_ZHZH

2). DO WHILE政治面貌="群眾" 或 DOWHILE政治面貌='群眾' 或 DOWHILE政治面貌=[群眾]

3). ENDIF

〖第5題〗(練習題所在文件夾:105)

*題目：在RSH.dbf 中，查找職工趙紅的工資，如果工資小于200元，

* 則增加100元；如果工資大于等于200元且小于500元時，則增

* 加50元；否則增加20元。最后顯示趙紅的姓名和工資。

*注意：不可以增加或刪除程序行，也不可以更改程序的結構。

CLEAR

USE RSH

***********FOUND**********

LOCATE FOR 姓名 =趙紅

DO CASE

CASE 工資< 200

REPLACE 工資 WITH 工資+ 100

CASE 工資< 500

REPLACE 工資 WITH 工資+ 50

OTHERWISE

REPLACE 工資 WITH 工資+ 20

ENDCASE

***********FOUND**********

LIST 姓名,工資

USE

答案：

1). LOCATE FOR 姓名="趙紅" 或 LOCA FOR 姓名='趙紅' 或 LOCA FOR 姓名="趙紅" 或 LOCATE FOR 姓名=[趙紅] 或 LOCA FOR 姓名=[趙紅] 或 LOCATE FOR 姓名='趙紅'

2). DISP 姓名,工資 或 ?姓名,工資 或 DISPLAY 姓名,工資

〖第6題〗(練習題所在文件夾:174)

*題目：計算S=2+4+6+...+98+100的程序。

*注意：不可以增加或刪除程序行，也不可以更改程序的結構。

store 0 to s,i

***********FOUND**********

do i<=99

***********FOUND**********

i=i+1

s=s+i

enddo

?"s=",s

答案：

1). do while i<=99 或 do while i<100 或 dowhilei<=98 或 dowhilei<99

2). I=2+I

創作挑戰賽新人創作獎勵來咯，堅持創作打卡瓜分現金大獎

總結

以上是生活随笔為你收集整理的vfp程序改错 计算机和英语,vfp程序改错教案.doc的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。