VB编程IF语句的使用

VB的这个if其实可以用意思来配上去的.. if在这里就是”如果/判断”. then在这里就是”接着”.else在这里就是”相反”..end if在这里就是”结束判断” ..

这些只是我的翻译..但是理解这些就比较好用了..

比如例子：

if * = “ok” then ‘ 如果*里面的内容是”ok” 那么就执行下列代码

msgbox “文本框里的内容是ok”

else ‘相反，如果*里面的内容不是”ok”， 那么就执行下列代码

msgbox “文本框里的内容不是ok”

end if

这里只是一个简单的判断.. 判断*里面的内容是不是”ok”

例子2:

if dir(“c:*”) <> “” then

msgbox “C盘有*”

else

msgbox “C盘没有*”

end if

总之，有if就必须要end if

后面有end if 前面也必须要 if

认真学喔..！ 加油..

请问一下vb中的if语句的用法

If。Then。Else 语句

根据表达式的值有条件地执行一组语句。

语法

If condition Then [statements][Else elsestatements]

或者，可以使用块形式的语法：

If condition Then

[statements]

[ElseIf conditionn Then

[elseifstatements] 。

[Else

[elsestatements]]

End If

If。Then。Else 语句的语法具有以下几个部分：

部分 描述

condition 必要参数。一个或多个具有下面两种类型的表达式：

数值表达式或字符串表达式，其运算结果为 True 或 False。如果 condition 为 Null，则 condition 会视为 False。

TypeOf objectname Is objecttype 形式的表达式。其中的 objectname 是任何对象的引用，而 objecttype 则是任何有效的对象类型。如果 objectname 是 objecttype 所指定的一种对象类型，则表达式为 True，否则为False。

statements 在块形式中是可选参数；但是在单行形式中，且没有 Else 子句时，则为必要参数。一条或多条以冒号分开的语句，它们在 condition 为 True 时执行。

conditionn 可选参数。与 condition 同。

elseifstatements 可选参数。一条或多条语句，它们在相关的 conditionn 为 True 时执行。

elsestatements 可选参数。一条或多条语句，它们在前面的 condition 或 conditionn 都不为 True 时执行。

说明

可以使用单行形式（第一种语法）来做短小简单的测试。但是，块形式（第二种语法）则提供了更强的结构化与适应性，并且通常也是比较容易阅读、维护及调试的。

注意 在单行形式中，按照 If。Then 判断的结果也可以执行多条语句。所有语句必须在同一行上并且以冒号分开，如下面语句所示：

If A > 10 Then A = A + 1 : B = B + A : C = C + B

在块形式中，If 语句必须是第一行语句。其中的 Else、 ElseIf，和 End If 部分可以只在之前加上行号或行标签。If 块必须以一个 End If 语句结束。

要决定某个语句是否为一个 If 块，可检查 Then 关键字之后是什么。如果在 Then 同一行之后，还有其它非注释的内容，则此语句就是单行形式的 If 语句。

Else 和 ElseIf 子句都是可选的。在 If 块中，可以放置任意多个 ElseIf 子句，但是都必须在 Else 子句之前。If 块也可以是嵌套的。

当程序运行到一个 If 块（第二种语法）时，condition 将被测试。如果 condition为 True，则在 Then 之后的语句会被执行。如果 condition 为 False，则每个 ElseIf 部分的条件式（如果有的话）会依次计算并加以测试。如果找到某个为 True 的条件时，则其紧接在相关的 Then 之后的语句会被执行。如果没有一个 ElseIf 条件式为 True（或是根本就没有 ElseIf 子句），则程序会执行 Else 部分的语句。而在执行完 Then 或 Else 之后的语句后，会从 End If 之后的语句继续执行。

提示 根据单一表达式来执行多种可能的动作时，Select Case 更为有用。不过，TypeOf objectname Is objecttype 子句不能在 Select Case 语句中使用。

注意 TypeOf 不能与诸如 Long、Integer 以及其他不是 Object 的固定数据类型一起使用。

关于VB的IF语句

Private Sub Form_Load()

* = 1111

* = 1111

End Sub

Private Sub Command1_Click()

If * = 1111 Then

* = 2222

* = 2222

ElseIf * = 2222 Then

* = 3333

* = 3333

ElseIf * = 3333 Then

* = 1111

* = 1111

End If

End Sub

用if ……else ……完全能解决你的问题，楼上几位都行的，但是如果你值太多，建议你用select case语句，更简洁。

Private Sub Form_Load()

* = 1111

* = 1111

End Sub

Private Sub Command1_Click()

Select Case *

Case 1111

* = 2222

* = 2222

Case 2222

* = 3333

* = 3333

Case 3333

* = 1111

* = 1111

End Select

End Sub

VB编程IF语句的使用

VB的这个if其实可以用意思来配上去的.. if在这里就是”如果/判断”. then在这里就是”接着”.else在这里就是”相反”..end if在这里就是”结束判断” ..

这些只是我的翻译..但是理解这些就比较好用了..

比如例子：

if * = “ok” then ‘ 如果*里面的内容是”ok” 那么就执行下列代码

msgbox “文本框里的内容是ok”

else ‘相反，如果*里面的内容不是”ok”， 那么就执行下列代码

msgbox “文本框里的内容不是ok”

end if

这里只是一个简单的判断.. 判断*里面的内容是不是”ok”

例子2:

if dir(“c:*”) <> “” then

msgbox “C盘有*”

else

msgbox “C盘没有*”

end if

总之，有if就必须要end if

后面有end if 前面也必须要 if

认真学喔..！ 加油..

vb中的if语句问题

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Boolean

* = a

* = b

* = c

If a Mod 3 = 0 And b Mod 3 = 0 Then

Print c = True

Else

Print c = False

End If

End Sub改这个？

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Boolean

* = a

* = b

* = c

If a Mod 3 = 0 And b Mod 3 = 0 Then

Print c = True

‘Print c = true 如果你的变量”C”是True则输出True，否则输出False。

‘如果你想输出“c = true”这个表达式，就用这条语句：print “c = true”

‘如果你想设置变量“C”为true则把Print取消，直接用 c=true 这条语句就行了。

Else

Print “c = False”

‘Print c = False 如果你的变量”C”是False则输出True，否则输出False。

‘如果你想输出“c = False”这个表达式，就用这条语句：print “c = False”

‘如果你想设置变量“C”为false则把Print取消，直接用 c=false 这条语句就行了。

End If

End Sub

‘顺便说一句，你的If语句不能再改了。

VB里的IF语句,告诉帮忙修改下

1楼不能判断等边和等腰啊，运行结果不可能出现等边的

完整的VB程序如下：

Private Sub Command1_Click()

a = *

b = *

c = *

If a + b < c Or a + c < b Or b + c < a Then Exit Sub

If a = b And b <> c Then

MsgBox “等腰三角形”

ElseIf a = c And b <> c Then

MsgBox “等腰三角形”

ElseIf c = b And a <> b Then

MsgBox “等腰三角形”

ElseIf a = b And b = c And a = c Then

MsgBox “等边三角形”

Else

MsgBox “普通三角形”

End If

End Sub

Private Sub Form_Load()

* = “”

* = “”

* = “”

End Sub

关于vb中if 语句的嵌套问题

标准的if格式你应该知道吧 我就不说了 只说一下嵌套

在一次if判断里，可以嵌套无数个子if判断（我没遇到过嵌套到顶的情况），无非是在then后或else后进行嵌套，因为互不影响 所以我就合起来说了：

if [真假判断语句] then

*** ‘星号表示其余的代码

if [嵌套的真假判断语句1] then

[嵌套中if成立 执行的代码]

else ‘可以不要 看情况

[嵌套中if不成立 执行的代码]

end if

*** ‘星号表示其余的代码

else if [嵌套的真假判断语句2] then ‘这里的if可以跟在if后（加个空格），另起一行也行。如果在嵌套前还有别的代码需要执行的话，就参照上面所写的进行嵌套。

end if ‘如果if另起一行的话，要两个end if，否则只要一个

注：注意嵌套的时候最好 用空格 把子判断推后几格，看着舒服。顶格写也行，就是看着乱。

【哥们儿 这可全是我一个字一个字地打的啊~您就给个辛苦费吧~呵呵 有不懂的再通过 补充 问我】