抛砖引玉，VBA编写的简单VBA程序解释器，期待您的进一步完善与改进(最新：进化5)

kevinchengcw

原帖由 jackey.liang 于 2010-3-23 21:24 发表
谢谢楼主分享!  测试以下语句时出错, 没深探究原因, 请楼主有时间改进.



Dim a As Integer, b As Integer, i As Integer, s As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
s = 0
i = a
Do While i ...

谢谢您的提醒,我目前手头的最新版本显示如下,请再明确一下是哪个地方解释出错,我好针对改进

Dim a As Integer, b As Integer, i As Integer, s As Integer    '定义变量 a 为 整型值,b 为 整型值,i 为 整型值,s 为 整型值
a = Val(Text1.Text)    ' a=<提取数字>( Text1的文本)
b = Val(Text2.Text)    'b=<提取数字>( Text2的文本)
s = 0    's=0
i = a    'i=a
Do While i <= b    '执行循环操作 当条件 i<=b
s = s + i    's=s+i
i = i + 1    'i=i+1
Loop    '循环执行
MsgBox "计算结果为" & s             ''''计算两个整数之间所有整数之和!    '<消息框>："计算结果为" & s''''计算两个整数之间所有整数之和!
    '

目前这个还在我手里进一步完善,可能会几天会放出来,主要在改进一些关键语段的取词方式

kevinchengcw

原帖由 jackey.liang 于 2010-3-23 21:31 发表
搞错了, 是在测试以下代码时出错的!  另外希望添加鼠标的右键的粘贴功能.



Dim n As Integer
Dim z As Integer
Dim f As Integer
f = 0: z = 0
Do While n  0
n = InputBox("N=")
If n < 0 Then
f = f  ...

果然出错了,我来找找原因,谢谢提醒,如果能看出是什么原因,也希望能提示一下我,鼠标右键功能一开始就想加上,但研究了几个样本后均效果不理想,目前还在试验中,我想我开始遇到瓶颈了

viviill

谢谢共享，帮助很大

kevinchengcw

找到原因了,是这句"f = 0: z = 0",处理到 0: 时就无法正常查找了,可能是因为vlookup本身的一些语句限制吧,加了一句分解语句就好了
      ArrWC2(A) = Replace(ArrWC2(A), ",", vbTab & "," & vbTab)
            ArrWC2(A) = Replace(ArrWC2(A), "(", "(" & vbTab)
            ArrWC2(A) = Replace(ArrWC2(A), ")", vbTab & ")")
            ArrWC2(A) = Replace(ArrWC2(A), "].", "]." & vbTab)
            ArrWC2(A) = Replace(ArrWC2(A), ":=", vbTab & ":=" & vbTab)
            ArrWC2(A) = Replace(ArrWC2(A), ":", vbTab & ":")
最后一句是加上去的,可避免类似错误了,谢谢jackey.liang 的热心提示

为避免这样的错误影响使用,明天我会把手头现在的版本发上来,谢谢

[ 本帖最后由 kevinchengcw 于 2010-3-23 22:09 编辑 ]

lbl016

谢谢共享，帮助很大

lbl016

对代码能否解释的更清楚些

kevinchengcw

原帖由 lbl016 于 2010-3-23 22:32 发表
对代码能否解释的更清楚些

这个在计划,不过因为涉及到一些大的工程,可能没那么快实现,你所指的更清楚些的具体含义能说得更具体些吗

EMA6178

谢谢kevinchengcw 无私奉献，这个楼的楼主既然是您，建议您做个楼层分配表，把一些重要的楼层更新目录放在首页，这样便于以后方便的查找。

libo0752

非常有用，相当感谢

烧钱职业

这个绝对是学习VBA的好东西 还是互动的