关于VB:为什么饼图始终不变化?

无论输入数值变始终只显示同饼图我菜鸟
有人说出了毛病:'''''''''''''''''''计算开始''''''''''''''
FuelResult(0) = 0.5 * (4 * FuelData(3) / PI) ^ (0.5)
FuelResult(1) = 2 * FuelData(6) / (FuelData(3) * FuelData(9))
FuelData(10) = 1.239 * (g * FuelResult(0)) ^ (0.5)
FuelData(11) = (FuelData(9) / FuelData(10)) ^ (0.61)
FuelResult(2) = 0.42 * FuelResult(0) * FuelData(11)
FuelData(12) = 0.25 * 0.35 * PI * FuelResult(0) ^ (2) * FuelData(1) * FuelData(9)
FuelData(13) = (PI * FuelResult(0) ^ (2)) / 4   PI * FuelResult(0) * FuelResult(2)
FuelResult(3) = 3 * ((FuelData(12) / FuelData(13)) / (6.5 * 4 * PI)) ^ (0.5)
FuelResult(4) = 3 * ((FuelData(12) / FuelData(13)) / (4.3 * 4 * PI)) ^ (0.5)
FuelResult(5) = 3 * ((FuelData(12) / FuelData(13)) / (1.9 * 4 * PI)) ^ (0.5)
FuelResult(6) = FuelData(14) * PI * (FuelResult(3) ^ (2) - 0.5 * FuelResult(0) ^ (2))
FuelResult(7) = FuelData(14) * PI * (FuelResult(4) ^ (2) - FuelResult(3) ^ (2))
FuelResult(8) = FuelData(14) * PI * (FuelResult(5) ^ (2) - FuelResult(4) ^ (2))
''''计算结束'''''''
Form3.Show
Form3.Label2.Caption = FuelResult(0)
Form3.Label4.Caption = FuelResult(1)
Form3.Label6.Caption = FuelResult(2)
Form3.Label11.Caption = FuelResult(3)
Form3.Label12.Caption = FuelResult(4)
Form3.Label13.Caption = FuelResult(5)
Form3.Label15.Caption = FuelResult(6)
Form3.Label18.Caption = FuelResult(7)
Form3.Label19.Caption = FuelResult(8)
 Dim arrData(1 To 9, 1 To 2)
 arrData(1, 1) = "火灾半径" ' 第列设置标签
 arrData(2, 1) = "火灾持续时间"
 arrData(3, 1) = "火焰高度"
 arrData(4, 1) = "死亡半径"
 arrData(5, 1) = "重伤半径"
 arrData(6, 1) = "轻伤半径"
 arrData(7, 1) = "死亡人数"
 arrData(8, 1) = "重伤人数"
 arrData(9, 1) = "轻伤人数"
 arrData(1, 2) = Fuel5Result(0)
 arrData(2, 2) = Fuel5Result(1)
 arrData(3, 2) = Fuel5Result(2)
 arrData(4, 2) = Fuel5Result(3)
 arrData(5, 2) = Fuel5Result(4)
 arrData(6, 2) = Fuel5Result(5)
 arrData(7, 2) = Fuel5Result(6)
 arrData(8, 2) = Fuel5Result(7)
 arrData(9, 2) = Fuel5Result(8)
 Form3.MSChart1.ChartData = arrData

End Sub

Private Sub Command2_Click()
Form1.Text1.Text = ""
Form1.Text2.Text = ""
Form1.Text3.Text = ""
Form1.Text4.Text = ""
Form1.Text5.Text = ""
Form1.Text6.Text = ""
Form1.Text7.Text = ""
Form1.Text8.Text = ""
Form1.Text9.Text = ""
Form1.Text10.Text = ""
Form1.Text11.Text = ""
Form1.Text12.Text = ""
Form1.Text13.Text = ""

End Sub
我知道应该改请各位大人给看看 改改 谢谢了

全部

明***

回答