Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                

Raissa Noor Azizah/23 195060707111041 Kelas E Tugas Algoritma Dan Pemrograman

Download as docx, pdf, or txt
Download as docx, pdf, or txt
You are on page 1of 2

Raissa Noor Azizah/23

195060707111041
Kelas E
Tugas Algoritma dan Pemrograman

Coding
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'Dim nBil As Int32
Dim i, j As Int32
Dim mBil As Int32

'nBil = CInt(textBox1.Text)
RichTextBox1.Clear()
mBil = CInt(TextBox2.Text)

For i = 1 To mBil
For j = 1 To i
RichTextBox1.AppendText(CStr(i) + "")
Next j
RichTextBox1.AppendText(Environment.NewLine)
Next i
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
End
End Sub

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles


TextBox1.TextChanged

End Sub

Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles


TextBox2.TextChanged

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click


RichTextBox1.Clear()
End Sub

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


End Sub

Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles


RichTextBox1.TextChanged

End Sub
End Class
User Interface :

Program saat di run :

You might also like