VB问题--代码解释

来源：百度知道 编辑：UC知道 时间：2024/06/02 14:23:18
Private Sub Command1_Click()
Text2.Text = ""
ScriptControl1.Language = "VBScript"
ScriptControl1.ExecuteStatement "x1 = " & x1
y1 = ScriptControl1.Eval(Text1.Text)
ScriptControl1.Reset
Text2.Text = Trim(Str(y1))
End Sub

什么意思??
逐句解释啊

ScriptControl1是个脚本控件，用脚本控件实现文本公式的计算

比如在Text1中输入9+8
你执行这个之后，会在Text2中显示17

Text2.Text = "" '清空text2文本框
ScriptControl1.Language = "VBScript" '设置脚本控件使用脚本语言
ScriptControl1.ExecuteStatement "x1 = " & x1 '执行文本公式的计算，这一行在这里没用，可以去掉
y1 = ScriptControl1.Eval(Text1.Text) '计算text1中的式子，结果存在y1中
ScriptControl1.Reset '重置脚本控件
Text2.Text = Trim(Str(y1)) '在text2文本框中显示计算结果

Private Sub Command1_Click() ——按钮的单击事件
Text2.Text = "" ——把文本框的值赋为空
ScriptControl1.Language = "VBScript"——指定ScriptControl1的脚本语言为VBScript
ScriptControl1.ExecuteStatement "x1 = " & x1——执行文本公式计算
y1 = ScriptControl1.Eval(Text1.Text)——计算出Text1式子的值赋给y1
ScriptControl1.Reset——重置脚 本
Text2.Text = Trim(Str(y1))——把y1的值变为字符型，去掉两边的空格，再赋值给Text2
End Sub——结束