UC知道期末VB填空题3，在线等！
来源：百度知道 编辑：UC知道 时间：2024/06/16 00:19:30
功能是：当按下“二进字串转换为十进制数”按钮时，提示从键盘输入以二进制字串，然后将其转换为十进制数。程序不完整，请补充(1)、(2)空白处，以便能得到正确答案，但不得增删原语句。
Private Sub Command1_Click()
Dim bin As String '二进制字串
Dim Dec As Double '十进制数
Dim temp As String '二进制字串每位字符
Dim i As Integer '循环变量
Dim n As Integer '二进制字串长度
bin = InputBox("二进制字串=")
n = Len(bin)
i = 0
Do
temp = Mid(bin, (1), 1) '此行有一空(1)
Dec = Dec + Val(temp) * 2 ^ i
i = i + 1
Loop While (2) '此行有一空(2)
Form1.Print "二进制字串"; bin; "转换为十进制数"; Dec
End Sub
Private Sub Form_Load()
End Sub
Private Sub Command1_Click()
Dim bin As String '二进制字串
Dim Dec As Double '十进制数
Dim temp As String '二进制字串每位字符
Dim i As Integer '循环变量
Dim n As Integer '二进制字串长度
bin = InputBox("二进制字串=")
n = Len(bin)
i = 0
Do
temp = Mid(bin, (1), 1) '此行有一空(1)
Dec = Dec + Val(temp) * 2 ^ i
i = i + 1
Loop While (2) '此行有一空(2)
Form1.Print "二进制字串"; bin; "转换为十进制数"; Dec
End Sub
Private Sub Form_Load()
End Sub
(1):temp=Mid(bin ,n - i , 1)'通过式子Dec=Dec+Val(temp)*2^i可以看出是从右向左对各位上的数进行计算的。
(2):Loop While i < n '当i<n时继续循环,当i=n后就会退出循环。
(1)temp=Mid(bin , i + 1 , 1)
(2)Loop While i = n