|
| | | | 实例教程3
- (2) 运算符和逻辑处理
- 一、运算符号
- 算术运算
- () 括号 (2+3)*2=10
- - 负号 -5
- ^ 指数 2^3=8
- * 乘法 2*3=6
- / 除法 62/3=20.666666666667
- \ 除法取整 62\2=20
- Mod 取余数 62 Mod 3=2
- + 加法 2+3=5
- - 减法 2-3=-1
- $amp;$amp;>amp;$gt; 位右移 35$amp;>amp;$gt;2=8
- 比较运算
- = 等于
- $amp;< 小于
- > 大于
- <= 小于等于
- >= 大于等于
- Like 字符串比较: 任何单一字符,#任何单一数字,*零或多个字符,[]在范围内的任一字符,[!]不在范围内的任一字符
- Is 对象比较,判断两对象是否是同一对象
- 注意:当中文、英文、数字比较大小时,规则为中文>小写字母>大写字母>数字
- 逻辑运算
- Not 否
- And 与
- Or 或
- Xor 异或
- AndAlso 最短路径与运算(当第一个为False则直接返回False)
- OrElse 最短路径或运算(当第一个为True则直接返回True)
- 串连运算
- & 串连各种类型的数据(主要用于连接字符串)
- + 串连字符串
- 注意:+运算符可以用于加法和串连运算
- 1)数值+数值 加法运算
- 2)字符串+字符串 串连运算
- 3)字符串+数值 要看字符串为数值型字符串或文字型字符串
- 数值型字符串+数值 加法运算
- 数值型字符串+字符串 串连运算
- 数值型字符串+数值型字符串 串连运算
- 自定义数据类型
- 私有自定义类型
- Private Structure Rect
- Dim x1 As Integer
- Dim y1 As Integer
- Dim color As Integer
- End Structure
- 公用自定义类型
- Public Structure Rect
- Dim x1 As Integer
- Dim y1 As Integer
- Dim color As Integer
- End Structure
- 声明自定义数据类型变量
- Dim area_a As Rect
- 使用自定义数据类型
- area_a.x1=100
- area_a.y1=200
- area_a.color=1
- 字符串处理技巧
- Asc(str) 从字符串取出字符串第一个字符的ASCII码
- Chr(ASCII) 将ASCII码转换为字符
- StrDup(重复次数,str) 重复输出该字符串的第一个字符
- Len(str) 计算字符串长度
- Left(str,字符个数) 取出字符串最左边的n个字符
- Right(str,字符个数) 取出字符串最右边的n个字符
- Mid(str,m,n) 取出字符串第m个字符到第n个字符
- LCase(str) 将字符串转换为小写
- UCase(str) 将字符串转换为大写
- LTrim(str) 清除字符串左边的空格
- RTrim(str) 清除字符串右边的空格
- Replace(str,"S1","S2") 将字符串的S1字符替换为S2
- Trim(str) 清除字符串左右空格
- Str(数值) 将数据类型转换为字符串类型
- Val(str) 将数据类型转换为数值类型
- Instr(n,str1,str2) 从字符串1的第n个字符开始查找是否包含字符串2,并返回其所在位置
- StrComp(str1,str2) str1<str返回-1,str1=str2返回0,str1>str2返回1
- StrReverse(str) 反转字符串
- 二、选择结构
- 单向选择结构
- 单行语句
- If x=1 Then y=100
- 多行语句
- If x=1 Then
- y=100
- z=50
- End If
- 双向选择结构
- 第一种
- If x=1 Then
- y=100
- Else
- y=50
- End If
- 第二种
- 变量=IIF(条件,条件成立,条件不成立)
- 例:y=IIF(x=1,100,50)
- 多向选择结构
- 第一种
- Select Case 表达式
- Case 值1
- 描述式1
- Case 值2
- 描述式2
- Case Else
- 描述式n
- End Select
- 第二种
- If x=1 Then
- y=1
- ElseIf x=2 Then
- y=2
- ElseIf x=3 Then
- y=3
- Else
- y=0
- End If
- 第三种
- Choose(I,v1,v2,...,vn)
- 例:x=Choose(2,"*","**","***")
- 第四种
- Imports Microsoft.VisualBasic
- Switch(表达式1,v1,表达式2,v2,...,表达式n,vn)
- 例:x=Switch(y=1,1,y=2,2,y=3,3)
- 使用Choose和Switch可以简化代码,不过当每个选项中要加入多行语句时,则必须使用Select Case
- 三、重复循环
- 递增
- For i=1 To 100 Step 2
- ...
- Next i
- 递减
- For i=100 To 1 Step -2
- ...
- Next i
- 数组
- For Each i In Array
- ...
- Next i
- 当递增或递减值为1时,可省略Step命令
- 强制退出For循环可以使用Exit For命令
- 四、条件循环
- 第一种,当条件成立时才会运行
- While 条件
- ...
- End While
- 第二种,当条件成立时才会运行
- Do While 条件
- ...
- Loop
- 第三种,当条件不成立时才会运行
- Do Until 条件
- ...
- Loop
- 第四种,先运行一次,再判断条件是否成立,不成立则跳出循环
- Do
- ...
- Loop While 条件
- 第五种,先运行一次,再判断条件是否成立,若成立则跳出循环
- Do
- ...
- Loop Util 条件
- 第六种,一直运行直到遇到Exit Do后跳出循环
- Do
- ...
- Loop
复制代码
| | | | |
|
|