用vb编写计算器(与小键盘响应)(修改)（国外英文资料）.docVIP

用vb编写计算器(与小键盘响应)(修改)（国外英文资料） Option Explicit Dim lastinput As String indicates the type of the last key event Dim num1 As Double first operand Dim num2 As Double second operand Dim opttype As Integer presses that symbol Dim keynum As an Integer Dim result As Double prime Private Sub Command1_Click (Index As Integer) When pressing the numeric key (0-9), append the data at the end of the text box and record the last button as a numeric key by variable lastinput If Len (text1.text) 16 Then Exit Sub If text1.text = 0 Or lastinput = eqv Then text1.text = Text 1. Text = Text1. Text Index Lastinput = num If keynum = 48 And keynum = 57 Then Command1 (keynum - 48). Value = True 47-58 is the asc code for 0-9 Command1 (0).setfocus setting focus is 0, which is critical! End Sub Private Sub Command10_Click () calculates the square of x Text1.text = Val (text1.text) * Val (text1.text) End Sub Private Sub Command11_Click () start button If text1.text, , 0 Then Text1.text = Sqr (text1.text)) use the Sqr function The Else MsgBox is no more than a negative number, 0 + 48, prompt information is prompted by a number of negative Numbers Text1. Text = clear zero Text1. SetFocus focus End the If End Sub Private Sub Command12_Click () OFF button End exit program End Sub Private Sub Command2_Click () the decimal point If the data digit exceeds the range or the data already contains the decimal point, exit the process If Len (text1.text) 16 Or InStr (1, text1.text, ) 0 And lastinput Then Exit Sub if you start with 0, you add 0 before 0 If you press the in the end of the data , the . will be appended to the end of the data If lastinput = opt Or lastinput = eqv Or lastinput = neg Then Text1. Text = Text1. Text + 0. The Else Text1. Text = Text1. Text +. End the If Lastinput = num End Sub The Private Sub Command3_Click () C button, each time you drop a number If Len (text1.text) = 1 Then Text1.text = Left (text1.text, Len (text1.text) -1) The Else MsgBox is the last one, 0 + 48, promp