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

程序5标准版计算器功能：标准版计算器，类似winxp计算器，添加了平方和开平方功能。Public sum, m, s As Double, k As String定义全局变量sum,m,s浮点型，k字符串Private Sub Command1_Click(Index As Integer)Select Case IndexCase 1 Text1.Text = Text1.Text & 1Case 2 Text1.Text = Text1.Text & 2Case 3 Text1.Text = Text1.Text & 3Case 4 Text1.Text = Text1.Text & 4Case 5 Text1.Text = Text1.Text & 5Case 6 Text1.Text = Text1.Text & 6Case 7 Text1.Text = Text1.Text & 7Case 8 Text1.Text = Text1.Text & 8Case 9 Text1.Text = Text1.Text & 9Case 10 Text1.Text = Text1.Text & 0Case 15 Text1.Text = Text1.Text & .End SelectEnd Sub定义按键1点击事件数组，选择过程视为A。Private Sub Command2_Click(Index As Integer)A.End Sub定义按键2点击事件数组Private Sub Command3_Click(Index As Integer)A.End Sub定义按键3点击事件数组Private Sub Command4_Click(Index As Integer)A.End Sub定义按键4点击事件数组Private Sub Command5_Click(Index As Integer)A.End Sub定义按键5点击事件数组Private Sub Command6_Click(Index As Integer)A.End Sub定义按键6点击事件数组Private Sub Command7_Click(Index As Integer)A.End Sub定义按键7点击事件数组Private Sub Command8_Click(Index As Integer)A.End Sub定义按键8点击事件数组Private Sub Command9_Click(Index As Integer)A.End Sub定义按键9点击事件数组Private Sub Command10_Click(Index As Integer)A.End Sub定义按键0点击事件数组Private Sub Command15_Click(Index As Integer)A.End Sub定义按键“.”点击事件数组Private Sub Command11_Click(Index As Integer)s = Text1Text1 = k = +End Sub定义加法过程Private Sub Command12_Click(Index As Integer)s = Text1Text1 = k = -End Sub定义减法过程Private Sub Command13_Click(Index As Integer)s = Text1Text1 = k = chengEnd Sub定义乘法过程Private Sub Command14_Click(Index As Integer)s = Text1Text1 = k = chuEnd Sub定义除法过程Private Sub Command118_Click(Index As Integer)Text1 = End Sub定义CE按钮事件Private Sub Command16_Click(Index As Integer)m = Text1If k = + Thensum = s + mText1 = sumElseIf k = - Thensum = s - mText1 = sumElseIf k = cheng Thensum = s * mText1 = sumElseIf k = chu Thensum = s / mText1 = sumElseIf k = sqr Thensum = Sqr(s)Text1 = sumElseIf k = power2 Thensum = s * sText1 = sumEnd IfEnd Sub定义=按钮事件Private Sub Command17_Click(Index As Integer)Unload Form1End Sub定义退出按钮Private Sub Command19_Click(Index As Integer)s = Text1Text1