Question

好吧所以我试着做一个作业，我写了这段代码，但它有错误，我不明白为什么。

它说的预期声明，我正在查看它，我无法找到问题所在。如果有人能够对错误有所了解并且可能帮助我，那将会很棒。

这是do until声明：

Sub btnTransformY_onclick()
    Do Until r = 4 And n = 3
        Do Until m = 1 To 8
            Change(r,c) = (transformationY(r,1) * meh(1, m)) + transformationY(r, 2) * meh(2,m) + TransformationY(r,3) * meh(3,m)  
            m = m + 1
        Next

        c = c + 1
        If c = 8 Then r = r + 1 And c = 1
    Next
End Sub

遗憾的是，这并没有奏效，尽管它确实似乎是Do Until m = 1 To 8 有没有人知道to是否是for do循环的有效语法？

Answer 1

我认为你想在这些行上找到一些东西，除了我怀疑你想要r和n的两个Next循环而不是一个Do Until。

Sub btnTransformY_onclick()
    r = 0
    n = 0

    Do Until r = 4 And n = 3
        For m = 1 To 8
            Change(r,c) = (transformationY(r,1) * meh(1, m)) + transformationY(r, 2) * meh(2,m) + TransformationY(r,3) * meh(3,m)  
            ''m = m + 1
        Next

        c = c + 1
        If c = 8 Then 
            r = r + 1 
            c = 1
            ''Where does n get counted up?
        End If
    Loop
End Sub

Answer 2

Next用于for个循环，关闭do循环使用loop：

do until ..
  ...
loop

另外

if c = 8 then r = r + 1 and c = 1

是一个按位比较（LHS与RHS的比特）可能不是你想要的，所以相反;

if c = 8 then 
   r = r + 1 
   c = 1
end if

vbscript错误：预期声明（直到）

2 个答案: