请教VB中一个关于二进制的问题

Private Sub Command1_Click()
Text1.Text = 87
Open "d:\55.dat" For Binary As #1
Put #1, , cbyte(Text1.Text) '只改此一处即可
Close #1
End Sub

Private Sub Command1_Click()
dim r as byte
Text1.Text = 87
r=text1.text
Open "d:\55.dat" For Binary As #1
Put #1, , r
Close #1

我说同学你理解错了，FOR Binary 模式是 以二进制方式访问文件，并不是转换成二进制！
Private Sub Command1_Click()
s = 87
Do
i = s Mod 2
s = s \ 2
t = Str(i) & t
Loop Until s <= 1
Print t
For i = Len(t) To 1 Step -1
l = Mid(t, i, 1)
h = h & l
Next i

Print h
End Sub

没明白你的意思：
A.保存后的文件是一个字符，这个字符的二进数值是 87
B.还是，保存后的文件是两个字符，字符 "8" 和 "7"

那种情况，说清楚，我想我能解决。