vb 运行text里输入函数

vb如何运行text里输入函数好像在text1里输入y=x+1x=text2y=x+1text3=y不知这样可不可以... vb 如何运行text里输入函数
好像 在text1里输入
y=x+1

x=text2
y=x+1
text3=y

不知这样可不可以
展开
 我来答
OneTreeWhite
推荐于2018-04-13 · TA获得超过425个赞
知道小有建树答主
回答量:262
采纳率:0%
帮助的人:309万
展开全部
这个实现用到一个控件.

在VB里点"工程"->"部件", 在"控件"选项卡里选取"Microsoft Script Control 1.0", 然后确定. 在工具箱找到ScriptControl控件, 添加到窗体中, 再添加一个TextBox, 一个Command, 一个Label. 然后加入如下代码:

Private Sub Command1_Click()
Dim s As String
s = "function RunThis()" & vbCrLf & "RunThis=" & Text1.Text & vbCrLf & "end function"
ScriptControl1.AddCode s
Label1.Caption = ScriptControl1.Run("RunThis")
End Sub

此后你可以在text1中输入任何表达式, 包括 now, time, date, 5+4-1, msgbox "Hello!", 执行结果都会在label1显示出来. 但是注意! 不能在表达式里调用控件!! 输入的表达式不能影响你的程序的变量. 你可以在里面写函数, 但是不能直接引用你程序的变量和控件.
齐霸王在江湖梦
推荐于2016-04-09 · TA获得超过3312个赞
知道小有建树答主
回答量:726
采纳率:75%
帮助的人:64.6万
展开全部
实现用控件.

VB点"工程"->"部件", "控件"选项卡选取"Microsoft Script Control 1.0", 确定. 工具箱找ScriptControl控件, 添加窗体, 再添加TextBox, Command, Label. 加入代码:

Private Sub Command1_Click()
Dim s As String
s = "function RunThis()" & vbCrLf & "RunThis=" & Text1.Text & vbCrLf & "end function"
ScriptControl1.AddCode s
Label1.Caption = ScriptControl1.Run("RunThis")
End Sub

text1输入任何表达式, 包括 now, time, date, 5+4-1, msgbox "Hello!", 执行结都label1显示. 注意! 能表达式调用控件!! 输入表达式能影响程序变量. 面写函数, 能直接引用程序变量控件.
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友34723a6
2007-03-03 · 超过29用户采纳过TA的回答
知道答主
回答量:175
采纳率:0%
帮助的人:0
展开全部
eval有这个函数吧。。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
swx1995
2007-03-03 · TA获得超过2696个赞
知道大有可为答主
回答量:1477
采纳率:0%
帮助的人:2367万
展开全部
不能直接 除非你的程序能够解析一下你输入的 东西 但是这个几乎不可能 否则你可以编写一个VB编写的VB了!~:)
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 2条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式