Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Visual Basic
Expertise: Beginner
Apr 23, 1999



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Loop on Non-Numeric Indices

You might occasionally need to execute a group of statements with different and unrelated values of a variable. For example, say you need to verify that a number isn't a multiple of 2, 3, 5, 7, or 11. In these circumstances, you can't use a regular For...Next loop, unless you store these values into a temporary array. Here's a more concise solution:
Dim n As Variant 
For Each n In Array(2, 3, 5, 7, 11)
	If (TestNumber Mod n) = 0 Then 
		Print "Not prime"
		Exit For
	End If
You can use the same technique to iterate on non-numeric values:
' check if a string embeds a shortened weekday name
Dim d As Variant 
For Each d In Array("Sun", "Mon", "Tue", "Wed", "Thu", _
	"Fri", "Sat")
	If Instr(1, TestString, d, vbTextCompare) Then
		Print "Weekday = " & d
		Exit For
	End If
Francesco Balena
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date