[交流] 【求助】VB问题

DoEvents
        
        DoEvents
        For j = 1 To hnum
        Sleep (300)
        cmd = "HARM" + str(Harmset(j)) + Chr(13)
        flag = ibwrt(8, cmd, Len(cmd))
        Sleep (300)
        cmd = "SENS " + str(senset(1, j)) + Chr(13)
        flag = ibwrt(8, cmd, Len(cmd))
        Sleep (1000)
        cmd = "OFLT 7" + Chr(10)
        flag = ibwrt(8, cmd, Len(cmd))
        Call stab
        For i = 1 To fnum
        Sleep (500)
        cmd = "SENS " + str(senset(i, j)) + Chr(13)
        flag = ibwrt(8, cmd, Len(cmd))
        Sleep (500)
        cmd = "FREQ" + str(Freqset(i)) + Chr(13)
        flag = ibwrt(8, cmd, Len(cmd))
        Call stab
        cmd = "OUTP ? 3" + Chr(13)
        flag = ibwrt(8, cmd, Len(cmd))
        Sleep (1000)
        flag = ibrd(8, cmd, 48)
        Sleep (500)
        r(i, j) = Val(cmd)
        Sleep (500)
        cmd = "OUTP ? 4" + Chr(13)
        flag = ibwrt(8, cmd, Len(cmd))
        Sleep (1000)
        flag = ibrd(8, cmd, 48)
        Sleep (500)
        th(i, j) = Val(cmd)
     
        If r(i, j) > 0.8 * range(senset(i, j)) Then
         senset(i, j) = senset(i, j) + 1
         ElseIf r(i, j) < 0.1 * range(senset(i, j)) Then
         If senset(i, j) > 11 Then
            senset(i, j) = senset(i, j) - 1
         End If
        End If
        
    Next i
  
    Next j
    cmd = "temp?    " + Chr(10)
        Sleep (300)
        flag = ibwrt(7, cmd, Len(cmd))
        Sleep (300)
        flag = ibrd(7, cmd, 48)
        v = Val(cmd)