VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "數(shù)制轉(zhuǎn)換"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text2 
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1800
      Locked          =   -1  'True
      TabIndex        =   7
      Top             =   1800
      Width           =   2415
   End
   Begin VB.CommandButton Command2 
      Caption         =   "結(jié)束"
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2640
      TabIndex        =   5
      Top             =   2520
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "轉(zhuǎn)換"
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   840
      TabIndex        =   4
      Top             =   2520
      Width           =   1095
   End
   Begin VB.ComboBox Combo1 
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      ItemData        =   "Form0614.frx":0000
      Left            =   2640
      List            =   "Form0614.frx":0002
      TabIndex        =   2
      Text            =   "二進(jìn)制"
      Top             =   1200
      Width           =   1575
   End
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2640
      TabIndex        =   1
      Top             =   360
      Width           =   1455
   End
   Begin VB.Label Label4 
      Caption         =   "轉(zhuǎn)換結(jié)果："
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   480
      TabIndex        =   6
      Top             =   1800
      Width           =   1335
   End
   Begin VB.Label Label2 
      Caption         =   "轉(zhuǎn)換進(jìn)制："
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   840
      TabIndex        =   3
      Top             =   1200
      Width           =   1455
   End
   Begin VB.Label Label1 
      Caption         =   "十進(jìn)制數(shù)："
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   840
      TabIndex        =   0
      Top             =   360
      Width           =   1455
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'定義模塊級(jí)變量轉(zhuǎn)換數(shù)據(jù)和進(jìn)制
Dim Number As Integer
Dim N As Integer
Private Sub Trans(Arry() As String, S() As String)
'轉(zhuǎn)換進(jìn)制子過(guò)程
    Dim r As Integer, k As Integer
    k = 0
    Do While Number > 0
        r = Number Mod N
        k = k + 1
        ReDim Preserve Arry(k) '用Preserve保留原來(lái)數(shù)據(jù)
        Arry(k) = S(r) '余數(shù)放置在數(shù)組Arry
        Number = Int(Number / N)
    Loop
End Sub

Private Sub Combo1_Click()
'單擊組合框選擇進(jìn)制
   N = Val(Combo1.ItemData(Combo1.ListIndex))
End Sub

Private Sub Command2_Click()
'單擊退出按鈕
    End
End Sub

Private Sub Command1_Click()
'單擊開(kāi)始按鈕
    Dim i As Integer
    Dim Char(15) As String, String1 As String
    Dim Bin() As String
    '將字符0—9賦值給數(shù)組char
    For i = 0 To 9
        Char(i) = Str(i)
    Next i
    '將字符A—F賦值給數(shù)組char
    For i = 0 To 5
        Char(10 + i) = Chr(Asc("A") + i)
    Next i
    Number = Val(Text1.Text)
    Call Trans(Bin, Char)
    '將余數(shù)逆序排放
    For i = UBound(Bin) To 1 Step -1
        String1 = String1 & Bin(i)
    Next i
    Text2.Text = String1
End Sub

Private Sub Form_Load()
'裝載窗體將進(jìn)制設(shè)為2并設(shè)置組合框初始狀態(tài)
    N = 2
    Combo1.AddItem "二進(jìn)制"
    Combo1.AddItem "八進(jìn)制"
    Combo1.AddItem "十六進(jìn)制"
    Combo1.ItemData(0) = 2
    Combo1.ItemData(1) = 8
    Combo1.ItemData(2) = 16
End Sub