textbox的关联问题
请各位帮忙看看我的问题在哪?我想做个简单的单位换算,3个TEXTBOX代表摄氏度,绝对温度,华氏度Option Explicit
Dim C, K, F As Single
Private Sub text1_change()
Label1.ForeColor = &H80000012
C = Val(Text1)
Text2 = C + 273.15
Text3 = C + 32
End Sub
Private Sub text2_change()
Label2.ForeColor = &H80000012
K = Val(Text2)
C = 0
F = 0
Text1 = K - 273.15
Text3 = K - 273.15
End Sub
Private Sub text3_change()
Label3.ForeColor = &H80000012
F = Val(Text3)
C = 0
K = 0
Text1 = F - 100
Text2 = F - 100
End Sub
--------------------编程问答-------------------- 公式好像不对 --------------------编程问答-------------------- 公式严重的不对。 --------------------编程问答--------------------
不妨描述一下现在有什么不对? --------------------编程问答--------------------
Option Explicit--------------------编程问答-------------------- 笨小叶子。
Dim C, K, F As Single
Private Sub text1_change()
Label1.ForeColor = &H80000012
C = Val(Text1)
Text2 = C + 273.15
Text3 = C + 32
End Sub
Private Sub text2_change()
Label2.ForeColor = &H80000012
K = Val(Text2)
Text1 = K - 273.15
Text3 = Text1 + 32
End Sub
Private Sub text3_change()
Label3.ForeColor = &H80000012
F = Val(Text3)
Text1 = F - 32
Text2 = Text1 + 273.15
End Sub
C 和 F 有个换算的,是什么 九分之5的。 --------------------编程问答--------------------
公式确实不是这样的,俺头痛医头脚痛医脚了 --------------------编程问答-------------------- 开 [K] = 摄 [°C] + 273.15
摄 [°C] = 开 [K] − 273.15
华 [°F] = 开 [K] · 9/5 − 459.67
开 [K] = (华 [°F] + 459.67) · 5/9
摄 [°C] = 开 [K] − 273.15
开 [K] = 摄 [°C] + 273.15
华 [°F] = 摄 [°C] · 9/5 + 32
摄 [°C] = (华 [°F] − 32) · 5/9
开 [K] = (华 [°F] + 459.67) · 5/9
华 [°F] = 开 [K] · 9/5 − 459.67
摄 [°C] = (华 [°F] − 32) · 5/9
华 [°F] = 摄 [°C] · 9/5 + 32
--------------------编程问答-------------------- 路过顶贴 ............
补充:VB , 基础类