7,785
社区成员
发帖
与我相关
我的任务
分享如何将字符串转化成一个表达式
比如有一字符串
strTest="a>5 and b<6"
如何将其转化成有一个表达式
可以用在
if a<5 and b<6 then ...
的情况下
当然上式的a<5 and b<6 必须由strTest转化而来
谢谢大家了
strTest="a>5 and b<6"
如何将其转化成有一个表达式
可以用在
if a<5 and b<6 then ...
的情况下
当然上式的a<5 and b<6 必须由strTest转化而来
谢谢大家了
...全文
请发表友善的回复…
发表回复
tercel001 2004-06-24
- 打赏
- 举报
呵呵，谢了
ryuginka 2004-06-23
- 打赏
- 举报
学习
mxfeng 2004-06-23
- 打赏
- 举报
大师的话真如“大音希声扫阴翳”，犹如”拨开云雾见青天”，使我等网民看到了希望，看到了未来！晴天霹雳，醍醐灌顶或许不足以形容大师文章的万一；巫山行云，长江流水更难以比拟大师的文才！黄钟大吕，振聋发聩！你烛照天下，明见万里；雨露苍生，泽被万方！透过你深邃的文字，我仿佛看到了你鹰视狼顾，龙行虎步的伟岸英姿；仿佛看到了你手执如椽大笔，写天下文章的智慧神态；仿佛看见了你按剑四顾，江山无数的英武气概！
pigpag 2004-06-23
- 打赏
- 举报
http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=192980
数字计算和布尔计算是一样的
数字计算和布尔计算是一样的
online 2004-06-23
- 打赏
- 举报
添加Microsoft Script Control 1.0控件
Private Sub Command1_Click()
Dim mm As String
mm = a > 5 And b < 6
If ScriptControl1.Eval(mm) Then
txtoutput.Text = "True"
Else
txtoutput.Text = "False"
End If
End Sub
Private Sub Command1_Click()
Dim mm As String
mm = a > 5 And b < 6
If ScriptControl1.Eval(mm) Then
txtoutput.Text = "True"
Else
txtoutput.Text = "False"
End If
End Sub
online 2004-06-23
- 打赏
- 举报
Option Explicit
Private Sub Command1_Click()
Dim mm As String
Dim a, b
a = 20
b = 1
mm = a > 5 And b < 6
If CBool(mm) Then
Text1.Text = "True"
Else
Text1.Text = "False"
End If
End Sub
Private Sub Command1_Click()
Dim mm As String
Dim a, b
a = 20
b = 1
mm = a > 5 And b < 6
If CBool(mm) Then
Text1.Text = "True"
Else
Text1.Text = "False"
End If
End Sub
