form0614.frm

VB实验教程源码

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "数制转换"
   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         =   "结束"
      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         =   "转换"
      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            =   "二进制"
      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         =   "转换结果："
      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         =   "转换进制："
      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         =   "十进制数："
      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
'定义模块级变量转换数据和进制
Dim Number As Integer
Dim N As Integer
Private Sub Trans(Arry() As String, S() As String)
'转换进制子过程
    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保留原来数据
        Arry(k) = S(r) '余数放置在数组Arry
        Number = Int(Number / N)
    Loop
End Sub

Private Sub Combo1_Click()
'单击组合框选择进制
   N = Val(Combo1.ItemData(Combo1.ListIndex))
End Sub

Private Sub Command2_Click()
'单击退出按钮
    End
End Sub

Private Sub Command1_Click()
'单击开始按钮
    Dim i As Integer
    Dim Char(15) As String, String1 As String
    Dim Bin() As String
    '将字符0—9赋值给数组char
    For i = 0 To 9
        Char(i) = Str(i)
    Next i
    '将字符A—F赋值给数组char
    For i = 0 To 5
        Char(10 + i) = Chr(Asc("A") + i)
    Next i
    Number = Val(Text1.Text)
    Call Trans(Bin, Char)
    '将余数逆序排放
    For i = UBound(Bin) To 1 Step -1
        String1 = String1 & Bin(i)
    Next i
    Text2.Text = String1
End Sub

Private Sub Form_Load()
'装载窗体将进制设为2并设置组合框初始状态
    N = 2
    Combo1.AddItem "二进制"
    Combo1.AddItem "八进制"
    Combo1.AddItem "十六进制"
    Combo1.ItemData(0) = 2
    Combo1.ItemData(1) = 8
    Combo1.ItemData(2) = 16
End Sub