I need the answer in basic language Write a program to fetch

I need the answer in basic language.

Write a program to fetch state and marital status of 5 users. Use NESTED SELECT..CASE to find out the number of people who belong to each of the regions below. If the user is from “CA”, “NV”, “AR”, “WA”, count them towards westernregion If the user is from “NY”, “MA”, “FL”, display count them towards eastern region If the user is from “TX”, “AL”, “GA”, display count them towards southern region ELSE display “ You might be from Midwestern states\" Within each region, count the number of people who are married, single, divorced and separated.

Solution

Solution:

Dim MarriedWestern as Integer= 0
Dim SingleWestern as Integer= 0
Dim DivorcedWestern as Integer= 0
Dim SeparatedWestern as Integer= 0

Dim MarriedEastern as Integer= 0
Dim SingleEastern as Integer= 0
Dim DivorcedEastern as Integer= 0
Dim SeparatedEastern as Integer= 0

Dim MarriedSouthern as Integer= 0
Dim SingleSouthern as Integer= 0
Dim DivorcedSouthern as Integer= 0
Dim SeparatedSouthern as Integer= 0
For i As Integer = 1 To 5
Dim state as String
Input \"Enter state?\", state
Dim matrial as String
Input \"Enter matrial status\",matrial
Select case state
case \"CA\",\"NV\",\"AR\",\"WA\"
Select case matrial
case \"single\"
SingleWestern=SingleWestern+1
case \"married\"
MarriedWestern=MarriedWestern+1
case \"divorced\"
DivorcedWestern=DivorcedWestern+1
case \"seperated\"
SeparatedWestern=SeparatedWestern+1
End select
case \"NY\",\"MA\",\"FL\"
Select case matrial
case \"single\"
SingleEastern=SingleEastern+1
case \"married\"
MarriedEastern=MarriedEastern+1
case \"divorced\"
DivorcedEastern=DivorcedEastern+1
case \"seperated\"
SeparatedEastern=SeparatedEastern+1
End select

case \"TX\",\"AL\",\"GA\"
Select case matrial
case \"single\"
SingleSouthern=SingleSouthern+1
case \"married\"
MarriedSouthern=MarriedSouthern+1
case \"divorced\"
DivorcedSouthern=DivorcedSouthern+1
case \"seperated\"
SeparatedSouthern=SeparatedSouthern+1
End select
SingleSouthern=SingleSouthern+1
case else
print \"You might from Midwestern states\"
End select
Next i
print \"Single western\";SingleWestern
print \"Married western\";MarriedWestern
print \"Divorced western\";DivorcedWestern
print \"Separated western\";SeparatedWestern

print \"Single Eastern\";SingleEastern
print \"Married Eastern\";MarriedEastern
print \"Divorced Eastern\";DivorcedEastern
print \"Separated Eastern\";SeparatedEastern

print \"Single southern\";SingleSouthern
print \"Married southern\";MarriedSouthern
print \"Divorced southern\";DivorcedSouthern
print \"Separated southern\";SeparatedSouthern

  
Input:

CA
single
CA
single
CA
single
CA
single
CA
single

Output: