Foxtable(狐表)用户栏目专家坐堂 → [求助] 这段代码有错吗?不能执行!


  共有20124人关注过本帖树形打印复制链接

主题:[求助] 这段代码有错吗?不能执行!

帅哥哟,离线,有人找我吗?
don
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1812 积分:12993 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2008/11/26 11:00:00 [显示全部帖子]

If 语句

If语句有三种形式

单分支形式:

If 条件 Then
    代码

End If

条件成立的话,则执行代码。
例如在命令窗口输入下面的代码:

Dim Mark As Integer = 61
If
Mark >= 60 Then
    Output.Show(
"及格")
End
If

执行之后,上述的代码会得到结果"及格",如果将变量Mark的值改为59,则不会返回任何内容。

双分支形式:

If 条件 Then
    代码1

Else

    代码2

End
If

条件成立,则执行代码1,不成立,则执行代码2。
例如,在命令窗口输入下面的代码:

Dim Mark As Integer = 61
If
Mark >= 60 Then
    Output.Show(
"及格")
Else

    Output.Show(
"不及格")
End If

执行之后,上述的代码会得到结果"及格",如果将变量Mark的值改为59,则会得到结果"不及格"。

多分支形式:

If 条件1 Then
    代码1

ElseIf
条件2 Then
    代码2

ElseIf
条件3 Then
    代码3

    .....
Else

    代码X

End If

条件1成立,执行代码1,条件2成立,执行代码2,其余类推,所有条件均不成立,则执行代码X。
例如在代码窗口输入:

Dim Mark As Integer = 90
If
Mark >= 90 Then
    OutPut.Show(
"优秀")
ElseIf
Mark >= 80 Then
    OutPut.Show(
"良好")
ElseIf
Mark >= 60 Then
    OutPut.Show(
"及格")
Else

    OutPut.Show(
"不及格")
End
If


 回到顶部