vb编程-标准版计算器.doc

文档介绍：程序5—标准版计算器
功能:标准版计算器,类似winxp计算器,添加了平方和开平方功能。
Public sum, m, s As Double, k As String
定义全局变量sum,m,s浮点型,k字符串
Private mand1_Click(Index As Integer)
Select Case Index
Case 1
= & 1
Case 2
= & 2
Case 3
= & 3
Case 4
= & 4
Case 5
= & 5
Case 6
= & 6
Case 7
= & 7
Case 8
= & 8
Case 9
= & 9
Case 10
= & 0
Case 15
= & "."
End Select
End Sub
定义按键1点击事件数组,选择过程视为A。
Private mand2_Click(Index As Integer)
A..
End Sub
定义按键2点击事件数组
Private mand3_Click(Index As Integer)
A..
End Sub
定义按键3点击事件数组
Private mand4_Click(Index As Integer)
A..
End Sub
定义按键4点击事件数组
Private mand5_Click(Index As Integer)
A..
End Sub
定义按键5点击事件数组
Private mand6_Click(Index As Integer)
A..
定义按键6点击事件数组
End Sub
Private mand7_Click(Index As Integer)
A..
End Sub
定义按键7点击事件数组
Private mand8_Click(Index As Integer)
A..
End Sub
定义按键8点击事件数组
Private mand9_Click(Index As Integer)
A..
End Sub
定义按键9点击事件数组
Private mand10_Click(Index As Integer)
A..
End Sub
定义按键0点击事件数组
Private mand15_Click(Index As Integer)
A..
End Sub
定义按键“.”点击事件数组
Private mand11_Click(Index As Integer)
s = Text1
Text1 = ""
k = "+"
End Sub
定义加法过程
Private mand1