Monday
September 1, 2014

Homework Help: Programming

Posted by Lee on Friday, October 22, 2010 at 6:02pm.

This is a visual basics program issue.
The problem is: Table 4.7 contains information on several states. Write a program that requests a state and category (flower, motto and nickname) as input and displays the requested information. If the state or category requested is not in the table, the program should so inform the user.



Table 4.7 State, Flower, Nickname, and Motto

State
Flower
Nickname
Motto

California
Golden Poppy
Golden State
Eureka

Indiana
Peony
Hoosier State
Crossroads of America
Mississippi
Magnolia
Magnolia State
By valor of arms
New York
Rose
Empire State
Ever upward

This is the program I created. It only displays the very last line of the program:

Public Class Ch04_3_32A

Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click
'Display state and category
Dim state As String
Dim category As String
state = (InputBox("Enter a state", "A State"))
category = (InputBox("Enter a category", "A Category"))
Select Case state.ToUpper
Case "CALIFORNIA"
Select Case category.ToUpper
Case "FLOWER"
txtOutput.Text = "Gold Poppy"
Case "NICKNAME"
txtOutput.Text = "Golden State"
Case "MOTTO"
txtOutput.Text = "Eureka"
End Select
End Select
Select Case state.ToUpper
Case "INDIANA"
Select Case category.ToUpper
Case ("FLOWER")
txtOutput.Text = "Peony"
Case ("NICKNAME")
txtOutput.Text = "Hoosier State"
Case ("MOTTO")
txtOutput.Text = "Crossroads to America"
End Select
End Select
Select Case state.ToUpper
Case "MISSISSIPPI"
Select Case category.ToUpper
Case "FLOWER"
txtOutput.Text = "Magnolia"
Case "NICKNAME"
txtOutput.Text = "Magnolia State"
Case "MOTTO"
txtOutput.Text = "By valor and arms"
End Select
End Select
Select Case state.ToUpper
Case "NEW YORK"
Select Case category.ToUpper
Case "FLOWER"
txtOutput.Text = "Rose"
Case "NICKNAME"
txtOutput.Text = "Empire State"
Case "MOTTO"
txtOutput.Text = "Ever Upward"
End Select
End Select
If state <> "" Then
txtOutput.Text = "Category is not listed"
End If
End Sub
End Class

Answer this Question

First Name:
School Subject:
Answer:

Related Questions

Programming - This is a visual basics program issue. The problem is: Table 4.7 ...
visual basic programming - Write a Visual Basic program that will calculate the...
Programming - Write a program that would calculate and display the results for ...
programming logic and design - The Daily Gazette accepts classified ads in ...
Programming - Write a pseudocode program that asks the user for an integer ...
Computer Visual Basics 2008 - This questions is from Chapter 5, #54) Write a ...
Programming (CSI Programming Logic and Design) - Create a program that outputs a...
Programming (CSI 150 Programming Logic and Design) - Create a program that ...
programming 2 - Write a program that inputs a word representing a binary number...
Programming - I need your help to write a program using visual basic 2010 for ...

Search
Members