精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● VB和Basic>>我以前学VB也写过一个计算器,放出来献丑了

主题:我以前学VB也写过一个计算器,放出来献丑了
发信人: 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


[关闭][返回]