Hello I need structured english pseudo code for the followin

Hello, I need structured english pseudo code for the following program in VB.

1. Private Sub btnMeaning^Click(ByVal sender As System.Object, ByVal e As Systern.EventArgs) Handles btnMeaning.click Dim 2. abbreviation As String abbreviation = CStr(txtAbbreviatlon.Te>ct)
3. Select Case abbreviation Case \"ac\"
4. txtMeaning.Texr = “before meals\"
5. Case \"ad lib“
6. txtMeaning.Texr = \"freely as needed\" case \"bid\"
7. txtMeaning.Texr = \"twice daily\" case \"gtt\"
8. txtMeaning.Texr = \"a drop\"
9. Case \"hs\"
10. txtMeaning.Texr = \"at bedtime\"
11. Case \"qid\"
12. txtMeaning.Texr = \"four times a day\"
13. Case Else
14.txtMeaning.Texr = \"Enter a proper abbreviation\" End Select
15.End Sub

Solution

Private Sub btnMeaning_click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnMeaning.click

Dim abbreviation As String

abbreviation = Cstr(txtAbbreviation.Text)

Select abbreviation

Case \"ac\"

txtMeaning.Text = \"before meals\"

Case \"ad lib\"

txtMeaning.Text = \"freely as needed\"

Case \"bid\"

txtMeaning.Text = \"twice daily\"

Case \"gtt\"

txtMeaning.Text = \"a drop\"

Case \"hs\"

txtMeaning.Text = \"at bedtime\"

Case \"qid\"

txtMeaning.Text = \"four times a day\"

Case Else

txtMeaning.Text = \"Enter a proper abbreviation\"

End Select

End Sub