Dim soru(9), cevap(9), i, j, sayaç As Integer
soru(0) = 5
soru(1) = 2
soru(2) = 3
soru(3) = 4
soru(4) = 6
soru(5) = 1
soru(6) = 0
soru(7) = 8
soru(8) = 9
soru(9) = 10
!!!ama surda bi hatam yok ama bilgisayarın kendi tutğu sayı olcakmış bana yardımcı olur musunuz!!!! rnd() kullanımını ile olacakmış ama yapamadım.
For i = 0 To 9
cevap(i) = InputBox(i + 1 & "inci sorunun cevabına giriniz " & "(" & soru(i) & ")")
Next
For j = 0 To 9
If 2 * soru(j) = cevap(j) Then
sayaç = sayaç + 1
End If
Next
MsgBox("doğru cevap degeriniz...." & sayaç)
MsgBox("yanlış cevap degeriniz..." & sayaç - 10)
End Sub