帮我看看VB设计!急,急

来源:百度知道 编辑:UC知道 时间:2024/05/11 00:53:41
Private Sub ftos_Click()
Dim f As Single, s As Single
s = Val(dushu.Text)
f =9/5 s + 32
sheshi.Caption = Str(f)

End Sub

Private Sub stof_Click()
Dim c As Single, s As Single
s = Val(dushu.Text)
c=5/9(f-32)
huashi.Caption = Str(c)

End Sub

f =9/5 s + 32 电脑总说“缺少语句结束”

Private Sub ftos_Click()
Dim f As Single, s As Single
s = Val(dushu.Text)
f = 9 / 5 * s + 32 '缺少*运算符
sheshi.Caption = Str(f)

End Sub

Private Sub stof_Click()
Dim c As Single, s As Single
s = Val(dushu.Text)
c = 5 / 9 * (f - 32) ''缺少*运算符
huashi.Caption = Str(c)

End Sub