关于vb中的asc改成ord后出错的更改！

Question

vb:
  asc:::::::::::::::::::::::::::::ord
     
     If Asc(Mid(Hex$(N), j, 1)) > 64 And Asc(Mid$(Hex$(N), j, 1)) < 71 Then
            GoTo find
        End If        if (Ord(copy(s,j,1)) >64) and (Ord(copy(s,j,1)) <71) then
          goto find;

Answer 1

其中：
  asc:::::::::::::::::::::::::::::ord
  mid：：：：：：：：：：：：：：：copy
  s：＝omt   s:=int                                    
   s:=inttohex(n,2)

Answer 2

if (Ord(s[i]) >64) and (Ord(s[i])<71) then