VB —万年历实例 (2)
上集中只是显示星期几，不够全面，完善后如下：
1、创建lbl1、lbl2、lbl3、txt1、cmd1、Timer1
2、lbl：“输入年月日（如2000-8-16）：”，设置lbl、txt1、cmd1的字体大小和颜色。Timer1的Enable属性设为False，Interval属性设为：1000。
3、双击cmd1，进入代码编辑窗口，敲入：
Private Sub Timer1_Timer()
Dim c As Date
c = Time
lbl3.Caption = CStr(c)
End Sub
——————————————————
Private Sub cmd_Click()
If txt1.Text = "" Then
MsgBox "请输入年月日！", , "错误！"
lbl2.Caption = ""
Exit Sub
End If
Timer1.Enabled = True
Dim a, b
b = Val(txt1.Text)
a = Weekday(b)
Select Case a
Case 1
lbl2.Caption = "星期日"
Case 2
lbl2.Caption = "星期一"
Case 3
lbl2.Caption = "星期二"
Case 4
lbl2.Caption = "星期三"
Case 5
lbl2.Caption = "星期四"
Case 6
lbl2.Caption = "星期五"
Case 7
&n
相关文档：
VB 字节数组和字符串的转换问题 (String<>Byte)
Posted by JiaJia 16 March,2009 (2)Comment
一、 前言
数据类型转换在编程中经常用到，VB6提供了一整套类型转换的函数。但是，在进行类型转换时，有时候仅仅依靠VB提供的函数是不能达到自己的目的的。因此，需要考虑用其他的方法来完成数据类型转换。本文� ......
·错误类型
·编程员的错误（比如分母不能是0，参数个数或数据类型不对应）
·环境方面的错误（比如文件太大，磁盘放不下）
·时间上的错误（比如视图给尚未完成加载的窗体设置焦点）
·创建错误处理程序
......
·创建具有很强内聚力的模块
·创建更加容易调试和维护的过程
·创建高度专用的过程
·创建松散连接的过程
·尽量使过程具有独立性
·提高过程的扇入性
·降低过程的扇出性
·编程原则
·为过程和模块赋予表义性强的名字
&middo ......
昨天晚上，米老师把我叫到办公室。问我学了一周感觉如何，我当时很汗颜。米老师身体不好，电脑版班么多学生，他可以让自己轻松一点儿，但他没有。作为几十个学生的免费老师，做为人父人夫，老师尚且知道我学了一周成果怎样呢，但我自己却没有想过，很惭愧。犯任何错误第一次可以原谅，但绝不应该让它出现第二次，学了一周， ......
昨天下午我和小胖被米老师传唤到市医院去，米老师想听听他周六上的课对我的影响有多大，我回答的基本内容和《10年 VB 1》里面的内容差不多，但米老师感觉很空洞，感觉我在泛泛而谈，其实我也有感觉。
为了将米老师说的总结方法应用于实践，我这两天敲代码发现MsgBox，InputBox，Print的用法差不多，然后就将其总结如下：
......
