VB 6.0 badrobot14
-
We need your support!
We are currently struggling to cover the operational costs of Xtremepapers, as a result we might have to shut this website down. Please donate if we have helped you and help make a difference in other students' lives!
Click here to Donate Now (View Announcement)
XtremePapers
Experienced One
badrobot14
look, this is stupid way of finding greatest num (no offence)
a better way is to use for each loop:
I can give u a sample prog I just made in vb.net.. there is little difference in syntax
a better way is to use for each loop:
I can give u a sample prog I just made in vb.net.. there is little difference in syntax
badrobot14
Dim list As New List(Of Integer)
list.Add(2)
list.Add(3)
list.Add(7)
Dim num As Integer
Dim greatest As Integer
greatest = 0
For Each num In list
If num > greatest Then
greatest = num
End If
Next
MessageBox.Show(greatest)
list.Add(2)
list.Add(3)
list.Add(7)
Dim num As Integer
Dim greatest As Integer
greatest = 0
For Each num In list
If num > greatest Then
greatest = num
End If
Next
MessageBox.Show(greatest)
Experienced One
can u gv a proper way of doing ths on vb 6.0,, cz we can only use vb 6.0 in school..
Experienced One
thanx, i'll try it 
badrobot14
try it obviously change messagebox.show to msgbox(fsdfsf) etc...
the idea is u loop through a list n see which is the greatest... and if u find greater num u take it as greatest...
I did it in vb6 too but that was years ago..
the idea is u loop through a list n see which is the greatest... and if u find greater num u take it as greatest...
I did it in vb6 too but that was years ago..
badrobot14
Try this in vb6:
Dim greatest As Integer
Dim array(5) As Integer
array(0) = 3
array(1) = 2
array(2) = 1
array(3) = 5
array(4) = 6
For i As Integer = 0 To array.Length-1
If array(i) > greatest Then
greatest = array(i))
End If
Next
MsgBox(greatest)
Dim greatest As Integer
Dim array(5) As Integer
array(0) = 3
array(1) = 2
array(2) = 1
array(3) = 5
array(4) = 6
For i As Integer = 0 To array.Length-1
If array(i) > greatest Then
greatest = array(i))
End If
Next
MsgBox(greatest)
Experienced One
works wd 2 boxes, im not gonna try 5 now badrobot14 apka shoooooookariya :D
badrobot14
wht do u mean 2 boxes...?
Experienced One
i meant wd 2 values as in first i was taking 5, now i took 3
as in first i was taking 5, now i took 3
badrobot14
seriously.. n what's wrong with trying the array thing..?
array is a list so it checks each item in list using a for loop and if that item(i.e. numbr) is gr8er it selects that one as greatest until end of list u have ur gr8est num in hand...
havn't u guys studied loops..?
array is a list so it checks each item in list using a for loop and if that item(i.e. numbr) is gr8er it selects that one as greatest until end of list u have ur gr8est num in hand...
havn't u guys studied loops..?
Experienced One
we dont hav a good teacher actually, first our teacher was an 11th grader now new one is sm1 not so good, so we dont even noe wat we r actually doing...
array is a new thing fr me
i tried ur codes, but they became red...
we eve complained against our teacher, but hamari kon sunta hai
array is a new thing fr me
i tried ur codes, but they became red...
we eve complained against our teacher, but hamari kon sunta hai
badrobot14
I feel sorry, so here I fixed ur code 4 u:
Dim n1, n2, n3, n4, n5, greatest As Integer
n5 = 34
n1 = 3
If n1 > n2 And n1 > n3 And n1 > n4 And n1 > n5 Then
greatest = n1
ElseIf n2 > n1 And n2 > n3 And n2 > n4 And n2 > n5 Then
Dim n1, n2, n3, n4, n5, greatest As Integer
n5 = 34
n1 = 3
If n1 > n2 And n1 > n3 And n1 > n4 And n1 > n5 Then
greatest = n1
ElseIf n2 > n1 And n2 > n3 And n2 > n4 And n2 > n5 Then
badrobot14
greatest = n2
ElseIf n3 > n1 And n3 > n2 And n3 > n4 And n3 > n5 Then
greatest = n3
ElseIf n4 > n1 And n4 > n2 And n4 > n3 And n4 > n5 Then
greatest = n4
Else
greatest = n5
End If
MsgBox(greatest)
ElseIf n3 > n1 And n3 > n2 And n3 > n4 And n3 > n5 Then
greatest = n3
ElseIf n4 > n1 And n4 > n2 And n4 > n3 And n4 > n5 Then
greatest = n4
Else
greatest = n5
End If
MsgBox(greatest)
badrobot14
(put enter b4 'then')
7th heaven ;)
isn't 'end if' supposed to come 4 times, because we used else if 4 times in the coding???
badrobot14
NO!!! that was ur mistake..
m using elseif statement which is a continuation of ur first IF statement.... no need for stupid end if's... just one is needed
m using elseif statement which is a continuation of ur first IF statement.... no need for stupid end if's... just one is needed
badrobot14
oh n no need for enter b4 then.. I must b sleepin
Experienced One
got the ansswer from ths method :D once again sokaria(thanx) xD badrobot14