vb中if语句怎么写(精选6篇)

个人学习 8 0

vb中if语句怎么写 第1篇

格式:with 对象名

End with

功能:当针对某对象执行一系列语句时,使用with语句可以省略对象名。

例如:

With text1

.text=”你好“ ”你好”

.mutiline=true

.locked=true

.maxlength=10

Ent with

vb中if语句怎么写 第2篇

private sub command1_click()

    if a = 1 then

          =_hello world_

         End if

   End sub

if 条件1 then      elseif 条件2 then

达成条件执行语句

else

多个条件都不满足执行语句

end if     

elseif代表如果上一项不满足条件1的条件,就会判断条件2的条件。

与多if的区别:

if 条件1 then

    语句块

end if

if 条件2 then 

    语句块

end if

对于elseif的含义是只有在条件一不成立的情况才会判断条件2,如果条件1不满足便不会再进行判断,而上面这种情况则为如果条件1满足情况,还会继续判断条件2是否满足。

即and和or

if a1=1 and b1=1 then

语句1

end if

if a1=1 or b1=1 then

语句1

end if

在上面两段代码中

分别表示的意思是

当两个条件都满足时才执行语句1

当两个条件满足其1时就会执行语句1

什么是嵌套呢?嵌套就是在原先的一层中,在里面再套上一层。这个不太好理解。

所以直接讲if的嵌套

private sub command2_click()

     if a1=0 then         __     if b1=1 then         __     end if     end if

end sub

这段代码的意思是

在a1=0时清空属性

在a1=1的基础上b1=1才会清空属性

这就是if的嵌套结构

Developed by 福州机电工程职业技术学校 wh

邮箱联系方式:xiaohui032901@

qq联系方式:2151335401、3135144152

vb中if语句怎么写 第3篇

Sub 判断语句()

Dim i As Integer

For i = 1 To 10

 If Cells(1, i) = __ Then

    Cells(2, i) = _无数据_

 Else

    Cells(2, i) = _有数据_

 End If

Next

End Sub

vb中if语句怎么写 第4篇

在武侠世界中,有北乔峰和南慕容势均力敌、旗鼓相当。在VBA世界里,也有与“IF…Then…Else”齐名的条件语句“Select… Case”语句。假如遇到这样的条件:“如果是1就进行A,如果是2就进行B,如果是3就进行C……”,也就是处理好多情况的时候,应用“Select…Case”语句就能编出简明、易懂的宏语言。当然了,应用“IF…Then…Else”语句也能做到,但处理多个条件,“Select…Case语句”更加方便。该语句的语法结构是:

vb中if语句怎么写 第5篇

格式:【let】变量名=表达式或对象.属性=表达式

功能:将赋值号右边表达式的值赋值给左边的变量

说明:

关键字let可以省略,赋值语句先计算右边表达式的值,再将结果赋给左左边的变量。

赋值号的左边可以是变量,也可以是对象的属性,但不能是常量,函数,表达式等。例如:

Let x = x+6’ 变量x加上6以后赋给左边的变量x

=“欢迎使用” ‘将字符串赋值给text1

5=x ‘错误,左边是常量

Abs(x)=8 ‘错误,左边是函数调用,即是表达式

A+3=2以 ‘左边是表达式

赋值号右边的表达式可以是常量,其它变量,表达式,控件属性等,也可以是由inputbox函数提供的值。

赋值号两边的数据类型必须保持一致或兼容。例如::

Dim a as integer ,b as single ,c as double ,s as string

A=100

S=””

A=s ‘a值为123

S=a ‘s值为“123”

B=

A=b ‘a值为12346,四舍五入后取整数

B=c ‘b值为,单精度有效数字为7位

S=“abc”

A=s ‘错误,类型不匹配

赋值号与数学中“等号”有所区别,数学中等号为判断左右值是否相等。列如:

5=5 ‘在数学中表示等式,是正确的:在vb中是错误的,因为左边是常量

vb中if语句怎么写 第6篇

Sub 按数字大小填充红黄蓝色()

For y = 1 To 10

    Select Case Cells(y, 1).Value

        Case Is >= 70

            Cells(y, 1). = 5

        Case Is >= 50

            Cells(y, 1). = 6

        Case Else

            Cells(y, 1). = 3

    End Select

Next

End Sub

抱歉,评论功能暂时关闭!