Comp 230 Week 2 Ilab

Student Name | | Class | Comp 230 | Date | |

VBScript IPO Lab Report

' VBScript: NameAge.vbs

' Written by:

' Date:

' Class: COMP230

' Professor:

' ================================================

' Create name and age variables

name = ""

ageStr = ""

' Prompt User for Name and Age

WScript.StdOut.Write("Please Enter your Full Name..............")

name = WScript.StdIn.ReadLine()

WScript.StdOut.WriteLine() 'Skip 1 line

WScript.StdOut.Write("Please Enter you age................")

ageStr = Wscript.StdIn.ReadLine()

' Calculate Age+10 and assign to ageStr10

agestr10 = CStr( CInt(ageStr)+10 )

' Display Name and Age Values

WScript.StdOut.WriteBlankLines(2) 'Skip 2 lines

WScript.StdOut.WriteLine("Your Name is " & vbTab & vbTab & name)

WScript.StdOut.WriteLine("Your Age is " & vbTab & vbTab & ageStr)

WScript.StdOut.WriteLine(vbCrLf & "Your Age in 10 years is......." & _

ageStr10 & vbCrLf)

WScript.stdOut.WriteLine("End of Program")

' VBScript: NameAge.vbs

' Written by:

' Date:

' Class: COMP230

' Professor:

' ================================================

' Create name and age variables

name = ""

ageStr = ""

' Prompt User for Name and Age

WScript.StdOut.Write("Please Enter your Full Name..............")

name = WScript.StdIn.ReadLine()

WScript.StdOut.WriteLine() 'Skip 1 line

WScript.StdOut.Write("Please Enter you age................")

ageStr = Wscript.StdIn.ReadLine()

' Calculate Age+10 and assign to ageStr10

agestr10 = CStr( CInt(ageStr)+10 )

' Display Name and Age Values

WScript.StdOut.WriteBlankLines(2) 'Skip 2 lines

WScript.StdOut.WriteLine("Your Name is " & vbTab & vbTab & name)

WScript.StdOut.WriteLine("Your Age is " & vbTab & vbTab & ageStr)

WScript.StdOut.WriteLine(vbCrLf & "Your Age in 10 years is......." & _

ageStr10 & vbCrLf)

WScript.stdOut.WriteLine("End of Program")

Copy your NameAge.vbs program from NotePad++ and paste it...