各位高人,能不能帮小弟把C#的代码转 VB.NET

Question

   fitfunc.FitfunClass p = new fitfunc.FitfunClass();
            double[] x = new double[3] { 1, 2, 1 };
            double[] y = new double[3] { 2, 5, -1 };
            double[] z = new double[3] { 10, 20, 3 };
            MWNumericArray x1 = new MWNumericArray(3, 1, x);
            MWNumericArray y1 = new MWNumericArray(3, 1, y);
            MWNumericArray z1 = new MWNumericArray(3, 1, z);            MWArray[] output = new MWArray[2];
            output = p.createFit(2, x1, y1, z1);
            MWNumericArray pp = (MWNumericArray)output[0];
            MWNumericArray fl = (MWNumericArray)output[1];
            double[,] ppc = (double[,])pp.ToArray();
            double[,] flc = (double[,])fl.ToArray();只有30分了

Answer 1

Dim p As New fitfunc.FitfunClass()
Dim x As Double() = New Double(2) {1, 2, 1}
Dim y As Double() = New Double(2) {2, 5, -1}
Dim z As Double() = New Double(2) {10, 20, 3}
Dim x1 As New MWNumericArray(3, 1, x)
Dim y1 As New MWNumericArray(3, 1, y)
Dim z1 As New MWNumericArray(3, 1, z)Dim output As MWArray() = New MWArray(1) {}
output = p.createFit(2, x1, y1, z1)
Dim pp As MWNumericArray = DirectCast(output(0), MWNumericArray)
Dim fl As MWNumericArray = DirectCast(output(1), MWNumericArray)
Dim ppc As Double(,) = DirectCast(pp.ToArray(), Double(,))
Dim flc As Double(,) = DirectCast(fl.ToArray(), Double(,))