Question

VB字符串转换为逻辑表达式

在
是数电中的逻辑表达式的化简

Answer 1

意思不很明白，单一字符串如何能转换呢，not "abc" ，没有这样的

追问

*代表与运算，数电中可以省略
+代表或运算
——代表非运算

Answer 2

a=val("string1")
b=val("string2")
然后利用a和b进行逻辑运算

追问

不是，我要做的事化简，所以能使这个逻辑表达式为真的变量的值都要求出来，也就是说如何把字符串中的字母换成逻辑变量。

追答

字符串中的字母换成逻辑变量 ？不是很明白你的意思。逻辑值无非就是true和false，你的程序我想应该是想做到，对用户的输入进行判断处理，然后给出满足条件的逻辑值。字符串的字母本身没有逻辑值，需要你进行赋值，然后利用if判断语句或者select case 语句进行判断，最后输出结果至于条件设置你自己应该写算法了

Answer 3

true和false？

追问

A，B，C都代表的是逻辑变量

追答

听不懂

Answer 4

public function CBool(str as string) as bool
cbool=false
if lcase(str)="true" then
cbool=true
endif

end function

是这样吗？

追问

不是，我要做的事化简，所以能使这个逻辑表达式为真的变量的值都要求出来，也就是说如何把字符串中的字母换成逻辑变量。

Answer 5

你要用户直接输入语句，然后让程序执行？

追问

用户输表达式，我给出结果。就是例如用户输了A+BC（A和B都代表逻辑变量),我输出能使这个逻辑表达式为真的A，B，C的值。

追答

用户输入的内容我们只能做字符串变量处理，不能做其他的功能.
你在程序中
Dim A as integer
A=23
然后在用户输入A的时候就直接处理23，我觉得这个不太可能
不过，你可以制定一些变量集
例如，你的工程中需要参与算法的变量有5个，分别是A,B,C,D,E
然后你根据用户输入的内容，就是验证字符串，来生成不同的处理结果
如果用户输入的是 A+BC
你在程序中判断可以这样做
dim userstr as string
dim t as string
dim j as integer
dim s as integer

userstr=text1.text '获取用户输入的字符串
for i=1 to len(userstr)
t=mid(userstr,i,1)
select case t
case "A"
j=A
case "B"
j=B
case "C"
j=C
case "D"
j=D
case "E"
j=E
case "+"
s=s+j
case "-"
s=s-j
case "*"
s=s*j
case "/"
s=s/j
end select
next i

msgbox s

以上代码未做测试，希望你能了解我所表达的意思