吾爱破解 - 52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 7736|回复: 70
收起左侧

[原创工具] 自制简易计算器,人生第一个小工具献给吾爱

  [复制链接]
atingue 发表于 2021-12-24 16:55
先从小工具入手,慢慢学习,最终目标能编写一个自己工作需要的软件

[Visual Basic] 纯文本查看 复制代码
Dim a, b, c As Double
Dim x, y As Double

Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a + b
Text3.Text = c
Print "A+B=" & c
End Sub

Private Sub Command10_Click()
x = Val(Text4.Text)
e = Exp(1)
y = Log(x) / Log(e)
Text3.Text = y
Print "ln" & x; "=" & y
End Sub

Private Sub Command11_Click()
x = Val(Text4.Text)
y = Sin(x)
Text3.Text = y
Print "sin" & x; "值为" & y
End Sub

Private Sub Command12_Click()
x = Val(Text4.Text)
y = Cos(x)
Text3.Text = y
Print "cos" & x; "值为" & y
End Sub

Private Sub Command13_Click()
x = Val(Text4.Text)
y = Tan(x)
Text3.Text = y
Print "tan" & x; "值为" & y
End Sub

Private Sub Command14_Click()
x = Val(Text4.Text)
y = Atn(x)
Text3.Text = y
Print "cot" & x; "值为" & y
End Sub

Private Sub Command15_Click()
Form1.Cls
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

Private Sub Command2_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a - b
Text3.Text = c
Print "A-B=" & c
End Sub

Private Sub Command3_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a * b
Text3.Text = c
Print "A*B=" & c
End Sub

Private Sub Command4_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
If b = 0 Then
MsgBox "被除数不能为0"
Else
c = a / b
Text3.Text = c
Print "A/B=" & c
End If
End Sub

Private Sub Command5_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a ^ b
Text3.Text = c
Print "A^B=" & c
End Sub

Private Sub Command6_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a ^ (1 / b)
Text3.Text = c
Print "A的B次方根=" & c
End Sub

Private Sub Command7_Click()
MsgBox "现在时间为:" & Now()
End Sub

Private Sub Command8_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
If a > 0 And a <> 1 And b > 0 Then
c = Log(b) / Log(a)
Text3.Text = c
Print "logAB=" & c
Else
MsgBox "对数底A应大于0且不等于1,或者B>0"
End If
End Sub

Private Sub Command9_Click()
x = Val(Text4.Text)
y = Log(x) / Log(10)
Text3.Text = y
Print "lg" & x; "=" & y
End Sub
02.png
01.png

简易计算器.rar

6.15 KB, 下载次数: 40, 下载积分: 吾爱币 -2 CB

免费评分

参与人数 8吾爱币 +16 热心值 +7 收起 理由
liuxiooang + 1 + 1 我很赞同!
旗飞扬 + 1 + 1 我很赞同!
wmy19890322 + 1 + 1 用心讨论,共获提升!
马云爱逛京东 + 3 + 1 用心讨论,共获提升!
hellcycle + 1 + 1 用心讨论,共获提升!
a85401234 + 1 谢谢@Thanks!
lxq8432 + 1 + 1 万丈高楼平地起,加油&amp;amp;#128522;
风之暇想 + 7 + 1 感谢发布原创作品,吾爱破解论坛因你更精彩!

查看全部评分

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

微默 发表于 2021-12-27 23:13
哈哈,让我想起了我高中时在网吧自学VB,给我那时候的女朋友写了个表白程序,现在想想,哈哈

免费评分

参与人数 2吾爱币 +2 收起 理由
Faiith + 1 那时候的女朋友
neal5808 + 1 不能拒绝,点拒绝时按扭会逃跑吧,我也写过

查看全部评分

喝酒对瓶吹 发表于 2021-12-24 21:42
ptmaliang 发表于 2021-12-24 22:32
午夜梦遗 发表于 2021-12-24 22:40
感谢分享
LHCAILGT 发表于 2021-12-25 01:06
不错,感谢分享
exnet 发表于 2021-12-25 06:59
支持楼主。
Codeman 发表于 2021-12-25 11:56
vba高手
头像被屏蔽
wxf2589 发表于 2021-12-25 12:02
提示: 作者被禁止或删除 内容自动屏蔽
fennuzhe 发表于 2021-12-25 16:21
不错,感谢分享
xingesm 发表于 2021-12-25 16:51
比我只会弄加减乘除的程序厉害多了 点赞
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则

返回列表

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2024-11-1 23:35

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表