حل این مساله ؟

سلام خدمت دوستان عزیز : والا یکی از دوستان یک مسیله ای به ما داده و گفته حل کن و مام موندیم متشکر اگر جوابی به ما بدید

تمرین :
برنامه ای بنویسید برای هر دانشجو .شماره دانشجو از 1تا 15 برای هر دانشجو نمره بین 5 تا 18 اعلام کند ؟ (از طریق دستورات vb ) حل شود)!

و به کمک for ,دستوراتی که خودتون می دونید ممنون
منتظرم
یا علی

یکی نیست یک کمکی به ما کنه؟
ممنون

تا اونجایی که من از صورت مساله سر در آوردم این میشه :

کد:

---

Dim dns(14) as Single
Dim i as Integer


Public Sub get()

 for i = 0 to 14
 
  dns(i) = InputBox("Please Enter Grade")

 next i

end sub

public sub print()
 
 for i = 0 to 14
   
  print dns(i)

 next i

end sub

---

برا معدل بالا 5 و پایین تر از 18 :

کد:

---

public sub print()
 
 for i = 0 to 14
  if dns(i)>=5 and dns(i)<=18 then
        print dns(i)
  end if

 next i

end sub

---

پیشرفته ترش هم خواستی بکنی مینویسی :

کد:

---

Print "Daneshjooye " + CStr(i) + " : " + CStr(dns(i))

---

سلام
ممنون از pishi0014 عزیز و توضیحات کاملشون

دوست عزیز sermanto اگه بازم مشکلت حل نشده بگو تا بیشتر توضیح داده بشه