Option Explicit
Dim sz As Integer
Dim X As Single, Y As Single


Private Sub chengxu_Click()
indexcounter.Show
Me.Hide
End Sub

Private Sub Command1_Click()
Text1.Text = Text1.Text & "1"

End Sub

Private Sub Command10_Click()
Text1.Text = Text1.Text & "0"

End Sub

Private Sub Command10_KeyDown(KeyCode As Integer, Shift As Integer)
Text1.Text = Text1.Text & "0"
End Sub

Private Sub Command11_Click()
Text1.Text = Text1.Text & "00"

End Sub

Private Sub Command12_Click()
Text1.Text = Text1.Text & "."

End Sub

Private Sub Command13_Click()
X = CSng(Text1.Text)
sz = 1
Text1.Text = ""
End Sub

Private Sub Command14_Click()
X = CSng(Text1.Text)
sz = 2
Text1.Text = ""

End Sub

Private Sub Command15_Click()
X = CSng(Text1.Text)
sz = 3
Text1.Text = ""

End Sub

Private Sub Command16_Click()
X = CSng(Text1.Text)
sz = 4
Text1.Text = ""

End Sub

Private Sub Command17_Click()
X = CSng(Text1.Text)
sz = 5
Text1.Text = ""

End Sub

Private Sub Command18_Click()
X = CSng(Text1.Text)
Text1.Text = Sqr(X)
End Sub

Private Sub Command19_Click()
On Error GoTo ex
Y = CSng(Text1.Text)
Select Case sz
Case 1
Text1.Text = X + Y
Case 2
Text1.Text = X - Y
Case 3
Text1.Text = X * Y
Case 4
Text1.Text = X / Y
Case 5
Text1.Text = X Mod Y
End Select
ex:

End Sub

Private Sub Command2_Click()
Text1.Text = Text1.Text & "2"

End Sub

Private Sub Command20_Click()
Text1.Text = ""
End Sub

Private Sub Command21_Click()
Unload Me
End Sub

Private Sub Command3_Click()
Text1.Text = Text1.Text & "3"

End Sub

Private Sub Command4_Click()

Text1.Text = Text1.Text & "4"
End Sub

Private Sub Command5_Click()
Text1.Text = Text1.Text & "5"

End Sub

Private Sub Command6_Click()
Text1.Text = Text1.Text & "6"

End Sub

Private Sub Command7_Click()
Text1.Text = Text1.Text & "7"

End Sub

Private Sub Command8_Click()
Text1.Text = Text1.Text & "8"

End Sub

Private Sub Command9_Click()
Text1.Text = Text1.Text & "9"

End Sub

用控件数组....
Private Sub Command1_Click(Index As Integer)
if text1.text="" then
  text1.text=cstr(index)
else
  text1.text=text1.text&cstr(index)
end if
end sub

[[italic] 本帖最后由 沦落地球 于 2007-12-18 20:58 编辑 [/italic]]