Public Class Form1
Dim i As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i As Integer = Val(TextBox1.Text) To Val(TextBox2.Text)
If i Mod 7 = 0 Then
ListBox1.Items.Add(i)
i = i * 3
i = i - 4
End If
Next
End Sub
End Class
Daftar Blog Saya
About Me
