开始学VB,以后会把每次作业都放到这里来,这是前几天的。记住东西是做出来的
用VB实现计算器的操作
Dim num2 As Double
Dim num1 As Double
Dim intop As Integer
________________________________________________________
Private Sub Command1_Click()
Text1.Text = ""
Text1.SetFocus
End Sub
________________________________________________________
Private Sub Command10_Click()
If Not IsNumeric(Text1.Text) Then
Text1.Text = 0
End If
num1 = CDbl(Text1.Text)
intop = 4
Text1.Text = ""
Text1.SetFocus
End Sub
________________________________________________________
Private Sub Command11_Click()
Text1.Text = Text1.Text & "7"
End Sub
________________________________________________________
Private Sub Command12_Click()
Text1.Text = Text1.Text & "4"
End Sub
________________________________________________________
Private Sub Command13_Click()
Text1.Text = Text1.Text & "1"
End Sub
________________________________________________________
Private Sub Command14_Click()
If Not IsNumeric(Text1.Text) Then
Text1.Text = 0
End If
num2 = CDbl(Text1.Text)
If intop = 1 Then
Text1.Text = num1 + num2
ElseIf intop = 2 Then
Text1.Text = num1 - num2
ElseIf intop = 3 Then
Text1.Text = num1 * num2
ElseIf intop = 4 Then
Text1.Text = num1 / num2
ElseIf intop = 5 Then
Text1.Text = Sqr(num1)
ElseIf intop = 6 Then
Text1.Text = num1 ^ num2
ElseIf intop = 7 Then
Text1.Text = num1 Mod num2
Else
Text1.Text = num1 + num2
End If
End Sub
________________________________________________________
Private Sub Command15_Click()
Text1.Text = Text1.Text & "8"
End Sub
________________________________________________________
Private Sub Command16_Click()
Text1.Text = Text1.Text & "5"
End Sub
________________________________________________________
Private Sub Command17_Click()
Text1.Text = Text1.Text & "2"
End Sub
________________________________________________________
Private Sub Command18_Click()
Text1.Text = Text1.Text & "0"
End Sub
________________________________________________________
Private Sub Command19_Click()
Text1.Text = Text1.Text & "9"
End Sub
________________________________________________________
Private Sub Command2_Click()
Form1.Hide
End Sub
________________________________________________________
Private Sub Command20_Click()
Text1.Text = Text1.Text & "6"
End Sub
________________________________________________________
Private Sub Command21_Click()
Text1.Text = Text1.Text & "3"
End Sub
________________________________________________________
Private Sub Command22_Click()
Text1.Text = Text1.Text & "."
End Sub
________________________________________________________
Private Sub Command23_Click()
If Text1.Text = "-" & CStr(Text1.Text) Then
Text1.Text = CStr(Text1.Text)
End If
Text1.Text = "-" & Text1.Text
End Sub
________________________________________________________
Private Sub Command3_Click()
If Not IsNumeric(Text1.Text) Then
Text1.Text = 0
End If
num1 = CDbl(Text1.Text)
intop = 5
Text1.Text = ""
Text1.SetFocus
End Sub
________________________________________________________
Private Sub Command4_Click()
If Not IsNumeric(Text1.Text) Then
Text1.Text = 0
End If
num1 = CDbl(Text1.Text)
intop = 6
Text1.Text = ""
Text1.SetFocus
End Sub
________________________________________________________
Private Sub Command5_Click()
If Not IsNumeric(Text1.Text) Then
Text1.Text = 0
End If
num1 = CDbl(Text1.Text)
intop = 7
Text1.Text = ""
Text1.SetFocus
End Sub
________________________________________________________
Private Sub Command6_Click()
Text1.Text = Text1.Text & "0"
End Sub
________________________________________________________
Private Sub Command7_Click()
If Not IsNumeric(Text1.Text) Then
Text1.Text = 0
End If
num1 = CDbl(Text1.Text)
intop = 1
Text1.Text = ""
Text1.SetFocus
End Sub
________________________________________________________
Private Sub Command8_Click()
If Not IsNumeric(Text1.Text) Then
Text1.Text = 0
End If
num1 = CDbl(Text1.Text)
intop = 2
Text1.Text = ""
Text1.SetFocus
End Sub
________________________________________________________
Private Sub Command9_Click()
If Not IsNumeric(Text1.Text) Then
Text1.Text = 0
End If
num1 = CDbl(Text1.Text)
intop = 3
Text1.Text = ""
Text1.SetFocus
End Sub