Dim d0 As Date = #04/09/2022 10:00# '开始时间
Dim d1 As Date = #04/10/2022 10:00# '开始时间
Dim d2 As Date = #04/11/2022 10:00# '开始时间
Dim d3 As Date = #04/12/2022 10:00# '开始时间
Dim d4 As Date = #04/13/2022 10:00# '开始时间
Dim d5 As Date = #04/14/2022 10:00# '开始时间
Dim d6 As Date = #04/15/2022 10:00# '开始时间
Dim d7 As Date = #04/16/2022 10:00# '开始时间
Dim d8 As Date = #04/17/2022 10:00# '开始时间
Dim d9 As Date = #04/18/2022 10:00# '开始时间
For i As Integer = 0 To 9
MessageBox.Show( "d" & i )
Next
这样显示出来 的是 字符 d1-d9 ,而我想要的是显示 时间 d1-d9