ÖDEV 1= 20 kişinin adının ayrı label larda yazıldıgı bir listede labelların başına sıra numarası ekleyin.

ÖDEV 2= bu labellerin yanına bulunan 20 adet label a sıra numarasının çift veya tek olmasına göre “a sınıfı” veya “b sınıfı” yazın.

ÖDEV= sayilar adlı etikete 3’ün katlarının 35 s
ayısına kadar yazdıracak olan kodu yazın

Cevabı: sayilar.text=” ”
Dim x as Integer
For x as=0 to 35
If x mod 3=0 then
Sayilar.text=sayilar.text & x &
End if
Next

ÖDEV 4= label5 adlı etikete 7’ye kadar olan sayıların girilen bir degere kadar olan kuvvetini yazıcak olan kodu yazın deger k adlı bir degişken tarafından belirlenecek.

ÖDEV 5= bir kenar uzunlugu kena1 adlı degişkenle belirtilen bir küpün içine bir kenar uzunlu kenar2 olrak belirtilen  küplerden kaç tane sığacagını yazan kodu yazın.

ÖDEV 6= 1’den bir sayı ya kadar olan sayıların yanlarına 0sayıya kadar olan tam sayıların toplamını yazan kodu yazın. Örnek çıktı =0-0 1-1 2-3 3-6 4-10 5-15 gibi


Not:girilen degişken degişken olarak tanımlanacak