vb中如何将输入的字母以二进制的形式输出

Private Sub Command1_Click()
Dim a$, i%
a = "abc"
For i = 1 To Len(a)
Print D2B(Asc(Mid(a, 1, 1)))
Next
End Sub

Function D2B(Dec As Long) As String
D2B = ""
Do While Dec > 0
D2B = Dec Mod 2 & D2B
Dec = Dec \ 2
Loop
End Function

Option Explicit
Dim i As Integer
Dim sj() As Byte
Private Sub Command1_Click()
ReDim sj(Len(Text1))
For i = 0 To Len(Text1) - 1
sj(i) = Asc(Mid(Text1, i + 1, 1))
Print ; sj(i)
Next
End Sub

Private Sub Form_Load()
Text1 = "ABC"
End Sub