• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Yıldızlı *** Gösterme Gizleme

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
⚪ Konu sahibi son olarak 1331 gün önce görüldü
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
J

jason

Yeni Üye
Katılım
26 Nis 2022
Mesajlar
22
Aldığı beğeni
4
Excel V
Office 365 TR
Konu Sahibi
Aşağıdaki şekli yazan programı hazırlayınız.
**********
*********
********
*******
******
*****
****
***
**
*
ilkte 10 tane (yıldız) dan başlayıp 1 er azalarak 1 kalana kadar devam eden program?
 
Tarihe göre sırala Oylara göre sırala
modül iöine yaz ve bir düğmeye bağlayın
HTML:
Bash:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
Adnan' Alıntı:
modül iöine yaz ve bir düğmeye bağlayın
Sub yildizkoy()
Dim m As Integer, k As Integer, i As Integer
Dim yildiz As String
m = 1
For i = 1 To 10
For k = 10 To m Step -1
yildiz = yildiz & "*"
Next k
Sayfa1.Range("p" & i) = yildiz
yildiz = ""
m = m + 1
Next i
End Sub
Genişletmek için tıkla...
teşekkür ederim:))
 
Olumlu oy 0 Negatif oyla
yada)
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Refaz hocamın belirttiği Rept ile
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst