VB.Net With... End With循环

这不完全是一个循环的结构。它执行一系列重复引用单个对象或结构的语句。

这个循环结构的语法是：

With object
    [ statements ]
End With

示例

Module loops
   Public Class Book
      Public Property Name As String
      Public Property Author As String
      Public Property Subject As String
   End Class
   Sub Main()
      Dim aBook As New Book
      With aBook
          .Name = "VB.Net Programming"
          .Author = "Small Su"
          .Subject = "Information Technology"
      End With
      With aBook
          Console.WriteLine(.Name)
          Console.WriteLine(.Author)
          Console.WriteLine(.Subject)
      End With
      Console.ReadLine()
   End Sub
End Module

执行上面示例代码，得到以下结果 -

VB.Net Programming
Small Su
Information Technology