<%
QuizSayisi = 5
Toplam = 0
For i = 1 To QuizSayisi
if CInt(Request.Form("quiz"& i)) <> 0 Then
Toplam = Toplam + CInt(Request.Form("quiz"& i))
Else
Exit for
End if
Next
cikar = i - 1
bol = Toplam / cikar
Response.Write "Ortalama: "& bol
%>
Böyle yaptım çalıştı. Yazayım ihtiyacı olan arkadaş olursa kullanır.