fork download
copy 
  1. Imports System
  2.  
  3. Public Class Test
  4. 	Public Shared Sub Main()
  5.  
  6. 		Dim code As String
  7. 		Dim deptCode As String
  8. 		Dim departmentName As String
  9.  
  10. 		code = "gar123"
  11.  
  12. 		If code.Length = 6 Then
  13.  
  14. 			deptCode = code.Substring(0, 3)
  15. 			deptCode = deptCode.ToUpper
  16.  
  17. 			If deptCode = "CLO" Then
  18. 				departmentName = "Clothing"
  19. 			ElseIf deptCode = "FRE" Then
  20. 				departmentName = "Fresh Produce"
  21. 			ElseIf deptCode = "GAR" Then
  22. 				departmentName = "Gardening"
  23. 			ElseIf deptCode = "FRO" Then
  24. 				departmentName = "Frozen goods"
  25. 			ElseIf deptCode = "NON" Then
  26. 				departmentName = "Nonperishable goods"
  27. 			Else
  28. 				System.Console.WriteLine("Enter Valid Code")
  29.  
  30. 			End If
  31.  
  32. 		Else
  33.  
  34. 			System.Console.WriteLine("Enter 6 Letter Code")
  35.  
  36. 		End If
  37.  
  38. 		System.Console.WriteLine(departmentName)
  39.  
  40. 	End Sub
  41. End Class
Success #stdin #stdout 0.05s 30660KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Gardening
https://ideone.com/iAdMYn
language:
VB.NET (mono-3.10)
created:
16 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!