Question

vb中怎么将任意输入的二进制数（不大于31个1）转为十进制数

怎么将任意输入的二进制数（不大于31个1）转为十进制数

Answer 1

假定在Text1输入二进制数，点击Command1在Text2输出十进制数：

Private Sub Command1_Click()
Dim i As Integer, s As Long
For i = 0 To Len(Text1.Text) - 1
    s = s + Val(Mid(Text1.Text, Len(Text1.Text) - i, 1)) * 2 ^ i
Next
Text2.Text = s
End Sub

Answer 2

病情分析：
宫外孕保守治疗现在的方法是用甲氨蝶呤肌注.并且隔天抽血HCG复查治疗.
指导意见：
这个方法是现在常用的也是相对效果最肯定的.不能保守治疗.或保守治疗无效的就得手术治疗.目前一般都选择腹腔镜.