الرسم بواسطه الفيجوال بيسك

مشاركة: واتساب X فيسبوك تيليجرام

#128 مارس 2009 في 00:17 صاحب الموضوع

السلام عليكــم ورحمـة الله وبركاتــه ،،

انا عندي سؤال الكم 000 انا بعرف احل هالاسئله على السي ولكن على الفيجوال حاولت وماقدرت اجو المساعده منكم يا اخوان

*****

****

***

مثلا النجوم فوق اللي على شكل مثلث كيف بقدر ارسمهم وشكراوياريت الشرح يا اخوان

#228 مارس 2009 في 00:26

اختي فتاة الاسلام ... نفس اللوب المستخدم هناك

على العموم هذا المثال جدا بسيط

Dim i, j As Integer
Dim s As String

For i = 5 To 1 Step -1
  s = ""
   For j = 1 To i
	  s = s & "*"
  Next j
  Print s
Next i

تحياتي

OMANI FOR EVER

-------------------------------------------------