vb十进制二进度互转(含小数位).docxVIP

VB十进制二进制互转（含小数位） 审计署计算机中级培训第三周，城厢区审计局 VB十进制二进制互转（含小数位） 审计署计算机中级培训第三周，城厢区审计局 陈剑芳 十转换二： Private Sub Command1_Click() Dim a As Single, b As Integer, c As Single, d As Integer, e As Integer, x As String, y As String a = CSng(Textl.Text) if a mod 1=0 b = Fix(a) Do While b 0 If b Mod 2 = 0 Then Print 0 x = 0 x b = b \ 2 Else Print 1 x = 1 x b = b \ 2 End If Loop Else c = a - Fix(a) Print c For e = 1 To 6 Step 1 If Fix(c * 2) = 1 Then Print 1 y = y 1 c = c * 2 - 1 Else Print 0 y = y 0 c = c * 2 End If Next Text2.Text = Trim(x . y) End Sub 二进转十进： Private Sub Command2_Click() Dim a As Integer,