textbox’a girilen sayının yarı mükemmel sayı olup olmadığını label’e yazma Vb 6.0
Soru :
1.Kullanıcının Text’ e girdiği herhangi bir sayının yarı mükemmel sayı olup olmadığı kontrol edilerek sonuç kullanıcıya geri bildirilecek.
Yarı Mükemmel Sayı Tanımı: Bir sayının kendisi hariç, son üç tamsayı bölenlerinin toplamı sayının kendisini veriyorsa bu sayıya yarı mükemmel sayı denir.
Örnek: 18 = 1, 2, 3, 6, 9, 18 (Son üç tamsayı bölenleri toplamı: 3+6+9 = 18)…………….
Aşağıdaki form görüntüsünü oluşturuyoruz.
[code lang=”vb”]Private Sub Command1_Click()
‘https://www.gorselprogramlama.com
Dim sayac, i, sonUcToplam, girilenSayi As Integer
sayac = 0
sonUcToplam = 0
girilenSayi = Val(Text1.Text)
Dim sayilar(100) As Integer
‘https://www.gorselprogramlama.com
For i = 1 To girilenSayi – 1
If girilenSayi Mod i = 0 Then
sayilar(sayac) = i
sayac = sayac + 1
End If
Next
‘https://www.gorselprogramlama.com
If sayac >= 3 Then
For i = sayac – 1 To sayac – 3 Step -1
sonUcToplam = sonUcToplam + sayilar(i)
Next
End If
‘https://www.gorselprogramlama.com
If sayac >= 3 And girilenSayi = sonUcToplam Then
Label1.Caption = "Girilen sayı yarı mükemmel sayıdır"
Else
Label1.Caption = "Girilen sayı yarı mükemmel sayı değildir"
End If
‘https://www.gorselprogramlama.com
End Sub
[/code]
