发信人: tonycl(凉风月亮)
整理人: winsy(2004-06-30 09:49:37), 站内信件
|
我这个没有那么多功能,只有4则运算
Dim num1 As Double
Dim num2 As Double
Dim lstnum As Boolean
Dim pnted As Boolean
Dim s As Integer
Dim w As Double
Private Sub Ca_Click()
Call Form_Load
End Sub
Private Sub chu_Click()
If s <> 0 Then
Call equ_Click
End If
num2 = num1
s = 4
lstnum = True
End Sub
Private Sub Command1_Click(Index As Integer)
If lstnum Then
pnted = False
num1 = 0
w = 1
lstnum = False
End If
If pnted Then
w = w * 10
num1 = num1 + Index / w
Else
num1 = num1 * 10 + Index
End If
If num1 < 1 And num1 > 0 Then
dsp.Text = "0" & num1
Else
dsp.Text = num1
End If
End Sub
Private Sub equ_Click()
Select Case s
Case 1
num1 = num2 + num1
Case 2
num1 = num2 - num1
Case 3
num1 = num2 * num1
Case 4
If num1 = 0 Then
dsp.Text = "出错!除数是0,结果无穷大"
Exit Sub
End If
num1 = num2 / num1
End Select
s = 0
If num1 < 1 And num1 > 0 Then
dsp.Text = "0" & num1
Else
dsp.Text = num1
End If
lstnum = True
End Sub
Private Sub Form_Load()
pnted = False
num1 = 0
num2 = 0
lstnum = True
s = 0
w = 1
dsp.Text = 0
End Sub
Private Sub mine_Click()
If s <> 0 Then
Call equ_Click
End If
num2 = num1
s = 2
lstnum = True
End Sub
Private Sub muti_Click()
If s <> 0 Then
Call equ_Click
End If
num2 = num1
s = 3
lstnum = True
End Sub
Private Sub plus_Click()
If s <> 0 Then
Call equ_Click
End If
num2 = num1
s = 1
lstnum = True
End Sub
Private Sub pnt_Click()
lstnum = False
pnted = True
End Sub
Private Sub sign_Click()
num1 = num1 * -1
dsp.Text = num1
End Sub
---- 来呢度同我地依依邑邑啦*^-^*
我ftp:
宣传大使 No.100

  |
|