如何将字符串转化成一个表达式

tercel001 2004-06-23 02:47:38
比如有一字符串
strTest="a>5 and b<6"
如何将其转化成有一个表达式
可以用在
if a<5 and b<6 then ...
的情况下
当然上式的a<5 and b<6 必须由strTest转化而来
谢谢大家了
...全文
169 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
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

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧