VB를 사용하여 이름 코드 테이블 쿼리를 구현하는 방법
Private Sub Command1_Click() Text2.Text = "" s = Trim(Text1.Text) For i = 1 To Len(s)
x = Asc(Mid(s, i, 1)) 65536
Text2.Text = Text2.Text amp; Mid(s, i, 1) amp x \ 256 - 160 amp; 160, "00") amp; vbCrLf 다음 i
End Sub
Private Sub Command1_Click() Text2.Text = "" s = Trim(Text1.Text) For i = 1 To Len(s)
x = Asc(Mid(s, i, 1)) 65536
Text2.Text = Text2.Text amp; Mid(s, i, 1) amp x \ 256 - 160 amp; 160, "00") amp; vbCrLf 다음 i
End Sub