14) PRIVATE SUB FORM_LOAD()
M=0 : K=4 : C=2
FOR I=1 TO K STEP C
M=M+I*2
NEXT
SHOW
PRINT M
END SUB
Programın sonucunda ekrana ne yazılır?
mesela ben bu soruyu 9 diye buldum ama 18 miş nasıl oluyor

-------------------------------------------------------------------------------
16) DIM A(5) AS INTEGER
FOR I=1 TO 5
A(I)=I*2
NEXT
PRINT A(3)
Yukarıdaki programın ekran çıktısı nedir?
şu DIM'I hiç anlamadım zaten
----------------------------------------------------------
1. Private Sub Command1_Click()
Dim a As Integer
Dim t As Integer
For a = 21 To 41 step 2
t = t + a
Next
MsgBox t
End Sub
Yukarıdaki program kesimi ne yapar ?
A) 21 den 41 e kadar olan sayıların karelerini alır. Ve mesaj verir.
B) 21 den 41 e kadar olan tek sayıları Toplar. Ve mesaj verir.
C) 21 den 41 e kadar olan Çift sayıları Toplar. Ve mesaj verir.
D) 41 den 21 e azalan sayıların karelerini alır.
---------------------------------------------------------------
3) N=5; EB=-99999
FOR I=1 TO N
INPUT “SAYI GİRİNİZ:”; SAYI
IF SAYI>EB THEN EB=SAYI
NEXT I
MsgBox EB
Yukarıdaki program kesimi ne yapar ?
A) 5 tane sayının en küçüğünü bulur . Ve mesaj verir.
B) 5 tane sayının en büyüğünü bulur . Ve mesaj verir.
C) 5 Tane sayıyı sıralar. Ve mesaj verir.
D) 5 tane sayıyı toplar. Ve mesaj verir.
---------------------------------------------------------
tek çözdüğüm soru aşağıdaki oda koşul sağlamıyor diye 3 sanırsam
eminim diğer sorularda basittir ancak ilk defa v-basic görüyorum.19) PRIVATE SUB FORM_LOAD()
A=1 : B=A+2
IF A>B THEN
A=A+1
B=B+2
END IF
B=B+A
SHOW
PRINT B
END SUB
Yukarıdaki programın ekran çıktısı hangisidir?