7,789
社区成员
发帖
与我相关
我的任务
分享那位大哥帮看看 这句为什么总编译不过去 xiexie
Private Sub Form_Load()
Dim s1 As String
Dim s3 As Integer
s1 = year(Now)
s1 = Right$(s1, 2)
end sub
Dim s1 As String
Dim s3 As Integer
s1 = year(Now)
s1 = Right$(s1, 2)
end sub
...全文
请发表友善的回复…
发表回复
slxn 2003-09-12
- 打赏
- 举报
rfq 说的是对的 但为什么重建工程后就可以了呢
slxn 2003-09-10
- 打赏
- 举报
我搞的都晕了！！ 大家帮再看看
didishu0807 2003-09-10
- 打赏
- 举报
没问题啊！
slxn 2003-09-10
- 打赏
- 举报
工程－>引用项中的 Visual Basic For Application 引用是msvbvm60.dll，
slxn 2003-09-10
- 打赏
- 举报
Random(随便) 应该是对的 我马上试一下
slxn 2003-09-10
- 打赏
- 举报
year(now)返回是sting型的 设为integer 不行的
Random 2003-09-10
- 打赏
- 举报
看看 工程－>引用项中的 Visual Basic For Application 引用的是不是msvbvm60.dll，如果没有引用msvbvm60.dll，则引用msvbvm60.dll
libirds 2003-09-10
- 打赏
- 举报
把s1声明为integer 看看啊
slxn 2003-09-10
- 打赏
- 举报
改成s1 = cstr(year(Now)) 没有用的
slxn 2003-09-10
- 打赏
- 举报
是s1=Right&(s1,2) 过不去 提示：类型-声明字符与声明的数据类型不符合
hztgames 2003-09-10
- 打赏
- 举报
s1 = cstr(year(Now))
marrytone 2003-09-10
- 打赏
- 举报
s1 = cstr(year(Now))
s1 = Right$(s1, 2)
s1 = Right$(s1, 2)
TechnoFantasy 2003-09-10
- 打赏
- 举报
可以通过啊，是哪句没法通过？
rfq 2003-09-10
- 打赏
- 举报
重建工程
把代码靠进去
把代码靠进去
kbkingbird 2003-09-10
- 打赏
- 举报
Private Sub Command1_Click()
Dim s1 As String
Dim s3 As Integer
s1 = CStr(Year(Now))
s1 = Right$(s1, 2)
Print s1
End Sub
晕～可以啊～～输出03啊～～没有错啊～～
Dim s1 As String
Dim s3 As Integer
s1 = CStr(Year(Now))
s1 = Right$(s1, 2)
Print s1
End Sub
晕～可以啊～～输出03啊～～没有错啊～～
guoyx 2003-09-10
- 打赏
- 举报
是可以呀，再不行是不是你vb出问题了！！！
