計算機程式期末考試:
Date : 2008/6/26 (四) 1:30 - 3:30 p.m.
Room: 上機教室
範圍: 上課內容
Open Book, 上機測驗
1. 同學攜帶學生證應試.
2. 攜帶隨身碟（繳交電子檔）
2008年6月17日 星期二
ATM 自動提款機程式
ATM 程式需求與流程:
1. 登入功能 : 輸入帳號與密碼. 密碼正確進入功能選單.
2. 功能選單 : 可選擇 1. 提款, 2.轉帳, 3.餘額查詢.
3. 提款功能 : 可輸入提款金額, 判斷帳戶餘額是否大於提款金額?
4. 轉帳功能 : 可輸入轉帳金額, 判斷帳戶餘額是否大於轉帳金額?
5. 餘額查詢 : 輸出目前帳戶餘額.
1. 登入功能 : 輸入帳號與密碼. 密碼正確進入功能選單.
2. 功能選單 : 可選擇 1. 提款, 2.轉帳, 3.餘額查詢.
3. 提款功能 : 可輸入提款金額, 判斷帳戶餘額是否大於提款金額?
4. 轉帳功能 : 可輸入轉帳金額, 判斷帳戶餘額是否大於轉帳金額?
5. 餘額查詢 : 輸出目前帳戶餘額.
2008年6月10日 星期二
OX 遊戲設計
OX 遊戲設計:
判斷下圖 OX 遊戲的勝負結果.
變數宣告
Dim x1, x2, x3 As Integer
Dim x4, x5, x6 As Integer
Dim x7, x8, x9 As Integer
分別代表OX 棋盤上的位置 與 資料.
變數的值分別為:
1. 空格 : 數字 0
2. 畫 O : 數字 1
2. 畫 X : 數字 2
x1 = 1
x2 = 1
x3 = 1
x4 = 0
x5 = 2
x6 = 0
x7 = 2
x8 = 2
x9 = 0
If (x1 = 1 And x2 = 1 And x3 = 1) Then
MsgBox(" O 獲勝 ! ")
End If
判斷下圖 OX 遊戲的勝負結果.
變數宣告
Dim x1, x2, x3 As Integer
Dim x4, x5, x6 As Integer
Dim x7, x8, x9 As Integer
分別代表OX 棋盤上的位置 與 資料.
變數的值分別為:
1. 空格 : 數字 0
2. 畫 O : 數字 1
2. 畫 X : 數字 2
x1 = 1
x2 = 1
x3 = 1
x4 = 0
x5 = 2
x6 = 0
x7 = 2
x8 = 2
x9 = 0
If (x1 = 1 And x2 = 1 And x3 = 1) Then
MsgBox(" O 獲勝 ! ")
End If
2008年5月27日 星期二
2008年5月13日 星期二
高鐵訂票程式-加入乘車日期, 票數
程式變數宣告:
Dim 起始站, 目的站, 乘車時間, 車次 As String
Dim 票價, 票數, 購票金額 As Integer
Dim 自由座, 標準座 As Boolean
VB程式控制項:
ComboBox, DateTimePicker, NumericUpDown
Dim 起始站, 目的站, 乘車時間, 車次 As String
Dim 票價, 票數, 購票金額 As Integer
Dim 自由座, 標準座 As Boolean
VB程式控制項:
ComboBox, DateTimePicker, NumericUpDown
2008年5月6日 星期二
高鐵訂票程式-IF 判斷式練習
變數宣告：
1. 起站， 到站為字串 String
2. 票價為整數 Integer
3. 自由座為布林 Boolean (True 真/ False 假）
控制項 RadioButton2 按下時：
自由座 = True
A.計算票價按鈕按下時：
判斷 起站 與 到站資料，
決定票價
B.如果使用者選擇自由座:
將票價打八折
輸出票價資料 MsgBox( )
1. 起站， 到站為字串 String
2. 票價為整數 Integer
3. 自由座為布林 Boolean (True 真/ False 假）
控制項 RadioButton2 按下時：
自由座 = True
A.計算票價按鈕按下時：
判斷 起站 與 到站資料，
決定票價
B.如果使用者選擇自由座:
將票價打八折
輸出票價資料 MsgBox( )
Chap3-2 IF判斷式練習題-BMI身體質量指數
運用Windows應用程式開啟專案，設計一個計算BMI身體質量指數程式，功能包含輸入：身高、體重計算，相關輸出：BMI值。
請同學參考網路範例程式.
BMI 身高體重標準的區分為：
體型 BMI值 = 體重(公斤 kg) / 身高^2 (公尺m)
1.過輕 BMI <= 18.5
2.正常 18.5 至 24.9
3.過重 25 至 29.9
4.請小心你的體重 BMI >= 30
2008年4月29日 星期二
2008年4月15日 星期二
2008年4月1日 星期二
第一次小考
以下題目利用Windows應用程式專案來開發：
在答案卷上寫上：
(1) 程式的輸入部分說明,
(2) 程式的流程為何？,
(3)程式的輸出部分說明.
題目1：開發一個ATM自動提款機程式，並完成以下需求：
輸入部分：帳號與密碼。
流程部分：判斷帳號與密碼是否正確？
輸出部分：如果正確，顯示帳戶金額為10,000元；
如果錯誤，顯示重新輸入一次。
題目2：開發一個OX遊戲的程式，並完成以下需求：
輸入部分：完成輸入棋盤。
流程部分：可以判斷使用者輸入為O或是X。
輸出部分：完成OX遊戲的成果。
題目3：開發一個類似小算盤程式，並完成以下需求：（加分題）
輸入部分：可供使用者輸入0, 1 ,2 ...9 與 +（加法）─ （減法）等。
流程部分：可以判斷使用者的輸入與計算方式。
輸出部分：可以顯示計算結果。
在答案卷上寫上：
(1) 程式的輸入部分說明,
(2) 程式的流程為何？,
(3)程式的輸出部分說明.
題目1：開發一個ATM自動提款機程式，並完成以下需求：
輸入部分：帳號與密碼。
流程部分：判斷帳號與密碼是否正確？
輸出部分：如果正確，顯示帳戶金額為10,000元；
如果錯誤，顯示重新輸入一次。
題目2：開發一個OX遊戲的程式，並完成以下需求：
輸入部分：完成輸入棋盤。
流程部分：可以判斷使用者輸入為O或是X。
輸出部分：完成OX遊戲的成果。
題目3：開發一個類似小算盤程式，並完成以下需求：（加分題）
輸入部分：可供使用者輸入0, 1 ,2 ...9 與 +（加法）─ （減法）等。
流程部分：可以判斷使用者的輸入與計算方式。
輸出部分：可以顯示計算結果。
2008年3月25日 星期二
2008年3月18日 星期二
OX game : O 與 X 的輸入
Public Class Form1
Dim a, b As String '宣告 a, b 為字串變數
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
a = "O" '當使用者按下O的按鈕
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
a = "X" '當使用者按下X的按鈕
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Text = a
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Button2.Text = a
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Button3.Text = a
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Button1.Text = " " '當使用者按下清空棋盤的按鈕
Button2.Text = " "
Button3.Text = " "
End Sub
End Class
Dim a, b As String '宣告 a, b 為字串變數
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
a = "O" '當使用者按下O的按鈕
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
a = "X" '當使用者按下X的按鈕
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Text = a
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Button2.Text = a
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Button3.Text = a
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Button1.Text = " " '當使用者按下清空棋盤的按鈕
Button2.Text = " "
Button3.Text = " "
End Sub
End Class
2008年3月4日 星期二
2008年3月3日 星期一
訂閱：
文章 (Atom)
