回答編集履歴
1
誤字修正
    
        answer	
    CHANGED
    
    | 
         @@ -3,12 +3,13 @@ 
     | 
|
| 
       3 
3 
     | 
    
         
             
            ようは自作しろ。ってことですね。
         
     | 
| 
       4 
4 
     | 
    
         | 
| 
       5 
5 
     | 
    
         
             
            ```
         
     | 
| 
       6 
     | 
    
         
            -
            For i = 1 To  
     | 
| 
      
 6 
     | 
    
         
            +
            For i = 1 To Len(str)
         
     | 
| 
       7 
7 
     | 
    
         
             
              a = Mid(str, i, 1)
         
     | 
| 
       8 
8 
     | 
    
         
             
               If Len(a) = LenB(a) Then
         
     | 
| 
       9 
9 
     | 
    
         
             
                   //OK
         
     | 
| 
       10 
10 
     | 
    
         
             
               Else
         
     | 
| 
       11 
11 
     | 
    
         
             
                   //NG
         
     | 
| 
      
 12 
     | 
    
         
            +
                   i = i + 1
         
     | 
| 
       12 
13 
     | 
    
         
             
               Endif
         
     | 
| 
       13 
14 
     | 
    
         
             
            Next i
         
     | 
| 
       14 
15 
     | 
    
         
             
            ```
         
     |