编写程序，按下列格式输出月历，并把结果放入一个文件中：

SUN MON TUE WED THU FRI SAT
 1      2      3      4     5     6     7
 8      9     10     11   12    13  14
 15    16   17     18   19    20   21
 22    23   24     25   26    27   28
 29    30   31

解：在窗体上建立一个命令按钮，然后编写如下事件过程。

Private Sub Command1_Click()

Open "d:\monology.txt" For Output As #1
Print #1, "SUN    "; "MON    "; "TUE    "; "WED    "; "THU    "; "FRI    "; "SAT"
Print #1, ""
For i = 1 To 31
If i Mod 7 = 0 Then
Print #1, i
Print #1, ""
Else
If i < 10 Then
Print #1, i; "    ";
Else
Print #1, i; "   ";
End If
End If
Next i
Close #1

    MsgBox "已经在D盘根目录里建立了 monology.txt 点“确定”将打开它。"
    Shell "c:\windows\notepad.exe " & "d:\monology.txt", vbNormalFocus

End Sub

程序运行后，单击按钮，将在当前目录下建立一个名为monology.txt的文件，程序将调用记事本打开它。

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_14.9.html