Skip to main content

AccessTr.neT


rnd kullanımı........

rnd kullanımı........

Çözüldü #1
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
rnd kullanımı........ - Yazar: AYTN - 25/04/2009, 17:08
Cvp: rnd kullanımı........ - Yazar: adnanyurdakul - 25/04/2009, 18:47
Cvp: rnd kullanımı........ - Yazar: AYTN - 25/04/2009, 19:07
Cvp: rnd kullanımı........ - Yazar: tdsharun - 25/04/2009, 19:19
Cvp: rnd kullanımı........ - Yazar: AYTN - 25/04/2009, 19:31
Cvp: rnd kullanımı........ - Yazar: tdsharun - 25/04/2009, 19:32
Cvp: rnd kullanımı........ - Yazar: AYTN - 25/04/2009, 19:35
Cvp: rnd kullanımı........ - Yazar: tdsharun - 25/04/2009, 19:36
Cvp: rnd kullanımı........ - Yazar: AYTN - 25/04/2009, 19:39
Cvp: rnd kullanımı........ - Yazar: tdsharun - 25/04/2009, 19:45
Cvp: rnd kullanımı........ - Yazar: adnanyurdakul - 25/04/2009, 19:42
Cvp: rnd kullanımı........ - Yazar: Bilgisayarcı - 25/04/2009, 20:32
Task