VB编写程序，按月历格式将月历写入一个顺序文件中，该顺序文件用记事本打开，效果如图

VB编写程序，按月历格式将月历写入一个顺序文件中，该顺序文件用记事本打开，效果如图

Option Explicit

Private Sub Form_Click()
 Dim s As String
 s = InputBox("年份-月份：（YYYY-MM）")
 Dim d1 As Date
 Dim d2 As Date
 d1 = CDate(s & "-1")
 d2 = DateAdd("m", 1, d1)
 Dim days As Byte
 days = d2 - d1
 Dim i As Long
 Dim outstring As String
 outstring = "SUN MON TUE WED THU FRI SAT" & vbCrLf
 Dim start As Byte
 start = Weekday(d1)
 For i = 1 To start - 1 Step 1
  outstring = outstring & "    "
 Next
 For i = 1 To days
  outstring = outstring & Right("  " & i, 3) & " "
  start = start + 1
  If start = 8 Then
   outstring = outstring & vbCrLf
   start = 1
  End If
 Next
 
 Print outstring
 Open App.Path & "1.txt" For Output As #1
 Print #1, outstring
 Close #1
End Sub