vb6.0怎么把字符串当做代码运行？

2024-11-28 00:54:13

推荐回答（2个）

回答1：

新建一个vb的exe程序，画一个text1，将文本改为110，再画一个command1，复制以下代码
option
explicit
private
sub
command1_click()
dim
a
as
single
a
=
csng(text1.text)
print
a
end
sub
将字符串转换成数字的函数还有，cint和val都是整型,clng长整型，用法和本例差不多的。本例中的csng是单精度型的也就是小数型的。

回答2：

添加一个Microsoft Script Control控件。
Private Sub Command1_Click()
ScriptControl1.Language = "VBSCRIPT"
ScriptControl1.AddCode "dim aa:aa=2:aa=aa+3" '这实际是vbScript语言，跟vb差别不大。
MsgBox ScriptControl1.Eval("aa")
End Sub