Text1.Text?=?Text1.Text?&?Command1(Index).Caption
End?Sub
Private?Sub?Command2_Click()?'等號=
Text1.Text?=?Text1.Text?&?"="?&?CallVal(Text1.Text)
End?Sub
Private?Sub?Command3_Click()?'除法/
Text1.Text?=?Text1.Text?&?"/"
End?Sub
Private?Sub?Command4_Click()?'乘法*
Text1.Text?=?Text1.Text?&?"*"
End?Sub
Private?Sub?Command5_Click()?'減法-
Text1.Text?=?Text1.Text?&?"-"
End?Sub
Private?Sub?Command6_Click()?'加法+
Text1.Text?=?Text1.Text?&?"+"
End?Sub
Private?Sub?Command7_Click()?'清空
Text1.Text?=?""
End?Sub
Private?Sub?Command8_Click()?'退格<
If?Text1.Text?=?""?Then?Exit?Sub
Text1.Text?=?Left(Text1.Text,?Len(Text1.Text)?-?1)
End?Sub
Private?Sub?Form_KeyPress(KeyAscii?As?Integer)?'窗體的鍵盤按下事件
If?Chr(KeyAscii)?=?"="?Then
KeyAscii?=?0
Text1.Text?=?Text1.Text?&?"="?&?CallVal(Text1.Text)
End?If
End?Sub
Private?Sub?Form_Load()
Dim?i?As?Integer
Dim?xTop?As?Integer
xTop?=?3200
Command1(0).Top?=?xTop
Command1(0).Height?=?375
Command1(0).Left?=?240
Command1(0).Width?=?1200
Command1(0).Caption?=?"0"
Command2.Top?=?xTop
Command2.Height?=?375
Command2.Left?=?1680
Command2.Width?=?1200
Command2.Caption?=?"="
For?i?=?1?To?9
Load?Command1(i)
If?i?Mod?3?=?1?Then
Command1(i).Left?=?Command1(0).Left
Command1(i).Top?=?Command1(i?-?1).Top?-?240?-?375
Else
Command1(i).Left?=?Command1(i?-?1).Left?+?720
Command1(i).Top?=?Command1(i?-?1).Top
End?If
Command1(i).Width?=?480
Command1(i).Caption?=?i
Command1(i).Visible?=?True
Next
Command3.Top?=?xTop?-?375?-?240
Command3.Height?=?375
Command3.Left?=?2400
Command3.Width?=?480
Command3.Caption?=?"/"
Command4.Top?=?xTop?-?375?*?2?-?240?*?2
Command4.Height?=?375
Command4.Left?=?2400
Command4.Width?=?480
Command4.Caption?=?"×"
Command5.Top?=?xTop?-?375?*?3?-?240?*?3
Command5.Height?=?375
Command5.Left?=?2400
Command5.Width?=?480
Command5.Caption?=?"-"
Command6.Top?=?xTop?-?375?*?4?-?240?*?4
Command6.Height?=?375
Command6.Left?=?2400
Command6.Width?=?480
Command6.Caption?=?"+"
Command7.Top?=?xTop?-?375?*?4?-?240?*?4
Command7.Height?=?375
Command7.Left?=?960
Command7.Width?=?1200
Command7.Caption?=?"清空"
Command8.Top?=?xTop?-?375?*?4?-?240?*?4
Command8.Height?=?375
Command8.Left?=?240
Command8.Width?=?480
Command8.Caption?=?"<"
Text1.Text?=?""
End?Sub
Private?Function?CallVal(ByVal?inputStr?As?String)?As?String?'使用ScriptControl計算的函數
Dim?SC
On?Error?GoTo?er
Set?SC?=?CreateObject("ScriptControl")
SC.Language?=?"VBScript"
CallVal?=?SC.Eval(inputStr)
Exit?Function
er:
CallVal?=?"錯誤"
End?Function