标题: 用VB写的欧姆定律自动计算器A1.0 [打印本页]

作者: hts2008222    时间: 2016-4-11 23:12
标题: 用VB写的欧姆定律自动计算器A1.0
用于快速计算欧姆定律的电流电压电阻参数,很方便!

作者: hts2008222    时间: 2016-4-11 23:14
有附件的,没有上传成功,什么情况啊?
作者: hts2008222    时间: 2016-4-11 23:18
上传源码,大家自行研究好了
如下:
Private Sub Command1_Click()
Dim a, b, result As Double
a = Text2.Text
b = Text3.Text
result = 0
If b <> 0 Then
result = a * b
Text1.Text = result
Else
MsgBox "除数不能为零"
End If

End Sub

Private Sub Command2_Click()
Dim a, b, result As Double
a = Text1.Text
b = Text3.Text
result = 0
If b <> 0 Then
result = a / b
Text2.Text = result
Else
MsgBox "除数不能为零"
End If
End Sub

Private Sub Command3_Click()
Dim a, b, result As Double
a = Text1.Text
b = Text2.Text
result = 0
If b <> 0 Then
result = a / b
Text3.Text = result
Else
MsgBox "除数不能为零"
End If
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Command5_Click()
Text1.Text = "1"
Text2.Text = "1"
Text3.Text = "1"
End Sub

Private Sub Form_Load()
Text1.Text = "1"
Text2.Text = "1"
Text3.Text = "1"
End Sub

作者: admin    时间: 2016-4-11 23:50
谢谢分享 有工程文件就更好了,用winrar压缩一下 就可以上传了呢
作者: hts2008222    时间: 2016-4-30 00:00
好的,再来试上传一次
作者: hts2008222    时间: 2016-4-30 00:07
补充VB程序exe文件,实测可用方便!

欧姆定律自动计算器A1.0.rar

3.7 KB, 下载次数: 11, 下载积分: 黑币 -5

VB程序EXE


作者: hts2008222    时间: 2016-4-30 01:01
VB工程文件和源码

欧姆定律自动计算器A1.0(包含工程文件有源码).rar

9.63 KB, 下载次数: 19, 下载积分: 黑币 -5

VB工程文件和源码


作者: hsy2966    时间: 2017-6-25 07:00
交流点击数安




欢迎光临 (http://www.51hei.com/bbs/) Powered by Discuz! X3.1