一道无敌难的VB！！！

来源：百度知道 编辑：UC知道 时间：2024/06/23 00:34:58
设计一个滚动条及两个文本框，滚动条代表温度，最小值是摄氏零度，最大值是摄氏100度，运行时，当移动滚动条滑块时，摄氏文本框能正确显示相应的温度值。
还有一个是华氏温度~~~不好意思~~！！非常感谢你们~~

Option Explicit

Private Sub Form_Load()
VScroll1.Min = 0
VScroll1.Max = 1000
VScroll1.SmallChange = 1
VScroll1.LargeChange = 10
VScroll1.Value = 1000
Call Xi
End Sub

Private Sub Xi()
Dim X As Single, C As Single, F As Single
X = 1000 - VScroll1.Value
C = X / 10
F = C * 9 / 5 + 32
Text1.Text = C & " C"
Text2.Text = F & " F"
End Sub

Private Sub VScroll1_Change()
Call Xi
End Sub

Private Sub VScroll1_Scroll()
Call Xi
End Sub

太难了, 高手你自己做吧...

还有一个文本框用来做甚？

Private Sub Form_Load()
HScroll1.Min = 0
HScroll1.Max = 100
HScroll1.SmallChange = 1
End Sub

Private Sub HScroll1_Change()
Text1 = HScroll1.Value
End Sub

Private Sub HScroll1_Scroll()
Text1 = HScroll1.Value
End Sub