本文介绍了有人可以解释每行的含义吗？的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！
问题描述
Dim s，temp As String
Dim a，b，c As Long
a = CLng（Val（TxtBoxInput.Text） ）
s = TxtBoxInput.Text
TxtBoxInput.Clear（）
for i = 1 to Len（s）Step 1
b = CLng（Mid（s，i，1））
c = Len（s） - i
b = CLng（Val（b）*（2 ^ c ））
temp = CStr（Val（temp）+ b）
Next i
MessageBox.Show （temp）
Dim s, temp As String
Dim a, b, c As Long
a = CLng(Val(TxtBoxInput.Text))
s = TxtBoxInput.Text
TxtBoxInput.Clear()
For i = 1 To Len(s) Step 1
b = CLng(Mid(s, i, 1))
c = Len(s) - i
b = CLng(Val(b) * (2 ^ c))
temp = CStr(Val(temp) + b)
Next i
MessageBox.Show(temp)
推荐答案
这篇关于有人可以解释每行的含义吗？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！