• 專案建立與專案管理相關功能
• 視窗基本元件(Form、TextBox、Button)建立與調整
• 視窗基本元件屬性設定
• 事件處理
• 建立副程式

Public Class form_main

Dim num_result, num1, num2 As Long
Dim num_status As Integer

Private Sub form_main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
num_result = 0
num_status = 1
num1 = 0
num2 = 0
show_result(num_result)
End Sub

Private Sub show_result(ByVal _result As Long)
tb_display.Text = Convert.ToString(_result)
End Sub

Private Sub process_press(ByVal num_press As Long)
If num_status = 1 Then
num1 = num1 * 10 + num_press
show_result(num1)
Else
num2 = num2 * 10 + num_press
show_result(num2)
End If
End Sub

Private Sub btn_0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_0.Click
process_press(0)
End Sub

Private Sub btn_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_1.Click
process_press(1)
End Sub

Private Sub btn_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_2.Click
process_press(2)
End Sub

Private Sub btn_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_3.Click
process_press(3)
End Sub

Private Sub btn_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_4.Click
process_press(4)
End Sub

Private Sub btn_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_5.Click
process_press(5)
End Sub

Private Sub btn_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_6.Click
process_press(6)
End Sub

Private Sub btn_7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_7.Click
process_press(7)
End Sub

Private Sub btn_8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_8.Click
process_press(8)
End Sub

Private Sub btn_9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_9.Click
process_press(9)
End Sub

Private Sub btn_plus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_plus.Click
num_status = 2
End Sub

Private Sub btn_equal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_equal.Click
num_status = 1
num_result = num1 + num2
show_result(num_result)
End Sub
End Class

• 預防整數長度不足，出現溢位錯誤。
• 加入可計算小數點功能。
• 加入清除上一計算結果功能。
• 修改為可使用加、減、乘、除，四則運算之計算機。