在VB编程中，可以使用以下方法来获取和显示年月日：
使用`Date`和`Time`函数
`Date`函数用于返回当前系统日期，`Time`函数用于返回当前系统时间。
示例代码：
```vb
Dim currentDate As Date
currentDate = Date
MsgBox "当前日期是： " & currentDate
```
使用`DateTime.Now`
`DateTime.Now`属性用于获取当前的日期和时间。
示例代码：
```vb
Dim currentDateTime As DateTime
currentDateTime = DateTime.Now
Dim formattedDate As String = currentDateTime.ToString（"yyyy年MM月dd日"）
MessageBox.Show（formattedDate）
```
使用`Year`、`Month`和`Day`函数
这些函数分别用于获取日期的年、月、日部分。
示例代码：
```vb
Dim currentDate As Date
currentDate = Date
Dim year As Integer = Year（currentDate）
Dim month As Integer = Month（currentDate）
Dim day As Integer = Day（currentDate）
MsgBox "今天是： " & year & "年" & month & "月" & day & "日"
```
使用`Format`函数
`Format`函数用于将日期格式化为指定的字符串格式。
示例代码：
```vb
Dim currentDate As Date
currentDate = Date
Dim formattedDate As String = Format（currentDate, "yyyy年MM月dd日"）
MessageBox.Show（formattedDate）
```
建议
选择哪种方法取决于具体的需求和编程环境。
如果需要显示当前日期和时间，使用`DateTime.Now`和`Format`函数较为方便。
如果只需要获取年、月、日，使用`Year`、`Month`和`Day`函数更为直接。