vb能否在文本框中显示出前十天的日期及后十天的日期？

记得将text的MultiLine属性设置为true
Private Sub Command1_Click()
Text1 = ""
For i = 10 To 1 Step -1
Text1 = Text1 & DateAdd("d", -i, Date) & vbCrLf
Next i
Text1 = Text1 & Date & "今天" & vbCrLf
For ii = 1 To 10
Text1 = Text1 & DateAdd("d", ii, Date) & vbCrLf
Next ii
End Sub

首先，能。

我也只是说一下大概的思路。
利用Date函数得到当前的日期。利用Mid函数获得年月日（方法：由于年月日的间隔符是“-”，查找“-”即可获得……）然后判断是三十天的月份还是三十一天的，或者是平年闰年的二月……（这个你知道吧~）最后……就行了呗