Kamis, 09 Februari 2012
0 komentar

Program Deret Bilangan Ganjil - Genap



1. Buat form di VB seperti di bawah ini :



2. Tulis sintax berikut :


Dim i,inputan as integer
Private Sub Command1_Click()
Dim i , inputan As Integer
i = 0
inputan = Val(Text1.Text)
Text2.Text = ""
Text3.Text = ""
Do
i = i + 1
If (i Mod 2 = 0) Then
Text2.Text = Text2.Text & Str(i)
Else
Text3.Text = Text3.Text & Str(i)
End If
Loop Until i >= inputan
End Sub

Kemudian masukkan nilai yang anda inginkan.


* Untuk lebih lengkap,download programnya disini

 
Toggle Footer
Top