Untitled
unknown
plain_text
a month ago
1.7 kB
3
Indexable
Public Class Form1 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim n1, n2 As Integer n1 = TextBox3.Text n2 = TextBox2.Text TextBox1.Text = n1 - n2 End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n1, n2 As Integer n1 = TextBox3.Text n2 = TextBox2.Text TextBox1.Text = n1 + n2 End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim n1, n2 As Integer n1 = TextBox3.Text n2 = TextBox2.Text TextBox1.Text = n1 * n2 End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim n1, n2 As Integer n1 = TextBox3.Text n2 = TextBox2.Text TextBox1.Text = n1 / n2 End Sub Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click End Sub Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click End Sub Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click End Sub Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class
Editor is loading...
Leave a Comment