Scribd
Upload
3 views2 pages

Visual Basic Code

The document contains Visual Basic code for a simple calculator application. It includes event handlers for button clicks that append numbers 0 through 9 to a TextBox. There are minor syntax errors in the code that need correction for proper functionality.

Uploaded by

kurakiaaron
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
3 views2 pages

Visual Basic Code

The document contains Visual Basic code for a simple calculator application. It includes event handlers for button clicks that append numbers 0 through 9 to a TextBox. There are minor syntax errors in the code that need correction for proper functionality.

Uploaded by

kurakiaaron
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

Visual basic (V.

B) CODE TO CREATE A CALCULATOR

Private Sub btn0_Click (sender As Object, e As EventArgs)

Handles [Link]

TextBox1. Text &=0

End sub

Private Sub btn1_Click (sender As Object, e As EventArgs)

Handles [Link]

TextBox1. Text &=1

End sub

Private sub btn2_Click (sender As Object, e As EventArgs)

Handles [Link]

TEXTbOX1 text=2

End sub

Private sub btn3_Click (sender As Object, e As EventArgs)

Handles [Link]

TEXTbOX1 text=3

End sub

Private sub btn4_Click (sender As Object, e As EventArgs)

Handles [Link]

TEXTbOX1 text=4

End sub

Private sub btn5_Click (sender As Object, e As EventArgs)

Handles [Link]

TEXTbOX1 text=5
End sub

Private sub btn6_Click (sender As Object, e As EventArgs)

Handles [Link]

TEXTbOX1 text=6

End sub

Private sub 7_Click (sender As Object, e As EventArgs)

Handles [Link]

TEXTbOX1 text=7

End sub

Private sub btn8_Click (sender As Object, e As EventArgs)

Handles btn.8Click

TEXTbOX1 text=8

End sub

Private sub btn9_Click (sender As Object, e As EventArgs)

Handles [Link]

TEXTbOX1 text=9

End sub

You might also like