編程操作

a = Val(Text1)

op = Text2

b = Val(文本3)

選擇案例操作

大小寫"+"

c = a + b

案例“-”

c = a - b

案例" * "

c = a * b

大小寫"/"

如果b & lt& gt0那麽c = a/b Else c = "除法器不能為0！"

結束選擇

Text4 = c

末端接頭

私有子窗體_Load()

Text1 = " "

Text2 = " "

Text3 = " "

Text4 = " "

末端接頭