UC知道小弟又来出题了VB的。。。
来源：百度知道 编辑：UC知道 时间：2024/05/05 17:04:44
当按下“二进字串转换为十进制数”按钮时，提示从键盘输入以二进制字串，然后将其转换为十进制数。程序不完整，请补充(1)、(2)空白处，以便能得到正确答案，但不得增删原语句。控件就一个Command1
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
拜托。。。小弟刚开始学VB。。。。这是几道题。。。我就练练的。。。。。。。
第一处是错的。。。第二处是对的。。。。。
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
拜托。。。小弟刚开始学VB。。。。这是几道题。。。我就练练的。。。。。。。
第一处是错的。。。第二处是对的。。。。。
1. i+1
2. i<n
我不想改了，明明有简单的方法不用，要用这么复杂的。
i+1
i<n
1
mid(bin,i,1)
2
while i<n
我不是学VB的，第一处，不太确定，我猜应该是在bin的第i位取一个字符的意思。第二处，确定，当i<n时执行循环体。