[doreme202002]

use one dimensional arrays to solve the following problem .read in 20 number ,each of which is between 10 and 100 inclusive . as each number is input print it only if it is not a duplicate of number already input .provide for the worst case in which all 20 numbers are different,
i want this in VB6.plz help me .
i would be thanks for any help.

[rpicilli]

Hello.

May be using a List of Integer is a better and clean solution.

Try this

CODE
Dim myNumber As New List(Of Integer)
Dim iTmp As Integer

Private Sub getNumber() 'Create your own way to get the number
iTmp = 0
iTmp = InputBox("Type a number: ", "Give a try")

If myNumber.Contains(iTmp) Then
'You already have this number
'Do what you need to do
MessageBox.Show("Number is already there. Try again.")
Else
'You do not have the number into you list
myNumber.Add(iTmp)
MessageBox.Show("Number included.")
End If
End Sub

Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
getNumber()
End Sub

[rpicilli]

Hello, just in case you realy want to use array...

CODE
Public Class Form1

Dim aMyArray(20) As Integer
Dim iTmp As Integer
Dim iNumItems As Integer
Dim bExist As Boolean = False

Private Sub getNumber() 'Create your own way to get the number
'Initialization
iTmp = 0
iNumItems = aMyArray.Length

iTmp = InputBox("Type a number: ", "Give a try")

For jTmp As Integer = 0 To iNumItems - 1
If aMyArray(jTmp) = iTmp Then
'You already have this number
'Do what you need to do
bExist = True
MessageBox.Show("Number is already there. Try again.")
Exit For
End If
bExist = False
Next

If Not bExist Then 'Adds the number to array
aMyArray(iTmp) = iTmp
End If

End Sub

Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
getNumber()
End Sub
End Class

[doreme202002]

thank for your help that was helpful ,so thanks very much