自己编写的VB程序，请大家多指教！（赚一点积分嘿嘿……） 部分代码如下： Private Sub Command1_Click() k = 1.4 D = Val(Text1.Text) S = Val(Text2.Text) Ne = Val(Text3.Text) nh = Val(Text4.Text) ε = Val(Text5.Text) L = Val(Text6.Text) R = Val(Text7.Text) ge = Val(Text8.Text) P0 = Val(Text13.Text)