vb怎样将该程序运行结果反序排列

Question

如题所述

Answer 1

Private Sub Command1_Click() '你的原代码
a = Text1
Do While a > 0
b = b + Str(a Mod 2)
a = a \ 2
Loop
Text2 = b
End Sub

Private Sub Command2_Click() '对结果进行倒过来，“反序”是什么意思受驱上当了
For i = Len(Text2) To 1 Step -1
v = v & Mid(Text2, i, 1)
Next
Text3 = v
End Sub

Answer 2

Private Sub Command1_Click()
Dim a As Integer, b As Integer, c
a = Len(Text1.Text): b = 0
c = 1
Do While c <= a
b = CInt(Mid(Text1.Text, c, 1) * 2 ^ (a - c)) + b
c = c + 1
Loop
Text2.Text = Str(b)
End Sub

Answer 3

只要改一个地方：
b = b + Str(a mod 2)
改为：
b = Str(a mod 2) + b