vb中7字节二进制0怎么表示!!vb中7字节二进制0怎么表示!!

在窗口上放一个按钮五个文本框
这样就能看懂了

Private Sub Command1_Click()
m = Val(Text1.Text)
str1 = ""
While m > 0
str1 = LTrim(Str(m Mod 2)) + str1
m = Int(m / 2)
Wend
Text2.Text = str1
n = Len(LTrim(str1))

Text3.Text = Mid("00000000", 1, 8 - n) & str1
Text4.Text = Mid("0000000000000000", 1, 16 - n) & str1
Text5.Text = Mid("00000000000000000000000000000000", 1, 32 - n) & str1
End Sub