Loops

[ChelseaVB]

Hi im trying to create a VB program that uses a Do Until loop to allow you to enter the ages of a class of students and then display these things about them:
>The Number of students in the class
>The total age of the students
>The average age of the students

Here is what iv done, its not working!
Can anyone help please? Thanks v much in advance.

Public Sub Main()
 
Dim intinput As Integer
Dim inttotal As Integer
Dim intstudents As Integer
Dim intAverage As Integer
 
inttotal = 0
intinput = 0
 
Do
    intinput = InputBox("enter the students ages")
    inttotal = intotal + intinput
    intAverage = inttotal / intstudent
    intstudent = instudent
 
Loop Until intinput = 0
 
 
Debug.Print "The total age is"; inttotal
Debug.Print "The number of students is"; intstudent
Debug.Print "The average age of students is"; intAverage
 
 
End Sub

[debasisdas]

Are you using any database connection .

What is the version of VB that you are using ?

[ChelseaVB]

Its VB 6.0

and no, nothing to do with a database sorry.

[Killer42]

A couple of questions...

• What do you mean precisely by "not working"?
• What is instudent?

Hm... and after further consideration, a suggestion...

• Go to the very start of the module (before the Sub Main, in the declarations section) and add the line
  Option Explicit

I believe this will resolve a lot of your problems by pointing out mistyped variable names.

In programming you really have to watch the fine details, or they'll bite you.