VB计算器源代码

VB计算器源代码计算器窗口设计计算器窗口设计源代码 Private Sub Command1_Click() Text1.Text = Text1.Text & "1" End Sub Private Sub Command10_Click() Text1.Text = Text1.Text & "0" End Sub Private Sub Command11_Click() Text1.Text = Text1.Text & "." End Sub Private Sub Command12_Click() Dim a A...

计算器窗口设计计算器窗口设计源代码 Private Sub Command1_Click() Text1.Text = Text1.Text & "1" End Sub Private Sub Command10_Click() Text1.Text = Text1.Text & "0" End Sub Private Sub Command11_Click() Text1.Text = Text1.Text & "." End Sub Private Sub Command12_Click() Dim a As Double a = Val(Text1.Text) If a > 0 Then Text1.Text = -Val(Text1.Text) If a < 0 Then Text1.Text = Abs(Val(Text1.Text)) If a = 0 Then Text1.Text = "0" If Text1.Text = "" Then Text1.Text = 0 End Sub Private Sub a() Text2.Text = Text1.Text Text1.Text = "" End Sub Private Sub Command13_Click() Call a Label1.Caption = "+" End Sub Private Sub Command14_Click() Call a Label1.Caption = "-" End Sub Private Sub Command15_Click() Call a Label1.Caption = "*" End Sub Private Sub Command16_Click() Call a Label1.Caption = "/" End Sub Private Sub Command17_Click() Text1.Text = Text1.Text ^ 2 End Sub Private Sub Command18_Click() Text1.Text = Sqr(Val(Text1.Text)) End Sub Private Sub Command19_Click() If Val(Text1.Text) = 0 Then j = MsgBox("请输入数字", vbYes, "错误提示") Else Dim i As Integer, X As Integer X = 1 For i = 1 To Text1.Text X = X * i Next i Text1.Text = X End If End Sub Private Sub Command2_Click() Text1.Text = Text1.Text & "2" End Sub Private Sub Command20_Click() On Error Resume Next Select Case Label1.Caption Case "+" Text1.Text = Val(Text2.Text) + Val(Text1.Text) Case "-" Text1.Text = Val(Text2.Text) - Val(Text1.Text) Case "*" Text1.Text = Val(Text2.Text) * Val(Text1.Text) Case "/" If Val(Text1.Text) = 0 Then o = MsgBox("除数不能为0", vbYesNo, "错误提示") Else Text1.Text = Val(Text2.Text) / Val(Text1.Text) End If End Select End Sub Private Sub Command21_Click() Text1.Text = "" Text2.Text = "" End Sub Private Sub Command22_Click() If Text1.Text = 0 Then j = MsgBox("请输入数字", vbYes, "错误提示") Else Text1.Text = 1 / Val(Text1.Text) End If End Sub Private Sub Command23_Click() Unload Me End Sub Private Sub Command24_Click() frmAbout.Show End Sub Private Sub Command25_Click() If Text1.Text <> "" Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) End If End Sub Private Sub Command26_Click() Text1.Text = "" End Sub Private Sub Command3_Click() Text1.Text = Text1.Text & "3" End Sub Private Sub Command4_Click() Text1.Text = Text1.Text & "4" End Sub Private Sub Command5_Click() Text1.Text = Text1.Text & "5" End Sub Private Sub Command6_Click() Text1.Text = Text1.Text & "6" End Sub Private Sub Command7_Click() Text1.Text = Text1.Text & "7" End Sub Private Sub Command8_Click() Text1.Text = Text1.Text & "8" End Sub Private Sub Command9_Click() Text1.Text = Text1.Text & "9" End Sub

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

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

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

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

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

立即下载

VB计算器源代码

你可能还喜欢