专题08 VB综合应用之进制转换（知识梳理）-巅峰冲刺2020年浙江省高考选考信息技术二轮专项提升

专题8 VB综合应用之进制转换 一、二进制与十进制间的相互转换 二进制转十进制 十进制转二进制 Dim s As String s = Text1.Text p = 0 For i = 1 To Len(s) p = p * 2 + Val(Mid(s, i, 1)) Next i Text2.Text = Str(p) Dim s As String, p As Integer p = Val(Text1.Text) s = "" Do While p <> 0 s = p Mod 2 & s ' 写成s = s & p Mod 2对吗？ p = p \ 2 Loop Text2.Text = s 二、十进制与十六进制间的相互转换 十进制转十六进制（除16取余，逆序输出） 十六进制转十进制（类似二进制转十进制） Dim s As String, s1 As String，p As Integer Dim t As Integer s1 = "0123456789ABCDEF" s = "" p = Val(Text1.Text) Do While p <> 0 t = p Mod 16 s = Mid(s1, t + 1, 1) & s p = p \ 16 Loop Text2.Text = s Dim s As String, s1 As String s = Text1.Text p = 0 For i = 1 To Len(s) s1 = Mid(s, i, 1) If s1 >= "A" And s1 <= "F" Then p = p * 16 + Asc(s1) - 55 Else p = p * 16 + Val(s1) End If Next i Text2.Text = Str(p) 三、二进制与十六进制间的相互