资源描述
按一下以編輯母片標題樣式,按一下以編輯母片,第二層,第三層,第四層,第五層,3-1-2008,*,聖約翰科技大學 電通系視窗程式設計,班級：電通二真,學期：96學年第二學期,授課教師：陸茵 副教授,先修課程,結構化程式設計,資料結構與演算法,授課內容,Windows Programming,Event Programming,Visual Basic 2005 Express,操作,電腦軟體設計丙級學科,電腦軟體設計丙級術科,Textbook,Visual Basic 2005 Express,程式設計經典教本，許清榮、買大誠著，博碩文化，書號：,PG20225。2008,年,丙級電腦軟體設計術科通關寶典，楊詩筠編著，台科大，書號：,G23601。2007,年,丙級電腦軟體設計學科題庫分類解析，蘇文禎編著，台科大，書號：,GF007。2008,年,相關參考網站,證照簡介,http:/,teacher.sju.edu.tw/yinglu,/,勞委會中部辦公室,http:/,即測即評即發證,97,年開始，上午考術科，下午考學科。,若通過考試，當場發證。,考場網址：,http:/,報名後，考試期間的安排會長達 1-3 個月,電腦軟體設計丙級技檢說明,學術科題庫下載,行政院勞工委員會中部辦公室,labor.gov.tw,中文版, 熱門主題 測試參考資料97年版,找到 電腦軟體設計丙級 即可下載,電腦軟體設計丙級技檢說明,學科檢定規則,學科題庫：選擇題 500 題,考題由題庫中抽選 80 題,Note:,即測即評，選項順序會變動,每題 1.25 分，60 分及格，答錯不倒扣,考試時間 100 分鐘,電腦軟體設計丙級術科說明,試題編號：,11900-940301,08,審定日期：,94,11,月,30,日,修訂日期：,96,2,月,1,日,97,1,月,30,日,電腦軟體設計丙級術科說明,一、 本試題以考試前公開之原則命製，共分站。測試時，應檢人應完成站術科 測試試題，第一站為,BASIC,語言基本指操作,，第二站為,BASIC,語言應用程式設計,。,二、 本試題中分為第一站試題和第二站試題（含各站試題所要求之答案）部份。考試 時所使用之考試磁片中含範檔及測試資檔，其中範檔案及內容與所寄給應檢 人之磁片相同。考試評分時，以所產生之報表為評分依據，其答案及格式應符合試 題要求。,電腦軟體設計丙級術科說明,三、 本試題共計,8,題，分別依第一站試題共,5,題（,11900-940301,至,11900-940305,）和 第二站試題共,3,題（,11900-940306,至,11900-940308,）部份出。第一站,5,題有,3,種測試題組，測試前自,5,題中抽選,3,題，並再抽選,1,組測試檔資及迴圈指為測 試方法；第二站有,3,題，測試前抽選,1,題為考題。,四、 應檢人必須以考場準備的,BASIC (Visual Basic),語言編譯程式作答。可自攜帶 其它的編譯程式。,五、 應檢人在第一站測試中，應將原始程式及執結果輸出至報表，未在規定時間內 完成試題要求，則本次測試視為及格。第二站測試中，取範資或測試資 時，如果有其中一項程式輸出結果與試題規定同，應檢人至多只有,3,次機會修 改程式，如果,3,次以後或未在規定時間內完成試題要求，則本次測試視為及格。,電腦軟體設計丙級術科說明,、 應檢人必須將設計的程式，以站名、姓名及准考證號碼為檔案名稱，存於檢定場所 發磁片內。,七、 應檢人設計的程式必須按試題功能動作要求演算，並將結果輸出，發生下情況 之一者，本次檢定視為合格,:,(,一,),只用,PRINT,等輸出命印出結果。,(,二,),第一站測試中，程式中使用,Go To,指。,(,三,),第一站測試中，使用內建或系統所提供的函,（除印表輸出函外）。,第一站評審表,第二站評審表,電腦軟體設計丙級術科說明,術科共分為兩站 (使用,Visual Basic,語言)：,第一站考題,應檢人由以下五題中抽選三題為考題：,1. 廻文判斷 (,Palindrome) (11900-940301),2.,直角三角形列印,(11900-940302),3. 質數計算 (,Prime number) (11900-940303),4.,體質指數,BMI (Body Mass Index),(11900-940304),5.,矩陣相加,(11900-940305),電腦軟體設計丙級術科說明,第二站考題,應檢人由以下三題中抽選一題為考題：,1. 身分證號碼檢查,(11900-940306),2.,高速公路車輛統計,(11900-940307),3. 求出分數的加、減、乘、除運算,(11900-940308),第一站試題,試題類別,BASIC,語言基本指令操作,檢定時間,45 分鐘 (含報表列印時間),第一站試題共同說明,五題試題中抽選三題為考題,三組測試檔資料抽選一組，作為輸出結果,三種迴圈指令抽選一種使用,1.,For . Next,2. Do While . Loop,3. Do . Loop While,各試題有一組範例檔供測試程式是否正確,第一站試題共同說明,(1),本試題共有,5,題，於測試開始前由 應檢人自,5,題中抽選,3,題為考題，並再抽選,1,組測試檔資及迴圈指為測試方式，作為輸出結果及指定的迴圈指，並 必須將抽中的題目依序撰寫於同一程式中。,(2),應檢人應完成全部抽中的試題。,(1),請用,BASIC (Visual Basic),軟體，依試題之順序撰寫一程式（包含上述抽中試 題），使其結果及輸出格式符合試題要求。,(2),測試檔資共分,3,組，每組各有,5,題資檔。每場考試均需由應檢人重新抽取 一組測試資及迴圈指，所有迴圈動作，只能使用抽中之迴圈指完成。資,組別如下：,組別,測 試 資 檔 名,迴 圈 指 ,第一組,940301.T01,至,940305.T01,ForNext,迴圈,第二組,940301.T02,至,940305.T02,Do WhileLoop,前測試迴圈,第三組,940301.T03,至,940305.T03,DoLoop While,後測試迴圈,(3),應檢人可用範檔先測試程式正確與否，再決定是否使用測試檔資。 範檔檔案僅有一組，由,940301.SM,至,940305.SM,。,第一站試題共同說明,撰寫的程式中，應先呼叫,title.exe,執行檔，以輸入應檢人姓名、座號、准考證號碼及考試日期。應檢人再由,title.txt,檔中讀取此資料，作為報表列印資料來源。格式如下：,姓 名,座 號,准考證號碼,考試日期,第一站試題共同說明,應檢人撰寫的程式中，應以3行註解分隔各題程式，格式如下：,*,* 11900-9703xx Program Start *,*,第一站試題共同說明,應檢人必須依題號順序，將測驗結果及設計的程式列印至指定印表機。所有測驗結果列印於同一張報表紙中，並在測驗結果報表表頭列印應檢人的姓名、座號、准考證號碼及考試日期等資料，格式如下：,姓名：應檢人姓名 准考證號碼：應檢人准考證號碼,座號：應檢人座號 日期：,yyyy/mm/dd,第一站程式報表輸出,第一站程式解題,當表單被載入時，系統會呼叫,Form_Load event procedure。,此時，先執行磁碟機代號,a:,根目錄中的,title.exe,檔案，會在螢幕出現輸入考生基本資料的對話盒，待考生輸入完畢後，會將該考生的資料儲存至,title.txt，,供程式後續使用。,Private Sub Form_Load(),= Shell ( “a:title.exe”, 1 ),End Sub,第一站程式解題,當滑鼠移至表單上方，按一下滑鼠左鍵時，即觸發以下 之表單的,Form_Click event procedure：,Private Sub Form_Click(),Open a:title.txt For Input As #1,Input #1,na, no, id,dat,Close #1,Printer.Print ,姓 名： &,na,Printer.Print ,准考證號碼： &,id,Printer.Print ,座 號： &,no, ,Printer.Print ,日 期： &,dat,SOL01 ,第一題,SOL02 ,第二題,SOL03 ,第三題,SOL04 ,第四題,SOL05 ,第五題,End Sub,第一站程式解題,1. 程式自磁碟機代號,a:,根目錄中的,title.txt,檔案分別讀取姓名、准考證號碼、座號、日期等，並存入變數,name, test_id, seat_no, test_date,中。,2. 一一呼叫,第一題副程式,SOL01,第二題副程式,SOL02,第三題副程式,SOL03,第四題副程式,SOL04,第五題副程式,SOL05,第一題 廽文判斷 程式解題,廽文：由左往右與由右往左讀皆相同,*,* 11900-970301 Program Start *,*,Private Sub SOL01( ),Open “a:940301.SM For Input As #1,Input #1, a,Close #1,c = a,For i = 1 To 10,m = a Mod 10,a = a 10,b = b * 10 + m,If a = 0 Then Exit For,Next i,第一題 廽文判斷 程式解題,If c = b Then,Printer.Print ,第一題結果：;,c; “ is a palindrome.,Else,Printer.Print ,第一題結果：;,c; “ is not a palindrome.,End If,End Sub,【報表輸出】,第一題結果：12321,is a palindrome.,第二題 直角三角形列印 程式解題,*,* 11900-970302 Program Start *,*,Private Sub SOL02(),Open “a:970302.SM” For Input As #1 ,測試資料檔,Input #1, a,Close #1,Print ,第二題結果： ,For i = 1 To a,For j = 1 To i,Printer.Print j;,Next j,Printer.Print,Next i,End Sub,第二題 直角三角形列印 程式解題,【報表輸出】,第二題結果：,1,12,123,1234,12345,123456,1234567,第三題 質數計算 程式解題,質數：除 1 與自己本身外，無其他因數,*,* 11900-970303 Program Start *,*,Private Sub SOL03(),Open a:970303.SM For Input As #1,Input #1, num,Close #1,cnt,= 0,For i = 2 To num - 1,If (num Mod i) = 0 Then,cnt,=,cnt,+ 1,End If,Next i,第三題 質數計算 程式解題,If cnt = 0 Then,msg = num & is a prime number.,Else,msg = num & is not a prime number.,End If,Printer.Print ,第三題結果： &,msg,End Sub,【報表輸出】,第三題結果：12,is not a prime number.,第四題 體質指數,BMI,程式解題,體質指數,BMI (Body Mass Index),係用於評估人體肥胖程度的一種指標，計算方式如下：,BMI =,體重 (,kg) /,身高,x,身高 (,m,2,),正常範圍為 20 25。,請設計一個程式，輸入 3 組身高與體重後，將,BMI,值最小者印出並判斷是否在正常範圍內。(計算至個位數，小數點後第一位數以四捨五入計算),176 (,cm),45 (,kg),165,50,170,55,第四題 體質指數,BMI,程式解題,*,* 11900-970304 Program Start *,*,Private Sub SOL04(),Dim a(100), bmi, lowest As Integer,Open a:970304.SM For Input As #1,For i = 1 To 6,Input #1, a(i),Next i,Close #1,lowest = 999,For i = 1 To 6 Step 2,bmi = a(i + 1) / (a(i) / 100) 2,If bmi id(j) Then,s(i), id(j),s(i), name(j),s(i), sex(j),End If,Next j,Next i,第二站 第題 程式題解,(GoTo Version),checking errors=,For i = 1 To total,errormsg = “ : L1 = Left$(id(i), 1),If Not (L1 = A And L1 10 Then,errormsg = FORMAT ERROR,GoTo dispID,End If,For j = 2 To Len(id(i),DX = Mid$(id(i), j, 1),If Not (DX = 0 And DX id(j) Then,s(i), id(j),s(i), name(j),s(i), sex(j),End If,Next j,Next i,第二站 第題 程式題解,(Non-GoTo Version),checking errors=,For i = 1 To total,errormsg = : L1 = Left$(id(i), 1),If Not (L1 = A And L1 10 Then,errormsg = FORMAT ERROR,Else,For j = 2 To Len(id(i),DX = Mid$(id(i), j, 1),If Not (DX = 0 And DX cartypesum(j) Then,s(i), cartype(j),s(i), cartypesum(j),End If,Next j,Next i,For i = 1 To 4 ,將四種車輛數加總,(,所有車輛的加總,),total = total + cartypesum(i),Next i,第二站 第二題 程式題解,=,車輛種類的統計結果，顯示於,GUI,介面,=,For i = 1 To 4,Label5(i + 1).Caption = cartype(i) ,顯示車輛種類名稱,設定顯示寬度,Shape1(i + 1).Width = Shape1(i + 1).Width * cartypesum(i) / total,Shape1(i + 1).FillColor = RGB(255, 0, 0) R -,紅色,Shape1(i + 1).FillStyle = 0 ,非透明,設定,Text5(i+1),的左邊界,Text5(i + 1).Left = Shape1(i + 1).Left + Shape1(i + 1).Width + 50,Text5(i + 1).Text = Format(cartypesum(i), #,#),Next i,End Sub,第二站 第二題 程式題解,Private Sub Command2_Click(),Dim total As Long,clear ,初始化,GUI,介面,Frame2.Caption = Command2.Caption,For i = 1 To 7 ,所有車輛的加總,total = total + wkdaysum(i),Next i,第二站 第二題 程式題解,=,依星期別的統計結果，顯示於,GUI,介面,=,For i = 1 To 7,Label5(i - 1).Caption = wkday(i) ,顯示星期名稱,設定顯示寬度,Shape1(i - 1).Width = Shape1(i - 1).Width * wkdaysum(i) / total,Shape1(i - 1).FillColor = RGB(0, 255, 0) G -,綠色,Shape1(i - 1).FillStyle = 0 ,非透明,設定,Text5(i-1),的左邊界,Text5(i - 1).Left = Shape1(i - 1).Left + Shape1(i - 1).Width + 50,Text5(i - 1).Text = Format(wkdaysum(i), #,#),Next i,End Sub,第二站 第二題 程式題解,Private Sub Form_Load(),Dim x As Integer,Dim f As String,Dim wd As String ,儲存檔案記錄中之星期欄位,Dim car(4) As Long ,儲存檔案記錄中之四種車輛數欄位,Dim daysum
展开阅读全文