jawaban visual basic

"hei..hei..hei..dch lama JARKOMLAN kasih update-an nch,..
ohya udah pada tau lum jawabanny?? wch, pasti pada bingung ych,..SAMA donk,..hehehehhe,.tapi selama kita berusaha dan yang penting ingat "JANGAN MENYERAH...JANGAN MENYERAH..."..pasti ada jalan keluarnya,..oc dch, ga usah berpanjang-panjang ria,..langsung ke jawabannya,...lets rollin,..

tulis jawaban ini di form sub load ych,..jangan lupa pada form buat text box dulu,..lanjut..

Private Sub Form_Load()
'jawaban untuk soal 1,1,2,3,5,8,13,21,34
Dim bilangan As Integer
A = 1
B = 1
Text1.Text = Text1.Text & A & ","
Text1.Text = Text1.Text & B & ","
For i = 1 To 7
bilangan = A + B
Text1.Text = Text1.Text & bilangan & ","
A = B
B = bilangan
Next i

jawaban untuk soal
1
222
33333
44444444
55555555555
6666666666666 dst sampai 9
Text1.Text = ""
Dim ulang As Integer
ulang = 1
For i = 1 To 9
For z = 1 To 9 - i
Text1.Text = Text1.Text & " "
Next
For j = 1 To ulang
Text1.Text = Text1.Text & i
Next
Text1.Text = Text1.Text & vbCrLf
ulang = ulang + 2
Next

'jawaban soal 1,2,6,7,21,22,66,67,201
Dim bilangan As Integer
A = 1
B = 2
Text1.Text = Text1.Text & A & ","
Text1.Text = Text1.Text & B & ","
For i = 1 To 4
bilangan1 = B * 3
bilangan2 = bilangan1 + 1
Text1.Text = Text1.Text & bilangan1 & ","
Text1.Text = Text1.Text & bilangan2 & ","
A = B
B = bilangan2
Next i

End Sub

"untuk jawaban no.1 dan matrix masih dlm tahap pencarian nch, bagi rekan2 yang udah ketemu share-share ych,..yar dapat ilmu bareng2, masuk sorga bareng2,..hehehehhe