Question

VB缺少语句结束 怎么回事

Private Function FindWindow Lib "user32 " Alias "FindwindowA" (ByVal lpClassName As String,ByVal lpwindowName As String) As Long

Answer 1

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]

Answer 2

正确语句如下：
Private
Sub
Command1_Click()
Dim
scoore
As
Integer,
temp
As
String
scoore
=
Val(Text1.Text)
temp
=
"成绩等级为:"
Select
Case
scoore
Case
0
To
59
Label2.Caption
=
temp
+
"不及格"
Case
50
To
69
Label2.Caption
=
temp
+
"及格"
Case
80
To
100
Label2.Caption
=
temp
+
"优良"
Case
Else
Label2.Caption
=
"成绩出错!"
End
Select
End
Sub
楼上的别管成绩冲突不冲突，就是冲突语只是执行的结果正确与否问题，不会影响语法的。

Answer 3

Function 前面加上 Declare 表示调用外部库中的函数

Answer 4

逗号：用来分隔的输出，每个输出的宽度为18个字符的位置，使每一行分为四个区域，在一个标准的格式，一般用在print语句的参数中。
分号也可用于print语句，在一个紧凑的格式是用来分隔的输出，留一个空格输出字符的输出值之间的关系？除了留下一定的空间外，还留下一个符号位。
冒号之间的语句将是一个物理线路划分成多个逻辑线（即每行一个以上的语句，中间用冒号隔开）
Label1的=省略号，默认的是Label1.Caption = ，类型为字符串，所以你不能用一个分号连接，只能使用字符串连接运算符连接好习惯是尽量不使用+来连接字符串

Answer 5

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long