Rangkuman VB.Net Ke 5

Latihan Looping

Kali ini saya akan mencoba membuat loping dengan menampilkan bilangan 1 - 100 dengan pembagi adalah 4 dan sisa hasilnya adalah 3.

Langsung saja kita buat formnya:

Seperti biasa selanjutnya adalah membuat sintaknya :

Public Class Form1

Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click

Dim i As Integer

ListBox1.Items.Clear()

For i = 1 To Val(TextBox1.Text)

If (i Mod 4 = 3) Then

ListBox1.Items.Add(i)

End If

Next

End Sub

End Clas

Maka hasilnya akan tampak sebagai berikut (Ntu kalo ente g'da error yak) :

Selamat Mencoba.....