~拜託~很急~用VB的程式幫我寫東西( 急 )20點~~

Question

幫我寫一攝氏互轉華氏的小程式
用VB去寫喔 我只要他的程式就夠了 因該可以直接打出來吧
如果太大的話記到我的信箱 :
[e-mail]和[e-mail]
如果要用記的話兩ㄍ都要喔~!!!!!!
麻煩了喔~~~~!!!!
有季的話麻煩這邊要留一下言喔!!
這樣我才知道有記喔~~!!!

Answer 1

Private Sub Command1_Click()Dim C As Single, F As Single, S As StringDo  S = InputBox("請輸入溫度")  If S = "" Then Exit SubLoop Until IsNumeric(S)F = Format(S * 9 / 5 + 32, "0.0")C = Format((S - 32) * 5 / 9, "0.0")Print S; " ℃ = "; F; " ℉"Print S; " ℉ = "; C; " ℃"End Sub