{[ promptMessage ]}

Bookmark it

{[ promptMessage ]}

5 module module1 sub main dim keepgoing as integer 1

Info iconThis preview shows pages 3–4. Sign up to view the full content.

View Full Document Right Arrow Icon
7.5 Module Module1 Sub Main() Dim keepGoing As Integer = 1 Dim Count As Integer = 5 pingMe() openWebsite() finalOutput() While Count > 0 Console .WriteLine( "Count down . .." Count -= 1 End While Console .ReadLine() End Sub Sub pingMe() Shell( "Ping.exe 127.0.0.1" , , True ) End Sub Sub openWebsite() Dim myTargetURL As String = "http://www.microsoft.com" System.Diagnostics. Process .Start(myTargetURL) End Sub Sub finalOutput() Console .WriteLine( "Complete and explanation of what this program does." ) Console .WriteLine( "The Shell function and ping.exe check for a response from the web server" ) Console .WriteLine( "Dim is how we declare a variable." ) Console .WriteLine( "Press any key to continue. .." ) Console .ReadLine() End Sub End Module
Background image of page 3

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full Document Right Arrow Icon
7.6 Module Module1 Sub Main() Dim Counter As Integer = 0 Dim toPower As Integer = 2 Dim Number As Integer = 2 While Counter < 7 toPower = 2 ^ Number Console .WriteLine( "2 to the power of " & Number & " is " Counter += 1 Number += 1 End While Console .ReadLine() End Sub End Module
Background image of page 4
This is the end of the preview. Sign up to access the rest of the document.

{[ snackBarMessage ]}

Page3 / 4

5 Module Module1 Sub Main Dim keepGoing As Integer 1 Dim...

This preview shows document pages 3 - 4. Sign up to view the full document.

View Full Document Right Arrow Icon bookmark
Ask a homework question - tutors are online