vb编程-标准版计算器

vb编程-标准版计算器vb编程-标准版计算器程序5—标准版计算器功能:标准版计算器，类似winxp计算器，添加了平方和开平方功能。 Public sum, m, s As Double, k As String 定义全局变量sum,m,s浮点型，k字符串 Private Sub Command1_Click(Index As Integer) 定义按键1点击事件数组，选择过程视为A。 Select Case Index Case 1 Text1.Text = Text1.Text & 1 Case 2 Text1.Te...

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

                    本文档为【vb编程-标准版计算器】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

vb编程-标准版计算器

你可能还喜欢