vb代码没错，但运行不了，为什么？

Question

麻烦走过瞧见的帮我看看，谢谢！下面这段代码是抄的书上的，可是在我的电脑上出现了问题。运行时报错。
第四行和第六行报错。Private Sub Command1_Click()
    Dim i
    i = DateDiff("d", CDate(Text1), CDate(Text2))
    Label3.Caption= "日期差："&i& "天"
    i = Abs(i)
    Label4.Caption="绝对值之差："&i&"天"
End SubPrivate Sub Form_Load()
    test2.Text = Date
End Sub
vbcommanddate运行不了

Answer 1

不知道你的第4和第6行究竟是哪一行？难道是Label3和Label4这两行？，如果是请将&i&改为& i &。还有1楼的也指出了一个错误

Answer 2

Private Sub Command1_Click()
    Dim i
    i = DateDiff("d", CDate(Text1), CDate(Text2))
    Label3.Caption= "日期差：" & i & "天"
    i = Abs(i)
    Label4.Caption= "绝对值之差：" & i & "天"
End SubPrivate Sub Form_Load()
    Text2.Text = Date
End Sub错误如此多的书，不妨当废纸用。

Answer 3

Private Sub Command1_Click()
    Dim i
    i = DateDiff("d", CDate(Text1.text), CDate(Text2.text))
    Label3.Caption= "日期差："& i & "天"
    Label3.refresh
    i = Abs(i)
    Label4.Caption="绝对值之差："& i &"天"
    Label4.refresh
End SubPrivate Sub Form_Load()
    test2.Text = format(now(),"YYYY-MM-DD")
End Sub

Answer 4

是不是你的系统日期格式被改动过，比如包含附加的中文信息等，如 xxxx-xx-xx xx:xx:xx 下午 之类的，如果是这样，在日期转换的时候会出现问题的，还有，你的对象名是不是写错了：
 test2.Text = Date
是不是应该是
text2.Text = Date
你可以这样改改代码看：Private Sub Command1_Click()
    Dim i
    i = DateDiff("d", _
                CDate(Format(Text1.Text, "yyyy-mm-dd HH:mm:ss")), _
                CDate(Format(Text3.Text, "yyyy-mm-dd HH:mm:ss")))
    Label3.Caption = "日期差：" & i & "天"
    i = Abs(i)
    Label4.Caption = "绝对值之差：" & i & "天"
End SubPrivate Sub Form_Load()
    'test2.Text = Format(Now, "yyyy-mm-dd")
    Text2.Text = Format(Now, "yyyy-mm-dd")
    Text1.Text = Format(Now, "yyyy-mm-dd")
    Text3.Text = "2011-1-1"
End Sub

Answer 5

类型不匹配，说明你在 Text1 中没有输入有效的日期。看来你真的需要好好学习，还要动脑。

Answer 6

文本框Text1.Text里木有日期格式的字符串