visual basic soruları

Private Sub Command1_Click()
Cls
Dim ad,b
ad=Inputbox("bir metin giriniz")
b=Left (ad,6)
Print b
End Sub

bu prog çalıştırılıp metin kutusuna görsel programlama yazılırsa ekrana hangi ifade yazılır? şıklar görse,6,5.görsel,görsel programlama

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

Dim a As Integer
Dim b As Integer
For a=1 to 10
b=b+a
Next
Print b
End Sub

program çalıştırıldığında b değeri ne olur? şıklar 10,25,40,55,70


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

Private Sub Command1_Click()
Dim a,b As Integer
Dim sayi(1 to 5) As Long
b=1
For a=1 to 5
b=b*a
sayi(a)=b
Print "Sayi"; (a), sayi(a)
Next
End Sub

bu kod çalıştırıldığında sayi(3) değeri ne olur? şıklar 1,2,6,24,120

-----------------------------------------------------------------------
visual basic kullanmasını bilmiyorum yardımcı olursanız cevaplar için sevinirim.teşekkürler...

(programlama bölümünede konuyu açmıştımda ordaki konu kilitlenebilir)

yıllar önce visual basic görmüştüm az birşey hatırlıyorum sanki
umarım doğrudur.

cls ekran temizleniyor
ad=Inputbox("bir metin giriniz") metin giriliyor.
b=Left (ad,6) ad'nin 6tıncı karekteri okunuyor.
Print b b ekrana yazdırılıyor. diyelimki ruzzgar girdiniz a sadece yazılır.




Dim a As Integer değişken tanımlanıyor
Dim b As Integer değişken tanımlanıyor
For a=1 to 10 1 den 10 kadar döngü oluşturuluyor.
b=b+a her seferinde a bye eklenip a+b b ye ekleniyor.
Next tekrar for döngüsüne dönülüyor.
Print b sonra b nin değeri yazdırılıyor.
End Sub
b=b+1;
3=1+2;
3=3+3;
10=6+4;
15=10+5;
21=15+6;
28=21+7;
36=28+8;
45=36+9;
55=45+10;

cevap=55 tir

diye devam eder

program çalıştırıldığında b değeri ne olur? şıklar 10,25,40,55,70


b=1*1=1
sayi(1)=1


b=1 için
_________________
b=1*2=2
sayi(2)=2



b=2 için
______________________


b=2*3=6
sayi(3)=6




Not : Aradan 5 yıl geçti. çoktandır uğraşmıyordum yalnış yapmış olabilirim.Aklımdan yaptım denemedim haberiniz olsun. kolay gelsin.

teşekkür ettim...