vb6 Quiz sorularının cevapları
————————————————————–
1. soru matrisin simetriği
Dim i, j, n, a(20, 20) As Integer
Dim simetri As Integer
n = InputBox("Matrisin boyutunu girin", "boyut")
For i = 1 To n
For j = 1 To n
a(i, j) = InputBox("(" & i & "," & j & ") elemanı girin", "eleman")
Next j
Next i
For i = 1 To n
For j = 1 To n
If a(i, j) <> a(j, i) Then
simetri = 1
Exit For
End If
Next j
Next i
If simetri = 1 Then
Form1.Print "matris simetrik değildir"
Form1.Print "simetriği:"
For i = 1 To n
For j = 1 To n
If a(i, j) <> a(j, i) Then
a(i, j) = a(j, i)
End If
Form1.Print a(i, j)
Next j
Next i
Else
Form1.Print "matris simetriktir"
End If
————————————————————–
2. soru fotokopi
Private Sub Command2_Click()
Dim kk, uk As Integer
Dim carpim, alan As Integer
Dim sonuc As Integer
alan = 2400
kk = 8
uk = 12
carpim = uk * kk
sonuc = alan / carpim
MsgBox (" oran yüzde " & sonuc & " olmalıdır!")
End Sub
Private Sub Command3_Click()
Dim uk, kk, yuk, ykk As Integer
Dim sonuc As Integer
uk = 12
kk = 8
yuk = uk / 2
ykk = kk / 2
sonuc = yuk * ykk
Form1.Print "%50 küçüldüğü zaman alan , " & sonuc & " cm2 olur."
End Sub
————————————————————–
3. soru kamyon gişe
Private Sub Command2_Click()
Dim tü, aü, kü As Integer
tü = 3600
aü = tü / 3
kü = aü + aü
Form1.Print "Bu günde arabalardan alınan toplam ücret " & kü
End Sub
Private Sub Command3_Click()
Dim gü, ks, ars, kü As Integer
gü = 20
kü = 2400
ks = kü / gü
MsgBox ("Otobandan geçen kamyon sayısı" & ks), , "kamyon sayısı!"
End Sub
————————————————————–
4. soru kelimeyi tersten yazma
Dim n, i As Integer
Dim kelime As String
kelime = InputBox("Kelime girin", "giriş")
n = Len(kelime)
For i = n To 1 Step -1
Form1.Print Mid(kelime, i, 1)
Next i
————————————————————–
5. soru diziyi tersten yazma
Dim n, i, dizi(20) As Integer
n = InputBox("Dizi Boyutunu girin", "boyut girişi")
For i = 1 To n
dizi(i) = InputBox("dizinin " & i & ". elemanı", "eleman girişi")
Next i
For i = n To 1 Step -1
Form1.Print dizi(i)
Next i
————————————————————–
