VB函数if怎么用？

If语句的用法如下：

If <条件> Then

语句组

End If

当 <条件>的值为True，执行“语句组”，否则就不执行“语句组”。

if语句的一种格式如下：

例1：

x = 100

If x >5 Then '这里你要理解因为x=100，所以对于 x >5的判断结果为True

Print "Ok"

End If

这个代码结果，输出"Ok"。

以上代码就是：“如果x大于5，就输出OK”

例2：

x = 100

If Not x < 5 Then '这里因为x=100，所以对于 x <>5的判断结果为False,而Not False又为True

Print "Ok"

End If

这个代码结果，输出还是"Ok"。

以上代码就是：“如果不是x小于5，就输出OK”

比较两句“x大于5”与“不是x小于5”其实是一个意思。

扩展资料：

VB的一些基础函数：

Abs：返回数的绝对值。

And：执行两个表达式的逻辑连接。

Array：返回含一数组的变体 。

Asc：返回字符串首字母的 ANSI 字符代码。

Atn：返回数的反正切值。

CBool：返回已被转换为 Boolean 子类型的变体的表达式。

CByte：返回已被转换为字节子类型的变体的表达式。

CCur：返回已被转换为货币子类型的变体的表达式。

CDate：返回已被转换为日期子类型的变体的表达式。

CDbl：返回已被转换为双精度子类型的变体的表达式。

Chr：返回指定 ANSI 字符码的字符。

CInt：返回已被转换为整数子类型的变体的表达式。

Class：提供对已创建的类的事件的访问。

Clear：清除 Err 对象的所有属性设置。

CLng：返回已被转换为 Long 子类型的变体的表达式。

Private Sub Command1_Click()
If Option1Value = True Then
List1AddItem Text1Text
End If
If Option2Value = True Then
If List1ListIndex = -1 Then
MsgBox "请选中要删除的项目", vbOKOnly
Else
List1RemoveItem List1ListIndex
End If
End If
End Sub

if a=b then
x=input(x)
if x>='0' and x<='9' then
……
end if
end if
在中间适当的写上你要的语句就行了

<%
if requestForm( "user ")= " " then
responseWrite( " <script language='javascript' > alert('用户名不能为空！');historyback(); </script > </head > ")
else
if len(requestForm( "pwd ")) <6 or requestForm( "supwd ") < >requestForm( "pwd ") then
responseWrite( " <script language='javascript' >alert('请正确填写密码！');historyback(); </script > </head > ")
else
if requestForm( "nc ")= " " then
responseWrite( " <script language='javascript' >alert('请填写一个昵称！');historyback(); </script > </head > ")
else
if len(requestForm( "nain ")) <4 then
responseWrite( " <script language='javascript' >alert('日期错误，请检查！');historyback(); </script > </head > ")
else
set ljs=serverCreateObject( "adodbconnection ")
ljsopen "driver={microsoft access driver (mdb)};dbq= " & serverMapPath( "suycmdb ")
set dks=serverCreateObject( "adodbrecordset ")
dksopen "select from ycname ",ljs,1,2
dksaddnew
dks( "user ")=requestForm( "user ")
dks( "pwd ")=requestForm( "pwd ")
dks( "nc ")=requestForm( "nc ")
dks( "xb ")=requestForm( "xb ")
dks( "csrq ")=requestForm( "nian ") & "年 " & requestForm( "yue ") & "月 " & requestForm( "ri ") & "日 "
dks( "lxyj ")=requestForm( "email ")
dks( "dh ")=requestForm( "dh ")
dks( "grsm ")=requestForm( "grsm ")
dksupdate
dksclose
ljsclose
set ljs=nothing
End if
End if
end if
end if
% >

if嵌套
sub 条件()
if 满足条件0 then
if 满足条件1 then
结果1
else
结果2
end if
end if
end sub
不过我觉得你还可以试试看if嵌套select case
如果你的条件超过2个以上的话
欢迎到Excel Home论坛学习、交流

if语句中还可以包含一个或者多个 if 语句，此种情况称为 if 语句的嵌套。

if（表达式1）

{

  if（表达式2）

  {

      语句块1

  }

  else

  {

      语句块2

  }

}

else

{

  if(表达式3)

  {

      语句块3

  }

  else

  {

      语句块4

  }

}

使用 if 语句的嵌套模式，可将判断的条件进行细化，从而实现更复杂的判断和 *** 作。

do while i<=len(a)
b=mid(a,i,1)
i=i+1
if asc(b)<=97 and asc(b)<=122 then '下面是嵌套判断
if i=1 then
text1text=mid("world",1,i)
elseif i=2 then
text1text=mid("world",1,i)
elseif i=3 then
text1text=mid("world",1,i)
elseif i=4 then
text1text=mid("world",1,i)
end if
end if
loop

工具/材料

电脑

打开要进行 *** 作的电子表格（图中所示是用IF函数的嵌套对学生成绩分“优秀”“良”“差”三个等级）

将光标放于要插入IF函数的单元格中，如图所示

点击菜单栏（最上方）中的“公式”，在该选项卡下点击“插入函数”

在d出的选项卡中，选择IF函数后点击确定

在d出的函数参数选项卡中，填入相关参数，如图。注意完成此 *** 作时不点击确定

点击如图所示位置，出现新的函数选项卡，实现嵌套IF函数

在新的函数参数选项卡中输入第二个条件，如图。如果还需添加其他条件重复步骤5、6即可，填完所有条件后点击确定

将光标放在第一个成绩等级右下角，向下拉，即可得到所有的分数等级，如图。这样就实现了IF函数的嵌套

---