VB 提示语句未结束什么意思?

发布网友 发布时间：2023-07-27 09:34

我来回答

共3个回答

热心网友 时间：2024-12-02 02:48

程序第一行语法错误，该行内容目前为：
Dim na As String _

需要修改为：
Dim na
补充解释：VBS不允许指定类型，定义的变量、函数都不可以；另外，图上代码每一行木为的下划线都是多余的，需要删除。

热心网友 时间：2024-12-02 02:48

这样试试看？
Function Custom_GL(NUMBER) 'Custom_GL表示软件要调用的函数名,这个不可改变
Custom_GL = False 'False表示NUMBER不会被过滤,首先初始化设置号码不被过滤

BW = CInt(Left(NUMBER, 1)) 'BW表示号码的百位
SW = CInt(Mid(NUMBER, 2, 1)) 'SW表示号码的十位
GW = CInt(Right(NUMBER, 1)) 'GW表示号码的个位
Dim t As Integer, h As Integer, y As Integer
b = BW
e = SW
f = GW
If b < e Then
t = b
b = e
e = t
End If
If b < f Then
t = b
b = f
f = t
End If
If e < f Then
h = b - e
Else
h = b - f
End If
y = (b + e + f) Mod 10
If (y Mod 2 <> 0) And (h Mod 2 <> 0) Then
S = 20
ElseIf (y Mod 2 = 0) And (h Mod 2 = 0) Then
S = 10
ElseIf (y Mod 2 <> 0) And (h Mod 2 = 0) Then
S = 30
ElseIf (y Mod 2 = 0) And (h Mod 2 <> 0) Then
S = 40
End If
t1 = "%条件%" ‘这二行改过了
If InStr("," & t1 & ",", "," & S & ",") <> 0 Then
Custom_GL = True '如果满足上面条件的就是true,也就是号码就会被过滤掉
Else
Custom_GL = False
End If
End Function

热心网友 时间：2024-12-02 02:49

程序句尾那个下划线_是多余的。在VB里，句尾下划线_ 被识别为合并上下两行。这样，把所有行拼接到一起时，语法就不对了。