用VS写个程序，通过窗体TXT值，读取到用VBA语法的脚本文件，根据脚本内容把TXT的值传给脚本中定义的变量进行计算，把不同字段计算结果进行赋值

在Visual Studio中，你可以使用C#编写一个应用程序，通过一个TextBox控件获取输入，然后解析VBA脚本，执行指定的计算，并将结果赋值给脚本中的变量。这里是一个简单的示例，假设你的脚本存储在一个名为"Script.vbs"的文本文件中，内容如下：

Dim value1 As Double
value1 = InputBox("请输入第一个数值") ' 假设这是你要从TextBox获取的值

' 更多的计算...
result1 = value1 * 2 ' 示例计算

MsgBox result1 ' 结果输出

在C#中，你可以这样做：

using System;
using System.IO;
using System.Text.RegularExpressions;

class Program
{
    static void Main()
    {
        TextBox textBox = new TextBox(); // 假设TextBox位于窗体上
        string input = textBox.Text;

        string scriptFilePath = "Script.vbs";
        string scriptContent = File.ReadAllText(scriptFilePath);

        // 替换InputBox函数中的字符串
        Regex regex = new Regex(@"(?<=InputBox\(")"(.*?)"", RegexOptions.Singleline);
        string replacedContent = regex.Replace(scriptContent, input);

        // 将修改后的脚本保存到临时文件
        string tempScriptPath = Path.GetTempFileName();
        File.WriteAllText(tempScriptPath, replacedContent);

        try
        {
            // 执行VBA脚本
            var engine = new Microsoft.VisualBasic.VBEEngine();
            dynamic scriptObject = engine.CreateObject("Scripting.FileSystemObject");
            using (StreamReader reader = new StreamReader(tempScriptPath))
            {
                scriptObject.ExecuteReader(reader.ReadToEnd());
            }

            // 获取结果
            dynamic result = scriptObject(result1); // 假设result1是脚本中的变量名
            Console.WriteLine("计算结果: " + result);
        }
        finally
        {
            File.Delete(tempScriptPath);
        }
    }
}

注意：以上代码仅作为演示，实际使用时可能需要处理更多异常情况，例如脚本语法错误、变量类型不匹配等。此外，`Microsoft.VisualBasic.VBEEngine`并不总是可用，因为它是.NET Framework的一部分，如果你正在使用的是.NET Core，则需要寻找替代方案。