vb计算器简单程序(包含进制转换)VIP免费

Option Explicit Dim s1 As Integer, N As Single, r As Integer Private Sub Command1_Click(Index As Integer) Text1.Text = Text1.Text & Index End Sub 'CE Private Sub Command11_Click() Text1.Text = "" End Sub Private Sub Command12_Click() Text1.Text = (Text1.Text) ^ 2 End Sub Private Sub Command17_Click() Text1.Text = " " End Sub Private Sub Command18_Click() Text1.Text = (Text1.Text) ^ 3 End Sub Private Sub Command20_Click() If Text1.Text = "" Then MsgBox ("²Ù×÷´íÎó") Else Text1.Text = Val(Text1.Text) * (-1) End If End Sub Private Sub Command21_Click() If InStr(Text1.Text, ".") Then MsgBox ("СÊýµãÒÑ´æÔÚ") Else Text1.Text = Text1 & Chr(46) End If End Sub Private Sub Command23_Click() If N = 1 Then If Text1.Text = 0 Then MsgBox "³ýÊý²»ÄÜΪÁã" Else Text1 = s1 / Text1.Text End If ElseIf N = 2 Then Text1 = s1 * Text1.Text ElseIf N = 3 Then Text1 = s1 - Text1.Text ElseIf N = 4 Then Text1 = s1 + Text1.Text End If End Sub Private Sub Command24_Click() Text1.Text = 1 / Text1.Text End Sub Private Sub Command25_Click(Index As Integer) Select Case Index Case 0 Text1.Text = Text1.Text & "A" Case 1 Text1.Text = Text1.Text & "B" Case 2 Text1.Text = Text1.Text & "C" Case 3 Text1.Text = Text1.Text & "D" Case 4 Text1.Text = Text1.Text & "E" Case 5 Text1.Text = Text1.Text & "F" End Select End Sub Private Sub Command4_Click(Index As Integer) Select Case Index Case 0 N = 1 s1 = Text1.Text Text1.Text = "" Case 1 N = 2 s1 = Text1.Text Text1.Text = "" Case 2 N = 3 s1 = Text1.Text Text1.Text = "" Case 3 N = 4 s1 = Text1.Text Text1.Text = "" End Select End Sub Private Sub Command5_Click() Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) End Sub Private Sub Command6_Click()...