有如下VB程序段:
Private Sub Command1_Click()
Dim n As Integer, r As Integer, s As String
Dim t As Integer, k As Integer, v As Integer
n = 35: t = 0: k = 0
s = ""
Do While n > 0
r = n Mod 2
n = n \ 2
t = t + r
k = k + 1
s = Str(r) + s
Loop
s = Mid("0000000", 1, 7 - k) + s
v = t Mod 2
Text1.Text = s + Str(v)
End Sub
执行该程序段后,文本框Text1中显示的内容是
A.1 0 0 0 1 1 1 | B.0 1 0 0 0 1 1 1 | C.1 1 0 0 0 1 1 | D.1 1 0 0 0 1 0 1 |