Проблемы с do до цикла

-1

Я смотрел вывод кода ниже, и я не вижу, что с ним не так - я смотрел на него в течение последних нескольких недель и до сих пор ничего не вижу неправильно с этим!Проблемы с do до цикла

Код выглядит следующим образом:

Sub Macro() 
Dim i As Long 
Dim sString As String 

Do Until i = 27 
    If i = 0 Then 
     sString = sString & "H" 
    ElseIf i = 26 Then 
     sString = sString & "!" 
    ElseIf i = 25 Then 
     sString = sString & "y" 
    ElseIf i = 24 Then 
     sString = sString & "d" 
    ElseIf i = 23 Then 
     sString = sString & "o" 
    ElseIf i = 22 Then 
     sString = sString & "b" 
    ElseIf i = 21 Then 
     sString = sString & "y" 
    ElseIf i = 20 Then 
     sString = sString & "r" 
    ElseIf i = 19 Then 
     sString = sString & "e" 
    ElseIf i = 18 Then 
     sString = sString & "v" 
    ElseIf i = 17 Then 
     sString = sString & "e" 
    ElseIf i = 16 Then 
     sString = sString & " " 
    ElseIf i = 15 Then 
     sString = sString & "s" 
    ElseIf i = 14 Then 
     sString = sString & "s" 
    ElseIf i = 13 Then 
     sString = sString & "a" 
    ElseIf i = 12 Then 
     sString = sString & "m" 
    ElseIf i = 11 Then 
     sString = sString & "t" 
    ElseIf i = 10 Then 
     sString = sString & "i" 
    ElseIf i = 9 Then 
     sString = sString & "r" 
    ElseIf i = 8 Then 
     sString = sString & "h" 
    ElseIf i = 7 Then 
     sString = sString & "C" 
    ElseIf i = 6 Then 
     sString = sString & " " 
    ElseIf i = 5 Then 
     sString = sString & "y" 
    ElseIf i = 4 Then 
     sString = sString & "p" 
    ElseIf i = 3 Then 
     sString = sString & "p" 
    ElseIf i = 2 Then 
     sString = sString & "a" 
    End If 
i = i + 1 
Loop 

MsgBox sString, vbCritical 

End Sub

источник

2016-12-22 Jeremy

Я думаю, это поможет, если вы поделитесь с нами характером вашей проблемы! – SJR

Каков фактический результат, и каков ожидаемый результат, и почему нет случая «i = 1»? – Bathsheba

Да! Поскольку вы не сказали нам ни того, что ожидаете, ни того, что вы получаете, сложно сказать, почему это происходит неправильно :) – Dave

Простой орфографическую ошибку, используйте вместо этого:

Sub Macro() 
Dim i As Long 
Dim sString As String 

Do Until i = 27 
    If i = 0 Then 
     sString = sString & "H" 
    ElseIf i = 26 Then 
     sString = sString & "!" 
    ElseIf i = 25 Then 
     sString = sString & "y" 
    ElseIf i = 24 Then 
     sString = sString & "d" 
    ElseIf i = 23 Then 
     sString = sString & "o" 
    ElseIf i = 22 Then 
     sString = sString & "b" 
    ElseIf i = 21 Then 
     sString = sString & "y" 
    ElseIf i = 20 Then 
     sString = sString & "r" 
    ElseIf i = 19 Then 
     sString = sString & "e" 
    ElseIf i = 18 Then 
     sString = sString & "v" 
    ElseIf i = 17 Then 
     sString = sString & "e" 
    ElseIf i = 16 Then 
     sString = sString & " " 
    ElseIf i = 15 Then 
     sString = sString & "s" 
    ElseIf i = 14 Then 
     sString = sString & "a" 
    ElseIf i = 13 Then 
     sString = sString & "m" 
    ElseIf i = 12 Then 
     sString = sString & "t" 
    ElseIf i = 11 Then 
     sString = sString & "s" 
    ElseIf i = 10 Then 
     sString = sString & "i" 
    ElseIf i = 9 Then 
     sString = sString & "r" 
    ElseIf i = 8 Then 
     sString = sString & "h" 
    ElseIf i = 7 Then 
     sString = sString & "C" 
    ElseIf i = 6 Then 
     sString = sString & " " 
    ElseIf i = 5 Then 
     sString = sString & "y" 
    ElseIf i = 4 Then 
     sString = sString & "p" 
    ElseIf i = 3 Then 
     sString = sString & "p" 
    ElseIf i = 2 Then 
     sString = sString & "a" 
    End If 
i = i + 1 
Loop 

MsgBox sString, vbCritical 

End Sub

источник

2016-12-22 14:38:53

Или вы могли бы конденсироваться это немного ....

Sub Macro() 
Dim i As Long 
Dim sString As String 

i = 0 
Do Until i = 27 
    If i = 0 Then 
    sString = sString & "H" 
    ElseIf i = 26 Then 
    sString = sString & "!" 
    ElseIf i = 25 Or i = 21 Or i = 5 Then 
    sString = sString & "y" 
    ElseIf i = 24 Then 
    sString = sString & "d" 
    ElseIf i = 23 Then 
    sString = sString & "o" 
    ElseIf i = 22 Then 
    sString = sString & "b" 
    ElseIf i = 20 Or i = 9 Then 
    sString = sString & "r" 
    ElseIf i = 19 Or i = 17 Then 
    sString = sString & "e" 
    ElseIf i = 18 Then 
    sString = sString & "v" 
    ElseIf i = 16 Or i = 6 Then 
    sString = sString & " " 
    ElseIf i = 15 Or i = 11 Then 
    sString = sString & "s" 
    ElseIf i = 14 Or i = 2 Then 
    sString = sString & "a" 
    ElseIf i = 13 Then 
    sString = sString & "m" 
    ElseIf i = 12 Then 
    sString = sString & "t" 
    ElseIf i = 10 Then 
    sString = sString & "i" 
    ElseIf i = 8 Then 
    sString = sString & "h" 
    ElseIf i = 7 Then 
    sString = sString & "C" 
    ElseIf i = 4 Or i = 3 Then 
    sString = sString & "p" 
    End If 
    i = i + 1 
Loop 

MsgBox sString, vbCritical 

End Sub

источник

2016-12-22 14:57:01 Rdster

Я впечатлен - Хорошо сделано – Jeremy

Проблемы с do до цикла

ответ

Смежные вопросы