要显示当前年月日，可以使用以下代码：
Dim currentDate As String = DateTime.Now.ToString("yyyy年MM月dd日") MessageBox.Show(currentDate)
这段代码使用 DateTime.Now 获取当前日期和时间，然后使用 .ToString("yyyy年MM月dd日") 格式化为指定的年月日格式。最后，使用 MessageBox.Show() 方法将日期显示在一个消息框中。
DateTime.Now
.ToString("yyyy年MM月dd日")
MessageBox.Show()
