Dim str As String = ""For i As Integer = 1 To 12 str &= Date.today.year & "-" & format(i, "00") & "|"Nextmsgbox(str)
加好友 
发短信
Post By：2019/4/17 18:26:00 [显示全部帖子]
