vb编译错误缺少
‘壹’ 在练习VB过程中出现问题：VB编译错误缺少 列表分隔符或）
n=Val(InputBox("请输入第" & i & "个数"))
注意用空格分开
‘贰’ VB编译错误 缺少行号或标签或语句或语句结束 在线等 急
Private Sub Form_Load()
Txt1.Text = "您喜欢的水果是：" & Form1.StrA & vbCrLf _
& "您喜欢的饮料是：" & Form1.StrB & vbCrLf _
& "您喜欢的运动是：" & Form1.StrC & vbCrLf
End Sub
‘叁’ vb中编译错误 缺少:语法结束什么意思
就是你编程序的时候只编写了开始语句 没有写结素语句
比如If语句完整的是If开始,End if结束
如果你只写了if就会出现这样的情况
你检查一下哪儿忘了写了
‘肆’ VB运行时出现“编译错误：缺少as"
出现“编译错误：缺少as"的原因是你的语句“open f:\121.w for output as #1”中缺少了引号。应该是这样的：
open "f:\121.w" for output as #1
因为VB中的冒号“:”用来分割两个语句，这样分割以后前面的语句就成了“open f”，是一个不完整的语句，就“缺少as”咯！
你上面的代码修改后应该是：
Private Sub command1_click()
Dim s As Integer
s = 5
Close #1
Open "f:\121.w" For Output As #1
Print #1, s
Close #1
End Sub
‘伍’ VB说编译错误，缺少：语句结束。请问哪里错了
模糊的看到 应该是左边引号后面 没有加连接符号 用+ 或者&都可以 就不会出现这样的错误了
‘陆’ VB 编译错误：缺少：语句结束
后面缺少 end sub 语句 这是按钮点击事件，也属于一个过程，所有过程都必须有 end 来结束
如果你在编写的时候 直接双击窗体上的按钮，然后在自动生成的事件代码里面编写就不会有这种问题
‘柒’ vb程序老是显示编译错误。缺少：结束语句
给你修改了一下：
Dim FileNames() As String ' 用于保存打开的文件名称
Dim PlayFileNum As Integer ' 用于计算正在播放的文件序号
Dim TotalFile As Integer '用于统计打开的文件总数
Private Sub cmdOpen_Click() ' 打开
On Error GoTo ExitOpen
CommonDialog1.Flags = cdlOFNAllowMultiselect Or cdlOFNFileMustExist Or cdlOFNExplorer
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen '显示"打开"对话框
'以vbNullChar作为子字符串的边界分隔字符串CommonDialog1返回的FileName?
FileNames() = Split(CommonDialog1.FileName, vbNullChar)
If UBound(FileNames) = 0 Then '用户只打开了一个文件?
Form2!ShockwaveFlash1.Movie = FileNames(0)
TotalFile = 1
PlayFileNum = 0
Else ': 用户打开了多于一个文件?
Form2!ShockwaveFlash1.Movie = FileNames(0) + " \ " + FileNames(1)
TotalFile = UBound(FileNames)
PlayFileNum = 1
End If
StatusBar1.Panels(1).Text = "共打开了" + Trim(Str(TotalFile)) + "个文件"
cmdPlay_Click
End Sub
-----------------
你的错误：
1.注释要用单引号'分隔注释和语句。
2.双引号不能用全角的，要用英文半角的双引号。
‘捌’ VB编译错误 缺少语句结束怎么办
1.缺少declare,正确的描述如下
private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
2 declare的说明
Declare 语句
用于在模块级别中声明对动态链接库 (DLL) 中外部过程的引用。
语法 1
[Public | Private] DeclareSubnameLib"libname" [Alias"aliasname"] [([arglist])]
语法 2
[Public | Private] DeclareFunctionnameLib"libname" [Alias"aliasname"] [([arglist])] [Astype]
Declare 语句的语法包含下面部分：
部分 描述
Public 可选的。用于声明对所有模块中的所有其它过程都可以使用的过程。
Private 可选的。用于声明只能在包含该声明的模块中使用的过程。
Sub 可选的（但Sub 或 Function 二者需选其一）。表示该过程没有返回值。
Function 可选的（但Sub 或 Function 二者需选其一）。表示该过程会返回一个可用于表达式的值。
name 必需的。任何合法的过程名。注意动态链接库的入口处（entry points）区分大小写。
Lib 必需的。指明包含所声明过程的动态链接库或代码资源。所有声明都需要Lib 子句。
libname 必需的。包含所声明的过程动态链接库名或代码资源名。
Alias 可选的。表示将被调用的过程在动态链接库 (DLL)
中还有另外的名称。当外部过程名与某个关键字重名时，就可以使用这个参数。当动态链接库的过程与同一范围内的公用变量、常数或任何其它过程的名称相同时，也可以使用
Alias。如果该动态链接库过程中的某个字符不符合动态链接库的命名约定时，也可以使用 Alias。
aliasname 可选的。动态链接库或代码资源中的过程名。如果首字符不是数字符号 (#)，则
aliasname 是动态链接库中该过程的入口处的名称。如果首字符是
(#)，则随后的字符必须指定该过程的入口处的顺序号。
arglist 可选的。代表调用该过程时需要传递的参数的变量表。
type 可选的。Function 过程返回值的数据类型；可以是 Byte、布尔、Integer、Long、Currency、Single、Double、Decimal（目前尚不支持）、Date、String（只支持变长）或 Variant，用户定义类型，或对象类型。
arglist 参数的语法以及语法各个部分如下：
[Optional] [ByVal | ByRef] [ParamArray] varname[( )] [Astype]
‘玖’ vb编译错误：缺少变量或过程，不是模块
编译错误：
缺少变量或过程，不是模块。
'这个是模块中的代码，（不在窗体的代码区内，在一个模块文件中）
Public Sub SEND_SERINFO(IP As String, Text As String)
main.wsk1.RemoteHost = IP
main.wsk1.SendData "SER_INFO " + Text
End Sub
'然后在窗体代码模块中调用
call send_serinfo(ip,text)
然后进行调试
‘拾’ VB 编译错误缺少表达式为什么
Private Sub Command1_Click()
Dim y%, M%
y = Val(Text1.Text)
Choose后面你掉了一个括号了
M = Val(Text2.Text)
Print "本年为;"; y; "年"; M; "月"; IIf(Day(DateSerial(y, 3, 0)) = 29, "闰年", "不是闰年")
Print "目前还是"; Choose((M + 2) \ 3, "春", "夏", "秋", "冬"); "天"
Print "本月有; "; Day(DateSerial(y, M + 1, 0)); "天 "
End Sub