运算:注意Mod、/、\ (整除) ,And 运算两边同时成立才成立,Or运算一边成立就成立
函数名 | 功能 | 应用举例 | 返回值 |
Abs(x) | 求X的绝对值 | Abs(-3.5) | 3.5 |
Int(x) | vb编程基础知识放大求不大于X的最大整数 | Int(4.1) Int(-4.1) | 4 -5 |
Sqr(x) | 求X的算术平方根 | Sqr(6) | 2.44948 |
Asc(x) | 字符转换为AscII | Asc(“A”) | 65 |
Chr(x) | AscII转换为字符 | Chr(48) | “0” |
Val(x) | 数字字符串转换为数值 | Val(“-170”) | -170 |
Str(x) | 数值转换为字符串 | Str(-170) | “-170” |
Len(x) | 计算字符串的长度 | Len(“asd”) | 3 |
Mid(x,n,k) | 取字符串X中第n个字符起长度为K的子串 | Mid(“abcd”,3,1) | “c” |
注意:其中Chr()、Str()、Mid()三个函数的值为字符串型,结果要加双引号
(1) 赋值语句:
变量名 = 表达式 | 例:i = i + 1、x = 5+6、i = 6 |
对象名.属性名 = 表达式 | 例: Label1.Caption = ”结果” |
(2)选择语句:行If语句
If 条件表达式 Then 语句 | 例:If n<=10 Then i = i+1 |
If 条件表达式 Then 语句1 Else 语句2 | 例:If x > 0 Then s=”正数” Else s= ”负数” |
块If语句:
If <表达式1> Then <语句块1> ElseIf <表达式2> Then <语句块2> … ElseIf <表达式n> Then Else <语句块n+1> End If 虚线部分是可选部分! | 例: If x > 90 Then Label1.Caption = ”优秀” ElseIf x > 80 Then Label1.Caption = ”良好” Else Label1.Caption = ”及格” EndIf |
注意:行if语句只有一行。而块If语句写在多行上,最后需要EndIF结尾
(3)循环语句:For 语句
For 循环变量= 初值 To 终值 Step 步长 语句块 Next 循环变量 如果步长为1,step 1可以省略 | 例如:计算1+3+5…+99 S = 0 For i = 1 to 100 step 2 下一个i加上步长,返回重新判断 s = s + i Next i |
Do 语句 Do While 条件表达式 语句块 Loop | 例如:计算1+3+5…+99 S = 0:i = 1 Do While i <= 99 s = s + i 返回重新判断 i = i + 2 Loop |
VB改错类型
错误类型 | 错误原因 |
1、要求对象 | 代码中对象名错误 |
2、除数为零 | 表达式中被除数为零 |
3、溢出 | 数据所赋的值超出定义的大小范围 |
4、类型不匹配 | 数据所赋的值和定义的类型不符 |
5、缺少end if | If……End if没有配对 |
6、Next没有for | For……Next没有配对 |
7、Loop缺少Do | Do while……Loop没有配对 |
8、下标越界 | 数组下标超出定义时的下标范围 |
9、未到方法或数据成员 | 对象没有这个属性或方法,例如:Text1.Caption |
10、无效的过程调用或参数 | 函数参数错误,例:sqr(-1)负数不能求平方根 |
11、子程序或函数未定义 | 子程序或函数没有定义就使用,标准函数名写错 |
版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。
发表评论