حلفه تکرار

[mahdi.manian]

با سلام.

من می خوام برنامه ای بنویسیم که نمره 20 تا دانش آموزش بهش بدیم بعد این میاد میانگینشو حساب کنه.

از حلقه for می خوام برای اینکار استفاده کنم. کد ها را اینطوری نوشتم ولی جواب نمیده:

Private Sub Command2_Click()
Dim A As Integer

For A = 1 To 20
B = InputBox("Moadel")
prn = B / 2
Next
Print prn
End Sub



ممنون میشم دوستان راهنمایی کنند.

با تشکر.

[mahdi.manian]

ممنون مشکل حل شد.

[mahdivita]

:متفکر:
من توی فکرم که برای چی prn = B / 2 وقتی که 20 تا عدد میگیره؟؟؟!!!!!