Question

Description -- Microsoft Studio, Visual Basic

Problem 6.1 Words Reversed - Write a program that uses a Do Loop so that the user may enter words using a popup Input Box. Once the user enters "STOP" , the program then displays all the words in a single string. The difficulty is that the words are displayed in reverse order with spaces. The program is initiated with a button. For example:

1. The following words are entered separately one at a time: "apple", "banana", "carrot"
2. The following string is output: "carrot banana apple"

Answer 1

In case of any query do comment. Please rate your answer. Thanks

Code:

============form1.vb=======

Public Class Form1
'declare List of string to hold all the words entered
Dim words As New List(Of String)
Dim word As String
'Handles click of a button to ask user to enter words
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
words.Clear() 'clear the list
Do
'Ask user for input a word, if word entered is STOP then exit the loop
word = InputBox("Enter words to be reversed, STOP to stop entering", "Reverse Words")
If word.Equals("STOP", StringComparison.OrdinalIgnoreCase) Then
Exit Do
Else
words.Add(word) 'add the word to the list
End If
Loop
'Join the words using space separator and show the output in a label
words.Reverse()
Label2.Text = String.Join(" ", words)

End Sub

End Class

===========form1.designer.vb=============

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _

Partial Class Form1

    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.

    <System.Diagnostics.DebuggerNonUserCode()> _

    Protected Overrides Sub Dispose(ByVal disposing As Boolean)

        Try

            If disposing AndAlso components IsNot Nothing Then

                components.Dispose()

            End If

        Finally

            MyBase.Dispose(disposing)

        End Try

    End Sub

    'Required by the Windows Form Designer

    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer

    'It can be modified using the Windows Form Designer.

    'Do not modify it using the code editor.

    <System.Diagnostics.DebuggerStepThrough()> _

    Private Sub InitializeComponent()

        Me.Button1 = New System.Windows.Forms.Button()

        Me.Label1 = New System.Windows.Forms.Label()

        Me.Label2 = New System.Windows.Forms.Label()

        Me.SuspendLayout()

        '

        'Button1

        '

        Me.Button1.Location = New System.Drawing.Point(160, 129)

        Me.Button1.Name = "Button1"

        Me.Button1.Size = New System.Drawing.Size(120, 34)

        Me.Button1.TabIndex = 0

        Me.Button1.Text = "Input Words"

        Me.Button1.UseVisualStyleBackColor = True

        '

        'Label1

        '

        Me.Label1.AutoSize = True

        Me.Label1.Location = New System.Drawing.Point(157, 67)

        Me.Label1.Name = "Label1"

        Me.Label1.Size = New System.Drawing.Size(42, 13)

        Me.Label1.TabIndex = 1

        Me.Label1.Text = "Output:"

        '

        'Label2

        '

        Me.Label2.AutoSize = True

        Me.Label2.Location = New System.Drawing.Point(241, 67)

        Me.Label2.Name = "Label2"

        Me.Label2.Size = New System.Drawing.Size(0, 13)

        Me.Label2.TabIndex = 2

        '

        'Form1

        '

        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font

        Me.ClientSize = New System.Drawing.Size(585, 318)

        Me.Controls.Add(Me.Label2)

        Me.Controls.Add(Me.Label1)

        Me.Controls.Add(Me.Button1)

        Me.Name = "Form1"

        Me.Text = "Form1"

        Me.ResumeLayout(False)

        Me.PerformLayout()

    End Sub

    Friend WithEvents Button1 As Button

    Friend WithEvents Label1 As Label

    Friend WithEvents Label2 As Label

End Class

================screen shot of the code=======

Output: