有如下程序: Private Sub Form_Click() Dim B As String Dim m As Integer, Dec As Integer B = InputBox("请输入一个二进制数") m = L

admin2015-09-23  29

问题 有如下程序:
Private Sub Form_Click()
    Dim B As String
    Dim m As Integer, Dec As Integer
    B = InputBox("请输入一个二进制数")
    m = Len(B)
    For i = 1 To m
        Dec = Dec * 2 + Val( _____ )
    Next i
    Print Dec
End Sub
以上程序的功能是,从键盘上输入一个二进制数,把它转换为等值的十进制数并输出。程序不完整,在 _____ 处应填入的内容是

选项 A、Left(B, i)
B、Mid(B, i, 1)
C、Right(B, i)
D、Str(B)

答案B

解析 Val是将字符串转化为数值。A项是截取左边的i个字符,利用Val,得到数值的左边前i位数字;B项是截取第i个字符,利用Val,得到数值的第i位数字;C项是截取右边的i个字符,利用Val,得到数值的右边前i位数字;D项是整个字符串,利用Val,转换为数字。根据题意应该选择B项,利用For循环,将输入二进制数的从首位到末位,转换为十进制数。
转载请注明原文地址:https://jikaoti.com/ti/S6J0FFFM
0

随机试题
最新回复(0)