Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim j, u, y As Integer
u = 9
y = 27
For j = 1 To Val(TextBox1.Text)
If j Mod u = 0 Then
If j Mod y = 0 Then
ListBox1.Items.Add(j)
End If
End If
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i As Integer
ListBox1.Items.Clear()
For i = 1 To Val(TextBox1.Text)
If i Mod 2 = 1 Then
ListBox1.Items.Add(i)
End If
Next
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim j, u, y As Integer
u = 9
y = 27
For j = 1 To Val(TextBox1.Text)
If j Mod u = 0 Then
If j Mod y = 0 Then
ListBox1.Items.Add(j)
End If
End If
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i As Integer
ListBox1.Items.Clear()
For i = 1 To Val(TextBox1.Text)
If i Mod 2 = 1 Then
ListBox1.Items.Add(i)
End If
Next
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim j, u, y As Integer
u = 9
y = 27
For j = 1 To Val(TextBox1.Text)
If j Mod u = 0 Then
If j Mod y = 0 Then
ListBox1.Items.Add(j)
End If
End If
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i As Integer
ListBox1.Items.Clear()
For i = 1 To Val(TextBox1.Text)
If i Mod 2 = 1 Then
ListBox1.Items.Add(i)
End If
Next
End Sub
End Class
0 komentar:
Posting Komentar