vb计算器 简单程序(包含 进制转换 ).docVIP

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 (2ù×÷′í?ó) Else Text1.Text = Val(Text1.Text) * (-1) End If End Sub Private Sub Command21_Click() If InStr(Text1.Text, .) Then MsgBox (D?êyμ?ò?′??ú) Else Text1.Text = Text1 Chr(46) End If End Sub Private Sub Command23_Click() If N = 1 Then If Text1.Text = 0 Then MsgBox 3yêy2??ü?aá? 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() Text1.Text = Sqr(Text1.Text) End Sub Private Sub Form_Load() r = 10 End Sub ê?áù???? Private Sub Option1_Click() Command25(1).Enabled = True Command25(0).Enabled = True Command25(2).Enabled = True Command25(3).Enabled = True Command25(4).Enabled = True Command25(5).Enabled = True Command