VB6.0拼接字符串到if条件,该怎么解决

VB6.0拼接字符串到if条件
VB6.0拼接字符串到if条件
举例说明
if newdata.ghdept = "语文" Or newdata.ghdept = "数学" Or newdata.ghdept = "英语" then
  Debug.Print 这个要好好学习部能睡觉
ElseIf newdata.ghdept = "地理" Or newdata.ghdept = "美术" Then
  Debug.Print 好瞌睡
endif


语文 数学 英语 地理 美术 是 在数组里面存放的
我的处理办法
Public Function suanfa(zssum) As String
Dim MyString
Dim i As Integer
Debug.Print zssum
zssum="语文#数学#英语"
zssum2="地理#美术"
  MyString = Split(zssum, "#")
  For i = 0 To UBound(MyString) - 1
  suanfa = suanfa + "newdata.ghdept = " + MyString(i) + " Or "
   
  Next
  suanfa = suanfa + "newdata.ghdept = " + MyString(i)
  Debug.Print suanfa
End Function



'''''遇到的问题是
拼接字符串里面不能加入""
如下
newdata.ghdept = 语文 Or newdata.ghdept = 数学 Or newdata.ghdept = 英语
求加入""的办法
如下
newdata.ghdept = "语文" Or newdata.ghdept = "数学" Or newdata.ghdept = "英语"

[解决办法]
Public Function suanfa(zssum) As String
Dim MyString
Dim i As Integer
Debug.Print zssum
zssum="语文#数学#英语"
zssum2="地理#美术"
if Instr(newdata.ghdept,zssum) then 
debug.print "睡觉"
suanfa=...
elseif instr(newdata.ghdept,zssum2) then
debug.print "还是睡觉"
suanfa=...
else
debug.print "娃啊,你就不能好好学习嘛?"
suanfa=...
end if
end function

另外要给一个变量赋值为: 你说"好吧".
要写成: a="你说""好吧""."
[解决办法]
字符串中连续两个双引号表示一个单引号

你这种做法在FoxPro这样的解释性语言中可行
VB不行
还是走别的路吧
[解决办法]
在vb中不支持动态解析脚本的，在ruby或python中就可以。

VB code

你这个情况的话用instr应该就可以了。if newdata.ghdept = "语文" Or newdata.ghdept = "数学" Or newdata.ghdept = "英语" then修改为：if instr("#语文#数学#英语#地理#美术", newdata.ghdept)>0 then