03-05 -01

Author: zakonweb

Anagram/Anagram2.suo

@@ -1,35 +1,35 @@
-Module Module1
-
-    Sub Main()
-        Dim str1, alphaStr As String
-        Dim nextChar As Char
-        Dim Count As Integer
-        Dim isPangram As Boolean
-
-        str1 = ""
-        alphaStr = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
-        nextChar = ""
-        Count = 0
-        isPangram = True
-
-        Console.Write("Enter String: ")
-        str1 = Console.ReadLine
-        str1 = UCase(str1)
-
-        For Count = 1 To Len(alphaStr)
-            nextChar = Mid(alphaStr, Count, 1)
-            If InStr(str1, nextChar) = 0 Then
-                isPangram = False
-                Exit For
-            End If
-        Next
-
-        If isPangram = True Then
-            Console.WriteLine("Sentense enetred is pangram.")
-        Else
-            Console.WriteLine("Sentense enetred is NOT pangram.")
-        End If
-        Console.ReadKey()
-    End Sub
-
-End Module
+Module Module1
+
+    Sub Main()
+        Dim str1, alphaStr As String
+        Dim nextChar As Char
+        Dim Count As Integer
+        Dim isPangram As Boolean
+
+        str1 = ""
+        alphaStr = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
+        nextChar = ""
+        Count = 0
+        isPangram = True
+
+        Console.Write("Enter String: ")
+        str1 = Console.ReadLine
+        str1 = UCase(str1)
+
+        For Count = 1 To Len(alphaStr)
+            nextChar = Mid(alphaStr, Count, 1)
+            If InStr(str1, nextChar) = 0 Then
+                isPangram = False
+                Exit For
+            End If
+        Next
+
+        If isPangram = True Then
+            Console.WriteLine("Sentense enetred is pangram.")
+        Else
+            Console.WriteLine("Sentense enetred is NOT pangram.")
+        End If
+        Console.ReadKey()
+    End Sub
+
+End Module

Basic String Practice Assignments/USE OF FOR NEXT SIMPLE AND NESTED.suo

@@ -1,38 +1,38 @@
-Module Module1
-
-    Sub Main()
-        Dim myStr As String
-        Dim a, b As Integer
-        Dim isFound As Boolean = False
-        Dim ch As Char
-
-        Console.Write("Enter phrase to check Pangram: ")
-        myStr = Console.ReadLine
-        If Len(myStr) < 26 Then
-            Console.WriteLine("It is not Pangram.")
-            Console.ReadKey()
-        Else
-            For b = 65 To 90
-                isFound = False
-                For a = 1 To Len(myStr)
-                    ch = UCase(Mid(myStr, a, 1))
-                    If Asc(ch) = b Then
-                        isFound = True
-                        Exit For
-                    End If
-                Next
-                If isFound = False Then
-                    Console.WriteLine("It is not Pangram.")
-                    Console.ReadKey()
-                    Exit For
-                End If
-            Next b
-            If isFound = True Then
-                Console.WriteLine("It is a Pangram.")
-                Console.ReadKey()
-            End If
-        End If
-    End Sub
-
-
-End Module
+Module Module1
+
+    Sub Main()
+        Dim myStr As String
+        Dim a, b As Integer
+        Dim isFound As Boolean = False
+        Dim ch As Char
+
+        Console.Write("Enter phrase to check Pangram: ")
+        myStr = Console.ReadLine
+        If Len(myStr) < 26 Then
+            Console.WriteLine("It is not Pangram.")
+            Console.ReadKey()
+        Else
+            For b = 65 To 90
+                isFound = False
+                For a = 1 To Len(myStr)
+                    ch = UCase(Mid(myStr, a, 1))
+                    If Asc(ch) = b Then
+                        isFound = True
+                        Exit For
+                    End If
+                Next
+                If isFound = False Then
+                    Console.WriteLine("It is not Pangram.")
+                    Console.ReadKey()
+                    Exit For
+                End If
+            Next b
+            If isFound = True Then
+                Console.WriteLine("It is a Pangram.")
+                Console.ReadKey()
+            End If
+        End If
+    End Sub
+
+
+End Module

Basic String Practice Assignments/desktop.ini

@@ -1,31 +1,31 @@
-Module Module1
-
-    Sub Main()
-        Dim myStr As String
-        Dim b As Integer
-        Dim isFound As Boolean = False
-
-        Console.Write("Enter phrase to check Pangram: ")
-        myStr = Console.ReadLine
-        If Len(myStr) < 26 Then
-            Console.WriteLine("It is not Pangram.")
-            Console.ReadKey()
-        Else
-            For b = 65 To 90
-                isFound = False
-                If InStr(UCase(myStr), Chr(b)) > 0 Then isFound = True
-                If isFound = False Then
-                    Console.WriteLine("It is not Pangram.")
-                    Console.ReadKey()
-                    Exit For
-                End If
-            Next b
-            If isFound = True Then
-                Console.WriteLine("It is a Pangram.")
-                Console.ReadKey()
-            End If
-        End If
-    End Sub
-
-
-End Module
+Module Module1
+
+    Sub Main()
+        Dim myStr As String
+        Dim b As Integer
+        Dim isFound As Boolean = False
+
+        Console.Write("Enter phrase to check Pangram: ")
+        myStr = Console.ReadLine
+        If Len(myStr) < 26 Then
+            Console.WriteLine("It is not Pangram.")
+            Console.ReadKey()
+        Else
+            For b = 65 To 90
+                isFound = False
+                If InStr(UCase(myStr), Chr(b)) > 0 Then isFound = True
+                If isFound = False Then
+                    Console.WriteLine("It is not Pangram.")
+                    Console.ReadKey()
+                    Exit For
+                End If
+            Next b
+            If isFound = True Then
+                Console.WriteLine("It is a Pangram.")
+                Console.ReadKey()
+            End If
+        End If
+    End Sub
+
+
+End Module