这不完全是一个循环的结构。它执行一系列重复引用单个对象或结构的语句。
这个循环结构的语法是:
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