Visual Basic With… End With 语句

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 Programming"
     .Author = "Zara Ali"
     .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 Programming
Small Su
Information Technology