
題目三:
下圖的計時器共有三個按鈕(Button),分別為「開始」以 BtnStart 命名、「停止」以 BtnStop
命名、「清除」以 BtnClear 命名。按下「開始」時,在「TrackBarTimer」指標會隨時間移
動,Timer 的時間間隔設定為十毫秒(百分之一秒),每經過十毫秒便觸發 Tick 中的事件,Timer
控制項的名稱為「Timer1」。
下列為 Visual Basic 部分程式碼,請完成方框中的程式。【第 1小題 10 分,第 2、3、4
小題每題 5分】
Public Class Timer
Dim min As Integer = 0 : Dim sec As Integer=0
Dim a As Integer = 0 : Dim b As Integer = 0
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Timer1.Interval = 10
b += 1
If b = 10 Then
b = 0
a += 1
If a = 10 Then
a = 0
sec += 1
TrackBarTimer.Value += 1
End If
End If
TextBoxTimer.Text = min & "分 " & sec & "秒 " & a & b
End Sub
Private Sub BtnStart_Click(sender As Object, e As EventArgs) Handles BtnStart.Click
End Sub
Private Sub BtnStop_Click(sender As Object, e As EventArgs) Handles BtnStop.Click
End Sub
Private Sub BtnClear_Click(sender As Object, e As EventArgs) Handles BtnClear.Click
End Sub
End Class
題目四:
下圖為數位相機易購網系統。在「機型」GroupBox 選項中只能單選,在「配件」GroupBox
選項可多選,只要有選取時會隨時更新「購買總金額」。下列為 Visual Basic 部分程式碼,
請完成下列方框中的程式。【第 1~7 小題,每小題 3分,第 8小題 4分】
Public Class Form1
Dim priceDsc, priceMemory, priceReader, priceCharge, priceBattery As Integer
Private Sub SelectItem_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles rdbP10.CheckedChanged, rdbD70.CheckedChanged ,
rdbP20.CheckedChanged, chkReader.CheckedChanged, chkMemory.CheckedChanged,
chkCharge.CheckedChanged, chkBattery.CheckedChanged
' 選取 rdbP10
' 選取 rdbP20
' 選取 rdbD70
' 選取 chkMemory
' 選取 chkReader
' 選取 chkCharge
' 選取 chkBattery
' 計算總金額
End Sub
End Class
TrackBarTimer
(每60 秒重新跑一遍)