LATIHAN 1 VB NET

lATIHAN 1 VB net.

 

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim A AsInteger

For A = 1 To 4

            TextBox1.Text = TextBox1.Text + "STMIK" + vbCrLf

Next

EndSub

PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim A AsInteger

For A = 1 To 4

            TextBox2.Text = TextBox2.Text + "STMIK" + vbCrLf

Next

EndSub