Structure CheckRecord
Dim intCheckNumber As Integer
Dim dteCheckDate As Date
Dim sngCheckAmount As Single
Dim strCheckPaidTo As String
End Structure
public class Test
public Shared Sub Main
Dim udtCheck As CheckRecord
'Add data to the structure.
udtCheck.intCheckNumber = 275
udtCheck.dteCheckDate = #9/12/2001#
udtCheck.sngCheckAmount = 104.25
udtCheck.strCheckPaidTo = "Gas Co."
Console.WriteLine("CHECK INFORMATION")
Console.WriteLine("Number: " & udtCheck.intCheckNumber)
Console.WriteLine("Date: " & udtCheck.dteCheckDate)
Console.WriteLine("Amount: " & udtCheck.sngCheckAmount)
Console.WriteLine("Paid To: " & udtCheck.strCheckPaidTo)
End Sub
End class
|