รหัสมีดังนี้:
คัดลอกรหัสรหัสดังต่อไปนี้:
-
*ผู้เขียน: หัวใจนกดำ
*เวอร์ชัน:1.0
-
Dim IntX As Double 'ตัวแปรส่วนกลางที่ใช้ในการจัดเก็บค่าที่คำนวณได้
Dim IntOperation As Double ' ทำเครื่องหมายประเภทการดำเนินการ
Dim isBegin As Boolean 'ไม่ว่าแท็กจะถูกกำหนดค่าให้กับ IntX หรือไม่'
Public Sub Clear() 'ฟังก์ชั่นคำสั่งที่ชัดเจน
screen.Caption = ""
จบหมวดย่อย
สาธารณะย่อย SavaToIntX()
เลือก Case IntOperation
กรณีที่ 1 'เพิ่มเติม
ถ้า isBegin = False จากนั้น
IntX = Val (หน้าจอคำบรรยาย)
isBegin = จริง
อื่น
IntX = IntX + Val (หน้าจอคำบรรยาย)
สิ้นสุดถ้า
กรณีที่ 2 'การลบ
ถ้า isBegin = False แล้ว
IntX = Val (หน้าจอคำบรรยาย)
isBegin = จริง
อื่น
IntX = IntX - Val (หน้าจอคำบรรยาย)
สิ้นสุดถ้า
กรณีที่ 3 'การคูณ'
ถ้า isBegin = False จากนั้น
IntX = Val (หน้าจอคำบรรยาย)
isBegin = จริง
อื่น
IntX = IntX * Val (หน้าจอคำบรรยาย)
'screen.Caption = IntX
สิ้นสุดถ้า
กรณีที่ 4 'กอง
ถ้า isBegin = False แล้ว
IntX = Val (หน้าจอคำบรรยาย)
isBegin = จริง
อื่น
IntX = IntX / Val (หน้าจอคำบรรยาย)
สิ้นสุดถ้า
สิ้นสุดการเลือก
จบหมวดย่อย
คำสั่งย่อยส่วนตัว0_คลิก()
screen.Caption = หน้าจอคำบรรยาย & 0
จบหมวดย่อย
คำสั่งย่อยส่วนตัว1_คลิก()
screen.Caption = หน้าจอ.คำบรรยาย & 1
จบหมวดย่อย
คำสั่งย่อยส่วนตัว2_คลิก()
screen.Caption = หน้าจอ.คำบรรยาย & 2
จบหมวดย่อย
คำสั่งย่อยส่วนตัว3_คลิก()
screen.Caption = หน้าจอ.คำบรรยาย & 3
จบหมวดย่อย
คำสั่งย่อยส่วนตัว4_คลิก()
screen.Caption = หน้าจอ.คำบรรยาย & 4
จบหมวดย่อย
คำสั่งย่อยส่วนตัว5_Click()
screen.Caption = หน้าจอ.คำบรรยาย & 5
จบหมวดย่อย
คำสั่งย่อยส่วนตัว6_คลิก()
screen.Caption = หน้าจอ.คำบรรยาย & 6
จบหมวดย่อย
คำสั่งย่อยส่วนตัว7_Click()
screen.Caption = หน้าจอ.คำบรรยาย & 7
จบหมวดย่อย
คำสั่งย่อยส่วนตัว8_คลิก()
screen.Caption = หน้าจอ.คำบรรยาย & 8
จบหมวดย่อย
คำสั่งย่อยส่วนตัว9_คลิก()
screen.Caption = หน้าจอ.คำบรรยาย & 9
จบหมวดย่อย
CommandClear_Click() ส่วนตัว 'ล้างคำสั่ง'
isBegin = เท็จ
การดำเนินการภายใน = 0
IntX = 0
screen.Caption = ""
จบหมวดย่อย
CommandEqual_Click() ส่วนตัวย่อย 'การดำเนินการเครื่องหมายเท่ากับ
ถ้า IntOperation <> 0 จากนั้น 'เมื่อมีเครื่องหมายการดำเนินการ'
โทรSavaToIntX
การดำเนินการภายใน = 0
isBegin = เท็จ
screen.Caption = IntX
สิ้นสุดถ้า
จบหมวดย่อย
CommandMinus_Click() ย่อยส่วนตัว 'การดำเนินการลบ
ถ้า IntOperation <> 0 จากนั้น 'เมื่อมีเครื่องหมายการดำเนินการ'
โทรSavaToIntX
การดำเนินการภายใน = 2
โทรเคลียร์
อื่น
การดำเนินการภายใน = 2
โทรSavaToIntX
โทรเคลียร์
สิ้นสุดถ้า
จบหมวดย่อย
CommandMultiple_Click() ย่อยส่วนตัว 'การดำเนินการคูณ
ถ้า IntOperation <> 0 จากนั้น 'เมื่อมีเครื่องหมายการดำเนินการ'
โทรSavaToIntX
การดำเนินการภายใน = 3
โทรเคลียร์
อื่น
การดำเนินการภายใน = 3
โทรSavaToIntX
โทรเคลียร์
สิ้นสุดถ้า
จบหมวดย่อย
Private Sub CommandPlus_Click() 'การดำเนินการเพิ่มเติม
ถ้า IntOperation <> 0 จากนั้น 'เมื่อมีเครื่องหมายการดำเนินการ'
โทรSavaToIntX
การดำเนินการภายใน = 1
โทรเคลียร์
อื่น
การดำเนินการภายใน = 1
โทรSavaToIntX
โทรเคลียร์
สิ้นสุดถ้า
จบหมวดย่อย
CommandSlash_Click() ย่อยส่วนตัว 'การดำเนินการกอง
ถ้า IntOperation <> 0 จากนั้น 'เมื่อมีเครื่องหมายการดำเนินการ'
โทรSavaToIntX
การดำเนินการภายใน = 4
โทรเคลียร์
อื่น
การดำเนินการภายใน = 4
โทรSavaToIntX
โทรเคลียร์
สิ้นสุดถ้า
จบหมวดย่อย