Math Tutor, detailed requirement will be given in class. The program will teach
ID: 3639641 • Letter: M
Question
Math Tutor, detailed requirement will be given in class.The program will teach elementary school kids single digits addition.
Substraction, multiplication, and division operations are extra credits.
Include buttons for Verify, Next, Print, and Exit. Make the "Verify" button the acceptbutton and the "Next" button the cancelbutton for the form.
Disable/enable buttons to avoid skipping and/or repeating problems.
Do not allow bad input data to cancel the program; instead display a message to the user.
Make your program easy and fun to use for kids.
Explanation / Answer
Dim i As Integer Dim a, b As Double Private Sub Command1_Click() '1 Text1.Text = Text1.Text + "1" End Sub Private Sub Command2_Click() '2 Text1.Text = Text1.Text + "2" End Sub Private Sub Command3_Click() '3 Text1.Text = Text1.Text + "3" End Sub Private Sub Command4_Click() '4 Text1.Text = Text1.Text + "4" End Sub Private Sub Command5_Click() '5 Text1.Text = Text1.Text + "5" End Sub Private Sub Command6_Click() '6 Text1.Text = Text1.Text + "6" End Sub Private Sub Command7_Click() '7 Text1.Text = Text1.Text + "7" End Sub Private Sub Command8_Click() '8 Text1.Text = Text1.Text + "8" End Sub Private Sub Command9_Click() '9 Text1.Text = Text1.Text + "9" End Sub Private Sub Command10_Click() '0 Text1.Text = Text1.Text + "0" End Sub Private Sub Command11_Click() 'ON Text1.Text = "" Text1.SetFocus End Sub Private Sub Command12_Click() 'DECIMAL If Text1.Text = "" Then Text1.Text = Text1.Text + "0." Else Text1.Text = Text1.Text + "." End If End Sub Private Sub Command13_Click() '+ i = 1 a = Val(Text1.Text) Text1.Text = "" Text1.SetFocus End Sub Private Sub Command14_Click() '- i = 2 a = Val(Text1.Text) Text1.Text = "" Text1.SetFocus End Sub Private Sub Command15_Click()‘* i = 3 a = Val(Text1.Text) Text1.Text = "" Text1.SetFocus End Sub Private Sub Command16_Click() '/ i = 4 a = Val(Text1.Text) Text1.Text = "" Text1.SetFocus End Sub Private Sub Command17_Click() 'EQUALS If i = 1 Then b = Val(Text1.Text) Text1.Text = a + b End If If i = 2 Then b = Val(Text1.Text) Text1.Text = a - b End If If i = 3 Then b = Val(Text1.Text) Text1.Text = a * b End If If i = 4 Then b = Val(Text1.Text) Text1.Text = a / b End If End Sub