Question

用VB编程序实现十进制与二进制之间的相互转化.

用VB编程序实现十进制与二进制之间的相互转化.frm 相互转化 清除键

Answer 1

1、首先，定义两个整型变量，保存计算出的每位二进制数和二进制位数的统计。

2、定义一个实型变量，保存计算的十进制小数。

3、输入一个十进制小数，保存在变量d中。

4、do－while循环中，将十进制小数乘以2。

5、取十进制数的整数部分，保存在变量b中。

6、输出该位的二进制数，同时将十进制数的整数部分减掉。

7、运行程序，输入任意一个十进制小数，计算机就会输出相应的二进制小数。

扩展资料：

VB的主要用途：VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。是一种可用于微软自家产品开发的语言。

“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。 

“Basic”指的是 BASIC (Beginners All-Purpose Symbolic  Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。

Answer 2

Private Sub Command1_Click()
  Me.Caption = "二进制转化为十进制"
  If Text1.Text = "" Then
    MsgBox "数据错误！", 64
    Text1.SetFocus
    Me.Caption = "进制转换"
    Exit Sub
  End If
  If Val(Text1.Text) = 0 Then
    Label1.Caption = 0
  Else
    s = Len(Text1.Text)
    For i = 1 To s
      If (Val(Mid(Text1.Text, i, 1)) <> 0 And Val(Mid(Text1.Text, i, 1)) <> 1) Then
        MsgBox "数据错误！", 64
        Me.Caption = "进制转换"
        Text1.SetFocus
        Exit Sub
      End If
    Next i
    For i = 1 To s
      n = n + Val(Mid(Text1.Text, i, 1)) * 2 ^ (s - i)
    Next i
    Label1.Caption = n
  End If
  Text1.SetFocus
End Sub

Private Sub Command2_Click()
  Me.Caption = "十进制转化为二进制"
  If Text1.Text = "" Then
    MsgBox "数据错误！", 64
    Me.Caption = "进制转换"
    Text1.SetFocus
    Exit Sub
  End If
  n = Val(Text1.Text)
  If n > 2147483647 Then
    MsgBox "数据错误！", 64
    Me.Caption = "进制转换"
    Text1.SetFocus
    Exit Sub
  End If
  If n = 0 Then
    Label1.Caption = 0
  Else
    Do While n > 0
      r = n Mod 2: n = n \ 2: b = CStr(r) + b
    Loop
    Label1.Caption = b
  End If
  Text1.SetFocus
End Sub

Private Sub Command3_Click()
  Text1.Text = ""
  Label1.Caption = ""
  Me.Caption = "进制转换"
  Text1.SetFocus
End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
  If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
    KeyAscii = 0
    Beep
  End If
End Sub