计算器vb程序.doc
文本预览下载声明
计算器VB程序
这个程序包括5个单选按钮，12个命令按钮和一个文本框。
如果你学了数组以后，10个数字键就可以打一行代码了。不需要这么麻烦（我给你的第二种代码中的就是）
第一种代码：
Dim flag As Integer 通用声明
Dim s1 As String
Private Sub Command1_Click() 数字“1”
Text1.Text = Text1.Text + Str$(1)
End Sub
Private Sub Command10_Click() 数字“0”
Text1.Text = Text1.Text + Str$(0)
End Sub
if isjd then
m-tb-out.text=str(sin((val(m-tb-out.text)/180)*pi))
else
m-tb-out.text=str(sin((val(m-tb-out.text)
Private Sub Command11_Click() 点号“.”
Text1.Text = Text1.Text + .
End Sub
Private Sub Command2_Click() 数字“2”
Text1.Text = Text1.Text + Str$(2)
End Sub
Private Sub Command3_Click() 数字“3”
Text1.Text = Text1.Text + Str$(3)
End Sub
Private Sub Command4_Click() 数字“4”
Text1.Text = Text1.Text + Str$(4)
End Sub
Private Sub Command5_Click() 数字“5”
Text1.Text = Text1.Text + Str$(5)
End Sub
Private Sub Command6_Click() 数字“6”
Text1.Text = Text1.Text + Str$(6)
End Sub
Private Sub Command7_Click() 数字“7”
Text1.Text = Text1.Text + Str$(7)
End Sub
Private Sub Command8_Click() 数字“8”
Text1.Text = Text1.Text + Str$(8)
End Sub
Private Sub Command9_Click() 数字“9”
Text1.Text = Text1.Text + Str$(9)
End Sub
Private Sub opt1_Click() opt1 为 + 加运算
If flag = -1 Then 这里通过flag的值判断前一步是否点击过运算符
s1 = Text1.Text 如果没有点击过运算符执行这里
Text1.Text =
flag = 1 表示加法运算
Else 如果前一步没有点击过运算符则执行者里
s2 = Text1.Text
Select Case flag 这里通过flag的值判断前一步的运算符,并执行相应的运算.
Case 1
s1 = Val(s1) + Val(s2)
Case 2
s1 = Val(s1) - Val(s2)
Case 3
s1 = Val(s1) * Val(s2)
Case 4
s1 = Val(s1) / Val(s2)
End Select
Text1.Text =
flag = 1
End If
End Sub
Private Sub opt2_Click() opt2 为 - 减运算
If flag = -1 Then
s1 = Text1.Text
Text1.Text =
flag = 2 表示减法运算
Else
s2 = Text1.Text
Select Case flag
Case 1
s1 = Val(s1) + Val(s2)
Case 2
s1 = Val(s1) - Val(s2)
Case 3
s1 = Val(s1) * Val(s2)
Case 4
s1 = Val(s1) / Val(s2)
End Select
Text1.Text =
flag = 2
End If
End Sub
Private Sub opt3_Click() opt3 为
显示全部