Dim A As Interger A=1 Do While (A+1) <> 10 A=A+1 Loop Msgbox "Nilai A = " & A
On 28/09/2007, teguh nugroho <[EMAIL PROTECTED]> wrote: > > bahasanya yang sederhana deh > ga ngerti gwe > ulang lagi tuh > pertanyaanya > > > ----- Original Message ---- > From: Fahrul Rizal <[EMAIL PROTECTED]> > To: [email protected] > Sent: Friday, September 28, 2007 5:08:28 PM > Subject: [indoprog-vb] buat perintah pengulangan > > > > > > > > > > > > > > bagaimana sih cara membuat fungsi pengulangan > > > > contoh > > > > a + 1 = 10 > > > > maka a adalah menggunakan fungsi pencarian seacara otomatis > > > > jika a = 1 maka dia trus mencari > > jika a = 2 maka juga mencari > > > > smpai akhirnya a ketemu sama dengan 9 > > > > itu gmana ya > > > > thanks > > > > ____________ _________ _________ _________ _________ _________ _ > > Building a website is a piece of cake. Yahoo! Small Business gives you all > the tools to get online. > > http://smallbusines s.yahoo.com/ webhosting > > > > [Non-text portions of this message have been removed] > > > > > > > > > > > > > > > <!-- > > #ygrp-mkp{ > border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px > 14px;} > #ygrp-mkp hr{ > border:1px solid #d8d8d8;} > #ygrp-mkp #hd{ > color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px > 0px;} > #ygrp-mkp #ads{ > margin-bottom:10px;} > #ygrp-mkp .ad{ > padding:0 0;} > #ygrp-mkp .ad a{ > color:#0000ff;text-decoration:none;} > --> > > > > <!-- > > #ygrp-sponsor #ygrp-lc{ > font-family:Arial;} > #ygrp-sponsor #ygrp-lc #hd{ > margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} > #ygrp-sponsor #ygrp-lc .ad{ > margin-bottom:10px;padding:0 0;} > --> > > > > <!-- > > #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, > sans-serif;} > #ygrp-mlmsg table {font-size:inherit;font:100%;} > #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, > sans-serif;} > #ygrp-mlmsg pre, code {font:115% monospace;} > #ygrp-mlmsg * {line-height:1.22em;} > #ygrp-text{ > font-family:Georgia; > } > #ygrp-text p{ > margin:0 0 1em 0;} > #ygrp-tpmsgs{ > font-family:Arial; > clear:both;} > #ygrp-vitnav{ > padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} > #ygrp-vitnav a{ > padding:0 1px;} > #ygrp-actbar{ > clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} > #ygrp-actbar .left{ > float:left;white-space:nowrap;} > .bld{font-weight:bold;} > #ygrp-grft{ > font-family:Verdana;font-size:77%;padding:15px 0;} > #ygrp-ft{ > font-family:verdana;font-size:77%;border-top:1px solid #666; > padding:5px 0; > } > #ygrp-mlmsg #logo{ > padding-bottom:10px;} > > #ygrp-vital{ > background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} > #ygrp-vital #vithd{ > > font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} > #ygrp-vital ul{ > padding:0;margin:2px 0;} > #ygrp-vital ul li{ > list-style-type:none;clear:both;border:1px solid #e0ecee; > } > #ygrp-vital ul li .ct{ > > font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} > #ygrp-vital ul li .cat{ > font-weight:bold;} > #ygrp-vital a{ > text-decoration:none;} > > #ygrp-vital a:hover{ > text-decoration:underline;} > > #ygrp-sponsor #hd{ > color:#999;font-size:77%;} > #ygrp-sponsor #ov{ > padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} > #ygrp-sponsor #ov ul{ > padding:0 0 0 8px;margin:0;} > #ygrp-sponsor #ov li{ > list-style-type:square;padding:6px 0;font-size:77%;} > #ygrp-sponsor #ov li a{ > text-decoration:none;font-size:130%;} > #ygrp-sponsor #nc{ > background-color:#eee;margin-bottom:20px;padding:0 8px;} > #ygrp-sponsor .ad{ > padding:8px 0;} > #ygrp-sponsor .ad #hd1{ > > font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;} > #ygrp-sponsor .ad a{ > text-decoration:none;} > #ygrp-sponsor .ad a:hover{ > text-decoration:underline;} > #ygrp-sponsor .ad p{ > margin:0;} > o{font-size:0;} > .MsoNormal{ > margin:0 0 0 0;} > #ygrp-text tt{ > font-size:120%;} > blockquote{margin:0 0 0 4px;} > .replbq{margin:4;} > --> > > > > > > > > Send instant messages to your online friends http://uk.messenger.yahoo.com > > [Non-text portions of this message have been removed] > > > > Untuk berhenti berlangganan kirim email kosong ke : > [EMAIL PROTECTED] > > Bagi terjangkit virus lokal, zip virus tersebut > dan kirim ke [EMAIL PROTECTED], kami > akan membuat removalnya untuk anda. > Yahoo! Groups Links > > > > -- Best Regard, [zZzz] [Non-text portions of this message have been removed]
