求VB6.0编写的Basic解释器源代码 能执行Dim、Let、If、Select、For这几个指令和语法

Question

能在VB内调用 例如Run("For i = 0 to 10:Next i")
如果可以 我愿意再开一个提问多给你255个悬赏
能解释Dim,Let,If,Select,For,Do,基本函数这几个指令、语法跟函数
Dim:Dim 变量名 As 类型
Let:Let 变量名 = 值
If:If 逻辑表达式 Then
True命令
[Else
False命令]
End If
或是:If 逻辑表达式 Then True命令 [Else False命令]
Select: Select CASE A
CASE XXX
....
END Select
FOR:FOR 变量 = 数值 To 数值 [step 数值]
...
Next [变量名]
Do:Do [Until 条件]
...
Loop
基本函数就VB内的MID跟Len就好 例如
If Len("Yee") Then A
那么就执行A

Answer 1

https://zhidao.baidu.com/question/1642496509661727020追问

语法解析器 不是代码解释器 谢谢！