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

Programming - SraJMcGin, Friday, October 22, 2010 at 6:14pm
Here are some visual basic programming tutorials that may help you:

http://search.yahoo.com/search?fr=mcafee&p=viual+basics+program+tutorial

Sra
Programming - MattsRiceBowl, Friday, October 22, 2010 at 6:36pm
It's been years, so I forgot a lot. Should this:
If state <> "" Then

Say this:
If state = "" Then

I honestly forget. Let me know if that works.
Programming - Lee, Friday, October 22, 2010 at 6:38pm
Thank you both. I'll give the line a try and report back...
Programming - Lee, Friday, October 22, 2010 at 7:54pm
No I'm afraid the If statement did not work. I'm trying Case Else. But I think all my Select End and Select Case's are the cause.
Programming - MattsRiceBowl, Friday, October 22, 2010 at 8:45pm
I'm just waking up, so really tired. I will try to look later, but it is a hard program to follow mentally. Haha

I hope someone can help. Check back again in a while.
Programming - Lee, Saturday, October 23, 2010 at 2:46am
So do I. This program is a little difficult. Thank you for your help...
Programming - Helper, Monday, October 25, 2010 at 11:35pm
Declare these under form.
Dim Mott As String 'To type in which State Motto
Dim Flower As String 'To type in which State Flower
Dim NickName As String 'To type in which State NickName

First Button code.

Private Sub btnmotto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmotto.Click

Motto = CStr(InputBox("Enter a state: California, Indiana, Mississippi, North Dakota, and New York."))

Select Case Motto
Case "California"
txtinfo.Text = "California state motto is 'Eureka'."
Case "Indiana"
txtinfo.Text = "Indiana state motto is 'Crossroads of America'."
Case "Mississippi"
txtinfo.Text = "Mississippi state motto is 'By valor and arms'."
Case "New York"
txtinfo.Text = "New York state motto is 'Ever Upward'."
Case "North Dakota"
txtinfo.Text = "North Dakota state motto is 'Liberty and union, now and forever, one and inseparable'."

Case Else
txtinfo.Text = "Category is not listed."
Programming - Lee, Wednesday, November 3, 2010 at 8:22am
Thank you Matt and helper. Your help was very useful. I was able to get this program operational. The misstake I seem to have made with putting nested statements in. I had to take out some of the End Selects and change my operation from <> to =.
Programming - Kwadwo, Monday, March 21, 2011 at 1:46pm
So what is the full answer to this problem cause I am doing the same thing right now

Answer this Question

Related Questions

Programming - This is a visual basics program issue. The problem is: Table 4.7 ...
Programming - Write a program that would calculate and display the results for ...
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 - I need your help to write a program using visual basic 2010 for ...
computer science - in one the chapter 3 programming challenges you were asked to...
Programming (CSI Programming Logic and Design) - Create a program that outputs a...
programming 2 - Write a program that inputs a word representing a binary number...
Programming (CSI 150 Programming Logic and Design) - Create a program that ...
programming - I am having trouble writing this program for java. can anybody ...

For Further Reading

First Name:
School Subject:
Answer: