Question

VB语言的问题

Sub AgeCalc2()
Dim fullnamestring
Dim DateOfBirth As Date
Dim ageinteger
fullnamestring = "johnsmith"
DateOfBirth = #1/3/1967#
ageinteger = Year(Now()) - Year(DateOfBirth)
Debug.Print fullnamestringlong; "is"; longageinteger; "yearold."

End Sub

读不出来啊……
新手求大神啊……

Answer 1

一是过程名不对。sub age calc2()
二是年龄等于时间相减出错。首先是要用函数DATEDIFF,其次，日期格式要用FORMAT一致起来，再次DEBUG.PRINT显示的内容，与前面定义的并不一致。
正确的做法是：
Private Sub Command1_Click()
Dim age As Integer
Dim dateofbirthday As Date
Dim fullnamestring As String
fullnamestring = "johnsmith"
dateofbirthday = #2/4/1967#
age = DateDiff("y", Format(dateofbirthday, "yyyy"), Format(Now, "YYYY"))
Debug.Print fullnamestring, "is", age, " yeas old"
End Sub

Answer 2

Dim fullnamestring
Dim DateOfBirth As Date
Dim ageinteger
fullnamestring = "johnsmith"
DateOfBirth = #1/3/1967#
ageinteger = Year(Now()) - Year(DateOfBirth)
Print fullnamestring; "  is  "; ageinteger; "  yearold."
'你的函数引用错误了，
'fullnamestringlong应该是fullnamestring
'longageinteger应该是ageinteger
'请参考采纳！谢谢！

Answer 3

debug 语句中的变量有问题啊
Debug.Print fullnamestringlong; "is"; longageinteger; "yearold."

fullnamestringlong longageinteger 这两个变量没定义啊，要是读出来 了才怪呢
这估计是VB6的一个弱点吧，要是在c#里肯定告诉你了，变量没定义，而定义了的变量没有使用……

Answer 4

Dim fullnamestring
Dim DateOfBirth As Date
Dim ageinteger
fullnamestring = "johnsmith"
DateOfBirth = #1/3/1967#
ageinteger = Year(Now()) - Year(DateOfBirth)
Debug.Print fullnamestring; " is"; ageinteger; "years old."