VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin TabDlg.SSTab SSTab1 
      Height          =   1815
      Left            =   120
      TabIndex        =   0
      Top             =   360
      Width           =   4455
      _ExtentX        =   7858
      _ExtentY        =   3201
      _Version        =   393216
      Tab             =   1
      TabHeight       =   520
      TabCaption(0)   =   "计算机文化基础"
      TabPicture(0)   =   "v6j07-12.frx":0000
      Tab(0).ControlEnabled=   0   'False
      Tab(0).Control(0)=   "Label1"
      Tab(0).Control(1)=   "Label2"
      Tab(0).Control(2)=   "Label5"
      Tab(0).Control(3)=   "Text1"
      Tab(0).Control(4)=   "Text2"
      Tab(0).ControlCount=   5
      TabCaption(1)   =   "VB程序设计教程"
      TabPicture(1)   =   "v6j07-12.frx":001C
      Tab(1).ControlEnabled=   -1  'True
      Tab(1).Control(0)=   "Label6"
      Tab(1).Control(0).Enabled=   0   'False
      Tab(1).Control(1)=   "Label7"
      Tab(1).Control(1).Enabled=   0   'False
      Tab(1).Control(2)=   "Label8"
      Tab(1).Control(2).Enabled=   0   'False
      Tab(1).Control(3)=   "Text3"
      Tab(1).Control(3).Enabled=   0   'False
      Tab(1).Control(4)=   "Text4"
      Tab(1).Control(4).Enabled=   0   'False
      Tab(1).ControlCount=   5
      TabCaption(2)   =   "结果汇总"
      TabPicture(2)   =   "v6j07-12.frx":0038
      Tab(2).ControlEnabled=   0   'False
      Tab(2).Control(0)=   "Label9"
      Tab(2).Control(1)=   "Text5"
      Tab(2).ControlCount=   2
      Begin VB.TextBox Text5 
         Height          =   495
         Left            =   -73440
         TabIndex        =   14
         Text            =   "Text5"
         Top             =   720
         Width           =   1095
      End
      Begin VB.TextBox Text4 
         Height          =   495
         Left            =   3600
         TabIndex        =   13
         Top             =   1200
         Width           =   735
      End
      Begin VB.TextBox Text2 
         Height          =   375
         Left            =   -71400
         TabIndex        =   11
         Top             =   1200
         Width           =   735
      End
      Begin VB.TextBox Text3 
         Height          =   375
         Left            =   3600
         TabIndex        =   10
         Top             =   720
         Width           =   735
      End
      Begin VB.TextBox Text1 
         Height          =   375
         Left            =   -71400
         TabIndex        =   6
         Top             =   720
         Width           =   735
      End
      Begin VB.Label Label9 
         Caption         =   "总价："
         Height          =   495
         Left            =   -74160
         TabIndex        =   12
         Top             =   840
         Width           =   1095
      End
      Begin VB.Label Label8 
         Caption         =   "V实验指导与测试               19.8"
         Height          =   255
         Left            =   240
         TabIndex        =   9
         Top             =   1320
         Width           =   3495
      End
      Begin VB.Label Label7 
         Caption         =   "VB程序设计教程                25"
         Height          =   255
         Left            =   240
         TabIndex        =   8
         Top             =   720
         Width           =   3255
      End
      Begin VB.Label Label6 
         Caption         =   "单价       数量"
         Height          =   255
         Left            =   2760
         TabIndex        =   7
         Top             =   360
         Width           =   1575
      End
      Begin VB.Label Label5 
         Caption         =   "计算机文化基础实验指导与测试    14"
         Height          =   255
         Left            =   -74760
         TabIndex        =   5
         Top             =   1320
         Width           =   3495
      End
      Begin VB.Label Label2 
         Caption         =   " 计算机文化基础                 22"
         Height          =   255
         Left            =   -74760
         TabIndex        =   2
         Top             =   720
         Width           =   3255
      End
      Begin VB.Label Label1 
         Caption         =   "单价       数量"
         Height          =   255
         Left            =   -72240
         TabIndex        =   1
         Top             =   360
         Width           =   1575
      End
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "计算机文化基础实验指导与测试          22元"
      Height          =   180
      Left            =   600
      TabIndex        =   4
      Top             =   1560
      Width           =   3780
   End
   Begin VB.Label Label3 
      Caption         =   "计算机文化基础          22元"
      Height          =   255
      Left            =   600
      TabIndex        =   3
      Top             =   1560
      Width           =   2775
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Sub SSTab1_Click(PreviousTab As Integer)
    ' PreviousTab标识先前为活动的选项卡。
    If PreviousTab = 0 Or PreviousTab = 1 Then
    Text5 = Val(Text1) * 22 + Val(Text2) * 14 + Val(Text3) * 25 + Val(Text4) * 19.8
    End If
End Sub

