Ошибка VBScript: ожидаемое заявление (делайте до)

Question

хорошо, я пытаюсь выполнить задание, и я написал этот код, но в нем есть ошибки, и я не понимаю, почему.

это говорит ожидаемое утверждение, и я смотрю на него, и я не могу найти, в чем проблема. Было бы замечательно, если бы кто-то мог пролить свет на ошибку и, возможно, помочь мне.

вот заявление до:

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 допустимым синтаксисом для цикла до тех пор?

Answer 1

Я считаю, что вы хотите что-то в этих строках, за исключением того, что я подозреваю, что вы хотите два цикла Next для r и n, а не один До.

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