【VB开源代码栏目提醒】:本文主要为网学会员提供Ex8_4.frm，希望对需要Ex8_4.frm网友有所帮助，学习一下!

    VERSION 5.00
    Begin VB.Form Ex8_4 
       Caption         =   "简单加法器"
       ClientHeight    =   1740
       ClientLeft      =   60
       ClientTop       =   450
       ClientWidth     =   4680
       LinkTopic       =   "Form1"
       ScaleHeight     =   1740
       ScaleWidth      =   4680
       StartUpPosition =   3  '窗口缺省
       Begin VB.TextBox Text3 
          Height          =   375
          Left            =   3360
          TabIndex        =   4
          Top             =   480
          Width           =   975
       End
       Begin VB.TextBox Text2 
          Height          =   375
          Left            =   1800
          TabIndex        =   1
          Top             =   480
          Width           =   975
       End
       Begin VB.TextBox Text1 
          Height          =   375
          Left            =   360
          TabIndex        =   0
          Top             =   480
          Width           =   855
       End
       Begin VB.Label Label2 
          Caption         =   "="
          Height          =   255
          Left            =   3000
          TabIndex        =   3
          Top             =   600
          Width           =   255
       End
       Begin VB.Label Label1 
          Caption         =   "+"
          Height          =   255
          Left            =   1440
          TabIndex        =   2
          Top             =   600
          Width           =   135
       End
    End
    Attribute VB_Name = "Ex8_4"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub Text1_Change()
        Text2.SetFocus
    End Sub
    Private Sub Text2_Change()
        Dim A As Integer
        Dim B As Integer
        '若文本框中的内容为空，则将0赋给它
        If (Text1.Text = "") Then
            Text1.Text = "0"
        End If
        If (Text2.Text = "") Then
            Text2.Text = "0"
        End If
        A = CInt(Text1.Text)
        B = CInt(Text2.Text)
       Text3.Text = CStr(A + B)  '计算两数之和
    End Sub
    

上一篇：Ex8_3.frm
下一篇：试题库管理系统毕业论文