[vb5prgrmr]

Okay, two variables MyH as Integer and MyL As Integer. Enter loop until a value of cancel is entered. While in loop, test MyH<input and if so MyH = input and do the same for MyL>input.



Good Luck

[keakTheGEEK]

See comments in Code:

'This statement. How are you entering your grades? 55 98 75 or 55,88,99 etc
'If you're entering them separated by space, then you need to split them up
'into individual grades to check each one to see which one is highest and lowest.
'You can split on a space, comma, or any other delimiter... 
Dim intgrades As String = InputBox("Enter grades.", "What are your grades?")

'So, after the statement above is executed (lets say grades were entered like so: 68, 55, 88, 98, 77)
'Split them up. VB6 has a split function that will spit each element into an array:
        Dim arrayGrades() As String
        arrayGrades = Split(intGrades, ",") 'Also, note that your variable intGrades is actually a string

        'Now arrayGrades has each grade as individual elements of the array. You can iterate through the 
        'array and check each grade to see which one is highest and which one is lowest.

        Dim highgrade As Integer
        Dim lowgrade As Integer
        

        'Modify your for loop so that you are iterating through the arrayGrades:
        Dim x As Integer
        For x = LBound(arrayGrades) To UBound(arrayGrades)

            'Assign elements of the array to highgrade and lowgrade like so:
            highgrade = Val(arrayGrades(x))

        Next 

There's a lot more you will need to code to get the highest and lowest grades. But first you need to understand how to store each grade individually for computation. Also, just some advice, I would get out of the habit of using the Val() function. By default it will return zero if the parameter passed to it cannot be converted to a numerical type w/o any kind of warning. Hope that points you in the right direction. Good Luck!

Also, are you sure that this is VB6?

Dim intgrades As String = InputBox("Enter grades.", "What are your grades?")

That looks like VB .NET to me...

[Raju2047]

Hope this may help u lil bit.

Dim a, b, c, d, e As Integer
a = InputBox("How many scores to be entered.")
For b = 1 To a
c = InputBox("enter the score.")
If b = 1 Then
e = c
d = c
End If
If c > d Then
d = c
End If
If c < e Then
e = c
End If
Next
lblHighest.Text = d
lblLowest.Text = e

This post has been edited by Raju2047: 15 April 2010 - 04:53 PM

[vb5prgrmr]

You will need to initially set the lowest grade to some high value like 1000 before you start your comparisons...



Good Luck

[vb5prgrmr]

You will need to initially set the lowest grade to some high value like 1000 before you start your comparisons...



Good Luck

[Raju2047]

is there any mistakes in my coding... i haven't set lowest grade to some high value..bt i couldn't find any...

[vb5prgrmr]

You set the variable that is to hold the lowest value to some high number prior to entering the loop or comparing it other input...



Good Luck

[thava]

seems there is no prob in Raju2047's algorithm

[bytelogik]

hi Maegan,
working with comparisons for highest and lowest is a little bit of confusing to most of the beginner coders. try this. (VB6)

        Dim intgrades As String
        Dim highgrade As Integer
        Dim lowgrade As Integer
        dim grades() as string   
        dim x as integer,Grade as integer
        
        'setting the initial values is the logic for comparison   
        highgrade=0
        lowgrade= 100   'replace this 100 to your_maximum_grade + 1 

        'use some error checking if intgrades is NULL
        intgrages = InputBox("Enter grades.", "What are your grades?")  'use only "," to separate grades
        grades=split(intgrades,",")    'this will split your string into individual grades for comparision
             
        For x = 0 To ubound(grades)
            Grade=grades(x)
            if Grade>highgrade then highgrade=Grade
            If lowgrade > Grade Then lowgrade = Grade
        Next

        Me.lblLowest.Text = lowgrade
        Me.lblHighest.Text = highgrade

all the best.

This post has been edited by bytelogik: 19 April 2010 - 10:42 PM