【VB开源代码栏目提醒】：网学会员,鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“Ex3_1.frm”一文，供大家参考学习!

    VERSION 5.00
    Begin VB.Form Ex3_1 
       Caption         =   "Form1"
       ClientHeight    =   2550
       ClientLeft      =   60
       ClientTop       =   450
       ClientWidth     =   4170
       LinkTopic       =   "Form1"
       ScaleHeight     =   2550
       ScaleWidth      =   4170
       StartUpPosition =   3  '窗口缺省
       Begin VB.CommandButton Command1 
          Caption         =   "新价格"
          Height          =   375
          Left            =   1200
          TabIndex        =   6
          Top             =   1320
          Width           =   1095
       End
       Begin VB.TextBox Text3 
          Height          =   390
          Left            =   480
          TabIndex        =   4
          Top             =   1800
          Width           =   2295
       End
       Begin VB.TextBox Text2 
          Height          =   375
          Left            =   1200
          TabIndex        =   2
          Top             =   720
          Width           =   1215
       End
       Begin VB.TextBox Text1 
          Height          =   375
          Left            =   1200
          TabIndex        =   1
          Top             =   240
          Width           =   1215
       End
       Begin VB.Label Label4 
          Caption         =   "%"
          Height          =   255
          Left            =   2520
          TabIndex        =   5
          Top             =   840
          Width           =   375
       End
       Begin VB.Label Label1 
          AutoSize        =   -1  'True
          Caption         =   "原价格"
          Height          =   180
          Left            =   480
          TabIndex        =   3
          Top             =   360
          Width           =   540
       End
       Begin VB.Label Label2 
          AutoSize        =   -1  'True
          Caption         =   "折扣率"
          Height          =   180
          Left            =   480
          TabIndex        =   0
          Top             =   840
          Width           =   540
       End
    End
    Attribute VB_Name = "Ex3_1"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    
    Private Sub Command1_Click()
        Dim a As Single, sum As Single  '定义变量
        a = Text2.Text                  '为变量赋值
        sum = Text1.Text
        If a > 0 And a <= 10 Then       '根据变量a的不同值计算折扣后的价格
            sum = sum * (1 - 0.1)
        ElseIf a > 10 And a <= 20 Then
            sum = sum * (1 - 0.2)
        ElseIf a > 20 And a <= 30 Then
            sum = sum * (1 - 0.3)
        ElseIf a > 30 And a <= 40 Then
            sum = sum * (1 - 0.4)
        ElseIf a > 40 And a <= 50 Then
            sum = sum * (1 - 0.5)
        ElseIf a > 50 Then
            sum = sum * (1 - 0.6)
        End If
        Text3.Text = "折扣后价格为 " & sum  '将折扣后的价格显示在Text3中
               
    End Sub