Perulangan For Next pada VB.Net
Public Class Perulanganfornext
Private Sub Perulanganfornext_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As Byte
For a = 1 To 10
ComboBox2.Items.Add(a)
Next
Dim c As Byte
For c = 65 To 90
ComboBox3.Items.Add(Chr(c))
Next
Dim b As Integer
For b = 10 To 1 Step -1
ComboBox1.Items.Add(b)
Next
End Sub
End Class
0 komentar:
Post a Comment