AG旗舰厅app优先级相同，两端数据类型要相同,结果为逻辑型 符 表达式 结果 = 8 mod 2 = 0 True

　　7 False

　　1+7

　　= int(-9.8)*2

　　= -20 True (4)、逻辑运算符运算顺序：Not,And, Or 符 说明 表达式 结果 Not Not True为False Not False 为True Not(4

　　5) Not(6*3)

　　9) True False And True And True为True 两端有False结果为?False 34

　　100 or 25

　　4 True True (5)、字符串连接符+ 和& 运算：注意Mod、/、\ (整除) ，And 运算两边同时成立才成立，Or运算一边成立就成立 五、赋值语句、选择语句、循环语句、注释语句 1、赋值语句： 变量名 = 表达式 例：i = i + 1、x = 5+6、i = 6 对象名.属性名 = 表达式 例： Label1.Caption = ”结果” 对象属性可以在属性窗口中设置，也可以在代码中赋值：对象名.属性名=值 2、选择语句： 行If语句 If 条件表达式 Then 语句 例：If n

　　0 Then s=”正数” Else s= ”负数” 块If语句： If

　　End If 例： If x

　　90 Then Label1.Caption = ”优秀” Else Label1.Caption = ”合格” EndIf If 表达式1 then I If 表达式1 then If 表达式2 then … End if Else 语句块 End if IF 表达式1 then 语句块1 Else If 表达式2 then … End if End if 注意：行if语句只有一行。而块If语句写在多行上，可以没有else部分，最后需要End if结尾 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 下一个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 （4）注释语句 注释是以单引号(‘)开头的一串文字，可以出现在程序中需要说明的位置上，通过这一串文字，对附近的程序段进行简要的说明，增加程序的可读性。注释对程序的执行效果没有任何影响，程序运行时自动跳过注释。 输入输出语句： inputbox 例: x=inputbox(“请输入一个整数”) msgbox 例：msgbox(“恭喜你”) print 屏幕输出 字符串型输出时双引号不显示 六、解析算法、枚举算法等常用算法的实现 解析算法的基本思想是用解析的方法找出问题的前提条件与所求结果之间的数学关系表达式，并通过数学表达式的计算来实现问题的求解。用visual basic编写程序时，必须注意计算过程描述的正确性。 例题：求最大公约数 private sub command1_click() dim a as integer dim b as integer dim r as integer a = val(text1.text) b = val(text2.text) r = a mod b do while r

　　0 a = b b = r r = a Mod b Loop Text3.Text = Str(b) End Sub Private Sub Command2_Click() End End Sub 当VB执行Do While-Loop循环时，先判断指定的条件是否为真，若条件为真，执行循环体，条件为假时退出循环。 枚举算法的基本思想是根据问题的本身性质，一一列举出该问题所有可能的情况，井根据题目的条件逐个作出判断，从中挑选出符合条件的解．设计枚举算法时要在尽可能小的范围内罗列出所有可能的情况，不能遗漏，也不能重复。 水仙花是指一个三位数，它的各个位数的立方和正好等于该数本身。如：153=1^3+5^3+3^3所有的水仙花数。 For x = 100 To 999 a = x \ 100 b = (x Mod 100) \ 10 c = x Mod 10 If x = a ^ 3 + b ^ 3 + c ^ 3 Then Print x End If Next x VB调试题操作要点 VB程序调试常见错误： 1. 使用中文标点符号 系统产生“无效字符”,以红色显示 2. 字母和数字形状相似 小写字母“l”和数字“1”形式相同、小写字母“o”与数字“0”。 3. 对象名称(Name) 写错 Text1、Text2、Command1 txtInput、txtOutput、cmdOk 4.对象的属性名、方法名、标准函数名写错 尽量使用自动列出成员功能。正确的按系统规定的大小写表示。 错误类型归类： （1）编辑时错误 在编辑代码时，VB会对键入的代码直接进行语法检查。当发现代码存在打字错误，遗漏关键字或标点符号、括号不匹配等语法错误，VB会弹出一个对话框，提示出错信息，出错的那一行变成红色。 解决方法：将红色的这行予以更正。 改为：a=a+b （2）编译时错误（会考时重点） 编译错误指按了“启动”按钮，VB开始运行程序前，先编译执行的程序段时，产生的错误。单击“调试”按钮，出错那一行高亮度显示。此类错误由于用户未定义变量、遗漏关键字、块IF缺少ENDIF等原因产生。 例1： 解决办法：1、根据题目要求修改控件名称，比如改为Label1、Command1等。 2、在窗体中添加相应控件对象：Label2 例2： 解决办法：加上Next i语句 解决办法：其实是少了End If语句导致匹配出错。 例3： 解决办法：检查蓝色位置，文本框没有caption属性，应该改成text 例4： 解决办法：检查基本语句 （3） 运行时错误（会考时重点） 运行时错误指VB在编译通过后，运行代码时发生的错误。这类错误往往是指令代码执行了一非法操作引起的。单击“调试”按钮，出错那一行高亮度显示。例如类型不匹配、计算溢出、下标越界等。 例如：语句c=a/b 当变量b的值为0时，是无效的操作，就会出错，尽管语句本身语法是正确的。 例1： Private Sub Command1_Click() Dim r As Single Private Sub Command1_Click() Dim r As Single Dim pi As Double r = 100 pi = 3.14 Label1.Caption = 圆面积为： + Val(pi * r * r) End Sub 解决办法：由于pi、r变量均为数值型变量，pi * r * r也为数值，Val函数是将字符转为数值，所以这里应改用Str函数。将Label1.Caption = 圆面积为： + Val(pi * r * r)改为 Label1.Caption = 圆面积为： +Str(pi * r * r) 例2：实时错误‘11’：除数为零 解决办法：问题在usd = Int(rmb / fx * 100 + 0.5) / 100，fx的值来源于Val(Text2.Text)，目前值为0，改正方法，重新输入fx的值。 例3：实时错误‘9’：下标越界 解决办法：检杳一维数组下标，Dim a(5 To 26) As Long， For k = 5 To 40 If k Mod 2 = 0 And k Mod 3 = 0 Then a(k) = 2 ^ k 改正方法：（1）定义数组变量Dim a(5 To 40) As Long，或（2）修改For k = 5 To 26 例4：实时错误‘424’：要求对象 解决办法：检查控件，常用对象Form,Command1、Text1、Label、Image1、picture、 list、Timer 本题缺少list对象，在窗体中添加 例5：实时错误‘6’：溢出 解决办法：检查数据类型：Dim a(5 To 26) As Integer，当k=24时，a(k) = 2 ^ k超出Integer范围，改成Dim a(5 To 26) As long 4） 逻辑错误 程序运行后，得不到所期望的结果，这说明程序存在逻辑错误。这类错误往往是程序存在逻辑上的缺陷所引起。 例如：运算符使用不正确、语句的次序不对、FOR循环语句的起始、终值步长不正确、循环次数写错、条件语句的条件写错、表达式中把“*”写成“+”等。通常，逻辑错误不会产生错误提示信息，故错误较难排除，需要仔细地阅读分析程序以及调试。 例：要求1*3*5*…*19 若采用： S=0 For i=1 to 19 S=s+i Next i Print s 运行时输出1+3+5+…+19的和而非1*3*5*…*19的和

　　GB T 32610-2016_日常防护型口罩技术规范_高清版_可检索.pdf