📄 form1.frm
字号:
VERSION 5.00
Begin VB.Form Form1
Caption = "养老/医疗保险计算器"
ClientHeight = 7590
ClientLeft = 4860
ClientTop = 3105
ClientWidth = 13350
LinkTopic = "Form1"
ScaleHeight = 7590
ScaleWidth = 13350
Begin VB.OptionButton Option1
Caption = "医疗保险"
Height = 375
Index = 1
Left = 11640
Style = 1 'Graphical
TabIndex = 96
Top = 600
Value = -1 'True
Width = 1095
End
Begin VB.OptionButton Option1
Caption = "养老保险"
Height = 375
Index = 0
Left = 10560
Style = 1 'Graphical
TabIndex = 95
Top = 600
Width = 1095
End
Begin VB.OptionButton Option2
Caption = "女"
Height = 375
Index = 1
Left = 7680
Style = 1 'Graphical
TabIndex = 6
Top = 240
Width = 855
End
Begin VB.OptionButton Option2
Caption = "男"
Height = 375
Index = 0
Left = 6840
Style = 1 'Graphical
TabIndex = 5
Top = 240
Width = 735
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 2640
TabIndex = 0
Text = "196407"
Top = 240
Width = 1335
End
Begin VB.Frame Frame2
Caption = "医疗补贴"
Height = 6495
Left = 240
TabIndex = 53
Top = 960
Width = 12855
Begin VB.TextBox Text2
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 86
Text = "200601"
Top = 360
Width = 1095
End
Begin VB.Line Line9
X1 = 240
X2 = 12480
Y1 = 960
Y2 = 960
End
Begin VB.Label Label15
Caption = "每月(5-12)"
Height = 255
Index = 4
Left = 11400
TabIndex = 101
Top = 720
Width = 1095
End
Begin VB.Label Label15
Caption = "每月(1-4)"
Height = 255
Index = 3
Left = 9960
TabIndex = 100
Top = 720
Width = 1095
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
Caption = "74.84"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 375
Index = 31
Left = 11280
TabIndex = 94
Top = 3600
Width = 975
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
Caption = "36.16"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 375
Index = 30
Left = 11280
TabIndex = 93
Top = 1080
Width = 975
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
Caption = "92.18"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 375
Index = 29
Left = 9720
TabIndex = 92
Top = 5280
Width = 975
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
Caption = "56.51"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 375
Index = 28
Left = 9720
TabIndex = 91
Top = 4440
Width = 975
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
Caption = "39.61"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 375
Index = 27
Left = 9720
TabIndex = 90
Top = 2760
Width = 975
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
Caption = "49.94"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 375
Index = 26
Left = 9720
TabIndex = 89
Top = 1920
Width = 975
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
Caption = "64.02"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 375
Index = 25
Left = 9720
TabIndex = 88
Top = 3600
Width = 975
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
Caption = "31.16"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 375
Index = 24
Left = 9720
TabIndex = 87
Top = 1080
Width = 975
End
Begin VB.Label Label2
Caption = "2008年"
BeginProperty Font
Name = "MS Sans Serif"
Size = 24
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 585
Index = 4
Left = 10200
TabIndex = 85
Top = 120
Width = 1635
End
Begin VB.Label Label14
Caption = "6.5%"
BeginProperty Font
Name = "MS Sans Serif"
Size = 24
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 600
Left = 120
TabIndex = 84
Top = 2880
Width = 1155
End
Begin VB.Line Line11
X1 = 120
X2 = 12360
Y1 = 4200
Y2 = 4200
End
Begin VB.Label Label6
Caption = "减免40%"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 4
Left = 1440
TabIndex = 83
Top = 4560
Width = 1215
End
Begin VB.Label Label7
Caption = "全额"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 4
Left = 1680
TabIndex = 82
Top = 5280
Width = 975
End
Begin VB.Label Label6
Caption = "减免40%"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 2
Left = 1440
TabIndex = 81
Top = 2760
Width = 1215
End
Begin VB.Label Label7
Caption = "全额"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 400
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -