进制及数制转换 知识点题库

‘函数 bw 功能：若二进制位数不足，通过在前面添"0"使得位数为 4 的倍数
Private Function bw(x As Integer, y As String) As String

Dim r As Integer, i As Integer

r = x Mod 4

If r <> 0 Then

  For i = 1 To 4 - r

    y = “0” + y

  Next i

  x = Len(y)

End If

bw =   ①   
End Function

Private Sub Command1_Click()

   Dim m As String, n As Integer, i As Integer, a As Integer

   Dim s As Integer, s1 As String, j As Integer

   m = Text1.Text

   n = Len(m)

   Text2.Text =“”

   m =  ②           ‘调整m的位数为4的倍数

   For i = 1 To n - 3 Step 4

     s = 0

     For j = i To i + 3

       a = Val(Mid(m, j, 1))

       s =  ③  

     Next j

     If s >= 10 Then

       s1 = Chr(Asc("A") + s - 10)

     Else

       s1 = CStr(s)      ‘函数CStr类似于 Str，但无前导空格

     End If

     Text2.Text = Text2.Text + s1

   Next i
End Sub

① ② ③