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

2016-08-04 08:08:11  分类: VB程序设计教程第4版答案刘炳文  参与:

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

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

本站文章搜索:

<< 上一篇下一篇 >>

    相关文章

    搜索

    Tags列表

    扫我手机登录

    赞助商链接