坐标轮换法程序框图Vb运行界面Vb编程程序Private Sub Command1_Click()Dim s110 As DoubleDim s100 As DoubleDim s200 As DoubleDim s210 As DoubleDim x100() As DoubleDim x110() As DoubleDim x200() As DoubleDim x210() As DoubleDim 1 As DoubleDim 2 As DoubleDim k As LongDim a1#, a2#, a3#, a4#, a5#, a6#Dim h#, e1#, e#Dim 0#, 1#, 2#, 3#, a#, b#Dim xx1#, xx2#, yy1#, yy2#, yy3#Dim f2#, f1#, fxx#0 = Val(Text10.Text)h = Val(Text11.Text)e1 = Val(Text12.Text)x100(0) = V
