欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

標(biāo)題: 用VB寫(xiě)的歐姆定律自動(dòng)計(jì)算器A1.0 [打印本頁(yè)]

作者: hts2008222 時(shí)間: 2016-4-11 23:12
標(biāo)題: 用VB寫(xiě)的歐姆定律自動(dòng)計(jì)算器A1.0
用于快速計(jì)算歐姆定律的電流電壓電阻參數(shù)，很方便！

作者: hts2008222 時(shí)間: 2016-4-11 23:14
有附件的，沒(méi)有上傳成功，什么情況啊?

作者: hts2008222 時(shí)間: 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 "除數(shù)不能為零"
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 "除數(shù)不能為零"
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 "除數(shù)不能為零"
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 時(shí)間: 2016-4-11 23:50
謝謝分享有工程文件就更好了，用winrar壓縮一下就可以上傳了呢

作者: hts2008222 時(shí)間: 2016-4-30 00:00
好的，再來(lái)

試上傳一次

作者: hts2008222 時(shí)間: 2016-4-30 00:07
補(bǔ)充VB程序exe文件，實(shí)測(cè)可用方便！

歐姆定律自動(dòng)計(jì)算器A1.0.rar

3.7 KB, 下載次數(shù): 11, 下載積分: 黑幣 -5

VB程序EXE

作者: hts2008222 時(shí)間: 2016-4-30 01:01
VB工程文件和源碼

歐姆定律自動(dòng)計(jì)算器A1.0(包含工程文件有源碼).rar

9.63 KB, 下載次數(shù): 19, 下載積分: 黑幣 -5

VB工程文件和源碼

作者: hsy2966 時(shí)間: 2017-6-25 07:00
交流點(diǎn)擊數(shù)安

歡迎光臨 (http://www.raoushi.com/bbs/)