计算器(用vb)代码.docVIP

计算器（用vb）代码 Dim dflag As Integer Dim I As Integer Dim opnre As Integer Dim prev As Double Dim oflag As Integer Dim ind As Integer Dim soundbz As Boolean Dim ProgramPath As String Private Declare Function SetWindowPos Lib user32 (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal Cx As Long, ByVal Cy As Long, ByVal wFlags As Long) As Long Public Sub SetOnTop(ByVal IsOnTop As Integer) Dim rtn As Long If IsOnTop = 1 Then 将窗口置于最上面 rtn = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3) Else rtn = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3) End If End Sub Private Sub Check1_Click() If Check1.Value = 1 Then SetOnTop 1 Else SetOnTop 0 End If End Sub Private Sub Command1_Click(Index As Integer) text1 = Trim(text1) If Len(text1) 20 Then Beep Exit Sub End If soundbz = False MMControl1.Command = Close MMControl1.FileName = ProgramPath /声音文件/ Index .wav MMControl1.Command = Open MMControl1.Command = Play If ind = 4 Then prev = 0 text1.Caption = ind = 0 End If opnre = 0 If oflag = 0 Then text1.Caption = End If oflag = 1 If Command1(Index).Caption . Then If text1.Caption 0 Then text1.Caption = text1.Caption Command1(Index).Caption Text = Mid(text1, 1, 1) If Text = . Then text1 = 0 text1 End If Else text1.Caption = Command1(Index).Caption End If Else If dflag = 0 Then text1.Caption = text1.Caption . dflag = 1 Else Command6.SetFocus Exit Sub End If End If Command6.SetFocus End Sub Private Sub Command1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0 End Sub Private Sub Command2