191问答库 > 求教VB！编译错误：在End Sub,End Function 或End属性后面只能出现注释

求教VB！编译错误：在End Sub,End Function 或End属性后面只能出现注释

2025-02-25 06:35:42

推荐回答（5个）

回答1：

Option Explicit的前面多了一句Private Sub timer1_Timer()，去掉吧。
另外Dim sndFlag As LongtmChk = Time这句语法也不对，应该这样写：
Dim sndFlag As LongtmChk
sndFlag = Time

回答2：

把=time的那个地方，分开写！~
vb里声明和赋值不可以写在一行！~

比如
dim a as integer
a=0
而写成
dim a as integer = 0 这样就会报错！~

Dim sndFlag As LongtmChk = Time
改为
Dim sndFlag As LongtmChk
sndFlag= Time

回答3：

If App.PrevInstance Then End
老兄你把这句末尾的end 删除
变成这样就好了
If App.PrevInstance Then exit sub

回答4：

VB 的注释是单引号 '

回答5：

怎么两个end sub? 把第二行的end sub删了吧。

求教VB！编译错误： 在End Sub,End Function 或End属性后面只能出现注释

求教VB！编译错误：在End Sub,End Function 或End属性后面只能出现注释