Aplikasi Deret
- Form Design
- Code
Dim deret As Integer
Sub bil_daret()
Dim banyak, n As Integer
banyak = Val(Me.txtJumlah.Text)
n = 1
Me.lsDeret.Items.Clear()
While (n <= banyak)
deret = n ^ 2
Me.lsDeret.Items.Add(n & " " & deret)
n = n + 1
End While
End Sub
- Start Debugging
