面向過程順序結(jié)構(gòu)與分支結(jié)構(gòu)編程

1、實驗十面向過程順序結(jié)構(gòu)與分支結(jié)構(gòu)編程結(jié)構(gòu)化編程思想：程序是計算機能夠分析執(zhí)行的指令集合，包含兩個部分：一是數(shù)據(jù)結(jié) 構(gòu)，二是算法。數(shù)據(jù)結(jié)構(gòu)是對數(shù)據(jù)的描述，在程序中指定數(shù)據(jù)的類型和組織形 式，是編程操作的對象。算法是對數(shù)據(jù)結(jié)果操作步驟的描述，某一問題而采取 的方法和步驟。一、實驗?zāi)康模毫私饷钗募慕⑴c運行方法掌握數(shù)據(jù)庫面向過程與分支程序的設(shè)計方法。二、實驗內(nèi)容和操作步驟：在visual foxpro中，程序文件又稱為命令文件，它是由visual foxpro中 的命令和一些程序設(shè)計語句所組成的，擴展名為prg。1、程序(命令)文件的建立方法(1) 、項目管理中新建程序文件打開項目管理器，選擇“

2、代碼”一一“程序”一一單擊“新建”(2) 、菜單方式或工具按鈕“文件”“新建”“程序”“新建文件”或單擊常用工具欄 上的“新建”按一一“程序”一一“新建文件”(3) 、命令方式modify command程序文件名2、打開程序文件有以下方法：(1) 、在項目管理器中選定程序文件名，單擊“修改”(2) 、單擊常用工具欄上的“打開”一一打開程序文件；(3) 、執(zhí)行“文件”一一“打開”一一打開程序文件 、輸入命令：modify command程序文件名3、程序文件或命令文件的調(diào)用調(diào)用程序也就是執(zhí)行程序，程序文件的調(diào)用方 法有：(1)、在項目管理器中，選定程序文件，單擊“運行”;、執(zhí)行“程序”菜單下的

3、“運行”一一選定“程序文件”確定；(3)、在命令窗口中輸入：do程序文件名回車4、程序的順序結(jié)構(gòu)順序結(jié)構(gòu)是程序設(shè)計中最基本的結(jié)構(gòu)。在該結(jié)構(gòu)中，程序的執(zhí)行是按命令 出現(xiàn)的先后順序依次執(zhí)行的，其流程示意圖如下：下面以給cjb. dbf添加表記錄為例，練習(xí)順序結(jié)構(gòu)的編程：在表cjb中添加記錄一一添加表記錄一般是追加一個空記錄，然后使用輸入的信 息替換空記錄相應(yīng)的字段內(nèi)容，其流程圖如下：打開表文件輸入學(xué)號、姓名、各科成績追加空記錄替換學(xué)號、姓名、各科成績關(guān)閉表文件練習(xí)一新建程序文件，以tjjl. prg文件名保存。 在編程窗口中輸入下列語句:note功能：在成績表屮添加記錄。note 程序名：tjjl

4、. prgset talk offclear select ause cjb&&打開表accept 學(xué)號:"to hxh &&輸入學(xué)號accept 姓名：to hxm &&輸入姓名&&輸入語文分數(shù)&&輸入高等數(shù)學(xué)分數(shù)&&輸入計算機分數(shù)&&輸入英語分數(shù)input 大學(xué)語文：to hdxyw input 高等數(shù)學(xué):to hgdsx input 計算機:to hjsjinput 英語：to hyuappend blank&&添加空記錄replace xh with

5、 hxh&&替換 xh 字段replace xm with hxm&&替換 xm 字段replace dxyw with hdxyw&&替換 dxyw 字段replace gdsx with hgdsx&&替換 gdsx 字段replace jsj with hjsj&&替換 jsj 字段replace yu with hyu&&替換 yu 字段replace zf with dxyw+gdsx+jsj+yu&&訃算總分usereturn &&返回保存該程序，并運行之

6、。然后查看cjb. dbf中的新記錄。5、程序的分支結(jié)構(gòu)分支結(jié)構(gòu)是指在程序執(zhí)行過程屮，根據(jù)一定的條件判斷來確定程序走向的一種程 序結(jié)構(gòu)。visual foxpro分支語句有if語句、do case語句等。if語句：if語句是根據(jù)邏輯表達式值，有選擇地執(zhí)行一組命令。語法格式如下：tf邏輯表達式語句aelse語句bendif功能：程序根據(jù)邏輯表達式的值決定如何運行。如果表達式的值為.t.,則執(zhí)行語 句a；否則，如果包含else語句，則執(zhí)行語句b,如果不包含else語句，則忽 略1f語句和end1f之間的所有語句。在練習(xí)一中沒有考慮輸入記錄輸入的重復(fù)問題，如果需要考慮記錄重復(fù)，就需要 使用if語句。

7、新的流程圖如下：結(jié)束練習(xí)二 根據(jù)此流程圖創(chuàng)建tjjl2程序文件并輸入下列語句: note功能：在成績表中添加記錄。* 程序名:tjjl2. prgset talk off 關(guān)閉對話clearset exact off&&設(shè)置字符比較方式 select a use cjb &&打開表accept 學(xué)號:"to hxh &&輸入學(xué)號accept 姓名：to hxm &&輸入姓名&&輸入語文分數(shù)&&輸入高等數(shù)學(xué)分數(shù)&&輸入計算機分數(shù)&&輸入英語分數(shù)input 大學(xué)

8、語文：to hdxyw input 高等數(shù)學(xué)：to hgdsx input 計算機:to hjsjinput 英語：to hyulocat for xim1xi1&&查找 xii 字段if not found()&&如果沒有找到append blank&&添加空記錄replace xh with hxh&&替換 xh 字段replace xm with hxm&&替換 xm 字段replace dxyw with hdxyw&&替換 dxyw 字段replace gdsx with hgdsx&am

9、p;&替換 gdsx 字段replace jsj with hjsj&&替換 jsj 字段replace yu with hyu&&替換 yu 字段replace zf with dxyw+gdsx+jsj+yu&&汁算總分end ifuse &&關(guān)閉表return &&返回保存并運行該程序。查看cjb. dbf中的新記錄.練習(xí)三 新建程序文件：password, prg實現(xiàn)口令驗證功能。 在編程窗口輸入以下語句：note實現(xiàn)口令驗證功能note 文件名：password, prgset talk offs

10、et exact offclear &&清屏&&設(shè)置字符比較方式use cjb2accept 輸入姓名： to hxm &&輸入姓名accept 輸入口令： to hkl &&輸入口令locat for xm=hxm and kl=hkl &&驗證姓名和口令if found()&&如果找到相關(guān)記錄 10,2 say 此用戶是合法用戶！ ”else 10,2 say 此用戶是非法用戶！ ”endtfclose all &&關(guān)閉表return && 返hi 輸入完畢，保存

11、并運行。do case語句語法格式如下：do casecase條件表達式1語句1case條件表達式2語句2case條件表達式3語句3case條件表達式n語句notherwise 語句n+1 endcase功能說明：自上而下判斷case語句后所給條件，執(zhí)行第一個滿足條件的case 后的命令系列。無條件成立，如果存在otherwise子句則執(zhí)行它下面的命令系列, 無otherwise就不執(zhí)行多分支語句而執(zhí)行endcase后的命令系列。練習(xí)四按cjb中數(shù)學(xué)單科成績評定等級的編程語句如下：note按高等數(shù)學(xué)單科成績評定等級set talk offclear && 清屏use cjbdo casecase gdsx>二85replace dj with 優(yōu)case gdsx>=75. and. gdsx<85replace dj with 良case gdsx>=65. and. gdsx<75replace dj with 中case gdsx>=60. and