Question

十进制数131转换成无符号二进制数是_______。

Answer 1

十进制转二进制：
　　用2辗转相除至结果为1
　　将余数和最后的1从下向上倒序写 就是结果
　　例如302
　　302/2 = 151 余0
　　151/2 = 75 余1
　　75/2 = 37 余1
　　37/2 = 18 余1
　　18/2 = 9 余0
　　9/2 = 4 余1
　　4/2 = 2 余0
　　2/2 = 1 余0
　　1/2 = 0 余1
　　故二进制为100101110
同样方法可得 131的二进制是10000011

Answer 2

'求众数子函数
Function mode(a)
Dim b&, c&(), f&(), i&, j&, k&, x()
k = UBound(a)
ReDim c(k), f(k)
For i = 0 To k - 1
If f(i) = 0 Then
c(i) = 1
For j = i + 1 To k
If a(j) = a(i) Then
c(i) = c(i) + 1
f(j) = 1
End If
Next
End If
Next
If f(i) = 0 Then c(i) = 1
b = 1
For i = 0 To k
If c(i) > b Then b = c(i)
Next
'若所有数据都是众数，则没有众数
For i = 0 To k
If c(i) <> b And c(i) <> 0 Then Exit For
Next
If i = k + 1 Then
ReDim x(0)
x(0) = "没有众数"
mode = x
Exit Function
End If
'找出所有众数
j = 0
For i = 0 To k
If c(i) = b Then
ReDim Preserve x(j)
x(j) = a(i)
j = j + 1
End If
Next
mode = x
End Function

'调用求众数子函数示例
Private Sub Command1_Click()
Dim aa, bb
aa = Array("L", 2, "k", 5, 2, 2, "L", "L")
bb = mode(aa)
'显示所有众数
For i = 0 To UBound(bb)
Print "" & bb(i)
Next
End Sub

Answer 3

(131)10
=(((0*1010+1)*1010+11)*1010+1)2
=((1*1010+11)*1010+1)2
=((1010+11)*1010+1)2
=(1101*1010+1)2
=(10000010+1)2
=(10000011)2

Answer 4

10000011

Answer 5

10000011