Answer to Question #301410 in Visual Basic for vhenz

Question

Programming Tasks:

1. Write a program that will determine if one or both textboxes for username and 

password contains empty string. If username or/and password is/are empty then it will 

display a message that username and password is required. Otherwise, it will determine 

if it correct or incorrect. 

2. Write a program implementing Select Case statement that evaluates a character either a 

vowel or a consonant. 

3. Write a program implementing While loop statement, any Do loops statement, any For 

loops statement that display your Name, School, Course and Year level 10 times with 

the use of message box.

*** Make SCREENSHOTS of the forms you used in 1-3 and then copy all the CODES. 

Screenshots should be taken during PROGRAM RUNTIME. 

Answer 1

Question 1

Public Class Form1




    Private Sub btnCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheck.Click
        If txtUserName.Text = String.Empty Then
            MessageBox.Show("Username is required.")
            Return
        End If
        If txtPassword.Text = String.Empty Then
            MessageBox.Show("Password is required.")
            Return
        End If




        If txtUserName.Text = "admin" And txtPassword.Text = "1111" Then
            MessageBox.Show("Correct")
        Else
            MessageBox.Show("Incorrect")
        End If




    End Sub
End Class

Question 2

Module Module1


    Sub Main()




        Console.Write("Enter the letter: ")
        Dim letter As String = Console.ReadLine()




        Select Case letter.ToUpper()
            Case "A", "E", "I", "O", "U"
                Console.WriteLine("Vowel")
            Case Else
                Console.WriteLine("Consonant")
        End Select


        Console.ReadLine()
    End Sub


End Module

Question 3

Public Class Form1


    Private Sub btnCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheck.Click
        Dim info As String = ""
        Dim counter As Integer = 0


        'While loop statement
        While counter < 10
            info += "Your Name: Your Name" + Environment.NewLine 'School, Course and Year level"
            info += "Your School: 45" + Environment.NewLine
            info += "Your Course: VB.NET" + Environment.NewLine
            info += "Your Year level: 3" + Environment.NewLine + Environment.NewLine
            counter += 1
        End While
        MessageBox.Show(info)
        'Do loops statement
        info = ""
        counter = 0
        Do Until counter >= 10
            info += "Your Name: Your Name" + Environment.NewLine 'School, Course and Year level"
            info += "Your School: 45" + Environment.NewLine
            info += "Your Course: VB.NET" + Environment.NewLine
            info += "Your Year level: 3" + Environment.NewLine + Environment.NewLine
            counter += 1
        Loop
        MessageBox.Show(info)
        'For loops statement that display  10 times with the use of message box.
        For i As Integer = 0 To 9
            info += "Your Name: Your Name" + Environment.NewLine 'School, Course and Year level"
            info += "Your School: 45" + Environment.NewLine
            info += "Your Course: VB.NET" + Environment.NewLine
            info += "Your Year level: 3" + Environment.NewLine + Environment.NewLine
        Next
        MessageBox.Show(info)


    End Sub
End Class