VB中Do while 嵌套使用，编译时提示，Loop找不到Do

Question

这个程序的目的是通过串口，下载MCU中的一个数组内的数据，并保存到电脑上

Private Sub CommandDownload_Click()
Dim ByteReceiveData() As Byte
Dim Frame(1) As String
Dim i As Integer

Dim SaveFileId As Integer
Dim FileCount As Integer
Dim StrFileName As String

Dim RecDataCount As Long
Dim RecStart(0) As Byte
Dim DownLoadOk As Boolean

RecStart(0) = 5
RecDataCount = 0
FileCount = 0
SaveFileId = FreeFile()
DownLoadOk = False

StrFileName = App.Path + "\" + "温度数据" + CStr(FileCount) + ".txt"

Do While Dir(StrFileName) <> ""
FileCount = FileCount + 1
StrFileName = App.Path + "\" + "温度数据" + CStr(FileCount) + ".txt"
Loop

Do While (RecDataCount < 90)

MSComm.Output = RecStart()

Do While MSComm.CommEvent = comEvReceive
ByteReceiveData() = MSComm.Input
For i = 0 To 1
Frame(i) = ByteReceiveData(i)
If Len(Hex(Frame(i))) = 1 Then
Frame(i) = "0" + Hex(Frame(i))
Else
Frame(i) = Hex(Frame(i))
End If

Open StrFileName For Append As #SaveFileId
Print #SaveFileId, Now & "," & ByteReceiveData(0) & "," & ByteReceiveData(1)
Close #SaveFileId

Loop ‘此行出现问题
RecDataCount = RecDataCount + 2
Loop
MsgBox "数据下载完成！", vbOKOnly + vbInformation, "提示信息！"

End Sub

Answer 1

论代码对齐的重要性。。。

FOR 少了 next

    Do While (RecDataCount < 90)
        MSComm.Output = RecStart()
        Do While MSComm.CommEvent = comEvReceive
            ByteReceiveData() = MSComm.Input
            For i = 0 To 1
                Frame(i) = ByteReceiveData(i)
                If Len(Hex(Frame(i))) = 1 Then
                    Frame(i) = "0" + Hex(Frame(i))
                Else
                    Frame(i) = Hex(Frame(i))
                End If
                Open StrFileName For Append As #SaveFileId
                    Print #SaveFileId, Now & "," & ByteReceiveData(0) & "," & ByteReceiveData(1)
                Close #SaveFileId
            NEXT   '这里少了
        Loop
        RecDataCount = RecDataCount + 2
    Loop