|
发信人: 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  
|
|
[关闭][返回] |