VB 做简易计算机程序代码
Private Sub Command1_Click()
'每点击一下该按钮,就在文本框的尾部加字符"0"
'如果txtLabel为空,则说明现在正在输入的第一个数字
'负责表示输入的是第二个数字
If txtLabel.Text = "" Then
txtFirst.Text = txtFirst.Text + "0"
Else
txtSecond.Text = txtSecond.Text + "0"
End If
End Sub
Private Sub Command10_Click()
If txtLabel.Text = "" Then
txtFirst.Text = txtFirst.Text + "8"
Else
txtSecond.Text = txtSecond.Text + "8"
End If
End Sub
Private Sub Command11_Click()
If txtLabel.Text = "" Then
txtFirst.Text = txtFirst.Text + "9"
Else
txtSecond.Text = txtSecond.Text + "9"
End If
End Sub
Private Sub Command12_Click()
txtLabel.Text = "加"
End Sub
Private Sub Command13_Click()
txtLabel.Text = "减"
End Sub
Private Sub Command14_Click()
txtLabel.Text = "乘"
End Sub
Private Sub Command15_Click()
txtLabel.Text = "除"
Private Sub Command16_Click()
Dim MyResult As Double '定义一个Double类型的变量.
Select Case txtLabel.Text '以txtLabel.Text的值为多重分支条件
Case "加" '当txtLabel.Text的值为"加"时
MyResult = Val(txtFirst.Text) + Val(txtSecond.Text)
Case "减" '当txtLabel.Text的值为"减"时
MyResult = Val(txtFirst.Text) - Val(txtSecond.Text)
Case "乘" '当txtLabel.Text的值为"乘"时
MyResult = Val(txtFirst.Text) * Val(txtSecond.Text)
Case "除" '当txtLabel.Text的值为"除"时
MyResult = Val(txtFirst.Text) / Val(txtSecond.Text)
End Select
txtLabel.Text = "" '将txtLabel,txtSecond清空
txtSecond.Text = ""
txtResult.Text = MyResult '显示计算结果
txtFirst.Text = txtResult.Text '将计算结果作为第一个数字,以便继续运算
End Sub
Private Sub Command17_Click()
txtFirst.Text = ""
txtLabel.Text = ""
txtSecond.Text = ""
End Sub
Private Sub Command18_Click()
Unload Me
End Sub
Private Sub Command2_Click()
'如果txtLabel为空,则说明现在正在输入的是第一个数字;否则表示当前正在输入的是第二个数字
'转换语句的主要含义是:首先用Val函数将txtFirst.Text 转换为数字,然后再乘以-1
If txtLabel.Text = "" Then
txtFirst.Text = -1 * Val(txtFirst.Text)
Else
txtSecond.Text = -1 * Val(txtSecond.Text)
End If
End Sub
Private Sub Command3_Click()
If txtLabel.Text = "" Then
txtFirst.Text = txtFirst.Text + "1"
txtSecond.Text = txtSecond.Text + "1"
End If
End Sub
Private Sub Command4_Click()
If txtLabel.Text = "" Then
txtFirst.Text = txtFirst.Text + "2"
Else
txtSecond.Text = txtSecond.Text + "2"
End If
End Sub
Private Sub Command5_Click()
If txtLabel.Text = "" Then
txtFirst.Text = txtFirst.Text + "3"
Else
txtSecond.Text = txtSecond.Text + "3"
End If
End Sub
Private Sub Command6_Click()
If txtLabel.Text = "" Then
txtFirst.Text = txtFirst.Text + "4"
Else
txtSecond.Text = txtSecond.Text + "4"
End If
End Sub
Private Sub Command7_Click()
If txtLabel.Text = "" Then
txtFirst.Text = txtFirst.Text + "5"
Else
txtSecond.Text = txtSecond.Text + "5"
End If
End Sub
Private Sub Command8_Click()
If txtLabel.Text = "" Then
txtFirst.Text = txtFirst.Text + "6"
Else
txtSecond.Text = txtSecond.Text + "6"
End If
End Sub
Private Sub Command9_Click()
If txtLabel.Text = "" Then
txtFirst.Text = txtFirst.Text + "7"
Else
txtSecond.Text = txtSecond.Text + "7"
End If
End Sub
Private Sub Form_Load()
txtFirst.Text = ""
txtSecond.Text = ""
txtLabel.Text = ""
End Sub
Private Sub m2_Click()
frmAbout.Show 1 '在Show命令后加参数1,表示以模态方式显示frmAbout窗体End Sub
Private Sub Text2_Change()
'每当txtFirst的内容发生变化时,将变化记过随时映射到txtResult
txtResult.Text = txtFirst.Text
End Sub
Private Sub Text4_Change()
'每当txtSecond的内容发生变化时,将变化记过随时映射到txtResult
txtResult.Text = txtSecond.Text
End Sub