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

Question

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

Explanation / Answer

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

Related Questions

Navigate

• Browse (All)
• Browse H
• Subjects

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.