如何将摄氏温度改为华氏温度

时间:2011-01-31 15:16:04

标签: .net vb.net

我不太了解我正在使用Microsoft Visual Basic .Net编程,到目前为止我有这个

 Sub Main()
        Dim fahrenheit, celsius As Double
        Console.WriteLine("Enter a value for fahrenheit tempature:")
        fahrenheit = Convert.ToDouble(Console.ReadLine())
        celsius = 5 / 9 * (fahrenheit - 32)
        celsius = Math.Round(celsius, 1)
        Console.WriteLine(fahrenheit & " F = " & celsius & " C")

现在我必须添加类似的代码行来将Celsius temp更改为Fahrenheit现在我只是重复我所拥有的内容,或者我正在探索另一种方式来理解这一点。我尝试了一些方法,但它没有用。有人可以解释我做错了什么......我想如果使用其他的话吗?

Sub Main()
    Dim fahrenheit, celsius As Double
    Console.WriteLine("Enter a value for fahrenheit tempature:")
    fahrenheit = Convert.ToDouble(Console.ReadLine())
    celsius = 5 / 9 * (fahrenheit - 32)
    fahrenheit = celsius * 9 / 5 + 32
    celsius = Math.Round(celsius, 1)
    Console.WriteLine(fahrenheit & " F = " & celsius & " C")
End Sub

好的,这就是我在调试它时黑盒子运行时没有的东西,它只表示华氏温度,我怎么能让它也能读取摄氏温度,或者我必须开始清楚并让每一个都有自己的东西。

2 个答案:

答案 0 :(得分:3)

如果这是一个学习练习,为什么不为每个人生成一个函数?

Function GetCelsiusForFahrenheit(ByVal fahrenheit as Double) As Double
    Return (5/9) * (fahrenheit - 32)
End Function

Function GetFahrenheitForCelsius(ByVal celsius as Double) As Double
    Return  (9/5) * celsius  + 32
End Function

答案 1 :(得分:0)

为什么不为此使用“其他方向公式”?那就是

fahrenheit = (9 / 5 * celsius) + 32