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

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(Text