Replying to Visual Basic: Random Strings!

Hello there..I want to generate random elements of a string that is in a string array.I.E.. Elements of newyork fromDim cities() As String = {"delhi", "pune", "goa","newyork"}Should be displayed at random..Followed by other string array elements..Please help me out..:)

-reply by Hemanth

I'm currently in need of a program for my project...We're to interface a circuit via VB... We know what we want to happen on our program yet we don't know how to encode it already in VB... This is how the program goes...FOR EXAMPLE.. There are THREE set of numbers... And inside those sets were numbers stored...SET I = 1-10SET II = 11-20SET II = 21-30(the numbers inside the sets are just examples... We'll be using Input Values from a Parallel Port/Printer Port... -thinking that using other numbers would affect the changes in the program... But I don't really think so... Anyways...)Upon loading the form... The program will randomly choose one of those sets... After that... The user will input the values inside the chosen set respectively and correctly... I.E... The program randomly got SET II...In a label box... The values 21-30 should show in it respectively( the values are inputted to the label box through text box and a command button)... If it goes wrong... It will automatically terminate the program... Otherwise... A message/event will happen that the values are properly and correctly inputted... I hope you get what I'm actually saying...

-reply by Jerome

okay I want to make it when you enter a name into a text box it displays that name but after that it displays one of to random phrases such as for example if they put in cody it would return cody and then randomly choose between "is cool"or "some thing else"

Public Class RandomNumber
	Dim WordDomain As New ArrayList	  ' The Words to be generated
	Dim Words As New ArrayList		   ' The Words waiting to be generated
 
	Sub New(ByVal ParamArray Words() As String)
		' Words in a Param Array
		Dim Word As String
		For Each Word In Words
			WordDomain.Add(Word)
		Next
 
		AddItems()
	End Sub

	Sub New(ByVal Words() As String)
		' Words in a String Array
		Dim Word As String
		For Each Word In Words
			WordDomain.Add(Word)
		Next
 
		AddItems()
	End Sub
 
	Private Sub AddItems()
 
		Words.Clear()
		' Insert All Words Into the Array
		Dim I As Integer
		For I = 0 To WordDomain.Count - 1
			Words.Add(WordDomain(I))
		Next
	End Sub
 
	Public Function GetRandomWord() As String
		If Words.Count = 0 Then
			' Re-add the Items, when all the words have been generated.
			AddItems()
		End If
 
		' Return a Random Item and Remove it from the List
		Dim Ch As Integer
 
		' Using Timer as the seed for the Random Number Generation
		Randomize(Microsoft.VisualBasic.Timer)
 
		' Random Number is generated within the range.
		Ch = 0 + CInt(Rnd() * (Words.Count - 1))
 
		Dim Word As String = Words(Ch)
		Words.RemoveAt(Ch)
		Return Word
	End Function
End Class