form1.frm

股市计算器,可设佣金印花税率,计算保本价,计算股市收益

            Top             =   1800
            Width           =   255
         End
         Begin VB.Label Label3 
            Caption         =   "元"
            Height          =   255
            Index           =   2
            Left            =   2040
            TabIndex        =   19
            Top             =   360
            Width           =   255
         End
         Begin VB.Label Label1 
            Caption         =   "盈亏比率"
            Height          =   375
            Index           =   10
            Left            =   120
            TabIndex        =   18
            Top             =   2160
            Width           =   735
         End
         Begin VB.Label Label1 
            Caption         =   "盈亏金额"
            Height          =   375
            Index           =   9
            Left            =   120
            TabIndex        =   17
            Top             =   1800
            Width           =   735
         End
         Begin VB.Label Label1 
            Caption         =   "回收资金"
            Height          =   375
            Index           =   8
            Left            =   120
            TabIndex        =   16
            Top             =   1440
            Width           =   735
         End
         Begin VB.Label Label1 
            Caption         =   "投入资金"
            Height          =   375
            Index           =   7
            Left            =   120
            TabIndex        =   15
            Top             =   1080
            Width           =   735
         End
         Begin VB.Label Label1 
            Caption         =   "手续费用"
            Height          =   375
            Index           =   6
            Left            =   120
            TabIndex        =   14
            Top             =   720
            Width           =   735
         End
         Begin VB.Label Label1 
            Caption         =   "保本价位"
            Height          =   375
            Index           =   5
            Left            =   120
            TabIndex        =   13
            Top             =   360
            Width           =   735
         End
      End
      Begin VB.Frame Frame1 
         Caption         =   "输入数据"
         Height          =   2175
         Left            =   -74760
         TabIndex        =   1
         Top             =   600
         Width           =   2295
         Begin VB.TextBox Text_gpdh 
            Height          =   375
            Left            =   960
            TabIndex        =   47
            Text            =   "Text1"
            Top             =   240
            Width           =   975
         End
         Begin VB.TextBox Text_mcjw 
            Height          =   375
            Left            =   960
            TabIndex        =   37
            Text            =   "Text5"
            Top             =   1680
            Width           =   975
         End
         Begin VB.TextBox Text_mrjw 
            Height          =   375
            Left            =   960
            TabIndex        =   36
            Text            =   "Text4"
            Top             =   1320
            Width           =   975
         End
         Begin VB.TextBox Text_cgsl 
            Height          =   375
            Left            =   960
            TabIndex        =   35
            Text            =   "Text3"
            Top             =   960
            Width           =   975
         End
         Begin VB.TextBox Text_gpmc 
            Height          =   375
            Left            =   960
            TabIndex        =   34
            Text            =   "Text2"
            Top             =   600
            Width           =   975
         End
         Begin VB.Label Label3 
            Caption         =   "元"
            Height          =   255
            Index           =   1
            Left            =   2040
            TabIndex        =   12
            Top             =   1800
            Width           =   255
         End
         Begin VB.Label Label3 
            Caption         =   "元"
            Height          =   255
            Index           =   0
            Left            =   2040
            TabIndex        =   11
            Top             =   1440
            Width           =   255
         End
         Begin VB.Label Label2 
            Caption         =   "股"
            Height          =   255
            Left            =   2040
            TabIndex        =   10
            Top             =   1080
            Width           =   375
         End
         Begin VB.Label Label1 
            Caption         =   "卖出价位"
            Height          =   375
            Index           =   4
            Left            =   120
            TabIndex        =   9
            Top             =   1800
            Width           =   735
         End
         Begin VB.Label Label1 
            Caption         =   "买入价位"
            Height          =   375
            Index           =   3
            Left            =   120
            TabIndex        =   8
            Top             =   1440
            Width           =   735
         End
         Begin VB.Label Label1 
            Caption         =   "持股数量"
            Height          =   375
            Index           =   2
            Left            =   120
            TabIndex        =   7
            Top             =   1080
            Width           =   735
         End
         Begin VB.Label Label1 
            Caption         =   "股票名称"
            Height          =   375
            Index           =   1
            Left            =   120
            TabIndex        =   6
            Top             =   720
            Width           =   735
         End
         Begin VB.Label Label1 
            Caption         =   "股票代号"
            Height          =   375
            Index           =   0
            Left            =   120
            TabIndex        =   5
            Top             =   360
            Width           =   735
         End
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False



Private Sub Command2_Click()
Text_gpdh.Text = ""
Text_gpmc.Text = ""
Text_cgsl.Text = ""
Text_mrjw.Text = ""
Text_mcjw.Text = ""
Text_bbjw.Text = ""
Text_sxfy.Text = ""
Text_trzj.Text = ""
Text_hszj.Text = ""
Text_ykje.Text = ""
Text_ykbl.Text = ""
End Sub

Private Sub js_Click()
Dim yjmr
Dim yhsmr
yjmr = Text_cgsl.Text * Text_mrjw.Text * Text_yjbl.Text
If yjmr < 10 Then
yj = 10
Else
yjmr = Text_cgsl.Text * Text_mrjw.Text * Text_yjbl.Text
End If
yhs = Text_cgsl.Text * Text_mrjw.Text * Text_yhsl.Text
Text_trzj = Text_cgsl.Text * Text_mrjw.Text + yj + yhs

Dim yjmc
Dim yhsmc
yjmc = Text_cgsl.Text * Text_mcjw.Text * Text_yjbl.Text
If yjmc < 10 Then
yjmc = 10
Else
yjmc = Text_cgsl.Text * Text_mcjw.Text * Text_yjbl.Text
End If
yhsmc = Text_cgsl.Text * Text_mcjw.Text * Text_yhsl.Text
Text_hszj = Text_cgsl.Text * Text_mcjw.Text - yjmc - yhsmc

Text_ykje = Text_hszj - Text_trzj

Text_ykbl = Text_hszj / Text_trzj

yjmr = Text_cgsl.Text * Text_mrjw.Text * Text_yjbl.Text
If yjmr < 10 Then
yj = 10
Else
yjmr = Text_cgsl.Text * Text_mrjw.Text * Text_yjbl.Text
End If
yhs = Text_cgsl.Text * Text_mrjw.Text * Text_yhsl.Text

Text_sxfy = yj + yhs + yjmc + yhsmc

Text_bbjw.Text = (Text_trzj.Text) / (Text_cgsl.Text * (1 - 0.0035 - 0.004))

End Sub


Private Sub Text_gpdh_KeyDown(KeyCode As Integer, Shift As Integer)

KeyCode = 13
Text_gpmc.SetFocus
End Sub