在vb怎样实现四个数四则任意运算,vb中怎么求两个数的平均值

2个 文本框 text1 输入 4则运算 方程式 text2 显示结果 部件里 添加一个 Microsoft Script Control 1.0 并画在 窗体上 代码如下 Dim x As Single, y As Single Private Sub Command1_Click() ScriptControl1.Language = VBScript ScriptControl1.ExecuteStatement x = & x y = ScriptControl1.Eval(Text1.Text) ScriptControl1.Reset Text2.Text = Trim(Str(y)) End Sub