请问大家 这样的代码怎么优化

Question

1.
 For i = 1 To 5
    If i = 1 Then
      If Left(Result, 3) = "REP" Then
          sss = sss + Mid(Result, 49, 4)
          rc = sock.MvxSockReceive(Result)
          rc = sock.MvxSockReceive(Result)
          i = i + 1
      End If
    End If
      If i = 3 Then
        If Left(Result, 3) = "REP" Then
          sss = sss + Mid(Result, 49, 3)
          rc = sock.MvxSockReceive(Result)
          rc = sock.MvxSockReceive(Result)
          i = i + 1
        End If
      End If
       If i = 5 Then
        If Left(Result, 3) = "REP" Then
          sss = sss + Mid(Result, 49, 6)
          rc = sock.MvxSockReceive(Result)
        End If
      End If
 Next i
2.
 
 For i = 1 To 5
  If Left(Result, 3) = "REP" Then    If i = 1 Then
     
          sss = sss + Mid(Result, 49, 4)
          rc = sock.MvxSockReceive(Result)
          rc = sock.MvxSockReceive(Result)
          i = i + 1    End If      If i = 3 Then
      
          sss = sss + Mid(Result, 49, 3)
          rc = sock.MvxSockReceive(Result)
          rc = sock.MvxSockReceive(Result)
          i = i + 1
     
      End If
       If i = 5 Then
          sss = sss + Mid(Result, 49, 6)
          rc = sock.MvxSockReceive(Result)
      End If
 End If
 Next i
我本以为1和2应该是一模一样的，但是好象1比2还要快一点
3 是不是在for中如果使用case会比使用if ...else要快一些呢
如果是的话，怎么使用case呢

Answer 1

弱弱的问一句，vb可以对For-loop的变量赋值？？

Answer 2

3,没研究过，不知道会不会快些！select case i
case 1
……
end select

Answer 3

For i = 1 To 5
  Select case i
     case 1
       sss = sss + Mid(Result, 49, 4)
       rc = sock.MvxSockReceive(Result)
       rc = sock.MvxSockReceive(Result)  '有必要用两个相同的句子吗？
     case 3
       sss = sss + Mid(Result, 49, 3)
       rc = sock.MvxSockReceive(Result)
       rc = sock.MvxSockReceive(Result)
     case 5
       sss = sss + Mid(Result, 49, 6)
       rc = sock.MvxSockReceive(Result)
  End Select
  i=i+1 ...

Answer 4

rc = sock.MvxSockReceive(Result)
这个是必须要用两句的。
调用的一个API，就那样的，感觉跟个指针似的。
我试下 case的

Answer 5

使用select case与第一种方法差不多，为什么第2种时间长些呢，晕
回： jinjazz(近身剪（N-P攻略）
不知道你说的是不是对i付值，如果指的是i，当然是可以的了。