vb中if嵌套语句

if 条件为真 then
执行语句
end if(判断结束)
if a=3 then
if b=2 then
if c=7 then
if d=8 then
以上条件都成立的时候执行下边一段话
.....执行代码并结束这个判断
（假如d=5,则执行下边的代码）
else
...........执行代码
end if （这里是结束d=8 这个条件的）
end if（这里是结束c=7这个条件的）
end if（这里是结束b=2这个条件的）
end if（这里是结束a=3这个条件）

vb6中 if then 可以允许写在一行中，如果一行中的then后需要跟不止一个语句，可以在语句间加冒号，如：

If 2 = 2 Then Text1.Text = 2: Text2.Text = 2

要理解这一点，你只需要记住 VB语句与语句之间可以通过换行符来识别．．．

if语句可以像下面这样子写

第一种
if ... then ...
第二种
if ... then

...
...
end if

第三种
if ... then
...
...
else
...
...
end if
第四种
if ... then ... else ...

总的来说，如果是分开两行写的话，就要end if，一行的就不用了

不需要了
假如判断条件a=b为真，执行SubA，否则执行SubB，用下面的代码格式可以省略End If,Else不用也可以。

If a=b Then SubA Else SubB

写在一行可以省略End If。

如果a=b你要同时执行SubA和SubB的话，语句间用半角的:隔开就可以了
If a=b then SubA:SubB Else SubB

用:符号可以在一行代码中写n行代码。
例如 a=b:a=c:a=d
等价于
a=b
a=c
a=d
这样也是不会出错的。

你上面所提到的
if keyascii=13 then text2.setfocus
等价于
if keyascii=13 then
text2.setfocus
End If
如果分开两行写必须有End If
因为编译器需要知道你在什么时候结束If判断，判断条件和处理结果写在一行编译器可以知道你什么时候结束If语句，如果写在两行，编译器就无法识别了，所以必须添加End If。

if keyascii=13 then text2.setfocus
这一句不需要end if