38.doc
|
|
|
- 四伍 巴
- 7 years ago
- Views:
Transcription
1 Visual Basic 學習檔案 ~~ 學生 : 羅家宜 指導老師 : 劉玉敏
2 CH1...1 表單...1 計算 BMI 值...1 CH2...2 計算三角形面積...2 歡迎使用者登入系統...3 CH3...4 FORM( 表單 )...4 表單常用事件 CLICK DBLCLICK...5 COMMANDBUTTON( 按鈕 )...6 LABEL( 標籤 )...7 文字方塊常用方法 -SETFOCUS 事件-LOSTFOCUS...8 文字方塊...9 聊天室...10 大家來找碴...11 CH 循序結構...12 條件結構...13 CH IF THEN 判斷敘述 - 成績判斷...14 IF THEN 判斷敘述 - 購票...15 IF THEN ELSE 判斷敘述 - 判斷成績...16 IF THEN ELSE 判斷敘述 - 判斷視力...17 IF THEN ELSE 判斷敘述 - 判斷月份...18 巢狀 IF 判斷敘述 - 判斷可觀賞影片等級...19 巢狀 IF 判斷敘述 - 判斷參賽級別...20 巢狀 IF 判斷敘述 - 肥胖指數 (BMI) 計算...21 巢狀 IF 判斷敘述 - 判斷所屬年齡層...22 SELECT CASE 判斷敘述 - 判斷所屬世代族群...23 SELECT CASE 判斷敘述 - 判斷可觀賞影片等級...24 SELECT CASE 判斷敘述 - 判斷球隊的吉祥物...25 SELECT CASE 判斷敘述 - 判斷智力等級等級...26 SELECT CASE 判斷敘述 - 星座查詢...27 SELECT CASE 判斷敘述 - 運勢占卜...28 CH FOR-NEXT 迴圈敘述 - 輸出星號...29 FOR-NEXT 迴圈敘述 -1~10 加總...30 FOR-NEXT 迴圈敘述 -2~100 加總
3 FOR-NEXT 迴圈敘述 -1~300 3 的倍數加總...32 FOR-NEXT 迴圈敘述 的和...33 FOR-NEXT 迴圈敘述 - 簡易成績統計...34 WHILE-WEND 迴圈敘述 - 記憶力大考驗...35 WHILE-WEND 迴圈敘述 - 判斷是否猜中預設數字...36 DO-LOOP 迴圈敘述 - 反向輸出字串中的字元...37 DO-LOOP 後測試迴圈敘述 - 模擬四星彩開獎...38 CH 一維陣列 - 統計手機費用...39 一維陣列 - 電腦術語大考驗...40 一維陣列 - 查詢程式語言成績...41 一維陣列 - 找出最大值及最小值...42 多維陣列 - 存放北 中 南三區降雨量...43 多維陣列 - 通訊資料建檔...44 CH 氣泡排序法 - 由小到大排序...45 循序搜尋法 - 搜尋資料 二元搜尋法 - 搜尋資料 上機考...48 計算 A~B 之間間隔為 5 的各數之和 加到 91 7 倍數不加反減...49 DO LOOP 敘述 - 計算 N!...50 LIST BOX 中產生連續學號...51 產生隨機混雜的密碼...52 數入字串重新組合...53 隨機產生 7 個 1~15 不重複數字...54 二維陣列 - 儲存 5 期的四星彩...56 輸入 X Y 軸和往上下左右走幾步最後輸出座標...58 CH 副程式 -1 加到 N 總和...59 副程式 - 計算標準體重...60 副程式 - 簡易售票系統...61 自訂函數 - 試算手機通話費...63 自訂函數 - 計算加油公升數...65 CH 循序檔 -PRINT# WRITE#...67 循序檔 -LIME INPUT #...68 循序檔 -INPUT # 敘述
4 隨機檔 - 自訂記錄格式...70 隨機檔 -INPUT #...71 隨機檔 -GET # 敘述...72 檔案管理 - 文字瀏覽器...74 檔案管理 - 圖片瀏覽器...75 上機考 存取循序檔...76 存取隨機檔
5 Ch1 表單 題目說明 : 計算圓面積 檔案路徑名稱 :01 \ ch1 \ P.30 Private Sub Command1_Click() ' 圓面積的計算 Const pi = Dim r As Single Dim area As Single r = Val(Text1.Text) area = pi * r ^ 2 Text2.Text = area Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Private Sub 結束 _Click() End 1
6 計算 BMI 值 檔案路徑名稱 :01 \ ch1 \ P.35 Private Sub Command1_Click() Dim h, w, bmi As Single h = Val(Text1.Text) / 100 w = Val(Text2.Text) bmi = w / h ^ 2 Label3.Caption = Label3.Caption & bmi Private Sub Command2_Click() End Private Sub Text1_Change() 1
7 Ch2 計算三角形面積 檔案路徑名稱 :01 \ ch2 \ P.75 Private Sub Form_Load() g = InputBox(" 請輸入三角形底邊長 ", " 計算三角形面積 ") j = InputBox(" 請輸入三角形的高度 ", " 計算三角形面積 ") M = g * j / 2 MsgBox " 三角形面積為 " & M, vbokonly, " 計算三角形面積 " 2
8 歡迎使用者登入系統 檔案路徑名稱 :01 \ ch2 \ P.76 Private Sub Form_Activate() Form1.Hide ID = InputBox(" 請輸入大名 ", " 歡迎光臨 ") MsgBox ID & " 同學您好, 歡迎光臨 ",, "Welcome" End 3
9 Ch3 Form( 表單 ) 題目說明 : 利用屬性視窗, 設定表單的屬性 檔案路徑名稱 :01 \ ch3 \ P.91 Private Sub Form_Click() Form1.BackColor = &HFF0000 Private Sub Form_DblClick() Form1.BackColor = &HFFFF& 4
10 表單常用事件 Click DblClick 題目說明 : 輸出星星符號 檔案路徑名稱 :01 \ ch3 \ P.93 Private Sub Form_Click() Print Print " " Private Sub Form_DblClick() Print Print " " 5
11 CommandButton( 按鈕 ) 題目說明 : 字體縮放 檔案路徑名稱 :01 \ ch3 \ P.98 Private Sub Command1_Click() Form1.FontSize = Form1.FontSize + 3 Print "BASIC" Private Sub Command2_Click() Form1.FontSize = Form1.FontSize - 3 Print "BASIC" 6
12 Label( 標籤 ) 題目說明 : 腦筋急轉彎 檔案路徑名稱 :01 \ ch3 \ P.102 Private Sub Command1_Click() Label2.Visible = True Private Sub Label2_Click() Label2.Visible = False 7
13 文字方塊常用方法 -SetFocus 事件 -LostFocus 題目說明 : 登入帳密 檔案路徑名稱 :01 \ ch3 \ P.105 Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text1.SetFocus Private Sub Text1_LostFocus() If Len(Text1.Text) <> 4 Then MsgBox " 帳號應為四字 " Text1.SetFocus 8
14 文字方塊 題目說明 : 字數統計 檔案路徑名稱 :01 \ ch3 \ P.107 Private Sub Command1_Click() Dim length As Integer length = Len(text1.text) Label2.Caption = " 共輸入了 " & length & " 字 " 9
15 聊天室 檔案路徑名稱 :01 \ ch3 \ P.111 Private Sub Command1_Click() Text2.Text = Text2.Text & Label1.Caption & Text1.Text & vbcrlf Text1.Text = "" Private Sub Command2_Click() Text2.Text = "" Private Sub Command3_Click() Text2.Text = Text2.Text & Label2.Caption & Text3.Text & vbcrlf Text3.Text = "" 10
16 大家來找碴 檔案路徑名稱 :01 \ ch3 \ P.112 Private Sub Image2_Click() MsgBox " 不對哦 ",, " 沒找到 " Private Sub Label2_Click() 以此類推以下六個 MsgBox " 好棒哦 ",, " 找到了 " Label2.Enabled = False 11
17 Ch4 循序結構 題目說明 : 西元算出年齡 檔案路徑名稱 :01 \ ch4 \ P.128 Private Sub Form_Activate() Dim age As Integer age = InputBox(" 請輸入西元的出生年份 ", " 計算年齡 ") age = age MsgBox " 您的年齡為 " & age & " 歲 ",, " 年齡 " 12
18 條件結構 題目說明 : 購物促銷方案 檔案路徑名稱 :01 \ ch4 \ P.129 Private Sub Form_Activate() Dim amout As Integer amout = InputBox(" 請輸入購物金額 :", " 購物金額 ") If amout >= 3000 Then amout = amout * 0.85 MsgBox " 您的購物金額滿 3000 元, 可打 85 折, 金額為 " & amout,, " 購物金額 " MsgBox " 您的購物金額未滿 3000 元, 沒有打折, 金額為 " & amout,, " 購物金額 13
19 Ch5 If Then 判斷敘述 - 成績判斷 題目說明 : 判斷成績 (score) 是否大於等於 60? 若是, 便顯示 成績及格 的訊息 檔案路徑名稱 :01 \ ch5 \ P.135 Private Sub Form_Activate() Dim score As Integer score = InputBox(" 請輸入成績 :", " 成績輸入 ") If score >= 60 Then MsgBox " 成績及格 ", , " 成績判斷 " 14
20 If Then 判斷敘述 - 購票 題目說明 : 判斷購票者是否為學生身分? 若是, 則以 7 折來計算電影 票價 檔案路徑名稱 :01 \ ch5 \ P.136 Private Sub Form_Activate() Dim price As Integer, Ans As String price = 250 Ans = InputBox(" 若為學生請輸入 Y, 不是請輸入 N", " 身分確認 ") If Ans = "Y" Or Ans = "y" Then price = price * 0.7 MsgBox " 學生票票價 :" & price,, " 顯示票價 " If Ans = "N" Or Ans = "n" Then MsgBox " 全票票價 :" & price,, " 顯示票價 " 15
21 If Then 判斷敘述 - 判斷成績 題目說明 : 判斷成績 (score) 是否大於等於 60? 若是, 便顯示 成績及格 的訊息 檔案路徑名稱 :01 \ ch5 \ P.138 Private Sub Form_Activate() Dim score As Integer score = InputBox(" 請輸入成績 : ", " 成績輸入 ") If score >= 60 Then MsgBox " 成績及格 ", , " 成績判斷 " MsgBox " 成績不及格 ", , " 成績判斷 " 16
22 If Then 判斷敘述 - 判斷視力 題目說明 : 判斷視力檢測值是否介於 0.8( 不含 )~1.2 之間? 若是, 則顯 示 視力正常 的訊息, 否則, 就顯示 視力可能需矯正 的訊息 檔案路徑名稱 :01 \ ch5 \ P Private Sub Form_Activate() Dim x As Integer x = InputBox(" 請輸入視力檢測值 :", 視力輸入 ) If x > 0.8 And x <= 1.2 Then MsgBox " 視力正常 ",, " 視力檢查 " MsgBox " 視力可能需要矯正 ",, " 視力檢查 " 17
23 If Then 判斷敘述 - 判斷月份 題目說明 : 判斷月份為大月或小月 檔案路徑名稱 :01 \ ch5 \ P Private Sub Form_Activate() Dim m As Integer m = InputBox(" 請輸入本月月份 ", " 月份輸入 ") If m = 1 Or m = 3 Or m = 5 Or m = 7 Or m = 8 Or m = 10 Or m = 12 Then MsgBox m & " 月是大月 ",, " 月份判斷 " MsgBox m & " 月是小月 ",, " 月份判斷 " 18
24 巢狀 If 判斷敘述 - 判斷可觀賞影片等級 題目說明 : 依據年齡層來判斷可觀賞的影片等級 檔案路徑名稱 :01 \ ch5 \ P.144 Private Sub Form_Activate() Dim age As Integer age = InputBox(" 請輸入年齡 :", " 年齡輸入 ") If age < 6 Then MsgBox " 可看普遍級 ",, " 可觀賞的等級 " If age < 12 Then MsgBox " 可看普遍級保護級 ",, " 可觀賞的等級 " If age < 18 Then MsgBox " 可看非限制級影片 ",, " 可觀賞的等級 " MsgBox " 可看各級影片 ",, " 可觀賞的影片 " 19
25 巢狀 If 判斷敘述 - 判斷參賽級別 題目說明 : 依據體重來判斷男子跆拳道選手的參賽級別 檔案路徑名稱 :01 \ ch5 \ P.145 Private Sub Form_Activate() Dim kg As Integer kg = InputBox(" 請輸入體重 :", " 體重輸入 ") If kg < 59 Then MsgBox " 不符合參賽資格 ",, " 參賽級別 " If kg >= 59 And kg < 63 Then MsgBox " 輕量級 ",, " 參賽級別 " If kg >= 63 And kg < 73 Then MsgBox " 中量級 ",, " 參賽級別 " If kg >= 73 Then MsgBox " 重量級 ",, " 參賽級別 " 20
26 巢狀 If 判斷敘述 - 肥胖指數 (BMI) 計算 題目說明 : 依據使用者輸入個人的身高 體重 及性別, 來計算肥胖 指數, 以判斷使用者是否肥胖 檔案路徑名稱 :01 \ ch5 \ P.148 Private Sub Command1_Click() Dim h As Single, w As Single, bmi As Single h = Val(Text1.Text) / 100 w = Val(Text2.Text) bmi = Format(w / (h ^ 2), "##.#") If Option1.Value = True Then If bmi <= 27.8 Then MsgBox " 您的 BMI 值為 " & bmi & ", 屬於一般身材," MsgBox " 您的 BMI 值為 " & bmi & ", 屬於肥胖身材," If bmi <= 27.3 Then MsgBox " 您的 BMI 值為 " & bmi & ", 屬於一般身材," MsgBox " 您的 BMI 值為 " & bmi & ", 屬於肥胖身材," 21
27 巢狀 If 判斷敘述 - 判斷所屬年齡層 題目說明 : 依據輸入之年齡來判斷及顯示所屬年齡層代稱程式 檔案路徑名稱 :01 \ ch5 \ P.153 Private Sub Form_Activate() Dim age As Integer age = InputBox(" 請輸入年齡 :", " 年齡輸入 ") If age >= 14 And age <= 19 Then MsgBox " 少年 ",, " 所屬年齡層 " If age >= 20 And age <= 30 Then MsgBox " 青年 ",, " 所屬年齡層 " If age >= 31 And age <= 55 Then MsgBox " 壯年 ",, " 所屬年齡層 " If age >= 56 Then MsgBox " 老年 ",, " 所屬年齡層 " 22
28 Select Case 判斷敘述 - 判斷所屬世代族群 題目說明 : 依據出生年次來判斷所屬的世代族群 檔案路徑名稱 :01 \ ch5 \ P.156 Private Sub Form_Activate() Dim y As Integer y = InputBox(" 請輸入出生年次 ", " 輸入年次 ") Select Case y Case Is >= 70 MsgBox " 水蜜桃族 ",, " 世代族群 " Case Is >= 60 MsgBox " 草莓族 ",, " 世代族群 " Case MsgBox " 芭樂族 ",, " 世代族群 " End Select 23
29 Select Case 判斷敘述 - 判斷可觀賞影片等級 題目說明 : 依據年齡層來判斷可觀賞的影片等級 檔案路徑名稱 :01 \ ch5 \ P.157 Private Sub Form_Activate() Dim age As Integer age = InputBox(" 請輸入年齡 :", " 年齡輸入 ") Select Case age Case Is < 6 MsgBox " 可看普遍級 ",, " 可觀賞的等級 " Case Is < 12 MsgBox " 可看普遍級保護級 ",, " 可觀賞的等級 " Case Is < 18 MsgBox " 可看非限制級影片 ",, " 可觀賞的等級 " Case MsgBox " 可看各級影片 ",, " 可觀賞的影片 " End Select 24
30 Select Case 判斷敘述 - 判斷球隊的吉祥物 題目說明 : 依據使用者輸入的職棒球隊名稱, 判斷球隊的吉祥物 檔案路徑名稱 :01 \ ch5 \ P.159 Private Sub Command1_Click() Dim name As String name = Text1.Text Select Case name Case Is = " 興農 " Option1.Value = True Case Is = " 中信 " Option2.Value = True Case Is = "LaNew" Option3.Value = True Case Is = " 兄弟 " Option4.Value = True Case Is = " 統一 " Option5.Value = True Case Is = " 誠泰 " Option6.Value = True Case MsgBox " 無此球隊, 請重新輸入 ",, " 輸入有誤 " Text1.Text = "" Text1.SetFocus End Select 25
31 Select Case 判斷敘述 - 判斷智力等級等級 題目說明 : 依據輸入之智力測驗成績來判斷及顯示智力等級的程式 檔案路徑名稱 :01 \ ch5 \ P.165 Private Sub Form_Activate() Dim s As Integer s = InputBox(" 請輸入智力測驗成績 :", " 測驗成績判斷 ") Select Case s Case 80 To 110 MsgBox " 正常智力 ",, " 測驗成果 " Case 111 To 120 MsgBox " 高智力 ",, " 測驗結果 " Case 121 To 140 MsgBox " 極高智力 ",, " 測驗結果 " Case Is >= 141 MsgBox " 天才 ",, " 測驗結果 " End Select 26
32 Select Case 判斷敘述 - 星座查詢 題目說明 : 判斷使用者輸入之日期, 並顯示所屬的星座 檔案路徑名稱 :01 \ ch5 \ P.167 Private Sub Command1_Click() Dim m As Single, d As Single m = Int(Text1.Text) d = Int(Text2.Text) Select Case m Case 1 If d < 20 Then Option6.Value = True Option9.Value = True Case 2 If d < 20 Then Option9.Value = True Option12.Value = True Case 3 If d < 21 Then Option12.Value = True Option1.Value = True Case 4 If d < 21 Then Option1.Value = True Option4.Value = True Case 5 If d < 21 Then Option4.Value = True Option7.Value = True Case 6 If d < 22 Then Option7.Value = True Option10.Value = True Case 7 If d < 23 Then Option10.Value = True : Option2.Value = True Case 8 If d < 23 Then Option2.Value = True Option5.Value = True Case 9 If d < 23 Then Option7.Value = True Option1.Value = True Case 10 If d < 23 Then Option8.Value = True Option11.Value = True Case 11 If d < 22 Then Option11Value = True Option3.Value = True Case 12 If d < 22 Then Option3.Value = True Option6.Value = True Case MsgBox " 輸入錯誤, 請重新輸入 ",, " 輸入有誤 " End Select 27
33 Select Case 判斷敘述 - 運勢占卜 題目說明 : 設計一個運勢占卜的程式 檔案路徑名稱 :01 \ ch5 \ P.168 Private Sub Command1_Click() Dim a As Integer a = Int(Rnd() * 6) + 1 Select Case a Case 1 Text1.Text = " 下下籤 : 諸事不宜 " Case 2 Text1.Text = " 中上籤 : 會有貴人相助 " Case 3 Text1.Text = " 中下籤 : 口舌之爭 " Case 4 Text1.Text = " 平籤 : 保持平常心 " Case 5 Text1.Text = " 平籤 : 沒事就是好事 " Case 6 Text1.Text = " 上上籤 : 意外之財降臨 " End Select Private Sub Command2_Click() Form1.Hide 28
34 Ch6 For-Next 迴圈敘述 - 輸出星號 題目說明 : 輸出由 * 所組成的 10 層直角三角形圖案 檔案路徑名稱 :01 \ ch6 \ P.171 Private Sub Form_Activate() Dim i As Integer For i = 1 To 10 Print String(i, "*") Next i 29
35 For-Next 迴圈敘述 -1~10 加總 題目說明 : 計算 1 加到 10 的總和 檔案路徑名稱 :01 \ ch6 \ P.172 Private Sub Form_Activate() Dim i As Integer, sum As Integer sum = 0 For i = 1 To 10 sum = sum + i Next i MsgBox " =" & sum,, " 計算 1 加到 10 的總合 " 30
36 For-Next 迴圈敘述 -2~100 加總 題目說明 : 計算 2 加到 100 的總和 檔案路徑名稱 :01 \ ch6 \ P.172- 延伸 1 Private Sub Form_Activate() Dim i As Integer, sum As Integer sum = 0 For i = 2 To 100 Step 2 sum = sum + i Next i MsgBox " =" & sum,, " 計算 2 加到 100 的總合 " 31
37 For-Next 迴圈敘述 -1~300 3 的倍數加總 題目說明 : 計算 1 到 的倍數加總 檔案路徑名稱 :01 \ ch6 \ P.172- 延伸 2 Private Sub Form_Activate() Dim i, sum, n As Integer For i = 1 To 300 If i Mod 3 = 0 Then sum = sum + i n = n + i List1.AddItem i Next i MsgBox " =" & sum,, " 計算 1 到 的倍數加總 " 32
38 For-Next 迴圈敘述 的和 題目說明 : 計算 的和 檔案路徑名稱 :01 \ ch6 \ P.172- 延伸 3 Private Sub Form_Activate() Dim i As Integer, sum As Integer For i = 1 To 99 If i Mod 3 = 0 Then sum = sum - i sum = sum + i Next i MsgBox " 的總和 :" & sum,, " 計算總和 " 33
39 For-Next 迴圈敘述 - 簡易成績統計 題目說明 : 依據使用者連續輸入的 5 科段考成績, 來計算段考總分 最高成績 與及格的科目數 檔案路徑名稱 :01 \ ch6 \ P.175 Private Sub Command1_Click() Dim i, score, sum, max, n As Integer sum = 0: max = 0: n = 0 Text1.Text = " 成績資料 :" For i = 1 To 5 score = Val(InputBox(" 請輸入段考成績 :", " 簡易成績統計 ")) sum = sum + score Text1.Text = Text1.Text & score & Space(2) If score > max Then max = score If score >= 60 Then n = n + 1 Next i If Check1.Value = 1 Then Text1.Text = Text1.Text & vbcrlf + " 總分為 " & sum & " 分 " If Check2.Value = 1 Then Text1.Text = Text1.Text & vbcrlf + " 最高分為 " & max & " 分 " If Check3.Value = 1 Then Text1.Text = Text1.Text & vbcrlf + " 及格科數為 " & n & " 科 " 34
40 While-Wend 迴圈敘述 - 記憶力大考驗 題目說明 : 記憶力大考驗 ( 表單上顯示 5 個隨機產生的數字, 並於 3 秒後自動隱藏數字, 讓使用者考驗自己記憶能力的程式 ) 檔案路徑名稱 :01 \ ch6 \ P.186 Private Sub Command1_Click() Dim i As Integer, n As Integer Randomize i = 1 While i <= 5 n = Int(Rnd() * 99) + 1 Text1.Text = Text1.Text & n & Space(2) i = i + 1 Wend Timer1.Enabled = True Private Sub Command2_Click() Text2.Text = Text1.Text Private Sub Timer1_Timer() Text1.Visible = False Command1.Enabled = False Command2.Enabled = True Timer1.Enabled = False 35
41 While-Wend 迴圈敘述 - 判斷是否猜中預設數字 題目說明 : 猜數字遊戲 ( 預設數字為 176) 檔案路徑名稱 :01 \ ch6 \ P.192 作業 Private Sub Form_Activate() Dim pwd As Integer, cpwd As Integer cpwd = 176 pwd = InputBox(" 請輸入一個 3 位的整數資料 ", " 猜數字遊戲 ") While pwd <> cpwd Wend If pwd > cpwd Then pwd = InputBox(" 輸入的整數太大, 請再輸入一次 ", 猜數字遊戲 ) pwd = InputBox(" 輸入的整數太小, 請再輸入一次 ", 猜數字遊戲 ) MsgBox " 恭喜, 猜對了 ",, " 猜數字遊戲 " 36
42 Do-Loop 迴圈敘述 - 反向輸出字串中的字元 題目說明 : 反向輸出字串中的字元 檔案路徑名稱 :01 \ ch6 \ P.194 Private Sub Form_Activate() Dim i As Integer, word As String, reword As String word = InputBox(" 請輸入任意字串 :", " 字串反轉 ") i = Len(word) Do While i >= 1 reword = reword + Mid(word, i, 1) i = i - 1 Loop MsgBox word & " 反轉後為 " & reword,, " 字串反轉 " 37
43 Do-Loop 後測試迴圈敘述 - 模擬四星彩開獎 題目說明 : 四星彩開獎 ( 設計一個可隨機產生 4 個介於 0~9 之間的整 數, 以模擬四星彩公益彩券開獎的程式 ) 檔案路徑名稱 :01 \ ch6 \ P.201 Private Sub command1_click() Dim i As Integer, n As Integer Randomize i = 1 Do While i <= 4 n = Int(Rnd * 10) Select Case i Case 1: Image1.Picture = LoadPicture(App.Path & "\ 樂透球 " & n & ".jpg") Case 2: Image2.Picture = LoadPicture(App.Path & "\ 樂透球 " & n & ".jpg") Case 3: Image3.Picture = LoadPicture(App.Path & "\ 樂透球 " & n & ".jpg") Case 4: Image4.Picture = LoadPicture(App.Path & "\ 樂透球 " & n & ".jpg") End Select i = i + 1 Loop 38
44 Ch7 一維陣列 - 統計手機費用 題目說明 : 使用一維陣列來儲存某年度 1~12 月的手機費用 檔案路徑名稱 :01 \ ch7 \ P.222 Private Sub Form_Activate() Dim bill(1 To 12) As Integer, i As Integer, sum As Integer For i = 1 To 12 bill(i) = InputBox(" 請輸入 " & i & " 月的手機費 :", " 手機費輸入 ") sum = sum + bill(i) Next i MsgBox " 今年度的手機費共繳了 " & sum & " 元 ",, " 統計手機費用 " 39
45 一維陣列 - 電腦術語大考驗 題目說明 : 電腦術語大考驗 ( 在清單中點選相對應的英文電腦術語 ) 檔案路徑名稱 :01 \ ch7 \ P.223 Private Sub Command1_Click() If List1.ListIndex + 1 = n Then Label3.Caption = " 答對了!" Label3.Caption = " 答錯了!" Private Sub Form_Load() Dim i As Integer Dim chi(1 To 5) As String Dim eng(1 To 5) As String chi(1) = " 電腦輔助教學軟體 ": eng(1) = "CAI" chi(2) = " 中央處理單元 ": eng(2) = "CPU" chi(3) = " 隨機存取記憶體 ": eng(3) = "RAM" chi(4) = " 全球資訊網 ": eng(4) = "WWW" chi(5) = " 區域網路 ": eng(5) = "LAN" Randomize n = Int(Rnd() * 5) + 1 Label2.Caption = Label2.Caption + chi(n) + " =>" For i = 1 To 5 List1.AddItem eng(i) Next i 40
46 一維陣列 - 查詢程式語言成績 題目說明 : 利用一維陣列設計一個可用來輸入及查詢程式語言成績 的程式 檔案路徑名稱 :01 \ ch7 \ P.228 Private Sub Command1_Click() Dim i As Integer i = Int(Text1.Text) If i >= 1 And i <= 50 Then score(i) = Int(Text2.Text) MsgBox " 輸入介於 1~50 之間 ",, " 數字輸入錯誤 " Text1.Text = "" Text2.Text = "" Text1.SetFocus Private Sub Command2_Click() Dim j As Integer j = Int(Text1.Text) If j < 0 And j > 50 Then score(j) = Int(Text2.Text) Text2.Text = score(j) 41
47 一維陣列 - 找出最大值及最小值 題目說明 : 利用一維陣列來儲存使用者輸入的 5 個資料, 並找出陣 列資料中最大值及最小值 檔案路徑名稱 :01 \ ch7 \ P.229 Dim max, min, n, a(1 To 5) As Integer Private Sub Command1_Click() For i = 1 To 5 a(i) = InputBox(" 請輸入成績 ", " 比較數值大小 ") n = n + 1 If Val(a(i)) > max Then max = a(i) If Val(a(i)) < min Then min = a(i) Text1 = Text1 & " 第 " & n & " 個數值是 " & a(i) & vbcrlf Next i Private Sub Command2_Click() Text1 = Text1 & " 最大值為 " & max & vbcrlf Private Sub Command3_Click() Text1 = Text1 & " 最小值為 " & min & vbcrlf Private Sub Form_Load() min = 10000: n = 0 42
48 多維陣列 - 存放北 中 南三區降雨量 題目說明 : 輸入並儲存北 中 南三區某年 1~12 月的雨量資料 檔案路徑名稱 :01 \ ch7 \ P.232 Private Sub Form_Activate() Dim rain(1 To 3, 1 To 12) As Single For i = 1 To 3 For j = 1 To 12 Select Case i Case 1: rain(i, j) = Val(InputBox(" 請輸入北區 " & j & " 月的雨量 :", " 雨量輸入 ")) Case 2: rain(i, j) = Val(InputBox(" 請輸入中區 " & j & " 月的雨量 :", " 雨量輸入 ")) Case 3: rain(i, j) = Val(InputBox(" 請輸入南區 " & j & " 月的雨量 :", " 雨量輸入 ")) End Select Next j Next i 43
49 多維陣列 - 通訊資料建檔 題目說明 : 設計一個可供使用者將個人好友通訊資料建檔的程式 檔案路徑名稱 :01 \ ch7 \ P.234 Dim data(1 To 38, 1 To 4) As String Dim n As Integer Private Sub Command1_Click() n = n + 1 data(n, 1) = Text1.Text data(n, 1) = Combo1.Text + "/" + Combo2.Text + "/" + Combo3.Text data(n, 1) = Text2.Text data(n, 1) = Text3.Text MsgBox " 第 " & n & " 筆資料輸入完成 ",, " 儲存聯絡人資料 " ' 姓名 ' 日期 ' 電郵 ' 電話 Private Sub Command2_Click() Private Sub Form_Activate() Dim i, j, k As Integer For i = 80 To 84 Combo1.AddItem Str(i) Next i For j = 1 To 12 Combo2.AddItem Str(j) Next j For k = 1 To 31 Combo3.AddItem Str(k) Next k 'Combo1 年 'Combo2 月 'Combo3 日 44
50 Ch8 氣泡排序法 - 由小到大排序 題目說明 : 利用氣泡排序法將五個大小不等的資料, 由小到大排序 的程式碼 檔案路徑名稱 :01 \ ch8 \ P.255 Private Sub Command1_Click() Dim a(4) a(0) = 20: a(1) = 5: a(2) = 30: a(3) = 40: a(4) = 15 Print " 排序前資料為 " For i = 0 To 4 Print a(i) & Space(3); Next i For i = 1 To (5-1) For j = 0 To (4 - i) If a(j) > a(j + 1) Then temp = a(j) a(j) = a(j + 1) a(j + 1) = temp Next j Next i Print: Print: Print " 排序後資料為 " For i = 0 To 4 Print a(i) & Space(3); Next i 45
51 循序搜尋法 - 搜尋資料 15 題目說明 : 利用循序搜尋法搜尋資料 30 的程式碼 檔案路徑名稱 :01 \ ch8 \ P.264 Private Sub Form_Activate() Dim a(1 To 5) As Integer a(1) = 5: a(2) = 30: a(3) = 40: a(4) = 15: a(5) = 10 i = 1 Target = 30 Do If Target = a(i) Then Print " 找到數值 30" Exit Do i = i + 1 If i > 5 Then Print " 找不到數值 30" Exit Do Loop 46
52 二元搜尋法 - 搜尋資料 30 題目說明 : 利用二元搜尋法搜尋資料 30 的程式碼 檔案路徑名稱 :01 \ ch8 \ P.267 Private Sub Form_Activate() Dim a(1 To 6) As Integer a(1) = 5: a(2) = 10: a(3) = 15: a(4) = 20: a(5) = 30: a(6) = 40 Target = 30 L = 1: R = 6: Result = " 找不到 " While L <= R And Result = " 找不到 " M = (L + R) \ 2 If a(m) = Target Then Result = " 找到目標資料 " If a(m) > Target Then R = M - 1 L = M + 1 Wend MsgBox Result & Target 47
53 上機考計算 A~B 之間間隔為 5 的各數之和 題目說明 : 讓使用者輸入兩個整數 A B, 並計算 A 到 B 之間, 間 隔為 5 的各數之和 檔案路徑名稱 :01 \ 上機考 \ 98 1 第一次段考 -1 Private Sub Command1_Click() Dim i, a, b As Integer a = Text1.Text b = Text2.Text For i = a To b Step 5 Sum = Sum + i Next i MsgBox "a " & 到 & "b" & " 之間間隔為 5 之和 =" & Sum,, " 計算總合 " 48
54 1 加到 91 7 倍數不加反減 題目說明 : 計算 1 連續加至 91, 增量值為 2, 但若為 7 的倍數則不加反減, 最後將和輸出 檔案路徑名稱 :01 \ 上機考 \98 1 第一次段考 -2 Private Sub Form_Activate() Dim p As Integer, s As Integer Sum = 0 For p = 1 To 91 Step 2 If p Mod 7 = 0 Then s = s - p s = s + p Next p MsgBox " =" & s,, " 總合結果 " 49
55 Do Loop 敘述 - 計算 N! 題目說明 : 利用 Do-Loop 敘述, 撰寫計算 N! 的程式 檔案路徑名稱 :01 \ 上機考 \98 1 第一次段考 -3 Private Sub Form_Activate() Dim i As Integer, sum As Integer n = InputBox(" 輸入任一個數字 ", " 計算 N!") sum = 1 i = 1 Do While i <= n sum = sum * i i = i + 1 Loop MsgBox n & "! = " & sum,, " 計算 N!" 50
56 List box 中產生連續學號 題目說明 : 請撰寫一個能於 list box 中產生連續學號之程式 檔案路徑名稱 :01 \ 上機考 \98 1 第一次段考 -4 Private Sub Form_Activate() For i = 65 To 90 For j = 0 To 9 List1.AddItem Chr(i) & "8912" & j Next j Next i 51
57 產生隨機混雜的密碼 題目說明 : 請撰寫一個能於隨機產生一組長度為 6, 並為數字 大寫英文字母 小寫英文字母三者隨機混雜的密碼程式 ( 如 : 為 G60D5s) 檔案路徑名稱 :01 \ 上機考 \98 1 第一次段考 -5 Private Sub Command1_Click() Dim str1 As String, x, i, n As Integer Randomize: str1 = "" For i = 1 To 6 n = Int(Rnd() * 3) + 1 Select Case n Case 1: x = Int(Rnd() * 10): str1 = str1 & x Case 2: x = Int(Rnd() * 26) + 65: str1 = str1 & Chr(x) Case 3: x = Int(Rnd() * 26) + 97: str1 = str1 & Chr(x) End Select Next i Text1 = str1 52
58 數入字串重新組合 題目說明 : 請撰寫一個能將使用者輸入的字串, 採先取出偶數位字元, 再取 出奇數位字元之順序, 將之重新組合的程式 檔案路徑名稱 :01 \ 上機考 \98 1 第一次段考 -6 Private Sub Form_Activate() Dim a, b As String a = InputBox(" 請輸入字串 ", " 字串輸入 ") For i = 2 To Len(a) Step 2 b = b & Mid(a, i, 1) Next For i = 1 To Len(a) Step 2 b = b & Mid(a, i, 1) Next MsgBox " 組合後為 :" & b,, " 重新組合 " 53
59 隨機產生 7 個 1~15 不重複數字 題目說明 : 請撰寫一個能隨機產生 7 個介於 1 到 15 之間不重複的數字陣列, 並加至左邊 list box 中 檔案路徑名稱 :01 \ 上機考 \98 2 第二次段考 -1 Dim A(1 To 7) As Integer Private Sub Command1_Click() Max = A(1) For i = 2 To 7 If A(i) > Max Then Max = A(i) Next i MsgBox " 最大值 " & Max,, "The Result" Private Sub Command2_Click() Min = A(1) For i = 2 To 7 If A(i) < Min Then Min = A(i) Next i MsgBox " 最小值 " & Min,, "The Result" Private Sub Command3_Click() List2.Clear For i = 1 To 6 For j = 1 To 7 - i If A(j) > A(j + 1) Then temp = A(j): A(j) = A(j + 1): A(j + 1) = temp Next j Next i For i = 1 To 7 List2.AddItem A(i) Next i Private Sub Command4_Click() List2.Clear For i = 1 To 6 For j = 1 To 7 - i If A(j) < A(j + 1) Then temp = A(j): A(j) = A(j + 1): A(j + 1) = temp Next j Next i For i = 1 To 7 List2.AddItem A(i) Next i Private Sub Command5_Click() Dim M As Integer cho = MsgBox(" 是否已遞增排序?", 48 + vbokcancel, " 提醒 ") If cho = 1 Then tre = Val(InputBox(" 請輸入欲尋找的數值 ", " 搜尋 ")): L = 1: R = 7: n = 0 Do M = (L + R) / 2: n = n + 1 If A(M) = tre Then MsgBox " 在第 " & n & " 次, 找到目標 " & tre: Exit Do If tre > A(M) Then L = M + 1 R = M - 1 Loop If L > R Then MsgBox " 找不到 " & tre: Exit Do 54
60 Private Sub Form_Load() Randomize str1 = "": n = 0 Do x = Int(Rnd() * 15) + 1 If InStr(str1, "*-" & x) = 0 Then n = n + 1: str1 = str1 + "*-" & x: List1.AddItem x: A(n) = x If n = 7 Then Exit Do Loop 55
61 二維陣列 - 儲存 5 期的四星彩 題目說明 : 利用二維陣列來儲存近 5 期的 4 星彩開獎號碼 ( 範圍 0~9), 並計 算每個號碼出現的次數 檔案路徑名稱 :01 \ 上機考 \98 2 第二次段考 -2 Private Sub Command1_Click() Dim lucky(5, 4) As Integer Dim no(9) As Integer Dim all As String For i = 1 To 5 all = "" all = all & " 第 " & i & " 期 :" For j = 1 To 4 lucky(i, j) = InputBox(" 請輸入第 " & i & " 期, 第 " & j & " 個開獎數字 ( 共 4 個 )") all = all & lucky(i, j) & Space(3) Select Case lucky(i, j) Case 0: no(0) = no(0) + 1 Case 1: no(1) = no(1) + 1 Case 2: no(2) = no(2) + 1 Case 3: no(3) = no(3) + 1 Case 4: no(4) = no(4) + 1 Case 5: no(5) = no(5) + 1 Case 6: no(6) = no(6) + 1 Case 7: no(7) = no(7) + 1 Case 8: no(8) = no(8) + 1 Case 9: no(9) = no(9) + 1 Case 0: no(0) = no(0) + 1 End Select Next List1.AddItem all 56
62 Next For i = 0 To 9 List2.AddItem i & " 出現 :" & no(i) & " 次 " Next 57
63 輸入 X Y 軸和往上下左右走幾步最後輸出座標 題目說明 : 設計一個讓使用者輸入 X Y 軸和往上下左右走幾步, 最後輸出 座標 檔案路徑名稱 :01 \ 上機考 \ 程式設計 -1 Private Sub Command1_Click() X = Val(Text1): Y = Val(Text2): n = Val(Text3) If Option1(0).Value = True Then Y = Y + n If Option1(1).Value = True Then Y = Y - n If Option1(2).Value = True Then X = X - n If Option1(3).Value = True Then X = X + n MsgBox X & " " & Y,, "X 跟 Y 座標 " 58
64 Ch9 副程式 -1 加到 N 總和 題目說明 : 計算 1 加到 N 的總和 檔案路徑名稱 :02 \ ch9\p.11 Sub n_sum(a As Integer) Dim sum As Integer, i As Integer sum = 0 For i = 1 To a sum = sum + i Next i MsgBox " " & a & "=" & sum,, " 計算 1 加到 N 的總和 " Private Sub Form_Activate() Dim N As Integer N = InputBox(" 請輸入 N 值 ", " 數值累加 ") Call n_sum(n) 59
65 副程式 - 計算標準體重 題目說明 : 計算標準體重 檔案路徑名稱 :02 \ ch9\p.12 Sub Cal_sw(S_sex As String, S_ht As Single) Dim sw As Single If S_sex = "N" Then sw = (S_ht - 80) * 0.7 sw = (S_ht - 70) * 0.6 MsgBox " 您的標準體重為 " & sw,, " 計算標準體重 " swt = InputBox(" 請輸入體重 (kg)", " 判斷是否過重 ") If swt > sw Then MsgBox " 您的體重超出標準體重 ",, " 判斷是否過重 " MsgBox " 您的體重未超出標準體重 ",, " 判斷是否過重 " Private Sub Form_Activate() Dim ht As Single, sex As String * 1 sex = InputBox(" 請輸入性別, 男性輸入 M, 女性輸入 F", " 計算標準體重 ") ht = InputBox(" 請輸入身高 (cm):", " 計算標準體重 ") Call Cal_sw(sex, ht) 60
66 副程式 - 簡易售票系統 題目說明 : 依據使用者所點選的座位區及輸入的購票張數, 來計算票價 檔案路徑名稱 :02 \ ch9\p.15 Sub cal_price(i As Integer, j As Integer) Dim price As Integer, sum As Integer Dim area As String price = 600 Select Case i Case 0, 2 area = " 搖滾 A/C 區 " price = price * 2.5 Case 1 area = " 搖滾 B 區 " price = price * 3 Case 3, 5 area = " 看台 A/C 區 " price = price * 1.5 Case 4 area = " 看台 B 區 " price = price * 2 End Select If j >= 10 Then sum = sum * 0.9 sum = j * price Label3.Caption = j & " 張 " & area & " 票, 總計 " & sum & " 元 " Private Sub Command1_Click() Dim count As Integer, Index As Integer count = InputBox(" 請輸入所要購買的票數 ", " 購買票數 ") Call cal_price(index, count) Private Sub Command2_Click() Dim count As Integer, Index As Integer 61
67 count = InputBox(" 請輸入所要購買的票數 ", " 購買票數 ") Call cal_price(index, count) Private Sub Command3_Click() Dim count As Integer, Index As Integer count = InputBox(" 請輸入所要購買的票數 ", " 購買票數 ") Call cal_price(index, count) Private Sub Command4_Click() Dim count As Integer, Index As Integer count = InputBox(" 請輸入所要購買的票數 ", " 購買票數 ") Call cal_price(index, count) Private Sub Command5_Click() Dim count As Integer, Index As Integer count = InputBox(" 請輸入所要購買的票數 ", " 購買票數 ") Call cal_price(index, count) Private Sub Command6_Click() Dim count As Integer, Index As Integer count = InputBox(" 請輸入所要購買的票數 ", " 購買票數 ") Call cal_price(index, count) 62
68 自訂函數 - 試算手機通話費 題目說明 : 依據使用者輸入的月租費及通話時間, 來試算手機通話費 檔案路徑名稱 :02 \ ch9\p.29 Function mbill(f_case As Integer, f_sec As Integer) As Integer Dim rate As Single, fee As Integer Dim total As Integer Select Case f_case Case 0 rate = 0.13 fee = 88 Case 1 rate = 0.12 fee = 188 Case 2 rate = 0.11 fee = 288 Case 3 rate = 0.09 fee = 588 End Select total = rate * f_sec If total < free Then mbill = free mbill = total End Function Private Sub Command1_Click() Dim bcase As Integer, sec As Integer Dim bill As Integer 63
69 bcase = Combo1.ListIndex sec = Int(Text1.Text) * 60 bill = mbill(bcase, sec) Label4.Caption = " 通話費為 :" & bill & " 元 " Private Sub Form_Load() Combo1.AddItem "88 元 " Combo1.AddItem "188 元 " Combo1.AddItem "288 元 " Combo1.AddItem "588 元 " 64
70 自訂函數 - 計算加油公升數 題目說明 : 可依據輸入之油品 (92 95 或 98 無鉛汽油 ) 及加油金額, 來計算 可加油公升數的自訂函數 檔案路徑名稱 :02 \ ch9\p.35 Private Sub Command1_Click() Dim oil As Single, m As Single Dim l As Single oil = Combo1.ListIndex m = Int(Text1.Text) l = a(oil, m) Label4.Caption = " 可加 " & l & " 公升 " Private Sub Form_Load() Combo1.AddItem " 柴油 " Combo1.AddItem "92 無鉛汽油 " Combo1.AddItem "95 無鉛汽油 " Combo1.AddItem "98 無鉛汽油 " Function a(f_oil As Single, f_m As Single) As Single Dim n As Single Dim total As Single Select Case f_oil Case 0 n = 18.5 Case 1 n = 23.2 Case 2 n = 23.9 Case 3 n = 25.4 End Select total = Format(f_m / n, "0.00") a = total 65
71 End Function 66
72 Ch12 循序檔 -Print# Write# 題目說明 :Print# 敘述 Write# 敘述 檔案路徑名稱 :02 \ ch12\p.149~150 Private Sub Form_Activate() Open "C:\38\corn.txt" For Output As #1 Print #1, " 蔡壹零的生日是 "; #2/24/1978# Print #1, Print #1, " 電話是 ", Close ' 用 write# 的方式寫入檔案 Open "C:\38\corn.txt" For Append As #1 Write #1, " 蔡壹零的生日是 "; #2/24/1978# Write #1, Write #1, " 電話是 ", Close 67
73 循序檔 -Lime Input # 題目說明 :Line Input # 敘述 檔案路徑名稱 :02 \ ch12\p.153 Private Sub Form_Activate() Open "c:\38\corn.txt" For Input As #1 Do While Not EOF(1) x = Input(1, #1) Print x; Loop Close 68
74 循序檔 -Input # 敘述 題目說明 :Input # 敘述 檔案路徑名稱 :02 \ ch12\p.154 Private Sub Form_Activate() Dim x As String Open "c:\38\corn.txt" For Input As #1 Do While Not EOF(1) Input #1, x Print x Loop Close 69
75 隨機檔 - 自訂記錄格式 題目說明 :Put # 敘述用來將資料寫入隨機檔中 檔案路徑名稱 :02 \ ch12\p.164 Private Type record no As String * 6 name As String * 8 score As Integer End Type Dim student As record Dim file_no As Integer Private Sub Command1_Click() Static i As Integer i = i + 1 student.no = Text1(0).Text student.name = Text1(1).Text student.score = Val(Text1(2).Text) Put #file_no, i, student Private Sub Form_Load() file_no = FreeFile Open App.Path & "\random" For Random As #file_no Len = 16 Print Len(student) 70
76 隨機檔 -Input # 題目說明 :Input # 敘述用來將資料寫入隨機檔中 檔案路徑名稱 :02 \ ch12\p.164- 延伸 Private Sub Command1_Click() Dim x As String Open "C:\38\data1.txt" For Input As #1 Do While Not EOF(1) Line Input #1, x Text1.Text = Text1 & x & vbcrlf Loop Close Private Sub Command2_Click() Text1.Text = "" 71
77 隨機檔 -Get # 敘述 題目說明 :Get # 敘述是用來讀取隨機檔內的資料 檔案路徑名稱 :02 \ ch12\p.166 Private Type record no As String * 6 name As String * 8 score As Integer End Type Dim student As record Dim file_no As Integer Private Sub Command1_Click() Static i As Integer i = LOF(file_no) / Len(student) i = i + 1 student.no = Text1(0).Text student.name = Text1(1).Text student.score = Val(Text1(2).Text) Put #file_no, i, student Text1(0).Text = "" Text1(1).Text = "" Text1(2).Text = "" Text1(0).SetFocus Private Sub Command2_Click() Dim j As Integer Do While j <> LOF(file_no) / Len(student) 72
78 j = j + 1 Get file_no, j, student Text1(0).Text = student.no Text1(1).Text = student.name Text1(2).Text = student.score MsgBox " 第 " & j & " 筆資料 " Loop Private Sub Form_Load() file_no = FreeFile Open App.Path & "\random" For Random As #file_no Len = 16 Print Len(student) 73
79 檔案管理 - 文字瀏覽器 題目說明 : 文字瀏覽器 檔案路徑名稱 :02 \ ch12\p.185 Private Sub Dir1_Change() File1.path = Dir1.path Private Sub Drive1_Change() Dir1.path = Drive1.Drive Private Sub File1_Click() Dim path As String Dim aline As String Dim alldata As String If Right(File1.path, 1) <> "\" Then path = File1.path & "\" & File1.FileName path = File1.path & File1.FileName Open path For Input As #1 Do While Not EOF(1) Line Input #1, aline alldata = alldata & aline & vbcrlf Loop Text1.Text = alldata Close #1 74
80 檔案管理 - 圖片瀏覽器 題目說明 : 圖片瀏覽器 檔案路徑名稱 :02 \ ch12\p.186 Private Sub Dir1_Change() File1.path = Dir1.path Private Sub Drive1_Change() Dir1.path = Drive1.Drive Private Sub File1_Click() Dim file_no As Integer Dim aline As String Dim alldata As String Dim path As String If Right(File1.path, 1) <> "\" Then path = File1.path & "\" & File1.FileName path = File1.path & File1.FileName file_no = FreeFile Image1.Picture = LoadPicture(path) 75
81 上機考 2 存取循序檔 題目說明 : 設計一個能存取循序檔的程式 檔案路徑名稱 :02 \ 上機考 -1 Dim file_no As Integer Dim append_sw As Boolean Private Sub Command1_Click() ' 第一筆 Close #file_no file_no = FreeFile Open App.Path & "\salary.txt" For Input As #file_no If EOF(file_no) Then MsgBox " 請輸入資料!" Command2.Enabled = True If Not EOF(file_no) Then Input #file_no, e_no, e_name, e_sex, e_salary, e_over Text1.Text = e_no Text2.Text = e_name If e_sex = " 男 " Then Option1.Value = True Option2.Value = True Text3.Text = e_salary Text4.Text = e_over Private Sub Command2_Click() ' 下一筆 If Not EOF(file_no) Then Input #file_no, e_no, e_name, e_sex, e_salary, e_over Text1.Text = e_no Text2.Text = e_name If e_sex = " 男 " Then Option1.Value = True Option2.Value = True Text3.Text = e_salary Text4.Text = e_over 76
82 Close #file_no Command2.Enabled = False MsgBox " 已無資料!" Private Sub Command3_Click() ' 結束 Close #file_no End Private Sub Command5_Click() ' 統計 i = 0: Sum = 0: sum2 = 0 Close #file_no file_no = FreeFile Open App.Path & "\salary.txt" For Input As #file_no Do While Not EOF(file_no) Input #file_no, e_no, e_name, e_sex, e_salary, e_over i = i + 1 Sum = Sum + e_salary sum2 = sum2 + e_over Loop Label5.Caption = " 共 " & i & " 名員工, 薪資計 " & Sum & " 元整, 加班費計 " & sum2 & " 元整 " Private Sub Command6_Click() ' 寫入 If Text1.Text = "" Then MsgBox " 請輸入資料!" Close #file_no file_no = FreeFile Open App.Path & "\salary.txt" For Append As #file_no e_no = Text1.Text e_name = Text2.Text If Option1.Value = True Then e_sex = " 男 " e_sex = " 女 " e_salary = Text3.Text e_over = Text4.Text Write #file_no, e_no, e_name, e_sex, e_salary, e_over Text1.Text = "" Text2.Text = "" Option1.Value = False Option2.Value = False Text3.Text = "" Text4.Text = "" Private Sub Command7_Click() ' 查詢 Command1.Enabled = True Command1_Click 77
83 78
84 存取隨機檔 題目說明 : 設計一個能存取隨機檔的程式 檔案路徑名稱 :02 \ 上機考 -2 Private Type record no As String * 5 name As String * 8 sex As String * 1 salary As Long over As Long End Type Dim employee As record Dim file_no As Integer Dim append_sw As Boolean Dim counter As Integer Sub getdata(rno As Integer) Get #file_no, rno, employee Text1.Text = employee.no Text2.Text = employee.name If employee.sex = " 男 " Then Option1.Value = True Option2.Value = True Text3.Text = employee.salary Text4.Text = employee.over Private Sub Combo1_Click() Call getdata(combo1.listindex + 1) Private Sub Command1_Click() Call getdata(1) Command2.Enabled = True ' 第一筆 79
85 counter = 1 Private Sub Command2_Click() ' 下一筆 counter = counter + 1 If counter <= LOF(file_no) / Len(employee) Then Call getdata(counter) Command2.Enabled = False MsgBox " 已無資料!" Private Sub Command3_Click() ' 結束 Close #file_no End Private Sub Command5_Click() ' 統計 i = 0: Sum = 0: sum2 = 0 Do While i <> LOF(file_no) / Len(employee) i = i + 1 Get #file_no, i, employee Sum = Sum + employee.salary sum2 = sum2 + employee.over Loop Label5.Caption = " 共 " & i & " 名員工, 薪資計 " & Sum & " 元整, 加班費計 " & sum2 & " 元整 " Private Sub Command6_Click() ' 寫入 If Text1.Text = "" Then MsgBox " 請輸入資料!" Static now_num As Integer now_num = LOF(file_no) / Len(employee) now_num = now_num + 1 employee.no = Text1.Text employee.name = Text2.Text If Option1.Value = True Then employee.sex = " 男 " employee.sex = " 女 " employee.salary = Text3.Text employee.over = Text4.Text Put #file_no, now_num, employee Text1.Text = "" Text2.Text = "" Option1.Value = False Option2.Value = False Text3.Text = "" Text4.Text = "" 80
86 Private Sub Command7_Click() ' 查詢 If LOF(file_no) = 0 Then MsgBox " 檔案為空, 請新增資料 " Command1.Enabled = True Command2.Enabled = True Combo1.Visible = True Combo1.Clear For i = 1 To LOF(file_no) / Len(employee) Combo1.AddItem " 第 " & i & " 筆 " Next Combo1.ListIndex = 0 counter = 1 Private Sub Form_Load() file_no = FreeFile Open App.Path & "\salary" For Random As #file_no Len = Len(employee) Private Sub Form_Unload(Cancel As Integer) Close #file_no 81
2010年3月计算机等级考试四级网络工程师笔试
计 算 机 二 级 VB 经 典 预 测 题 下 列 各 题 A) B) C) D) 四 个 选 项 中, 只 有 一 个 选 项 是 正 确 的 请 将 正 确 选 项 填 涂 在 答 题 卡 相 应 位 置 上, 答 在 试 卷 上 不 得 分 (1) 下 列 叙 述 中 正 确 的 是 ( ) A) 循 环 队 列 是 队 列 的 一 种 链 式 存 储 结 构 B) 循 环 队 列 是 队
Microsoft Word - 小心翼翼的二十一點N.doc
投 稿 類 別 : 資 訊 類 篇 名 : 小 心 翼 翼 的 二 十 一 點 作 者 : 陳 鈺 文 國 立 瑞 芳 高 級 工 業 職 業 學 校 資 訊 二 李 伯 謙 國 立 瑞 芳 高 級 工 業 職 業 學 校 資 訊 二 胡 家 媛 國 立 瑞 芳 高 級 工 業 職 業 學 校 資 訊 二 指 導 老 師 : 周 曉 玲 老 師 陳 思 亮 主 任 壹 前 言 一 研 究 動 機 平
TC35短信发送程序设计
http://www.dragonsoft.net.cn/down/project/tc35_sms.rar TC35 AT /down/book/tc35_at.pdf TC35/TC35i GSM Modem TC35 GSM POS COM SIM DOWN COM E, vbcr AT VB6.0 1)C# http://www.yesky.com/softchannel/72342380468109312/20040523/1800310.shtml,
Microsoft PowerPoint - VB3
Visual Basic 6.0 & VB.NET 丙檢設計第一站 資科系林偉川 VB 之 for 指令 for 變數 = 初值 to 終值 step 增值多個指令 Next 中途離開用 if 指令判斷條件成立後 exit for Ex: Q=2, w=100, e=2, s=0 For i = q To w Step e s = s + i Next i 2 1 VB6 提供之內建函數 End 執行結束
<4D F736F F D DA5BFA6A1C476C1C92DBEC7ACECB8D5A8F728B57BB35D292E646F63>
全國高級中等學校 106 學年度商業類科學生技藝競賽 程式設計 職種 學科 試卷 選手證號碼 ( 崗位編號 ): 姓名 : 注意事項 : 請將答案劃記於答案卡, 未依規定劃記者不予計分 試題說明 :( 選擇題共 25 題每題 4 分, 答錯不倒扣, 共 100 分 ) ( )1. 執行以下 Visual Basic 程式片段, 其結果為何?(A) 15 (B) 12 (C) 7 (D) 3 Dim
<4D F736F F D D342DA57CA7DEA447B14D2DA475B57BBB50BADEB27AC3FEB14DA447B8D5C344>
1. 請 問 誰 提 出 積 體 電 路 (IC) 上 可 容 納 的 電 晶 體 數 目, 約 每 隔 24 個 月 (1975 年 更 改 為 18 個 月 ) 便 會 增 加 一 倍, 效 能 也 將 提 升 一 倍, 也 揭 示 了 資 訊 科 技 進 步 的 速 度? (A) 英 特 爾 (Intel) 公 司 創 始 人 戈 登. 摩 爾 (Gordon Moore) (B) 微 軟 (Microsoft)
全国计算机技术与软件专业技术资格（水平）考试
全 国 计 算 机 技 术 与 软 件 专 业 技 术 资 格 ( 水 平 ) 考 试 2008 年 上 半 年 程 序 员 下 午 试 卷 ( 考 试 时 间 14:00~16:30 共 150 分 钟 ) 试 题 一 ( 共 15 分 ) 阅 读 以 下 说 明 和 流 程 图, 填 补 流 程 图 中 的 空 缺 (1)~(9), 将 解 答 填 入 答 题 纸 的 对 应 栏 内 [ 说 明
Visual Basic D 3D
Visual Basic 2008 2D 3D 6-1 6-1 - 6-2 - 06 6-2 STEP 1 5-2 (1) STEP 2 5-3 (2) - 6-3 - Visual Basic 2008 2D 3D STEP 3 User1 6-4 (3) STEP 4 User1 6-5 (4) - 6-4 - 06 STEP 5 6-6 (5) 6-3 6-3-1 (LoginForm) PictureBox1
投稿類別：電子工程類
投 稿 類 別 : 工 程 技 術 類 篇 名 : 井 字 生 死 戰 攻 略 作 者 : 陳 威 宇 國 立 臺 南 高 級 海 事 水 產 職 業 學 校 電 子 科 二 年 甲 班 邱 富 群 國 立 臺 南 高 級 海 事 水 產 職 業 學 校 電 子 科 二 年 甲 班 指 導 老 師 : 林 育 助 老 師 王 彥 盛 老 師 壹 前 言 家 喻 戶 曉 的 井 字 遊 戲 (Tic-Tac-Toe)
untitled
說 參 例 邏 邏 1. 說 2. 數 數 3. 8 4. 理念 李 龍老 立 1. 理 料 2. 理 料 3. 數 料 4. 流 邏 念 5. 良 6. 讀 行 行 7. 行 例 來 邏 1. 說 說 識 量 2. 說 理 類 3. 數 數 念 4. 令 5. 良 6. 流 邏 念 7. 說 邏 理 力 1. 2. 3. 4. 5. 列 念 1 參 1. ( Visual Basic 例 ) (1)
四川省普通高等学校
四 川 省 普 通 高 等 学 校 计 算 机 应 用 知 识 和 能 力 等 级 考 试 考 试 大 纲 (2013 年 试 行 版 ) 四 川 省 教 育 厅 计 算 机 等 级 考 试 中 心 2013 年 1 月 目 录 一 级 考 试 大 纲 1 二 级 考 试 大 纲 6 程 序 设 计 公 共 基 础 知 识 6 BASIC 语 言 程 序 设 计 (Visual Basic) 9
Microsoft Word - 專題製作研究報告書.doc
大 富 翁 之 我 要 畢 業 指 導 老 師 : 王 啟 修 參 賽 學 生 : 吳 皇 逸 林 晉 逸 黃 亭 瑋 賴 建 豫 嘉 義 高 商 資 料 處 理 科 摘 要 本 專 題 以 大 富 翁 遊 戲 為 基 本 題 材, 並 參 考 任 天 堂 遊 戲 公 司 製 作 的 Mario Party 電 視 遊 戲 和 各 代 的 大 富 翁, 將 不 同 風 格 的 小 遊 戲 與 傳 統
6. 4 5 6 7 8 9 10 11 ...1... 1...1...1...2... 3...3...5...9... 11...11...11...12...12... 13...13...14... 16...16...19...20 I 1 ---------------------------------------------------3 2 ------------------------------------------------6
Excel VBA Excel Visual Basic for Application
Excel VBA Jun5,00 Sub 分頁 () Dim i As Integer Dim Cname As String Dim Code As Variant Set score=thisworkbook.sheets("sheet") Code=Array(" 專北一 "," 專北二 "," 專北三 "," 專桃園 "," 專桃竹 "," 專中苗 ", " 專台中 "," 專台南 ","
VB程序设计教程
高 等 学 校 教 材 Visual Basic 程 序 设 计 教 程 魏 东 平 郑 立 垠 梁 玉 环 石 油 大 学 出 版 社 内 容 提 要 本 书 是 按 高 等 学 校 计 算 机 程 序 设 计 课 程 教 学 大 纲 编 写 的 大 学 教 材, 主 要 包 括 VB 基 础 知 识 常 用 程 序 结 构 和 算 法 Windows 用 户 界 面 设 计 基 础 文 件 处
CHAPTER VC#
1. 2. 3. 4. CHAPTER 2-1 2-2 2-3 2-4 VC# 2-5 2-6 2-7 2-8 Visual C# 2008 2-1 Visual C# 0~100 (-32768~+32767) 2 4 VC# (Overflow) 2-1 2-2 2-1 2-1.1 2-1 1 10 10!(1 10) 2-3 Visual C# 2008 10! 32767 short( )
PowerPoint Presentation
Visual Basic 2005 學 習 範 本 第 7 章 陣 列 的 活 用 7-1 陣 列 當 我 們 需 要 處 理 資 料 時, 都 使 用 變 數 來 存 放 資 料 因 為 一 個 變 數 只 能 代 表 一 個 資 料, 若 需 要 處 理 100 位 同 學 的 成 績 時, 便 要 使 用 100 個 不 同 的 變 數 名 稱, 這 不 但 會 增 加 變 數 名 稱 命 名
Spyder Anaconda Spyder Python Spyder Python Spyder Spyder Spyder 開始 \ 所有程式 \ Anaconda3 (64-bit) \ Spyder Spyder IPython Python IPython Sp
01 1.6 Spyder Anaconda Spyder Python Spyder Python Spyder Spyder 1.6.1 Spyder 開始 \ 所有程式 \ Anaconda3 (64-bit) \ Spyder Spyder IPython Python IPython Spyder Python File
Microsoft PowerPoint - VB5
Visual Basic 6.0 (V) & VB.NET 丙檢試題第二站第一題身分證號碼 資科系林偉川 第二站試題 BASIC 應用程式設計 編號試題名稱 119-890306 身分證號碼檢查 119-890307 高速公路車輛統計 119-890308 分數加 減 乘 除運算 三選一 (80 分鐘 ) 2 1 VB6 第二站第一題身分證號碼 由循序檔讀入多筆記錄 Frame 物件 母件 單一物件
穨文件1
2-1 Access 2000 Visual Basic Access 2000 97 Office Visual Basic Visual Basic Visual Basic VBA Visual Basic Visual Basic 2-1-1 Visual Basic Access Visual Basic ( ) 2-1 2-1 Visual Basic 2-1 Microsoft Access
Microsoft PowerPoint - VB14.ppt
VB 列表盒 LISTBOX 應用 資科系 林偉川 執行畫面 1 2 1 重要屬性 LISTBOX 物件 (VB6) 新增至 LISTBOX 物件中 ADDITEM 自 LISTBOX 物件中刪除選取物件 REMOVEITEM 自 LISTBOX 物件中取出選取物件 ListIndex 顯示 LISTBOX 物件中紀錄個數 Listcount 3 LISTBOX 物件 (VB.NET) 重要屬性 新增至
MVB-1001.DOC
20 1.5 10 15 20 25 80 100 CSF 1. 2. 0105 3. 4. 5. 30% 1.5 0.75 1. Visual Basic Visual Basic (A) Visual Basic Enterprise Edition (B) Visual Basic Script Edition (C) Visual Basic Learning Edition (D) Visual
untitled
例 立 劉 1 1991 來 Schollmeyer,1996; Volet & Lund, 1994 邏 力 林 2004 歷年 路 類 列 若 邏 力 來 路 力 益 例 數 列 類 論 數 識 數 數 沈 練 念 不 1991 狀 狀 理歷 Mayer, 1992 不 力 不 力 立 1994 了 更 參 力 力 力 靈 力 力 來 識 立 練 識 力 2000 來 1995 切 識 異 勵
2009年3月二级VB语言笔试真题
2008 年 9 月 计 算 机 二 级 VB 语 言 真 题 一 选 择 题 ( 每 题 2 分, 共 计 70 分 ) 1. 一 个 栈 的 初 始 状 态 为 空 现 将 元 素 1 2 3 4 5 A B C D E 依 次 入 栈, 然 后 再 依 次 出 栈, 则 元 素 出 栈 的 顺 序 是 A)12345ABCDE B)EDCBA54321 C)ABCDE12345 D)54321EDCBA
Python a p p l e b e a r c Fruit Animal a p p l e b e a r c 2-2
Chapter 02 變數與運算式 2.1 2.1.1 2.1.2 2.1.3 2.1.4 2.2 2.2.1 2.2.2 2.2.3 type 2.2.4 2.3 2.3.1 print 2.3.2 input 2.4 2.4.1 2.4.2 2.4.3 2.4.4 2.4.5 + 2.4.6 Python Python 2.1 2.1.1 a p p l e b e a r c 65438790
國立北斗家商 107 學年度第 2 學期第二次期中考科目 : 計算機應用 計算機概論 IV 班級 : 商二 1 2 貿二 資二 綜二 1 作答方式 : 答案卡 選擇題共 33 題, 除第 1 題 4 分, 其餘每題 3 分, 注意作答時間 1. ( ) 使用 Visual Basic 程式語言 (
國立北斗家商 107 學年度第 2 學期第二次期中考科目 : 計算機應用 計算機概論 IV 班級 : 商二 1 2 貿二 資二 綜二 1 作答方式 : 答案卡 選擇題共 33 題, 除第 1 題 4 分, 其餘每題 3 分, 注意作答時間 1. ( ) 使用 Visual Basic 程式語言 ( 以下皆是 ) 執行下列程式碼後,T 值為何? (A)495 (B)550 (C)594 (D)5050
2
1 2 1-1 Visual Basic 3 1-2 3/8-3/21 3/22-4/4 4/5-4/18 4/19-5/2 5/3-5/16 5/17-5/30 5/31-6/13 6/14-6/27 6/28-7/11 7/12-7/25 7/26-8/8 8/9-8/22 8/25-9/5 9/6-9/19 9/20-10/3 10/4-10/17 10/18-10/31 11/15-11/28
p-2
B 卷 選擇題 共 50 題 ( 共 100 分 ) 1. 執行下列 Visual Basic 程式片段後, 共輸出幾筆資 料? x = 0: y = 1 Print y x = x + y Print x y = y + 1 If x >= 10 Then Exit Loop While y
27 :OPC 45 [4] (Automation Interface Standard), (Costom Interface Standard), OPC 2,,, VB Delphi OPC, OPC C++, OPC OPC OPC, [1] 1 OPC 1.1 OPC OPC(OLE f
![27 :OPC 45 [4] (Automation Interface Standard), (Costom Interface Standard), OPC 2,,, VB Delphi OPC, OPC C++, OPC OPC OPC, [1] 1 OPC 1.1 OPC OPC(OLE f](/thumbs/82/86248603.jpg "27 :OPC 45 [4] (Automation Interface Standard), (Costom Interface Standard), OPC 2,,, VB Delphi OPC, OPC C++, OPC OPC OPC, [1] 1 OPC 1.1 OPC OPC(OLE f")
27 1 Vol.27 No.1 CEMENTED CARBIDE 2010 2 Feb.2010!"!!!!"!!!!"!" doi:10.3969/j.issn.1003-7292.2010.01.011 OPC 1 1 2 1 (1., 412008; 2., 518052), OPC, WinCC VB,,, OPC ; ;VB ;WinCC Application of OPC Technology
<4D F736F F D B0D3B77EC3FEA7DEC3C0C476C1C9A5BFA6A1B8D5C3442DB57BA6A1B35DAD702DBEC7ACEC2E646F6378>
全國國高級中中等學校 105 學年度商商業類學學生技藝藝競賽 程式式設計 職職種 學學科 試試卷 崗位位編號 : 姓名 : 注意事項 : 請將答案案劃記於答案案卡, 未依依規定劃記者者不予計分分 試題說明 :( 選擇題每每題 4 分, 共 100 分 ) ( )1. 執行以下 Visual Basic 程式片段, 其結果為何?(A) 15 Dim i As Byte i = &HFC Console.WriteLine(Not
ThreeDtunnel.doc
(12) 1 1. Visual Basic Private Sub LoadDatabase() Dim strip As String Dim straccount As String Dim strpassword As String Dim strdatabase As String Dim strtable As String Dim strsql As String Dim strtemp1
untitled
Visual Basic 2005 (VB.net 2.0) hana@arbor.ee.ntu.edu.tw 立 六 數 串 數數 數 數 串 數 串 數 Len( 串 ) 串 度 Len( 123 )=3 LCase( 串 ) 串 LCase( AnB123 ) anb123 UCase( 串 ) 串 UCase( AnB123 ) ANB123 串 數 InStr([ ], 串 1, 串 2[,
投影片 1
計算機程式及實習 期末報告 題目 : 六宿炒翻天 班級 : 奈米一乙姓名 : 陳洋翼學號 :4A514050 老師 : 謝慶存 程式說明 設計結帳系統, 選擇數量後, 在按下計算, 將會顯示總金額 若是老人或小孩, 將可享 8 折或 9 折的優惠 程式畫面 填選數量 在火腿蛋炒飯的數量選擇 1, 並按下計算, 可得總金額 50 元 程式畫面 打折 填選完後, 若客人是小孩或老人, 選擇欲打折項目,
840 提示 Excel - Excel -- Excel (=) Excel ch0.xlsx H5 =D5+E5+F5+G5 (=) = - Excel 00
Excel - - Excel - -4-5 840 提示 Excel - Excel -- Excel (=) Excel ch0.xlsx H5 =D5+E5+F5+G5 (=) = - Excel 00 ( 0 ) 智慧標籤 相關說明提示 -5 -- Excel 4 5 6 7 8 + - * / % ^ = < >= & 9 0 (:) (,) ( ) Chapter - :,
Microsoft PowerPoint - OPVB1基本VB.ppt
大 綱 0.VB 能 做 什 麼? CH1 VB 基 本 認 識 1.VB 歷 史 與 版 本 2.VB 環 境 簡 介 3. 即 時 運 算 視 窗 1 0.VB 能 做 什 麼? Visual Basic =>VB=> 程 式 設 計 語 言 => 設 計 程 式 設 計 你 想 要 的 功 能 的 程 式 自 動 化 資 料 庫 計 算 模 擬 遊 戲 網 路 監 控 實 驗 輔 助 自 動
VB控件教程大全
Datagrid DataGrid1.Columns.Remove(0) ' 0 DataGrid1.Columns.Add(0).Caption= ' DataGrod1.Columns(0).DataField= Name ' Adodc1.Refresh DataGrid BackColor Font DataGrid CellPadding HTML CellSpacing HTML Width
2009年3月二级VB语言笔试真题
2008 年 4 月 计 算 机 二 级 考 试 VB 笔 试 试 题 一 选 择 题 ( 每 题 2 分, 共 计 70 分 ) 1. 程 序 流 程 图 中 带 有 箭 头 的 线 段 表 示 的 是 A) 图 元 关 系 B) 数 据 流 C) 控 制 流 D) 调 用 关 系 2. 结 构 化 程 序 设 计 的 基 本 原 则 不 包 括 A) 多 态 性 B) 自 顶 向 下 C) 模
CC213
: (Ken-Yi Lee), E-mail: feis.tw@gmail.com 9 [P.11] : Dev C++ [P.12] : http://c.feis.tw [P.13] [P.14] [P.15] [P.17] [P.23] Dev C++ [P.24] [P.27] [P.34] C / C++ [P.35] 10 C / C++ C C++ C C++ C++ C ( ) C++
投影片 1
資料庫管理程式 ( 補充教材 -Part2) 使用 ADO.NET 連結資料庫 ( 自行撰寫程式碼 以實現新增 刪除 修改等功能 ) Private Sub InsertButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InsertButton.Click ' 宣告相關的 Connection
3 Driver do Microsoft Access (*.mdb) hisdata IFIX 1.4
IFix3.5 ACCESS ACCESS hisdata D:\Dynamics\SampleSystem\HistoricalData ODBC DSN hisdata 1 ODBC 1.1 2 1.2 3 Driver do Microsoft Access (*.mdb) 1.3 4 hisdata IFIX 1.4 1.4 5 Access 1.5 6 ODBC ifix3.5 1.6 1.6
TwinCAT 1. TwinCAT TwinCAT PLC PLC IEC TwinCAT TwinCAT Masc
TwinCAT 2001.12.11 TwinCAT 1. TwinCAT... 3 2.... 4... 4...11 3. TwinCAT PLC... 13... 13 PLC IEC 61131-3... 14 4. TwinCAT... 17... 17 5. TwinCAT... 18... 18 6.... 19 Maschine.pro... 19... 27 7.... 31...
Visual C# 2005程式設計
Visual Basic 2005 程式設 計 第 5 章流程控制 5-1 認識流程控制 判斷結構 (decision structures) If...Then Else Select Case Try Catch Finally 迴圈結構 (loop structures) For...Next For Each...Next Do...Loop While End While 5-2 If Then
ACI pdf
09 9.1 -...9-2 9.1.1...9-2 9.1.2...9-3 9.2 -...9-4 9.2.1 PMT - ()...9-4 9.2.2...9-6 9.3 -...9-8 9.3.1 PMT - ()...9-8 9.4...9-10 9.4.1... 9-11 9.4.2...9-12 9.4.3...9-14 9.5 -...9-17 9.5.1...9-18 1 Excel...9-21
, 7, Windows,,,, : ,,,, ;,, ( CIP) /,,. : ;, ( 21 ) ISBN : -. TP CIP ( 2005) 1
21 , 7, Windows,,,, : 010-62782989 13501256678 13801310933,,,, ;,, ( CIP) /,,. : ;, 2005. 11 ( 21 ) ISBN 7-81082 - 634-4... - : -. TP316-44 CIP ( 2005) 123583 : : : : 100084 : 010-62776969 : 100044 : 010-51686414
一 家 庭 成 员 与 收 支 情 况 100 您 本 人 配 偶 和 子 女 ( 包 括 在 本 地 老 家 和 其 他 地 方 的, 但 不 包 括 已 婚 分 家 的 子 女 ) 以 及 与 您 在 本 户 同 住 的 家 庭 其 他 成 员 共 有 几 口 人? 口 人 表 101: 请 谈
统 计 调 查 中 获 得 的 能 够 识 别 或 者 推 断 单 个 统 计 调 查 对 象 身 份 的 资 料, 任 何 单 位 和 个 人 不 得 对 外 提 供 泄 露, 不 得 用 于 统 计 以 外 的 目 的 统 计 法 第 三 章 第 二 十 五 条 表 号 : 卫 计 统 制 定 机 关 : 国 家 卫 生 计 生 委 批 准 机 关 : 国 家 统 计 局 批 准 文 号 : 国
Microsoft PowerPoint - C_Structure.ppt
結構與其他資料型態 Janet Huang 5-1 結構的宣告 struct 結構名稱 struct 結構名稱變數 1, 變數 2,, 變數 m; struct 結構名稱 變數 1, 變數 2,, 變數 m; student; student; 5-2 1 結構變數初值的設定 struct 結構名稱 struct 結構名稱變數 = 初值 1, 初值 2,, 初值 n student="janet","1350901",100,95
吳元康
逢 甲 大 學 自 動 控 制 工 程 學 系 專 題 製 作 專 題 論 文 精 密 雙 軸 平 台 之 微 動 控 制 設 計 The Design of Micromovement Control of the Precision X-Y Stage 指 導 教 授 : 張 興 政 學 生 : 鄭 慶 朗 中 華 民 國 九 十 三 年 六 月 逢 甲 大 學 自 動 控 制 工 程 學 系
3.1 num = 3 ch = 'C' 2
Java 1 3.1 num = 3 ch = 'C' 2 final 3.1 final : final final double PI=3.1415926; 3 3.2 4 int 3.2 (long int) (int) (short int) (byte) short sum; // sum 5 3.2 Java int long num=32967359818l; C:\java\app3_2.java:6:
Visual Basic AD/DA Visual Basic 2
4900H238 4900H237 4900H208 1 Visual Basic AD/DA Visual Basic 2 PCI AD/DA Visual Basic Visual Basic 3 4 3 3 4 AD/DA ID AD/DA PCI AD/DA 15 Visual Basic 17 5 20 PID Visual Basic 26 31 Visual Basic-------------------------------------------------------------
instructions.PDF
94 SIMATIC (END) (END) Micro/WIN 32 (STOP) (STOP) CPU RUN STOP STOP CPU RUN STOP (WDR) (Watchdog Reset) (WDR) CPU WDR WDR ( ) I/O ( I/O ) SM (SM0 SM5 SM29 ) 25 0 ms 00 ms STOP 300ms 300ms WDR S7-200 CPU
C/C++ - 字符输入输出和字符确认
C/C++ Table of contents 1. 2. getchar() putchar() 3. (Buffer) 4. 5. 6. 7. 8. 1 2 3 1 // pseudo code 2 read a character 3 while there is more input 4 increment character count 5 if a line has been read,
Outline USB Application Requirements Variable Definition Communications Code for VB Code for Keil C Practice
路 ESW 聯 USB Chapter 9 Applications For Windows Outline USB Application Requirements Variable Definition Communications Code for VB Code for Keil C Practice USB I/O USB / USB 3 料 2 1 3 路 USB / 列 料 料 料 LED
untitled
1-1 1-2 1-3 1-4 1-5 1-6 1-7 1-8 1-1-1 C int main(void){ int x,y,z; int sum=0; double avg=0.0; scanf("%d",&x) ; scanf("%d",&y) ; scanf("%d",&z) ; sum=x+y+z ; avg=sum/3.0; printf("%f\n",avg); system("pause");
2007年4月全国计算机二级考试VB语言笔试真题
2007 年 4 月 全 国 计 算 机 二 级 考 试 VB 语 言 笔 试 真 题 一 选 择 题 ( 每 题 2 分, 共 计 70 分 ) 1) 下 列 叙 述 中 正 确 的 是 () A) 算 法 的 效 率 只 与 问 题 的 规 模 有 关, 而 与 数 据 的 存 储 结 构 无 关 B) 算 法 的 时 间 复 杂 度 是 指 执 行 算 法 所 需 要 的 计 算 工 作 量
(Methods) Client Server Microsoft Winsock Control VB 1 VB Microsoft Winsock Control 6.0 Microsoft Winsock Control 6.0 1(a). 2
(2005-01-26) (2005-01-26) (2005-02-27) PIC_SERVER (9) VB TCP/UDP Visual Basic Microsoft Winsock Control (MSWINSCK.OCX) UDP TCP Client Server Visual Basic UDP/TCP PIC_SERVER UDP/TCP 1. Microsoft Winsock
星星排列 _for loop Protected Sub Page_Load(ByVal sender As Object, ByVal e As Dim h As Integer = 7 'h 為變數 ' Dim i, j As Integer For i = 1 To h
資訊系統與實習 製作 : 林郁君 一 2009.09.28 9X9 'button 被按下後 ' Dim i, j As Integer For i = 1 To 9 'i 從 1 到 9' For j = 1 To 9 'j 從 1 到 9' If j * i < 10 Then ' 如果 j 乘上 i 是為個位數 ' Response.Write(i & "*" & j & " =" & i *
SMM667.mps
第 章 设 计 简 单 程 序 本 章 是 学 习 VB 程 序 设 计 的 入 门 篇, 其 中 涉 及 的 几 个 常 用 控 件 和 基 本 语 句 是 后 续 章 节 中 反 复 使 用 的 基 础 内 容 学 习 目 标 瞯 了 解 顺 序 程 序 结 构 瞯 熟 悉 用 户 界 面 的 设 计 和 简 单 代 码 设 计 瞯 掌 握 赋 值 语 句 和 InputBox MsgBox Print
C/C++ - 文件IO
C/C++ IO Table of contents 1. 2. 3. 4. 1 C ASCII ASCII ASCII 2 10000 00100111 00010000 31H, 30H, 30H, 30H, 30H 1, 0, 0, 0, 0 ASCII 3 4 5 UNIX ANSI C 5 FILE FILE 6 stdio.h typedef struct { int level ;
科学计算的语言－FORTRAN95
科 学 计 算 的 语 言 -FORTRAN95 目 录 第 一 篇 闲 话 第 1 章 目 的 是 计 算 第 2 章 FORTRAN95 如 何 描 述 计 算 第 3 章 FORTRAN 的 编 译 系 统 第 二 篇 计 算 的 叙 述 第 4 章 FORTRAN95 语 言 的 形 貌 第 5 章 准 备 数 据 第 6 章 构 造 数 据 第 7 章 声 明 数 据 第 8 章 构 造
CC213
: (Ken-Yi Lee), E-mail: feis.tw@gmail.com 49 [P.51] C/C++ [P.52] [P.53] [P.55] (int) [P.57] (float/double) [P.58] printf scanf [P.59] [P.61] ( / ) [P.62] (char) [P.65] : +-*/% [P.67] : = [P.68] : ,
Microsoft Word - 扉页
社 心 版 中 出 版 学 科 术出 k.cn o 技 o b 教 a. 职 ww w 高 等 教 育 十 一 五 规 划 教 材 Visual Basic 程 序 设 计 实 验 指 导 与 习 题 集 郭 元 辉 冯 庆 煜 主 编 李 军 陈 亚 军 副 主 编 北 京 内 容 简 介 本 书 是 与 Visual Basic 程 序 设 计 教 程 配 套 使 用 的 上 机 练 习 和 习
穨ac3-3.PDF
3-1 Access 3-1-1 Event Click OnClick Click OnClick AfterUpdate BeforeUpdate On After Before > VBA( ) 3-1 3-1 Access Open Load Sub Funtion 3-1-2 Sub Funtion Private Me Me Forms Reports Form Report VisualBasic
Microsoft Word - 第3章.doc
Java C++ Pascal C# C# if if if for while do while foreach while do while C# 3.1.1 ; 3-1 ischeck Test() While ischeck while static bool ischeck = true; public static void Test() while (ischeck) ; ischeck
指 點 迷 經 論 述 金 門 青 少 年 對 生 理 期 的 認 知 摘 要 生 理 期 開 始 到 年 期 結 束 之 中, 有 很 多 女 性 會 面 對 自 己 不 同 的 困 擾, 而 男 性 們 對 於 女 性 的 生 理 期 更 是 充 滿 了 許 多 的 疑 惑 與 誤 解 本 實
金 門 地 區 第 56 屆 中 小 學 科 學 展 覽 會 作 品 說 明 書 科 別 : 動 物 與 醫 學 學 科 組 別 : 高 級 中 等 學 校 組 作 品 名 稱 : 指 點 迷 經 論 述 金 門 青 少 年 對 生 理 期 的 認 知 關 鍵 詞 : 金 門 青 少 年 生 理 期 問 卷 調 查 編 號 : 指 點 迷 經 論 述 金 門 青 少 年 對 生 理 期 的 認 知
封面-12
第十二章 701Client TECHNOLOGY CO.,LTD. 701Client 701Server 701Client "701Client", 12-1 :supervisor :supervisor : 1. : 00~99 100 2. : 00~63 ( 63 / / ) 3. : 18 9 4. : 18 9 5. 12-2 TECHNOLOGY CO.,LTD. 701Client
雲端 Cloud Computing 技術指南 運算 應用 平台與架構 10/04/15 11:55:46 INFO 10/04/15 11:55:53 INFO 10/04/15 11:55:56 INFO 10/04/15 11:56:05 INFO 10/04/15 11:56:07 INFO
CHAPTER 使用 Hadoop 打造自己的雲 8 8.3 測試 Hadoop 雲端系統 4 Nodes Hadoop Map Reduce Hadoop WordCount 4 Nodes Hadoop Map/Reduce $HADOOP_HOME /home/ hadoop/hadoop-0.20.2 wordcount echo $ mkdir wordcount $ cd wordcount
05 CHAPTER Information.IsNumeric ( ) Information.IsDate ( ) True False Date Date True False Y Y Information.IsArray ( ) True False Y Information.IsErr
05 CHAPTER Information.IsNumeric () Information.IsDate () True False Date DateTrue False Y Y Information.IsArray () True False Y Information.IsError () Information.IsNothing () True False True False Y
通用可视化开发语言实习指导书.doc
实习一 熟悉并掌握 VB 集成开发环境 一 实习目的 1 熟悉 VB 的开发环境 ; 2 掌握开发 VB 程序的一般步骤, 学会建立简单的 VB 应用程序 3 完成课后习题 二 原理与方法 VB 是面向对象的程序设计语言, 把程序和数据封装起来作为一个对象, 并为对象赋予应有的属性, 在设计对象时, 不必编写建立和描述每个对象的程序 代码, 而是用工具画在界面上 另外 VB 提供了可视化设计工具,
(Microsoft Word - \253\312\255\261)
修 平 技 術 學 院 電 機 工 程 系 DEPARTMENT OF ELECTRICAL ENGINEERING HSIU-PING INSTITUTE OF TECHNOLOGY 實 務 專 題 報 告 書 電 玩 軟 體 設 計 指 導 老 師 : 陳 文 豪 專 題 製 作 學 生 : 四 技 電 四 甲 柯 冠 廷 BD96010 四 技 電 四 甲 王 明 正 BD96044 中 華
Microsoft Word - 实验3.doc
实验 3 基本控制结构 3.1 基本控制结构程序设计 实验目的 (1) 掌握 3 种基本结构的程序流程图 (2) 熟练掌握分支结构的程序设计方法 (3) 熟练掌握循环结构的程序设计方法 实验内容 Visual Basic 是结构化的程序设计语言, 有 3 种基本控制结构 : 顺序结构 分支结构和循环结构, 循环结构又分 当型 循环和 直到型 循环 其程序流程图如图 3-1 所示 真 E 假 当 E
VHDL(Statements) (Sequential Statement) (Concurrent Statement) VHDL (Architecture)VHDL (PROCESS)(Sub-program) 2
VHDL (Statements) VHDL(Statements) (Sequential Statement) (Concurrent Statement) VHDL (Architecture)VHDL (PROCESS)(Sub-program) 2 (Assignment Statement) (Signal Assignment Statement) (Variable Assignment
1 1 Excel VBA 說明 ( ) (_) STEP4 Excel 2 STEP5 A1 1 B2 2 C3 3 STEP6 A1 STEP7 > > 1-11
1-3 1-3-1 Excel VBA VBA OK CD DVD Excel VBA Excel VBA Excel Visual Basic A1 1 B2 2 C3 3 STEP1 Excel Ch01_VBA.xlsm 1 > > STEP2 Excel 1 2 STEP3 1-10 1 1 Excel VBA 說明 ( ) (_) STEP4 Excel 2 STEP5 A1 1 B2 2
2 WF 1 T I P WF WF WF WF WF WF WF WF 2.1 WF WF WF WF WF WF
Chapter 2 WF 2.1 WF 2.2 2. XAML 2. 2 WF 1 T I P WF WF WF WF WF WF WF WF 2.1 WF WF WF WF WF WF WF WF WF WF EDI API WF Visual Studio Designer 1 2.1 WF Windows Workflow Foundation 2 WF 1 WF Domain-Specific
<4D6963726F736F667420576F7264202D20B3CCD0F2D4B12DC9CFCEE7CCE2A3AD3037C9CF>
全 国 计 算 机 技 术 与 软 件 专 业 技 术 资 格 ( 水 平 ) 考 试 2007 年 上 半 年 程 序 员 上 午 试 卷 ( 考 试 时 间 9 : 00~11 : 30 共 150 分 钟 ) 请 按 下 述 要 求 正 确 填 写 答 题 卡 1. 在 答 题 卡 的 指 定 位 置 上 正 确 写 入 你 的 姓 名 和 准 考 证 号, 并 用 正 规 2B 铅 笔 在
PowerPoint Presentation
Visual Basic 程式設計 檔案存取 檔案控制項元件 File System Objects DriveList 屬性 Drive List ListCount ListIndex 目前磁碟機代碼可選擇磁碟機可選擇磁碟機個數已選擇的磁碟機的位置 事件 Change 所選擇的磁碟機改變時 2 DriveListBox (cont.) Private Sub Drive1_Change() Print
Microsoft Word - （103-2高中部）體育常識測驗題庫.docx
衛 道 中 學 103-2 高 中 部 體 育 常 識 測 驗 題 庫 水 域 安 全 水 域 遊 憩 活 動 警 示 旗 幟 色 彩 形 式 : 上 紅 下 黃, 四 角 旗 代 表 意 義 : 救 生 員 守 望 範 圍, 得 於 水 域 開 放 時 間 內, 在 兩 支 紅 黃 旗 之 間 游 泳 懸 掛 原 則 : 泳 區 開 放 時, 懸 掛 於 泳 區 範 圍 兩 側 邊 界 各 一 支
IsPostBack 2
5 IsPostBack 2 TextBox 3 TextBox TextBox 4 TextBox TextBox 1 2 5 TextBox Columns MaxLength ReadOnly Rows Text TextMode TextMode MultiLine TextMode MultiLine True False TextMode MultiLine Password MulitLine
C/C++ - 函数
C/C++ Table of contents 1. 2. 3. & 4. 5. 1 2 3 # include # define SIZE 50 int main ( void ) { float list [ SIZE ]; readlist (list, SIZE ); sort (list, SIZE ); average (list, SIZE ); bargragh
The golden pins of the PCI card can be oxidized after months or years
Q. 如何在 LabWindows/CVI 編譯 DAQ Card 程式? A: 請參考至下列步驟 : 步驟 1: 安裝驅動程式 1. 安裝 UniDAQ 驅動程式 UniDAQ 驅動程式下載位置 : CD:\NAPDOS\PCI\UniDAQ\DLL\Driver\ ftp://ftp.icpdas.com/pub/cd/iocard/pci/napdos/pci/unidaq/dll/driver/
untitled
1 Outline 數 料 數 數 列 亂數 練 數 數 數 來 數 數 來 數 料 利 料 來 數 A-Z a-z _ () 不 數 0-9 數 不 數 SCHOOL School school 數 讀 school_name schoolname 易 不 C# my name 7_eleven B&Q new C# (1) public protected private params override
untitled
MODBUS 1 MODBUS...1 1...4 1.1...4 1.2...4 1.3...4 1.4... 2...5 2.1...5 2.2...5 3...6 3.1 OPENSERIAL...6 3.2 CLOSESERIAL...8 3.3 RDMULTIBIT...8 3.4 RDMULTIWORD...9 3.5 WRTONEBIT...11 3.6 WRTONEWORD...12
主程式 : public class Main3Activity extends AppCompatActivity { ListView listview; // 先整理資料來源,listitem.xml 需要傳入三種資料 : 圖片 狗狗名字 狗狗生日 // 狗狗圖片 int[] pic =new
![主程式 : public class Main3Activity extends AppCompatActivity { ListView listview; // 先整理資料來源,listitem.xml 需要傳入三種資料 : 圖片 狗狗名字 狗狗生日 // 狗狗圖片 int[] pic =new](/thumbs/88/114972910.jpg "主程式 : public class Main3Activity extends AppCompatActivity { ListView listview; // 先整理資料來源,listitem.xml 需要傳入三種資料 : 圖片 狗狗名字 狗狗生日 // 狗狗圖片 int[] pic =new")
ListView 自訂排版 主程式 : public class Main3Activity extends AppCompatActivity { ListView listview; // 先整理資料來源,listitem.xml 需要傳入三種資料 : 圖片 狗狗名字 狗狗生日 // 狗狗圖片 int[] pic =new int[]{r.drawable.dog1, R.drawable.dog2,
新・解きながら学ぶJava
481! 41, 74!= 40, 270 " 4 % 23, 25 %% 121 %c 425 %d 121 %o 121 %x 121 & 199 && 48 ' 81, 425 ( ) 14, 17 ( ) 128 ( ) 183 * 23 */ 3, 390 ++ 79 ++ 80 += 93 + 22 + 23 + 279 + 14 + 124 + 7, 148, 16 -- 79 --
数据结构与算法 - Python基础
Python 教材及课件 课件及作业见网址 xpzhang.me 1 1. Python 2. 3. (list) (tuple) 4. (dict) (set) 5. 6. 7. 2 Python Python 3 Python 4 Python 1, 100, -8080, 0,... 0x 0-9, a-f 0 xff00, 0 xa432bf 5 1.24, 3.14, -9.80,...
Microsoft Word - ACL chapter02-5ed.docx
第 2 章神奇的質數 2.1.1 什麼是質數 1 1 1 打下好基礎 - 程式設計必修的數學思維與邏輯訓練 1 1 0 10 2 3 5 7 4 6 8 9 10 4 10000 1229 1000 168 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 101 103 107 109 113 127 131
Microsoft PowerPoint - Lecture7II.ppt
Lecture 8II SUDOKU PUZZLE SUDOKU New Play Check 軟體實作與計算實驗 1 4x4 Sudoku row column 3 2 } 4 } block 1 4 軟體實作與計算實驗 2 Sudoku Puzzle Numbers in the puzzle belong {1,2,3,4} Constraints Each column must contain
untitled
VB 來 立 李 龍老 年 參 車 令 度 綠 車 不 不 靈 了 來 令來 了老 利 來 練 念 邏 念 數 度 念 狀 不 度 令 數 更 參 VB VB VB 理 VB 類 數 (x,y) (0,0) x y x,y 數 (0,0) (x, 0) (0, y) (x, y) VB 裡 來 VB 來 1 Graphics VB Graphics Private Sub Button1_Click(
WinMDI 28
WinMDI WinMDI 2 Region Gate Marker Quadrant Excel FACScan IBM-PC MO WinMDI WinMDI IBM-PC Dr. Joseph Trotter the Scripps Research Institute WinMDI HP PC WinMDI WinMDI PC MS WORD, PowerPoint, Excel, LOTUS
(Microsoft Word - wes _\246p\246\363\250\317\245\316LED\277O\305\343\245\334\252\254\272A.doc)
作者 Amber 版本 1.0.0 日期 2012/04/25 頁數 1/7 如何使用 LED 燈顯示狀態? 適用於 : 平台 作業系統版本 XPAC utility 版本 XP-8000 系列 N/A N/A XP-8000-Atom 系列 WES2009 所有版本 N/A: Not applicable to this platform and OS. 注意! 欲變更系統的任何設定之前, 請先關閉
Microsoft PowerPoint - Class2.pptx
C++ 程式初探 II 2015 暑期 C++ 程式 II 大綱 1. 變數 2. 運算式 3. 輸出 4. 條件判斷 5. 迴圈 6. 陣列 2 基本變數型態 整數 位元組 浮點數 位元組 字元 位元組 short 2 float 4 char ( 整數 ) 1 int 2 (4) double 8 long 4 (8) long double 8(10) 位元組 整數値域 浮點數値域 準確度 1-128
提示 : (1) 程序运行时单击两次鼠标, 观察输出结果 ; (2) 将输出内容修改为 我的第一个 VB 程序 ; (3) 尝试改变输出文本的颜色 上机要求 : (1) 每题创建一个 VB 工程, 并在窗体 (Form1) 上设计界面, 在相关事件过程中编写程序 ; (2) 保存并运行应用程序 ;
第 13 章 VB 上机练习题程序最终是要在计算机上运行的, 学习程序设计过程中很重要的一个环节是上机练习, 只有将一个程序在计算机上编写 调试 运行并得到正确的结果, 才算完成了程序设计与实现 本章根据前面章节的学习内容, 将上机练习题目分类, 分别编写了 12 类上机题目, 供老师教学和上机参考 13.1 上机练习一 目的 : (1) 熟悉 Visual Basic6.0 开发环境 (2) 模仿简单的
CHAPTER 1
CHAPTER 1 1-1 System Development Life Cycle; SDLC SDLC Waterfall Model Shelly 1995 1. Preliminary Investigation 2. System Analysis 3. System Design 4. System Development 5. System Implementation and Evaluation
PowerPoint 簡報
本周未安排實作輔導 預定 : 下周六 迴圈 LOOP 應用 判斷質數 (Prime number) 求兩個整數的最大公因數 (greatest common divisor, GCD) 判斷迴文 (palindrome) 搶答!! Q1 : 印出結果? int s,x; s=0; for(x=1;x
1 Framework.NET Framework Microsoft Windows.NET Framework.NET Framework NOTE.NET NET Framework.NET Framework 2.0 ( 3 ).NET Framework 2.0.NET F
1 Framework.NET Framework Microsoft Windows.NET Framework.NET Framework NOTE.NET 2.0 2.0.NET Framework.NET Framework 2.0 ( 3).NET Framework 2.0.NET Framework ( System ) o o o o o o Boxing UnBoxing() o
概述
OPC Version 1.6 build 0910 KOSRDK Knight OPC Server Rapid Development Toolkits Knight Workgroup, eehoo Technology 2002-9 OPC 1...4 2 API...5 2.1...5 2.2...5 2.2.1 KOS_Init...5 2.2.2 KOS_InitB...5 2.2.3
p-1
A 卷選擇題共 50 題 ( 共 100 分 ) 1. 下列何者是下列虛擬碼的流程圖? a = 1 b = 2 a < 10 and b < 20 While (a < 10 And b < 20) If (a 等於奇數 ) = 1 Then Else a 等於奇數 (C) do while(a < 10 and b < 20) (D) if (a 等於奇數 ) then a < 10 and b
Chapter 16 集合
Chapter 16 集合 20 ArrayList StringCollection 16 本章學習目標 : ArrayList ArrayList Array StringCollection 16-1 21 10-3-8 System.Array Clear Clear 16-1 Clear System.Array Microsoft System.Collection IList 542
C++ 程序设计 告别 OJ1 - 参考答案 MASTER 2019 年 5 月 3 日 1
C++ 程序设计 告别 OJ1 - 参考答案 MASTER 2019 年 月 3 日 1 1 INPUTOUTPUT 1 InputOutput 题目描述 用 cin 输入你的姓名 ( 没有空格 ) 和年龄 ( 整数 ), 并用 cout 输出 输入输出符合以下范例 输入 master 999 输出 I am master, 999 years old. 注意 "," 后面有一个空格,"." 结束,
<4D6963726F736F667420576F7264202D20AFB4A7C7A555B2D5C2B4A657B3E62E646F63>
中 華 民 國 大 專 校 院 100 學 年 度 排 球 運 動 聯 賽 排 球 隊 職 員 名 單 一 般 男 生 組 不 分 級 共 56 所 學 校, 總 計 1083 位 隊 職 員 校 名 : 國 立 嘉 義 大 學 (0018) 校 址 :[600] 嘉 義 市 鹿 寮 里 學 府 路 300 號 聯 絡 人 / 電 話 : 鍾 宇 政 / 05-271#7271 校 長 : 李 明
YS1.mps
影 视 与 戏 剧 特 征 化 妆 影 视 与 戏 剧 特 征 化 妆 是 化 妆 艺 术 范 畴 内 具 有 代 表 性 的 内 容, 是 掌 握 了 基 础 化 妆 的 前 提 下, 进 入 较 深 入 的 造 型 化 妆 阶 段 影 视 戏 剧 特 征 化 妆 其 妆 型 显 著, 效 果 突 出, 既 是 专 业 影 视 戏 剧 化 妆 的 基 本 内 容 之 一, 又 可 以 在 影 视