下面代码那里错了？？？

Private Sub Combo1_Click()
File1.Pattern = Combo1.Text

End Sub

Private Sub Command1_Click()
Dim sourfile As String
Dim destfile As String
str2$ = "请输入要复制的目的文件名："
sourfile = choicefile
destfile = InputBox$(str2$, "复制文件")
If destfile <> " " Then
FileCopy sourfile, destfile
End If
End Sub

Private Sub Command2_Click()
Dim oldfile As String
Dim newfile As String
Title$ = "重命名"
str0$ = "请再输入一遍需要修改的文件名（全路径）"
str1$ = choicefile + Chr$(10) + Chr$(13) + str0$
str2$ = "请输入新文件名"
oldname = InputBox$(str1$, Title$)
msg$ = "确认被更改的文件名" & oldname
p = MsgBox(msg$, 35, "数据检查框")
If p = 6 Then
newname = InputBox(str2$, titel$)

Name oldname As newname
MsgBox "你的新文件名是：" + newname
End If

End Sub

Private Sub Command3_Click()
Dim kill

下面代码那里错了？？？ 下面的javascript代码到底那里错了 网页代码 那里错了？ 请问下面代码哪错了? XP2蓝屏代码，那里出了错？ 请问这段代码那里错了 看看我的代码那里错了 jsp 代码看下,那里错了 帮我看一下下面的代码那里出错了?(我估计是除号) 看看下面的代码 错在什么地方了