Question

Q.4)) (12.5 marks) The pH of an aqueous solution is a measure of its acidity. The pH scale ranges from 0 to 14, inclusive. A solution with a pH of 7 is said to be neutral, a solution with a pH greater than 7 is basic, and a solution with a pH less than 7 is acidic. By using Select Case, write a program that will read value of pH of (10) solutions, and will print whether they are neutral, basic, or acidic. If the user enters an invalid pH, an error message will be printed.

Answer 1

I have implemented to print the type of solution from pH levels. Please find the Following Code Screenshot, Output, and Code.

ANY CLARIFICATIONS/MODIFICATIONS/UPDATES REQUIRED LEAVE A COMMENT

IF YOU ARE SATISFIED WITH THE ANSWER PLEASE LIKE THE POST

1.CODE SCREENSHOT:

Select Demo.vb X 1 2 3 4 5 6 7 8 9 10 11 12 13 14. 15 16 17 18 19 20 21 22 로 보 EModule decisions Sub Main() 'local variable definition Dim pH, i As Double i=0 While i<10 Console.Write ("Enter pH vale : ") pH= Convert.ToDouble (Console.ReadLine()) Select Case pH Case 0.0 TO 6.9 Console.WriteLine("Acidic") Case 7.0 Console.WriteLine("Neutral") Case 7.1 To 14.0 Console.WriteLine("Basis") Case Else Console.WriteLine("Error: Invalid Input") End Select i=i+1 End While End Sub End Module

2.OUTPUT:

6. MSBuild Command Prompt for VS2015 D:\VB>vbc SelectDemo.vb Microsoft (R) Visual Basic Compiler version 1.0.0.50618 Copyright (c) Microsoft Corporation. All rights reserved. D:\VB>SelectDemo Enter pH vale : 0 Acidic Enter pH vale : 1 Acidic Enter pH vale : 2 Acidic Enter pH vale : 3 Acidic Enter pH vale : 4 Acidic Enter pH vale : 5 Acidic Enter pH vale : 6 Acidic Enter pH vale : 7 Neutral Enter pH vale : 8 Basis Enter pH vale : 9 Basis D:\VB>SelectDemo Enter pH vale : 15 Error: Invalid Input Enter pH vale : 14 Basis Enter pH vale : 13 Basis Enter pH vale : 12 Basis Enter pH vale : 11 Basis Enter pH vale : 10

Enter pH vale : 10 Basis Enter pH vale : 9 Basis Enter pH vale : 8 Basis Enter pH vale : 7 Neutral Enter pH vale : 6 Acidic D:\VB>,

3.CODE:

Module decisions Sub Main() 'local variable definition Dim pH,i As Double    i=0    While i<10          Console.Write("Enter pH vale : ")          pH= Convert.ToDouble(Console.ReadLine())        Select Case pH            Case 0.0 To 6.9                Console.WriteLine("Acidic")            Case 7.0                Console.WriteLine("Neutral")            Case 7.1 To 14.0                Console.WriteLine("Basis")            Case Else                Console.WriteLine("Error:Invalid Input")        End Select        i=i+1    End While End Sub End Module