Module Module1
Sub Main()
Dim as0 As Double = 8055.8643
Dim bs0 As Double = -1780.0633
Dim a As Double() = New Double() {-301836.74, +1048965.2, -232840.57, +452884.31, -313084.77, +113413.62, -21298.087, +1636.36, 0.0}
Dim b As Double() = New Double() {-111525.75, -310203.06, +2996119.7, -2793478.8, +1874640.7, -734995.97, +150626.02, -12510.984, 0.0}
Dim z1 As Double = 0
Dim z2 As Double = 0
Dim t, tt, f, dtemp As Double
Dim i As Integer
Dim ch As Char
ch = InputBox("输入控制变量：s为燃气熵值；h为燃气焓值；c为燃气定压比热")
t = InputBox("输入燃气温度")
f = InputBox("输入油气比")
tt = t * 0.001
Select Case ch
Case "h"
For i = 0 To 8
dtemp = Math.Pow(tt, i)
z1 += a(i) * dtemp
z2 += b(i) * dtemp
Next
Case "c"
For i = 0 To 8
dtemp = 0.001 * Math.Pow(tt, i - 1)
z1 += i * a(i) * dtemp
z2+=i*b(i)*dtemp
Next
Case "s"
dtemp = Math.Log10(tt)
z1 = 0.001 * a(1) * dtemp
z2 = 0.001 * b(1) * dtemp
For i = 2 To 8
dtemp = 0.001 * Math.Pow(tt, i - 1)
z1 += i * a(i) * dtemp / (i - 1)
z2 += i * b(i) * dtemp / (i - 1)
Next
z1 += as0
z2 += bs0
End Select
dtemp = z1 + f / (1 + f) * z2
Console.WriteLine("燃气的" & ch & "值为" & "dtemp")
Console.ReadLine()
End Sub
End Module
最后运行的结果是：燃气的h值为dtemp
输入数据后，为什么没有把值给算出来。。。。。

你这里的dtemp是这个变量，“dtemp”这样用的话表示的是一个字符串。。。上面ch你都用对了，后面怎么搞错了呢

Console.WriteLine("燃气的" & ch & "值为" & dtemp)
把双引号去掉
亏我前面还认真看了那么多

谢谢大家的回复哈，粗心了。。。