Imports System
Class Sample
Public Shared Sub Main()
Dim arg0 As Integer = 1
Dim arg1 As Long = 222222
Dim arg2 As Single = - 3.3F
Dim arg3 As Double = 5.5
Dim opt4 As String = "First optional argument."
Dim opt5 As Char = "X"c
Dim opt6 As Boolean = True
Console.Write("Mandatory arguments:" & vbCrLf & _
"argument 0: {0}" & vbCrLf & _
"argument 1: {1}" & vbCrLf & _
"argument 2: {2}" & vbCrLf & _
"argument 3: {3}" & vbCrLf & vbCrLf & _
"Optional arguments:" & vbCrLf & _
"optional 4: {4}" & vbCrLf & _
"optional 5: {5}" & vbCrLf & _
"optional 6: {6}" & vbCrLf, _
arg0, arg1, arg2, arg3, _
opt4, opt5, opt6)
End Sub
End Class
'
|
