📄 计算器.frm
字号:
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 2
Left = 1080
TabIndex = 3
Top = 2520
Width = 615
End
Begin VB.CommandButton Command1
Caption = "1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 1
Left = 360
TabIndex = 2
Top = 2520
Width = 615
End
Begin VB.CommandButton Command1
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 1080
TabIndex = 1
Top = 3120
Width = 615
End
Begin VB.TextBox Text1
Alignment = 1 'Right Justify
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
MaxLength = 18
TabIndex = 0
Text = " "
Top = 360
Width = 2775
End
Begin VB.Line Line12
BorderColor = &H00C00000&
BorderWidth = 2
X1 = 371.742
X2 = 371.742
Y1 = 120
Y2 = 4920
End
Begin VB.Line Line11
BorderColor = &H00FF0000&
BorderWidth = 2
X1 = 683.526
X2 = 683.526
Y1 = 120
Y2 = 4920
End
Begin VB.Line Line10
BorderColor = &H00C00000&
BorderWidth = 2
X1 = 371.742
X2 = 683.526
Y1 = 4920
Y2 = 4920
End
Begin VB.Line Line9
BorderColor = &H00FF0000&
BorderWidth = 2
X1 = 371.742
X2 = 683.526
Y1 = 120
Y2 = 120
End
Begin VB.Label Label5
Alignment = 2 'Center
Caption = "十六进制"
BeginProperty Font
Name = "华文行楷"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 3840
TabIndex = 24
Top = 2040
Width = 975
End
Begin VB.Label Label4
Alignment = 2 'Center
Caption = "十进制"
BeginProperty Font
Name = "华文行楷"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 3840
TabIndex = 23
Top = 1680
Width = 975
End
Begin VB.Label Label3
Alignment = 2 'Center
Caption = "八进制"
BeginProperty Font
Name = "华文行楷"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 3840
TabIndex = 22
Top = 1320
Width = 975
End
Begin VB.Label Label2
Alignment = 2 'Center
Caption = "二进制"
BeginProperty Font
Name = "华文行楷"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 3840
TabIndex = 21
Top = 960
Width = 975
End
Begin VB.Label Label1
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "计科系2002级"
BeginProperty Font
Name = "华文细黑"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 375
Left = 240
TabIndex = 20
Top = 4320
Width = 3015
End
Begin VB.Line Line8
BorderColor = &H000000FF&
BorderWidth = 3
X1 = 323.775
X2 = 323.775
Y1 = 240
Y2 = 840
End
Begin VB.Line Line7
BorderColor = &H000000FF&
BorderWidth = 3
X1 = 23.983
X2 = 23.983
Y1 = 240
Y2 = 840
End
Begin VB.Line Line6
BorderColor = &H000000FF&
BorderWidth = 3
X1 = 23.983
X2 = 323.775
Y1 = 840
Y2 = 840
End
Begin VB.Line Line5
BorderColor = &H000000FF&
BorderWidth = 4
X1 = 23.983
X2 = 323.775
Y1 = 240
Y2 = 240
End
Begin VB.Line Line4
BorderColor = &H00FF00FF&
BorderWidth = 2
X1 = 11.992
X2 = 335.767
Y1 = 4920
Y2 = 4920
End
Begin VB.Line Line3
BorderColor = &H00FF00FF&
BorderWidth = 2
X1 = 335.767
X2 = 335.767
Y1 = 120
Y2 = 4920
End
Begin VB.Line Line2
BorderColor = &H00FF00FF&
BorderWidth = 2
X1 = 11.992
X2 = 335.767
Y1 = 120
Y2 = 120
End
Begin VB.Line Line1
BorderColor = &H00FF00FF&
BorderWidth = 2
X1 = 11.992
X2 = 11.992
Y1 = 120
Y2 = 4920
End
Begin VB.Menu jisuan
Caption = "计算器"
Begin VB.Menu jianyi
Caption = "简易型"
Shortcut = ^J
End
Begin VB.Menu kexue
Caption = "科学型"
Shortcut = ^K
End
End
Begin VB.Menu bianji
Caption = "编辑"
Begin VB.Menu ON
Caption = "开始"
Shortcut = ^O
End
Begin VB.Menu quit
Caption = "退出"
Shortcut = ^Q
End
End
Begin VB.Menu yunsuan
Caption = "运算"
Begin VB.Menu size
Caption = "四则运算"
Begin VB.Menu add
Caption = "加法"
Shortcut = ^A
End
Begin VB.Menu sub
Caption = "减法"
Shortcut = ^S
End
Begin VB.Menu imul
Caption = "乘法"
Shortcut = ^I
End
Begin VB.Menu div
Caption = "除法"
Shortcut = ^D
End
End
Begin VB.Menu jinzhi
Caption = "进制转换"
Begin VB.Menu Tow
Caption = "二进制"
Shortcut = ^T
End
Begin VB.Menu Oct
Caption = "八进制"
Shortcut = ^B
End
Begin VB.Menu ziji
Caption = "十进制"
Shortcut = ^M
End
Begin VB.Menu Hex
Caption = "十六进制"
Shortcut = ^H
End
End
Begin VB.Menu san
Caption = "三角函数"
End
End
Begin VB.Menu Time
Caption = "时间"
Begin VB.Menu nyr
Caption = "年 月 日"
Shortcut = ^Y
End
Begin VB.Menu Time1
Caption = "当前时间"
Shortcut = ^N
End
Begin VB.Menu Weekday
Caption = "星期"
Shortcut = ^W
End
End
End
Attribute VB_Name = "计算器"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim num9 As String
Dim j As Integer
Dim n71 As Double, n72 As Double, n70 As Double
Dim x As Integer
Dim num7 As Integer '保存用来求后面的三角函数
Dim num6 As Integer '此变量用来控制进制做那种转换
Dim num4 As Integer, num8 As Integer
Dim num As Integer '用来确定实行那中运算
Dim num5 As String, op As String 'op用来保存输入的运算符
Dim num3 As Double '保存需要进制转换数
Dim num1 As Single, num2 As Single ' 执行运算的两个数
Private Sub cls_Click()
Text1.Text = "0" '让文本框清零
If Text2.Text = "" Then
Text2.Text = ""
Else
Text2.Text = "0" '让文本框清零
End If
End Sub
Private Sub add_Click()
n1 = InputBox("请输入被加数")
n2 = InputBox("请在输入加数")
Text1.Text = Val(n1) + Val(n2)
End Sub
Private Sub Command1_Click(Index As Integer)
Text1.Text = Text1.Text & Index ' 接受输入数据
If Index = 10 Then '判断第一个输入的是什么 看是不是负号
Text1.Text = "" '是负号 给他空串
Text1.Text = "-" '如果是符号 就给他赋植为负号
End If
num3 = Val(Text1.Text) '保存此数是用来后面作进制转换
End Sub
Private Sub Command10_Click()
Dim m8 As String, m9 As String, m10 As String
m1 = Year(Now)
m1 = m1 - 2000
m2 = Month(Now)
m3 = Day(Now)
m4 = Hour(Now)
m5 = Minute(Now)
m6 = Second(Now) '时间可以用这个语句 text3.text=time!
'm7 = Weekday(Now)
m8 = " " '用来区分日 和具体时间及星期
m9 = ":" '输出 年 月 日 时间 用作分隔符
Text3.Text = "0" & m1 & m9 & m2 & m9 & m3 & m8 & m4 & m9 & m5 & m9 & m6 & m8 '& m7
End Sub
Private Sub Command12_Click(Index As Integer)
End Sub
Private Sub Command13_Click()
pi = 3.1415926
Text1.Text = pi
End Sub
Private Sub Command2_Click(Index As Integer)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -