mmokh_23
28-05-2010, 11:27 PM
ÈÊÊÈÚ ÎØæÇÊ ÊäÝíÐ ÇáÈÑäÇãÌ ÇáÊÇáì ÍÊì íäÊåì ÇáÜÜ Loop íßæä åäÇß ÃÑÈÚÉ äæÇÊÌ ÊÙåÑ Ýì ÕäÏæÞ
Messeg Box.show (Total
Dim i = 1 , Total As integer
Do while i <= 8
i= i+2
Total = Total + i
Messeage Box. show ( Total
Loop
ÖÚ ÞíãÉ ßá ÏæÑÉ ÃãÇãåÇ
1 - ÇáÞíãÉ Ýì ÇáãÑÉ ÇáÃæáì ÈÇáÕäÏæÞ åì .........
2 - ÇáÞíãÉ Ýì ÇáãÑÉ ÇáËÇäíÉ ÈÇáÕäÏæÞ åì .........
3 - ÇáÞíãÉ Ýì ÇáãÑÉ ÇáËÇáËÉ ÈÇáÕäÏæÞ åì .........
4 - ÇáÞíãÉ Ýì ÇáãÑÉ ÇáÑÇÈÚÉ ÈÇáÕäÏæÞ åì .........
ÃÑÌæ ÇáÇÌÇÈÉ ãÚ ÇáÊæÖíÍ ÈÇáÔÑÍ
æÇÆá ÇáÌäÏí
29-05-2010, 01:10 AM
ÈÊÊÈÚ ÎØæÇÊ ÊäÝíÐ ÇáÈÑäÇãÌ ÇáÊÇáì ÍÊì íäÊåì ÇáÜÜ Loop íßæä åäÇß ÃÑÈÚÉ äæÇÊÌ ÊÙåÑ Ýì ÕäÏæÞ
Messeg Box.show (Total
Dim i = 1 , Total As integer
Do while i <= 8
i= i+2
Total = Total + i
Messeage Box. show ( Total
Loop
ÖÚ ÞíãÉ ßá ÏæÑÉ ÃãÇãåÇ
1 - ÇáÞíãÉ Ýì ÇáãÑÉ ÇáÃæáì ÈÇáÕäÏæÞ åì .........
2 - ÇáÞíãÉ Ýì ÇáãÑÉ ÇáËÇäíÉ ÈÇáÕäÏæÞ åì .........
3 - ÇáÞíãÉ Ýì ÇáãÑÉ ÇáËÇáËÉ ÈÇáÕäÏæÞ åì .........
4 - ÇáÞíãÉ Ýì ÇáãÑÉ ÇáÑÇÈÚÉ ÈÇáÕäÏæÞ åì .........
ÃÑÌæ ÇáÇÌÇÈÉ ãÚ ÇáÊæÖíÍ ÈÇáÔÑÍ
Ýí ÇáãÑÉ ÇáÃæáí Êßæä ÞíãÉ I åí 1 æÈÇáÊÇáí íÊã ÒíÇÏÉ I ÈãÞÏÇÑ2 ÝÊßæä ÞíãÊåÇ 3 æíÊã ÒíÇÏÉ 3 Úáí ÞíãÉ total æåí 0 ÝÊßæä ÞíãÉ Total Ýí ÇáãÑÉ ÇáÃæáí åí 3
æåßÐÇ Ýí ÇáãÑÉ ÇáËÇäíÉ 8
æÝí ÇáËÇáËÉ 15
æÝí ÇáÑÇÈÚÉ 24
nahla_m
29-05-2010, 01:21 PM
- ÇáÞíãÉ Ýì ÇáãÑÉ ÇáÃæáì ÈÇáÕäÏæÞ åì 3
2 - ÇáÞíãÉ Ýì ÇáãÑÉ ÇáËÇäíÉ ÈÇáÕäÏæÞ åì 8
3 - ÇáÞíãÉ Ýì ÇáãÑÉ ÇáËÇáËÉ ÈÇáÕäÏæÞ åì 15
4 - ÇáÞíãÉ Ýì ÇáãÑÉ ÇáÑÇÈÚÉ ÈÇáÕäÏæÞ åì 24
ÇáÔÑÍ ßãÇ ÊÝÖá Èå ÇáÃÓÊÇÐ æÇÆá
tarek elhamy
29-05-2010, 02:38 PM
ÇáÓÄÇá ÇáÎÇãÓ
ÇáÞíãå Ýì ÇáãÑÉ ÇáÇæáì ÈÇáÕäÏæÞ 3
ÇáÞíãå Ýì ÇáãÑÉ ÇÇáËÇäì ÈÇáÕäÏæÞ 8
ÇáÞíãå Ýì ÇáãÑÉ ÇáËÇáË ÈÇáÕäÏæÞ 15
ÇáÞíãå Ýì ÇáãÑÉ ÇáÑÇÈÚå ÈÇáÕäÏæÞ 24
dim i=1,total as integer
do while i<=8
i=i+2
total=total+i
messagebox.show(total)
loop
i 1 , 3 , 5 ,7
i+2=i
3 , 5 , 7 , 9
total
3 , 8 , 15 , 24
ÝßÑÉ ÇáÈÑäÇãÌ
ÝíãÇ ÊÍÊå ÎØ
æåÐÇ ÑÇÈØ
ááÔÑÍ Èå ÇáÌÏæá ÍÊì ÊÊÖÍ ÇáÝßÑÉ
http://www.4shared.com/document/SWMBQmxg/Dim_i5_.html (http://www.4shared.com/document/SWMBQmxg/Dim_i5_.html)
tarek elhamy
29-05-2010, 02:43 PM
ÏÇÆãÇ íäÕÍ ÈÚãá ÌÏæá
æÞã ÈÊÊÈÚ ÇáÒíÇÏå æãÞÏÇÑåÇ
ÍÊì ÊÕá ááÇÌÇÈå ÈÓåæáå