DomainSiz.Com - SizSiz Asla!

1-)fibonacci dizisinin ilk on elemanı ekrana yazdıran program
Dim x as byte
Dim dizi(9) as integer
Dizi(0)=0
Dizi(1)=1
For x=2 to 9
Dizi(x)=dizi(x-1)+dizi(x-2)
Next
For x=0 to 9
Print dizi(x)
Next
End sub

2-)girilen sayının tek yada çift olduğunu bulan program
Dim a as interger
A=inputbox(“sayıyı girin”)
İf a mod 2=0 then
Mgsbox(“çift sayı girdiniz”)
Else
Mgsbox(“tek sayı girdiniz”)

3-)klavyeden girilen çarpan değerlerine göre çarpma işlemini toplama işlemine dönüştürerek hesaplayan program
Dim a as nteger
Dim b as integer dim toplam as integer
a=inputbox(“sayı girin”)
a=inputbox(“2. sayı girin”)
for x=1 to b
toplam=toplam+a
next
end sub

4-)klavyeden bir üçgene ait 2 kenar girilecek 3 kenarın alabileceği tam degerlerin toplamını bulunuz
Dim a,b,c,d as integer
a=val(textboxt1.text)
b=val(textboxt2.text)
c=math.abs(a-b)
textboxt3.text=c
d=a+b
textboxt3.text=d

5-)klavyeden girilen r ve h göre silindirin hacmini bulan program(pi=3.14)
Dim r,h as integer
Dim hacim as double
Hacim =3,14*r*r*h
Return hacim
End sub