021230210lmy的个人资料

收个ios，v8以上号，qq5 收个ios，v8以上号，qq549880704

新手求助 Module Module1 Public Class fuelgas Private as0 As Double = 8055.8643 Private bs0 As Double = -1780.0633 Private a As Double() = New Double() {-301836.74, +1048965.2, -232840.57, +452884.31, -313084.77, +113413.62, -21298.087, +1636.36, 0.0} Private b As Double() = New Double() {-111525.75, -310203.06, +2996119.7, -2793478.8, +1874640.7, -734995.97, +150626.02, -12510.984, 0.0} Private z1 As Double = 0 Private z2 As Double = 0 Private tt, dtemp As Double Public Sub blankair(ByVal ch As Char, ByVal t As Double, ByVal f As Double) Dim i As Integer 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.Log(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 End Sub End Class Public Class vapour Private as0 As Double = 231.13968 Private a As Double() = New Double() {-251798.88, 33930.851, -4363.0281, 10594.936, -5495.2291, 1494.933, -227.72255, 17.874978, -0.53236046} Private z1 As Double = 0 Private z2 As Double = 0 Private dtemp As Double Private H2O As Double = 0.01801534 Public Sub blankwater(ByVal ch As Char, ByVal t As Double) Dim i, tt As Integer tt = t * 0.001 Select Case ch Case "h" For i = 0 To 8 dtemp = Math.Pow(tt, i) z1 += a(i) * dtemp z2 += a(i) * Math.Pow(298.15 * 0.001, i) Next z1 = z1 - z2 Case "c" For i = 1 To 8 dtemp = 0.001 * Math.Pow(tt, i - 1) z1 += i * a(i) * dtemp Next Case "s" dtemp = Math.Log(tt) z1 = 0.001 * a(1) * dtemp For i = 2 To 8 dtemp = 0.001 * Math.Pow(tt, i - 1) z1 += i * a(i) * dtemp / (i - 1) Next z1 += as0 End Select dtemp = z1 / H2O End Sub End Class Sub Main() Dim ch As Char Dim t, f, d As Double Dim dtemp As Double ch = InputBox("输入控制变量：熵s、焓h、定压比热c") t = InputBox("输入湿燃气温度") f = InputBox("输入油气比") d = InputBox("输入湿燃气湿度") dtemp = ((1 + f) * fuelgas.blankair(ch, t, f) + d * vapour.blankwater(ch, t)) / (1 + f + d) End Sub End Module 最后运行时在调用类的方法时报错：对非共享成员的引用要求对象引用刚学vb.net没多久，小弟可能会有一些比较低级的错误。。。谢谢了

求助大神，帮忙看看我这个程序的问题在哪儿 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 输入数据后，为什么没有把值给算出来。。。。。