【VB开源代码栏目提醒】：网学会员为需要VB开源代码的朋友们搜集整理了Form1.frm相关资料，希望对各位网友有所帮助!

    VERSION 5.00
    Begin VB.Form Form1 
       Caption         =   "Form1"
       ClientHeight    =   3255
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   4680
       LinkTopic       =   "Form1"
       ScaleHeight     =   3255
       ScaleWidth      =   4680
       StartUpPosition =   3  'Windows Default
       Begin VB.TextBox Text1 
          Height          =   270
          Index           =   3
          Left            =   3360
          TabIndex        =   13
          Text            =   "0"
          Top             =   2160
          Width           =   1095
       End
       Begin VB.TextBox Text1 
          Height          =   270
          Index           =   2
          Left            =   3360
          TabIndex        =   12
          Text            =   "0"
          Top             =   1680
          Width           =   1095
       End
       Begin VB.TextBox Text1 
          Height          =   270
          Index           =   1
          Left            =   3360
          TabIndex        =   11
          Text            =   "0"
          Top             =   1200
          Width           =   1095
       End
       Begin VB.CheckBox Check1 
          Caption         =   "Check1"
          Height          =   255
          Index           =   3
          Left            =   120
          TabIndex        =   7
          Top             =   2160
          Width           =   1695
       End
       Begin VB.CheckBox Check1 
          Caption         =   "Check1"
          Height          =   255
          Index           =   2
          Left            =   120
          TabIndex        =   6
          Top             =   1680
          Width           =   1695
       End
       Begin VB.CheckBox Check1 
          Caption         =   "Check1"
          Height          =   300
          Index           =   1
          Left            =   120
          TabIndex        =   5
          Top             =   1200
          Width           =   1695
       End
       Begin VB.TextBox Text2 
          Height          =   375
          Left            =   2280
          Locked          =   -1  'True
          TabIndex        =   4
          Text            =   "0"
          Top             =   2640
          Width           =   2175
       End
       Begin VB.CommandButton Command1 
          Caption         =   "Command1"
          Height          =   375
          Left            =   120
          TabIndex        =   3
          Top             =   2640
          Width           =   1815
       End
       Begin VB.TextBox Text1 
          Height          =   270
          Index           =   0
          Left            =   3360
          TabIndex        =   1
          Text            =   "0"
          Top             =   720
          Width           =   1095
       End
       Begin VB.CheckBox Check1 
          Caption         =   "Check1"
          Height          =   255
          Index           =   0
          Left            =   120
          TabIndex        =   0
          Top             =   720
          Width           =   1695
       End
       Begin VB.Label Label2 
          Caption         =   "Label2"
          Height          =   255
          Left            =   240
          TabIndex        =   14
          Top             =   240
          Width           =   4095
       End
       Begin VB.Label Label1 
          Caption         =   "Label1"
          Height          =   255
          Index           =   3
          Left            =   2040
          TabIndex        =   10
          Top             =   2160
          Width           =   615
       End
       Begin VB.Label Label1 
          Caption         =   "Label1"
          Height          =   255
          Index           =   2
          Left            =   2040
          TabIndex        =   9
          Top             =   1680
          Width           =   615
       End
       Begin VB.Label Label1 
          Caption         =   "Label1"
          Height          =   375
          Index           =   1
          Left            =   2040
          TabIndex        =   8
          Top             =   1200
          Width           =   615
       End
       Begin VB.Label Label1 
          Caption         =   "Label1"
          Height          =   375
          Index           =   0
          Left            =   2040
          TabIndex        =   2
          Top             =   720
          Width           =   615
       End
    End
    Attribute VB_Name = "Form1"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    
    Private Sub Command1_Click()
        Sum = 0
        For i = 0 To 3
            If Check1(i).Value = 1 Then
                Sum = Sum + _
                 Val(Text1(i).Text) * Val(Label1(i).Caption)
            End If
        Next i
        Text2.Text = Format(Sum, "#,###.##")
    End Sub
    
    Private Sub Form_Load()
        Form1.Caption = "购书计价"
        Label2.Caption = "选购/书名/          单价(元/册)     数量 "
        Check1(0).Caption = "数字化生存"
        Check1(1).Caption = "未来之路"
        Check1(2).Caption = "微软之路"
        Check1(3).Caption = "我问故我在"
        Label1(0).Caption = 16.8
        Label1(1).Caption = 20.8
        Label1(2).Caption = 19.8
        Label1(3).Caption = 24.5
       Command1.Caption = "共计书价（元）："
    End Sub