計(jì)算機(jī)等級(jí)考試二級(jí)VB模擬試題及參考答案(2)

　　IF 基本工資>=1500

　　SELECT 2

　　APPEND BLANK

　　REPLACE A->職工號(hào)WITH 職工號(hào)，A->基本工資 WITH 基本工資 &&*error*

　　SELECT 1

　　ENDIF

　　CONT ****Error****

　　ENDDO

　　SELECT 2

　　DISPLAY ALL

　　DELETE TABLE gzb.dbf ****Error****

　　CLOSE DATABASE

　　SET SAFE ON

　　SET TALK ON

　　*************************************

　�、� 修改程序中的錯(cuò)誤。

　　****下面是修改后的工資查詢.prg的程序內(nèi)容：****

　　SET TALK OFF

　　SET SAFE OFF

　　SELECT 1

　　USE 工資表.dbf

　　COPY STRU TO gzb.dbf FIELDS 職工號(hào)，基本工資

　　SELECT 2

　　USE gzb.dbf

　　SELECT 1

　　GO TOP

　　DO WHILE ! EOF()

　　IF 基本工資>=1500

　　SELECT 2

　　APPEND BLANK

　　REPLACE 職工號(hào)WITH A-> 職工號(hào)， 基本工資 WITH A-> 基本工資

　　SELECT 1

　　ENDIF

　　SKIP

　　ENDDO

　　SELECT2

　　DISPLAY ALL

　　DROP TABLE gzb.dbf

　　CLOSE DATABASE

　　SET SAFE ON

　　SET TALK ON

　　***********************************

　�、� 在“命令”窗口輸入：DO 工資查詢.prg，運(yùn)行程序。

　　【試題解析】

　　本試題主要考查了快速報(bào)表的建立和SQL語句的簡單應(yīng)用。在(1)小題中可以通過菜單命令建立一個(gè)快速報(bào)表文件。