VB基本运算、表达式、赋值语句与分支结构
VB语法_精品文档
8
3.2.1 声明变量
• 变量是在程序运行过程中其值可以变化的量
• 使用变量前，一般必须先声明变量名和其类 型，以确定为它分配多大的存储单元
– 语法：
Dim 变量名 As 类型
– 例如：
Dim strMyName As String Dim nAge As Integer
• 可以用一个声明语句声明多个同类型的变量
2022年9月17日星期六 14
3.3 运算符与表达式
3.3.1 赋值语句 3.3.2 运算符 3.3.3 表达式
2022年9月17日星期六
15
3.3.1 赋值语句
• 赋值语句是任何程序设计中最基本的语句
– 它的作用是把右边表达式的值赋给左边的变量 – Visual 使用赋值号“=”来赋值 – 语法：
3.1415926 34567888
4字节 8字节 16字节
负值取值范围为–3.402 823E+38～–1.401 298E–45 正值取值范围为1.401 298E–45～3.402 823E+38
负数取值范围为–1.797 693 134 862 31E+308～ –4.940 656 458 412 47E–324 正值取值范围为4.940 656 458 412 47E–324～ 1.797 693 134 862 31E+308
– 例如：
Dim A, B As Integer
2022年9月17日星期六
9
3.2.2 变量的命名规则
• 变量名命名规则：
– 必须以字母或汉字开头，不能以数字或其他字 符开头
– 变量名中其他字符可以是字母、汉字、数字或 下划线组成，不允许是空格、句号或其他标点 符号，长度不超过255个字符
vb的三种基本结构
③. j = 0 If J＞0 Then J＝J＋1 Endif
2．以下程序，运行后 x的值为 （ ） x =2 y= 3 y=y+1 x=x+y-1 A. l B. 3 C. 5 D. 7 3、以下程序，运行后变量value的值为 ( ) X = 20 If x >= 10 then value = 5 * x else value = 4 * x end if msgbox(value) 最后，变量value的值是（ ） A、50 B、40 C、100 D、80
vb程序的三种基本结构一顺序结构二选择结构三循环结构程序是由若干个基本结构组成的一个基本结构可以包含一条或若干条语句
VB程序的三种基本结构
程序是由若干个基本结构组成的，一个基本结构可以包 含一条或若干条语句。
通常程序有三种最基本的结构：
一、顺序结构 二、选择结构 三、循环结构
1、 顺序结构： 将命令和语句逐条顺序排列。 程序执行时按语句的先后顺序逐条执行。 S1
4、以下程序，运行后 X的值为 （ ） X =2 For i＝1 To 5 If X＜i Then X= X＋i End If Next i A. l B. 3 C. 5 D. 7
例1、 ห้องสมุดไป่ตู้=1 b=2 c=a+b a=c-a b=c-a
最后，变量b的值是（ ）
S2 S3
2、分支结构：（选择结构） 根据条件判断其是否成立，如果成立执行成立的分支；否则 执行另一分支。 其一般形式为： If 条件 Then 语句序列1 C Else 语句序列2 End If 分支结构的简单形式为： If 条件 Then 语句序列 End If S1 S2
C
例4、s=0 for I=1 to 100 s=s+I next 最后，变量s的值是（ ）
VB编程序的基本结构
Case 9, 10
Msgbox ("Greater than 8“)
Case Else
Msgbox ("Not between 1 and 10“)
End Select
例：编写程序,当输入X的值后用 Selct Case语句 计算输出Y的值。
Private Sub Button1_Click(ByVal _ sender As System.Object, ByVal e As _ System.EventArgs) Handles _ Button1.Click
InputBox的功能是等待并提示用户为程序运行 输入指定的数据，简称“输入对话框”。
MsgBox的功能是进行提示，用以确认某种程 序的操作，简称“消息框”。
本书目录
6
1. InputBox （输入对话框函数）
输入对话框一般由标题、提示信息、“确定” 按钮、“取消”按钮和一个供用户输入的文本框组 成。当用户将输入信息输入到文本框，并单击“确 定”按钮后，函数返回用户输入的字符串数据。当 单击“取消”按钮时，返回一个空字符串。
语法格式：变量名 = 表达式
功能: 计算赋值号“=”右边表达式的值，然后赋给赋
值号“=”左边的变量。
给变量赋值和设定属性是VB编程中常见的两个任务
如以下语句，
n=n+1
'计数累加
Label1.Text ＝ "欢迎使用VB "
以下语句形式很常用：
• dim sum% , x%
sum=100 : x=5
Select语句举例
Dim Number% Number = Val(InputBox("输入整数"))
VB学习资料全
一、VB程序开发的一般步骤：1、建立用户界面2、设置对象属性3、编写代码二、VB窗体和常用控件1、窗体Font中：FontName、FontSize、FontBold、FontItalic、FontUnderline、FontStrikethru 〔字体、字号、加粗、倾斜、下划线、删除线〕2〕窗体常用事件4〕窗体常用方法2、一般类控件的使用2〕TextBox三、选择类控件1．OptionButton(单项选择按钮)3.ListBox(列表框)说明：①List属性是一个数组，一般格式为：List〔x〕如List〔1〕表示是第二个项目②ListIndex属性的值为当前选中的列表项的索引值，0表示选中，-1表示没有选中。
③ListCount属性表示一共有多少个列表项④Text属性表示当前选中的列表项的容。
四、方法方法是VB自身提供的一些特殊的过程，用来完成一定的操作。
不同的对象可执行不同的操作，因此，对象调用的方法也有所不同。
窗体上常用的方法有：(1)Show方法调用该方法可以将窗体显示在屏幕上。
调用格式：[对象名].Show(2)Hide方法调用该方法可以隐藏窗体，但不会卸载窗体。
调用格式：[对象名]. Hide(3)Move方法(4)Cls方法可以去除窗体的文本和图形。
调用格式：[对象名]. Cls(5)Print方法在窗体上显示文字信息。
调用格式：[对象名]. Print五、VB的数据类型表六、运算符和表达式1、算术运算符3、关系运算符七、常用部函数3、日期和时间函数八. 数据的输入输出1. InputBox函数InputBox(提示[，标题][，缺省][，x 坐标位置][，y坐标位置])其中:提示为提示信息,标题为对话框标题,缺省为输入区缺省值函数返回字符类型.2. MsgBox函数和MsgBox过程函数形式:变量[%] = MsgBox(提示[,按钮][，标题])过程形式: MsgBox 提示[,按钮][,标题]3、输出数据使用Print方法实现数据的输出格式：[Object.]Print {Spc(n)|Tab(n);}expression charpos其中：Object为窗体，图片框，打印机等对象。
VB基本知识介绍
VB基本知识介绍条件语句1、单分支结构（1）单行语句If <表达式>Then <语句块>（2）多行语句If<表达式> Then<语句块>Endif2、双分支结构If <表达式 > Then<语句块1>Else<语句块2>Endif3、多分支结构If <表达式> Then<语句块1>Else if <表达式2> Then<语句块2>……..Else<语句块n>Endif选择语句Select case<变量>Case <值列表1><语句块1>Case <值列表2><语句块2>………Case <值列表n-1><语句块n-1>Case Else<语句块n>End select注意：case指定的<值列表>可以是下面的4种情形之一：1）具体的值或表达式，例如 case 12) 一组枚举表达式，例如 case 1,3,53) 表达式1 To 表达式2 ，例如 case 1 to 10 ‘变量的值为1~10，包括1和104) Is 关系运算符表达式，例如 case Is >0 …变量的值大于0循环语句1）For ……. Next 语句这种语句用于循环次数已经确定的循环结构For i=0 to 10Sum=sum+iNext i2）Do ……. Loop 语句a)Do While …….LoopDO While <表达式>循环体[Exit Do]Loopb)Do …… Loop whileDo循环体[Exit Do]Loop While <表达式>c)Do Until …… LoopDo Until <表达式>循环体[Exit Do]Loop程序运行时先判断执行条件<表达式>，当表达式为False时，执行该循环体，直到表达式为True 时，则终止循环d)Do….Loop UntilDo循环体[Exit Do]Loop Until <表达式>其它控制语句GoTo语句GoTo语句使程序无条件跳转到过程中指定的语句行执行。
vb程序的三种基本结构3
打印三角形图形
Private Sub Form_Click() For i = 1 To 7 控制打印位置， 并换行 Print Tab(10 - i); For j = 1 To 2 * i - 1 循环嵌套 Print "*"; Next j Next i End Sub
打印菱形
Private Sub Command1_Click() For i = 1 To 5 Print Tab(20 - 2 * i); For j = 1 To 2 * i - 1 Print "* "; Next j 此处有空格 Next i For i = 4 To 1 Step -1 Print Tab(20 - 2 * i); For j = 1 To 2 * i - 1 Print "* "; Next j Next i End Sub
If <表达式> Then <语句块1> Else <语句块2> End If
3. If…Then…ElseIf语句(多分支结构) If <表达式1> Then <语句块1> ElseIf <表达式2>Then <语句块2> … [Else 语句块 n+1 ] End If
For 语句：
For 循环控制变量＝初值 to/downto 终值 [Step 步长 循环控制变量＝ 步长] 语句块 Next 循环控制变量 for n=1 to 24 step 1 sum=sum+n next n
写出程序的输出结果： Private Sub Command1_Click() Dim n As Integer, i As Integer, s As Integer n = 10 s=0 For i = 1 To n Step 2 s=s+i Next i Print s End Sub 25 输出为：_______
第二课 算法及VB基本语句11 (1)
Next j Print Next i
Do循环语句
Do while格式如下：
Do while思想：
①.当指定的“ 条件表达式”为True时，执行语句块； ②.遇到Loop语句,本次趟结束，返回do while ③.再次计算条件表达式的值，如果值为True，重复语句块 。。。。。 ④. 循环提前结束的特殊情况：Exit Do语句跳出循环 ⑤.条件表达式的值为False时，退出循环体跳转到loop的下一行。
2.枚举算法的要点 ①列举与检验过程既不重复也不遗漏；
②使解的范围最小，以提高解决问题的效率； ③用循环语句(For语句)在一定范围内列举所有可能的解； ④用选择语句(If语句)判断和选择真正的解。 3.枚举算法的一般格式
算法设计：
①.这个数字的范围是？（尽可能地使罗列范围最小）
j（00 到99）
注意：For循环可以进行嵌套，即一个大循环套着一个小循环。
For循环语句举例
例1：现有数学表达式 s=1+3+5+7+…….+99,求和？
算法思想：
1. 第一次表达式如何计算的？ 2.重复循环的是什么事？ 3. 循环的次数知道吗？
程序实现：
Dim i,s as integer s=0 For i = 1 to ———
本课内容
• Vb基本语句与结构：顺序、分支和循环； • 枚举算法思想与程序实现; • 解析算法思想与程序实现。
VB基本语句
Vb 基本语句有赋值、选择、循环等。
Vb赋值语句： 变量名 = 表达式
对象名.属性名 = 表达式/属性值
注意：“=”表示赋值；多个赋值语句写在一行上用(冒号)隔开；‘表示注释 例如：
VB6.0第三章-VB语言知识
(2)变量数据类型的前缀
数据类型 Boolean Byte Currency Date Double Integer Long Single String 前缀 bln byt cur dtm dbl int lng sng str 例子 blntrue bytDate curReven dtmToday dblMonet intLoop lngSalary sngSmall strName
可视化程序设计——第三章 VB语言基础
上页
下页
20
3.3 常量和变量
定义变量名时尽量使用前缀来定义变量名
(1）变量作用域的前缀 变量作用域的前缀放置在所 有其他前缀之前，用来说明 该变量的作用范围。
范围 全局 模块级 局部 前缀 g m 无 例子 gstrname mblnYes dblLength
例：Option Explicit 显式声明 Function SafeSqr（num） 加：Dim TempVal As 先定义 TempVal＝Abs（num） SafeSqr＝Sqr（TempVal） End Function
可视化程序设计——第三章 VB语言基础
上页
下页
243.3 常量和变量可视化程序设计——第三章 VB语言基础
上页
下页
9
3.2 数据类型
例： Dim strJust4 As String*4 定长字符串 Dim strAny As String 变长字符串 StrAny＝“Database” Debug.Print strAny strJust4= StrAny Debug.Print= strJust4
上页 下页
29
可视化程序设计——第三章 VB语言基础
VB程序的设计VB基本语句-精选文档
第5章 基本的控制结构
For循环
例2: 求10！
例1:求1+2+3+4+ …+10之和. 分析: •重复过程(循环体): + •初值、终值和增量:1、10、1 Dim I, s As Integer For I = 1 To 10 s=s+I Next I Print I, s
分析:
•重复过程:* •初值、终值与增量不变 Dim I, s As Integer s=1 For I = 1 To 10 Fors=1 =1 1 To To 10 10 For II = s=s*I Next I Print I, s
循环体的执行次数是多少 ? 输出的I、S的值是多少 ? For I = 1 To 10执行多少次？
初值与终值换位 可以吗？
程序代码： Dim I%, s % ForI I=10 To Step For = 1 To 10 1 step 1 -1
s=s+I
Next I Print I, s
Visual Basic 程序设计
visualbasicvisualbasic程序设计程序设计第第55章章基本的控制结构基本的控制结构第第55章章基本的控制结构基本的控制结构累加和平均值累加和平均值求素数求素数求数的质因数求数的质因数穷举法穷举法递推法递推法55visualbasicvisualbasic程序设计程序设计第第55章章基本的控制结构基本的控制结构第第55章章基本的控制结构基本的控制结构例1
优：Mark ≥ 90 等级： 通过：60 ≤ Mark ＜ 90 未通过：<60
思考?
Visual Basic 程序设计
第5章 基本的控制结构
VB三种程序结构VisualBasic语言作为结构化程序设计语言提供
3、
当逻辑型赋值给数值型时，True转换为-1，False转
换为0；反之，当数值型赋给逻辑型时，非0转换为True，
0转换为False.
2、MsgBox函数：向用户显示信息（输出
MsgBox语句: MsgBox （提示内容 [,答复按钮+图标][,标题]） MsgBox函数： Dim x As Integer X=MsgBox(提示内容 [,答复按钮+图标][,标题])
? Round(3.89456,3) 结果:3.895 说明：☆ 在三角函数中，以弧度表示；sqr的自变量不能是负数
☆ Rnd函数返回小于1，大于等于0的单精度随机数。 VB用于产生随机数的公式取决于称为种子（seed）的初始值。
默认情况下，每次运行一个应用程序，VB提供一相同的种子， 即Rnd产生相同序列的随机数。为了每次运行时，产生不同序 列的随机数，可执行Randomize语句，格式如下：
•答复按钮+图标：确定在消息框中按钮 的数目和类型，以及图标的类型。
•标题：显示在消息框标题栏上的文本。
"按钮"设置值及意义
分组 内部常数
VbOkOnly VbOkCancel 按 VbAboutRetryIgnore 钮 VbYesNoCancel 数 VbYesNo 目 VbRetryCancel
对 象 可 以 是 窗 体 （ Form ） 、 图 形 框 (PictureBox) 或 打 印 机 （Printer）。如果省略了对象，则在窗体上输出。 说明：① 表达式：可选项。可以是一个或多个表达式。当有多个表达式 时，要用分隔符（逗号、分号）隔开。当表达式缺省时，则屏幕显 示一个空行。 ② 输出格式分为标准输出格式和紧凑输出格式。 标准输出格式：以14个字符宽度划分为一个区段，每个数据项占一个区 段的位置。（数据项之间用逗号隔开） 紧凑输出格式：对于数值型数据，前面有一个符号位，后面有一个空格； 对于每个字符串，各个数据项之间没有间隔。（各数据项之间用分 号或空格作为分隔符）
VB基本理论
算法基本结构【选择结构（分支结构）】：分为（行语句和块语句）行If语句：块If语句：注意：行if语句只有一行。
而块If语句写在多行上，最后需要EndIF结尾【循环结构】:分为For 语句和Do While语句For 语句Do While语句VB基本理论1、Vb书写：对象名·属性名=属性值2、vb常用的工具标签框（Label）：用来标注文字用的文本框（TextBox）:用户输入或输出命令按钮（CommandButton）:编写程序代码3、VB(2)常量常量是指在程序执行过程中其值不能改变的存储单元或数据。
符号常量：用一个符号来代表一个常量，使用符号常量的好处之一是可以使程序具有更好的阅读性，其次也使程序的修改和调试更为方便。
常见的常量类型有：整数常量：如0、100实数常量：如3.14 、－1.1字符串常量：如“信息技术”、“123”、“Welcome”逻辑常量：如True、False符号常量的说明：Const 常量名＝常量如Const x＝100 用符号x来表示常量100，程序中所有的符号x会被VB转换成整数100。
(3)变量在同一个程序中，不同的变量要用不同的名称。
变量名由字母、数字和下划线等字符组成，但必须以字母开头，变量名中不区分大小写字母。
难点释疑：常用的VB命令及常用函数名不可作为变量名，如IF、Int等。
变量的说明：Dim 变量名As 变量的类型如：Dim a As Integer a 是整数变量Dim p As Boolean p是逻辑型变量(4)数组变量数组是一批同类型的变量构成的序列，组成数组的每一个变量称为数组的元素，数组中每个元素的位置由它的下标唯一的确定。
一维数组变量说明语句(只有一个下标)：Dim 数组变量名(A1 To A2) As 元素的类型如Dim d(1 To 100)As Integer 定义了一个由100个元素的一维数组，数组元素分别为：d(1)、d(2)、……、d(100)。
VB基础知识点
VB基础知识点数学运算+ M. Z2 h1 k3 ]VB运算符之一:关系运算符/ \1 m- U5 k# ^. h% t! ?( U黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程=:比较两表达式是否相等.等为真,否则为假.Z9 h+ d+ u, k, r:比较表达式是否不等.不等为真,相等为假.黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程! ?& F. U g% m> 或=或<=:大小比较.& [9 ]5 ~- s4 p* r, T0 H黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程LIKE:用于比较两个字符串,模式匹配为真,否则为假.9 D8 W+ H1 J5 ?7 h9 {8 E: ?IS:比较两个对象是否一致,一致为真,否则为假.1 c; N8 u0 }! U9 W' A. _VB关系运算符使用示例. k4 y/ Q2 R( o: N* f2 F" HIT加油站全心全意的为你服务，你满意是我们最好的答案关系运算5 ^, t1 H" x$ zIS比较示例( e0 n! M( c" p: ]黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程有下列语句: Dim_ myobject,yourobject,thisobject,otherobject,mycheck set yourobject=myobject set thisobject=myobject set thatobject=otherobject mycheck=yourobject is thisobject 'true mycheck=thatobject is thisobject 'false : U5 r' ~9 ?* l. I. p黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|' a" e1 R, e1 _' w+ K8 J黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程LIKE示例- h9 l, G/ \+ _0 如:Dim Mycheck Mycheck="aBBBa" like "a*a" 'BBB与*相匹配,返回结果True6 j- Y7 y) G) O. z. v8 s( ?IT加油站全心全意的为你服务，你满意是我们最好的答案见书P582 r" Z/ B1 b/ K/ w0 g* a+ GIT加油站全心全意的为你服务，你满意是我们最好的答案VB的逻辑运算符/ G; Z& A M* u逻辑非(NOT)运算:* N/ j) D8 J1 Q! n逻辑与运算(AND)IT加油站全心全意的为你服务，你满意是我们最好的答案- y; e0 r" P& \: S逻辑或(OR)运算5 v9 t& F3 A4 C/ x4 w$ m# j黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程逻辑异或(XOR)和逻辑等(EQV)运算6 }1 m7 P8 X7 Z- C# O ?4 隐含(Imp)运算+ _ J! M/ p3 z4 y. k& O2 T3 a g" a+ p/ }3 gIT加油站VB语句与控制4 q G) X1 F& v% E" m9 ^: N黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程赋值语句+ ?3 E) L. V% n' O/ V: V- r; 注释语句:VB中用'和rem来标识一条注释语句.黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|5 ]0 q9 a" w8 q( y8 w# B5 y条件分支结构:if 语句) B) l$ |8 T" n9 KIT加油站循环语句$ _- t6 Q% G/ c u, zIT加油站END语句黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程1 ]: w( V. P' Q" V* w. zVB赋值语句# O/ g2 T& t( y2 R! v$ B8 包括两种:一种用来对一般的变量进行赋值的赋值语句,用关键字LET描述,但一般都省略.另一种是用来对对象的变量进行赋值的赋值语句,用关键字SET描述,不能省略.IT加油站% ?9 Z) o2 C7 V% I5 p格式:[let]变量或属性=表达式set 变量(对象)=表达式* o$ c9 k @* SVB注释语句5 h4 h1 l% D5 `: d. c黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程引入目的:为程序的阅读和修改提供信息,提高程序的可读性和可维护性.- {" l# ]# } Z) v, A注释方法有两种:'或REM关键字.$ N! _0 k, P7 ~. `% n5 P+ A黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|二者区别:在一行中做注释时,REM必须使用:与前面的语句隔开,撇号则不必.l8 g$ q5 \# ~! ~3 @( l) S' sIT加油站条件分支——IF语句IT加油站2 P' v- H# D" |0 d9 o第一种格式:if 条件then& `7 D. h- J: {; t% i语句8 G3 c- y# j: M6 i: B* W黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|end if 如果条件为true,则执行"语句",否则执行end if后面语句.IT加油站G7 b7 G& g2 h3 G+ M h第二种格式:if 条件then IT加油站; W$ c# y5 y- m- Y" \语句! F0 j% e2 J* j2 y& l: I/ welse$ _1 _ K9 h, I9 `/ nIT加油站语句IT加油站全心全意的为你服务，你满意是我们最好的答案) t: @- U7 Q' x. |6 Y9 Bend if IT加油站. u! I: \; l) k6 ^IF语句的第三种格式! i$ ~& e( t% S9 a: x% HIT加油站全心全意的为你服务，你满意是我们最好的答案If 条件1 then# e! N% s Q5 s* j6 b" O( X. g1 语句1. s0 O; i$ U3 z& C% nIT加油站else if 条件2 ! L) r4 t" |, F3 X语句29 H4 u, ?, x0 C) w) ~; Uelse# |, r! Q7 h$ e" r0 O+ u语句3! a6 ~, G5 X$ Y黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|end if 如果条件1为true,则执行语句1,如果为false,则检查条件2,如果条件2为true,则执行语句2,如果条件2为false,则执行语句3.6 [/ X2 B1 ^4 N; l" r0 E( E5 X5 |% k黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|条件语句——select case语句IT加油站全心全意的为你服务，你满意是我们最好的答案' U% v& r7 p: C! q+ E; L$ z格式: select case 测试表达式9 |9 R' G3 G, l# cIT加油站全心全意的为你服务，你满意是我们最好的答案case 条件1! E3 {/ l+ |; M6 z3 |6 s黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|语句1& q: R( `% y' [4 ]0 \$ m) u! ……… IT加油站) K+ z: r* X' e; D! ^" D! p& E9 dcase else 0 S. l. S' N( N5 a7 s: _, j语句: g6 ~* h8 `1 y7 A" B" end select9 m7 E1 p" e3 P- m# n P3 Z" VB将测试表达式的值与此同时结构中的每个case的值进行比较,如果相等,就执行与该case 相关的程序段,如果都不等,则执行case else所对应的程序段.: W, H3 m0 M' f# v' f6 n6 P黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|Case 语句举例一黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程; l7 y9 e4 [% i用select case…….语句判断0-9范围内整树的奇偶性.IT加油站m, v( o' R, ]! T# U0 x& M: p& dselect case Num_tenIT加油站全心全意的为你服务，你满意是我们最好的答案7 j6 H' d+ `8 m& w9 F: ^2 F' zcase 0,2,4,6,8% z7 z. R6 Q7 v$ i, Q- kIT加油站print "偶数"IT加油站全心全意的为你服务，你满意是我们最好的答案" M* R% L0 Q8 Dcase 1,3,5,7,. [. s2 O! ^% N/ h' i8 R; Xprint "奇数") A" A# P" E- W3 h/ eend select$ j, Y% \& E4 y# r- e8 b4 循环语句:Do……Loop语句* Y! V6 g. h- q3 第一种格式:Do While 条件式" t& x5 ?4 E% n2 O4 uIT加油站全心全意的为你服务，你满意是我们最好的答案[程序段]IT加油站全心全意的为你服务，你满意是我们最好的答案6 `9 }2 {4 q: H5 b% T/ qLoopIT加油站全心全意的为你服务，你满意是我们最好的答案, Z/ X( c, t: {( f+ Q 当条件为true时,循环继续,直到条件变为False为止.; e: F3 B2 E' J9 fIT加油站全心全意的为你服务，你满意是我们最好的答案示例一/ w+ y% J) n2 H4 d黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|Private Sub Form_Click()2 V. H" B) z; d# r2 ]! IDim I As , n9 _9 V. x5 ?& |2 ^) d+ D1 iI=1黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程: R# {, n( W/ q! _# f/ s0 kDo While I5IT加油站' v# X Q6 t' s1 Y/ BPrint I8 t, Y3 E; X% y, f7 f& j黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程I=I+1) } l- x3 ~4 _/ i3 C2 L0 h黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程LoopIT加油站全心全意的为你服务，你满意是我们最好的答案+E4 b; y% M+ n% b+ [2 BEnd sub$ y/ @. T& C' r. [7 E3 K& V黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程Do……Loop第三种格式, t& B) u. }! M# |. x7 B0 s& \( N6 k[程序段]0 @+ T& I9 t: F; _- a2 v+ zLoop While 条件式黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程' E( `6 e; j# ~# G" x当条件式为true时,循环继续进行,直到条件式变为false为止.[7 _4 m( @8 U f* i: \& iIT加油站全心全意的为你服务，你满意是我们最好的答案示例三, N s0 N* i( N" NIT加油站Private Sub Form_Click()8 Q4 V, I! ?3 w z$ M* H3 s1 A黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程Dim I As Integer4 }/ \) Y' z0 w0 `8 n# ^% W! BIT加油站全心全意的为你服务，你满意是我们最好的答案I=61 b/ |: `! {, `! |Do黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|5 d+ j- Y! d" x* G+ A; t, [% PPrint I8 A7 [, }& j6 q6 O6 o, [* _( I=I+1+ _4 y, I" d; M5 E黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|Loop While I5黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|9 d* c; a9 Y9 R5 YEnd Sub$ e) v2 v0 i4 \: c$ d& For …Next 语句! z1 f5 C, [0 p% m6 r" z8 m7 |黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|语法规则:黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程& e4 b1 S% I2 X8 Q, q* N& U/ rFor 计数器=初值室To 终值[step增量]+ D2 t6 d) t8 r) Z6 c& iIT加油站语句3 G t$ C% a' O[If 条件式Then Exit For]'特定条件下退出/ O- s' `7 B( g3 c' t( {7 s语句IT加油站' v, {! E- W! R8 Y1 p% d! mnext [计数器]/ v4 c X: h: h3 v4 g6 `6 ^黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|示例:P69黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|8 a! N5 j4 W4 R; q3 [' BFor Each …Next, `6 R2 ~' x0 MIT加油站For each 元素In 数组或集合IT加油站3 E3 e( A7 C* [5 }! s; n/ l[程序段]7 Y. j H6 o' V+ f; p1 Q& V黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|[IF条件式Then exit for]'特定条件下退出1 R5 ^3 j1 O E- @% [程序段]黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程; W, v) c( N9 x9 a. {3 H0 U3 n8 Unext [元素]# u/ ^: C/ t0 Z# X f7 z- H' H( dIT加油站全心全意的为你服务，你满意是我们最好的答案这里的元素变量只能是variant类型或对象类型.; S2 R0 t! }& H$ q: c4 R2 K使用时应注意的问题5 L6 x8 {$ Q' A2 ?9 V- \% [9 a: d与for…next的区别在于前者是对于指定集合或集合中的每个元素重复执行某个程序段,而后者使用计数器变量控制循环过程.黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程4 E( R% A, k% Q, R$ K每次循环时,元素变量所代表的是数组中当前元素的值,而不是元素本身.3 ?( t& D# s& {, c0 示例. U; N& e6 H; z F& M3 Z7 IIT加油站For Each I In Form1.Controls黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|9 h$ W% s4 U+ k) n% DI.Enabled=False5 C p8 [+ F, K, C/ _Next I- c% o# C! [, k% K* b5 zIT加油站全心全意的为你服务，你满意是我们最好的答案While…… Wend语句1 S, c% p! F# K) O$ QWhile 条件式IT加油站全心全意的为你服务，你满意是我们最好的答案$ l# \7 Z+ ]. ^程序段: Y- Y% Q# p' h6 ?黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|wendIT加油站& d- I% d8 ^6 Y& u如果条件式为true,则所有的语句都会执行,一直执行到wend语句.然后再回到while语句检查条件式,如果条件式为true,则重复执行.如果不为true,则wend之后的语句继续执行.4 ^7 `. ]+ |& h( B0 `8 l/ C8 VDo Events函数与闲置循环& O: D, m' {; {" B& XIT加油站在Windows 的多任务环境下,就算有程序运行在运行一个长时间循环,其他应用程序也会分到CPU时间,但是该程序在运行循环时,对该程序中的其它事件不作响应.黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|: W0 r# U- k! s/ s/ V p; z- S9 N% t因此,我们在写程序时,"事件过程"不宜写的太长,更不可以有太长的循环.如果要用长的循环,又要避免能够及时响应其它事件的发生,只有采用两种方法:其一,使用DoEvents函数;其二,写成"闲置循环". 黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|$ F* [! ?- d2 v1 oDoEvents 函数" T# c& h' z+ ^ r7 N. W+ KIT加油站全心全意的为你服务，你满意是我们最好的答案DoEvents 函数将控制权转交给操作系统,以便让系统有机会去检查是否有其他事件需要提供服务,他的语法说明如下:IT加油站) Z& i, n+ H- j: j8 p" e语法:DoEvents( )IT加油站2 A: Q3 U+ P' q: e9 E" gDoEvents 函数会返回VB应用程序中打开窗体的数目.9 n: C. F1 t( [ F/ f! cNumForms = DoEvents( )* |0 i% p2 c# J' C2 DoEvents 会将控制权传给操作系统.当操作系统处理完队列中的事件,并且在SendKeys 队列中的所有键也都已送出之后,返回控制权.黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|7 D$ H: ~: o5 P( e0 [, i7 [闲置循环% s7 L& W" f" w. m: T m! g: d! ~对VB 应用程序来说,事件之间的时间叫做"空闲时间".在"空闲时间"里,VB 自动将控制权交还给Windows.当某个应用程序中的一个事件发生时VB 再为它向Windows 请求CPU时间.; B9 B# V& o; ~7 如果你想编一个只在"空闲时间"里执行的循环,在代码模块中使用SubMain过程,使应用程序马上开始执行程序(而不必等待窗体上发生事件).0 M5 S1 W8 h. F. \5 2 o8 {3 q7 J) l' a( tVB的数学函数( t" _9 P! f9 g) i( _表3-20 数学函数功能表黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|- h! {6 n+ T+ h( f函数名7 ]' s: {5 O# x% b0 t% z: J功能IT加油站全心全意的为你服务，你满意是我们最好的答案+ K- s0 Y6 K" j0 c5 f# S% H* `, T/ W) {Abs0 K0 D" R2 D; R5 E L5 ^+ v! _: F黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|求绝对值黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|4 [4 I: O# X3 I7 sAtnIT加油站全心全意的为你服务，你满意是我们最好的答案1 J$ M& [, ]! T0 t0 N' v( J反正切函数3 y }+ F" d3 @黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|Cos- \ {1 h6 M6 k' h7 \1 P2 J9 余弦函数5 O6 F3 Q; X8 w6 _$ Y/ BExp% l+ M; ~# ]; X% ?黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程求指数黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程- x+ W1 y* n$ I! n: sFix黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|% o E$ T* k4 @) j* v7 G3 G1 j6 }) r取整数,对负数取较大的2 r( l+ I8 _8 J \9 B& ZInt& T3 n& H9 t. c取整数,对负数取较小的黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|8 h7 A9 R$ C6 J9 Z! @ {( S4 K# k7 M1 b* G4 a9 `( ^) _) L0 C求对数3 c) e/ `" W5 X3 f% {3 U; g4 sRndIT加油站* ^$ W4 A* y2 `- ?1 @. a产生一个0～1间的随机数黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程$ \% ` c+ ~3 N1 T8 {Sgn# y' G$ ]9 g 求数字符号8 n0 K( G6 t& c& A2 {1 |$ {0 rIT加油站Sin- \1 u/ n- a! A( ~6 Q* O+ |IT加油站正弦函数IT加油站: A; n5 f( x8 m9 t n! R9 [8 CSqr黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|1 N# d! Q4 ]8 r! L) H求平方根0 J6 I( V+ m9 Z4 i. { y$ H+ e黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|Tan黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|; S/ C% z' I1 E6 I. N- O正切函数" ^/ ^3 W7 \2 g3 U" P! d7 q. s7 \: w6 }VB日期和时间函数& A& [2 N8 J: M# `9 vIT加油站全心全意的为你服务，你满意是我们最好的答案表3-21 日期函数功能表7 ^* d j. z' @8 z0 {1 I函数名) n+ M0 d, `0 w0 K! ]IT加油站功能/ \" D: L. ?" X! _8 t( ]" s黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程Date# f$ }3 h% F) f% y7 h/ Z7 n; 取得系统当前日期黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程+ g1 C3 R5 T( A, E) h7 _( d# y7 `% w( q) ?- ^9 V) M& d0 a! y取得系统当前时间黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程8 z: W l! u6 ^9 r2 Q, g4 d6 D/ h1 sNow# j7 ?& Y4 r6 l. }; vIT加油站全心全意的为你服务，你满意是我们最好的答案取得系统当前日期和时间( \0 o [! \' O0 `# f$ g) FYear黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程r- F8 i2 d! l4 Y! o" Q返回指定日期中的年份IT加油站全心全意的为你服务，你满意是我们最好的答案4 f. U/ F# Z* n& s& XMonth黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程$ F; S& J* h: ^3 q/ f4 w返回指定日期中的月份(1-12)% ^ y4 Q2 O" t6 m( v1 ?/ f, k Day黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|5 ?$ `3 c0 b, J& G6 A返回指定日期中天(1-31)黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|2 K8 l/ L8 j& g# hWeekdayIT加油站# b/ P4 M- y/ z" k返回指定日期为星期几% d2 T1 o" Y. {5 tIT加油站Hour4 d* X' [/ a% ~返回指定时间量中的小时6 l t- c) @5 W1 G2 E+ q* \IT加油站Minute7 H5 t# r% S7 H* \' 返回指定时间量中的分钟; U/ {( l8 |/ I$ j3 [3 s0 ^( cIT加油站全心全意的为你服务，你满意是我们最好的答案Second黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|. B6 J/ u" t9 q; H, |7 c9 N- a返回指定时间量中的秒黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程4 q; G7 ]$ t5 G! Z$ E3 P/ }DateSerial4 W/ b0 K, X. u* P返回指定年月日的日期& E( L. \& C0 W黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程TimeSerial9 |8 V" ]9 F4 N/ }8 }' d返回指定小时分秒的时间% j0 Y( F- J- ]4 B+ iDateValue" v" q* C& S! t# ?; C4 J将字符串表示的日期转化为Variant日期黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|8 f3 z" G8 u& M; D, R, ^6 OTimeValue# z L: c Q+ e+ V6 V' f, B. b将字符串表示的时间转化为Variant时间IT加油站全心全意的为你服务，你满意是我们最好的答案, x' \' x' C# m! _; V2 ~ N: f' b' N4 ]: |0 |DateAdd' F' T* ^' \, A) 返回指定日期加上一定时间间隔后的日期IT 加油站全心全意的为你服务，你满意是我们最好的答案9 s( ]# x# j6 h( ?) P! P( @DateDiff: }! p2 ]7 r! F2 v6 q* q黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|返回两个日期的时间间隔% i! M- Y" W2 w+ g6 S% DatePartIT加油站+ K O- c4 N' Z# R- w+ I/ J返回指定日期的特定部分4 _2 K8 [ z0 r3 b' A2 d5 }+ U! d/ S0 ?黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|. X8 ]* g' m- Y5 {, r$ a8 s9 [$ }字符串函数* w3 s) y$ ]( q+ Y表3-22 字符串函数功能表# M% @2 n8 l5 V3 W+ M {& S 函数名" w8 {' J3 T( k' A. QIT加油站功能黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备| d( A) c- _: D5 J StrComp: Q5 h& u& [" q1 Z$ w) K$ [两个字符串比较, e, \" T6 c: \0 ]) f FIT加油站全心全意的为你服务，你满意是我们最好的答案Lcase,Ucase& U9 @2 L; `& X- U转换大小写2 m+ M6 ~ |( R1 t. V5 j: d/ Y( Space,String$ w5 S2 u; u% h- ^, z4 u黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|返回指定长度的字符串IT加油站* U ~) k% R' M! b# I: O+ B1 W rLen* w0 \! o* Z P黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|求字符串长度黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程p$ U+ D) j" f% ~Lset,Rset语句黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程- w5 O! r+ P( A* B. ]& I给字符串变量赋值,赋在左边或右边黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|' F6 y0 i: I$ V5 O# j7 n7 S# qInstr" W: Y2 L+ s$ s/ c! C) _黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程子串定位黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|+ P- S/ `! i* ?1 xMid' I; Q8 u! k5 ^$ \" R9 w$ o, m) Z黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程取给定字符串的子串, Q7 H: P/ w- I7 Y9 I2 d0 aIT加油站全心全意的为你服务，你满意是我们最好的答案Left,Right% E1 j# {/ b! _4 C7 H# 从字符串的左边或右边取指定长度的子串黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程! N: b1 C) ^! A5 p. d {+ @Ltrim,Rtrim,Trim. y4 t( B1 W* |& r# i3 @7 G1 P黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|去掉字符串的前导空格,尾随空格IT加油站全心全意的为你服务，你满意是我们最好的答案6 ]9 T" Z$ w) e6 R$ S& \StrConv' C1 @* k/ z* m$ t5 `! Y转换字符串IT加油站全心全意的为你服务，你满意是我们最好的答案, V/ w0 i" v# g! w4 M: ]4 j. w2 T& m3 v; q* |' x5 a3 t( M目录和文件函数IT加油站& {0 \$ [0 M" I7 o, t" m* t表表3-23 文件系统函数列表* x3 l; Z8 {$ s z& S$ S# Y函数或语句名黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|& j, E2 ^, W Q/ p& Y功能' F4 g; d0 X9 R# lChDirIT加油站' ~3 @ j$ o( E N改变当前目录/ d0 p% w y( z- i) \6 GIT加油站ChDrive+ C% Z0 z" q+ o" h% A5 `IT加油站全心全意的为你服务，你满意是我们最好的答案改变当前驱动器黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程6 G- {( Q% Q" Z' F2 ^CurDir( P- u$ f/ V$ j% X0 `: F1 R6 t0 F返回当前目录IT加油站全心全意的为你服务，你满意是我们最好的答案% A7 U/ R7 ]/ FMkDir黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程6 L2 n" i! B. O9 G创建目录4 `# `5 M! C, ^6 a黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程: J3 z; Z* | Y/ ~2 S- [# ~& L删除目录4 D0 b7 ^2 M; `6 n黑客技术,QQ黑客,网页木马,远程控制,工具下载,黑客揭秘,动画教程FileCopy. H5 c! Y, j# m$ e) n1 Z( \" d! J拷贝文件4 O) M, s/ r4 L& L VKill黑客技术|工具下载|动画教程|免杀交流|菜鸟入门|免费信息|注册码大全|远程控制|网页挂马|装机必备|3 I* D) u1 ?1 l- a6 g) `6 D删除文件/ l7 n% |% @+ V% p5 h0 [% _5 Q+ TFileLenIT加油站全心全意的为你服务，你满意是我们最好的答案* l9 c* b1 ~4 S, Z( y1 r' d取得文件的长度(字节数)IT加油站全心全意的为你服务，你满意是我们最好的答案; \5 w: W/ U) t/ MDir0 |5 N7 W& M; M; j5 O/ V5 Z" hIT加油站查找指定的文件和目录。
第4次课课件(第3章分支结构)
5.选择结构的嵌套 5.选择结构的嵌套
嵌套是指在一个控制结构中插入另一个控制结构。 嵌套是指在一个控制结构中插入另一个控制结构 。 下面是IF结构嵌套的2种常用形式： IF结构嵌套的 下面是IF结构嵌套的2种常用形式： 条件1 If 条件1 Then 条件2 If 条件2 Then …… End If
ELSE
条件1 If 条件1 Then ……
ELSE
条件2 If 条件2 Then …… End If End If
…… End If
计算机软件技术基础 Visual Basic 程序设计
在IF语句的Then分支和Else分支中也可以完整 IF语句的Then分支和Else分支中也可以完整 语句的Then分支和Else 地嵌套一个Select Case语句 同样Select 语句， 地嵌套一个Select Case语句，同样Select Case语句每一个Case分支中都可嵌套另一个 语句每一个Case分支中都可嵌套另一个IF Case语句每一个Case分支中都可嵌套另一个IF 语句或另一个Select Case语句 语句。 语句或另一个Select Case语句。 注意：只要在一个分支内嵌套，不出现交叉，满 注意：只要在一个分支内嵌套，不出现交叉， 足结构规则，其嵌套的形式将有很多种， 足结构规则，其嵌套的形式将有很多种，嵌套层 次也可以任意多。对于多层IF嵌套结构中， IF嵌套结构中 次也可以任意多。对于多层IF嵌套结构中，要特 别注意IF Else的配对关系 一个Else必须与IF IF与 的配对关系， Else必须与 别注意IF与Else的配对关系，一个Else必须与IF 配结，配对的原则是： 配结，配对的原则是：在写含有多层嵌套的程序 建议使用缩进对齐方式， 时，建议使用缩进对齐方式，这样容易阅读和维 护。
高中程序设计知识点(vb)
高中程序设计知识点(vb)高中《信息技术》程序设计知识点1高中《信息技术》程序设计知识点一、基础知识1．基本概念程序、程序设计、程序设计（计算机语言语言）、流程图，屏幕坐标系、二进制；数据类型、常量、变量、表达式；对象、属性、方法、事件。
2．VB的基本数据类型数值类型：Integer、Long、Single、Double，（类型符依次为%、L、!、#）字符串型：String（类型符$）逻辑型：Boolean3．VB运算符（1）算术运算符：＾(乘方)－(取负数)某(乘)、/(除)mod(求余数)、\\(整除)＋(加)、－(减)（2）关系运算符：＞、＜、＝、＞＝、＜＝、＜＞（3）逻辑运算符：NOT(非)AND(与)OR(或)4．表达式算术表达式，其结果为数值。
如：5某(2^3-4)mod7字符表达式，其结果为字符串。
如：”What”&”iyourname”关系表达式，其结果为True(真)或Flae(假)如：3/2<>3\\2逻辑表达式，其结果为True(真)或Flae(假)如：”abc”<=”A”andint(-1.2)=-25．函数函数格式Int(某)Fi某(某)Ab(某)Sqr(某)Sin(某)Co(某)Rnd 函数功能取不大于某的整数部分取某的整数部分(截尾函数)取某的绝对值取某的算术平方根计算某的正弦值计算某的余弦值随机产生一个(0,1)内的纯小数函数格式RGB(r,g,b)Val()Str(n)InputBo某()Mgbo某()LoadPicture(f)函数功能按指定的值生成颜色将数字串转换成数值将数值转换成字符串输入数据输出数据加载图片6．变量变量用于存储数据，其特点是“读之不尽，新来旧去”。
不同类型的数据要用相应类型的变量存储;一般在使用变量前应该先定义(声明)该变量的类型。
例：已知y=|某|，编程从输入对话框输入某的值，从输出对话框输出y的值DIM某ASingle,yAingle‘定义二个单精度变量某，y语句也可写为DIM某!,y!某=inputBo某(“a=”,”输入变量的值”,0)If(某>=0)Theny=某Eley=-某MgBo某y7．VB语句的书写规则语句不区分字母大小写，每行字符最多255个；一条语句可以写在多行上，续行符为空格后跟下划线；多条语句可以写在一行上，语句间必须用冒号分隔；注释语句以单引号开头，可单独占一行或放在其它语句末尾。
程序设计基础(2)顺序结构和分支结构
25
思考 下列程序的运行结果是？
a=1 b=3 b = IIf(a = b, b + 1, b - 1) MsgBox ( b)
2
26
6. Select Case语句
格式:
Select Case <测试表达式> Case< 表达式值1> <语句块1> Case< 表达式值2> <语句块2> …… [Case Else 语句块n+1]
privatesubbutton1clickdimcjasintegercjinputbox请输入您的考试成绩selectcasecjcaseis90msgbox您的考试成绩为a级caseis80msgbox您的考试成绩为b级caseis70msgbox您的考试成绩为c级caseis60msgbox您的考试成绩为d级caseelsemsgbox您的考试成绩为f级endselectendsub
5
一、顺序结构
表达式中的变量必须是赋过值的，否则变量的初值 自动取零值(变长字符串变量取空字符)。
Dim a as integer, b as integer, c as Integer
a=1
c=a+b+3
′b未赋过值，为0
执行后，c 值为 4
赋值语句跟数学中等式具有不同的含意，例如
x=x+1
End Sub
22
4.If...Then ...ElseIf语句(多分支结构)
If<条件1>Then <语句块1>
ElseIf <条件2>Then <语句块2>
VB中结构
格式： If < 条件表达式 > < 语句块1> Else < 语句块2> End If
Then
T 表达 F 式
语句(块)1
语句(块)2
功能：当表达式的值为非0（True）时,执行Then后面的 语句块1，否则执行Else后面的语句块2。
例：判断两个数的乘积是否是正数。
Private Sub Command1_Click() Dim x As Integer, y As Integer x = Val(Text1.Text) y = Val(Text2.Text) If x * y > 0 Then
〈语句块1〉
ElseIf 〈表达式2〉Then
〈语句块2〉
……
[Else
表达式1
F
〈语句块 n+1 ] End If
表达式2
F…
T
T
表达式
nn T
语句块11
语句块2 …… 语句块nn
语句块n+11
说明：
① 不管有几个分支，程序执行了一个分支后， 其余分支不再执行。
② ElseIf子句的数量没有限制，可以根据需 要使用任意多个ElseIf子句。
（一）顺序结构
程序中的语句依照其在程序中的位置依次顺序 地执行，叫做语句的顺序执行。
赋值语句 格式： 变量名/对象属性名 = 表达式 功能：将赋值号右边表达式的值赋给赋值号左边的 变量或对象属性。
举例：
a = 300 b = a * 2 + 100 Form1.Width = b
注意：
① 赋值号左边只能是变量，不能是表达式、常量。
3．Select Case语句（多分支结构）
VB语言分支结构
VB语言分支结构VB语言是一种面向对象的编程语言，它具有分支结构的功能，可以根据不同的条件执行不同的代码块。
分支结构允许程序根据不同的条件进行不同的处理，增加了程序的灵活性和可扩展性。
下面将介绍VB语言中的分支结构。
VB语言中的分支结构有三种形式，分别是If语句、Select语句和三目运算符。
首先是If语句，它用于根据条件执行特定的代码块。
If语句有两种形式，分别是单行If语句和多行If语句。
单行If语句只有一条执行语句。
例如：```If condition Then statement```多行If语句有多个执行语句，并且可以使用Else语句和ElseIf语句。
例如：```If condition Thenstatement1statement2ElseIf condition2 Thenstatement4Elsestatement5statement6End If```其中，condition是一个逻辑表达式，如果为True，则执行If语句中的代码块；否则，根据情况执行其他的代码块。
Else语句是可选的，如果所有的条件都不满足，则执行Else语句中的代码块。
接下来是Select语句，它用于根据不同的条件执行不同的代码块。
Select语句有多个Case语句，每个Case语句后面可以跟多个执行语句。
例如：```Select Case expressionCase value1statement1statement2Case value2statement3Case Elsestatement5statement6End Select```其中，expression是一个表达式，根据它的值来选择执行相应的代码块。
如果expression的值和一些Case语句中的value相等，则执行该Case语句中的代码块。
如果所有的Case语句都不满足，则执行Case Else语句中的代码块。
最后是三目运算符，它是一个简洁的分支结构形式。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB基本运算、表达式、赋值语句与分支结构1、算术运算符2、关系运算符3、逻辑运算符算术运算符：注意事项：①、在数学中，乘号可省略；但在VB语句中，乘号*不允许省略②、在求余的时候，若参加的运算数有负号，先取绝对值，结果的符号与被除数相同③、+（连接运算）：两个操作数均为字符串类型；&（连接运算）：两个操作数既可为字符型也可为数值型。
例如："a"+"b"是合法的，而 "a"+2是错误的"a" & "b"是合法的，而"a" & 2也是合法的练一练：1.表达式23/5、 23\5、 23 Mod 5的运算结果分别是_______。
A. 3、 4.6、3B. 4.6、 4、 5C. 4、 4、 5D. 4.6、 4、 32.表达式-10/3、 -10\3、 10 Mod （-3）的运算结果分别是______。
A. -3、 -3.333、3B. -3.333、 -3、 -2C. -4、 -4、 -3.333D. -3.333、 -3、 13.下列哪些表达式是合法的，并求出正确表达式的值。
(1)"hello"+"2014"=(2)"hello"+ 2014=(3)"hello"&"2014"=(4)"hello"& 2014=想一想：表达式3+8^2/4\((11Mod2)-9*3)的返回值是多少？基本运算的规则：1、进行运算时，级别高的先执行2、同级别的运算，按照从左到右的顺序执行3、遇到括号，先进行括号内的运算注意：在VB中，括号只以()形式存在，可以多次嵌套，按照由内向外顺序执行练一练：1、求下列表达式的值(1)Sqr（256）/4-2^2 MOD 5\2(2)（-7）mod Int（3.5）+2^3/4\5(3)7mod (-3)+2^3/4\5关系运算符关系运算符用来比较两个运算量之间的关系，关系表达式的运算结果为逻辑型。
若关系成立，结果为True，若关系不成立，结果为False。
注意：（1）当两个操作式均为数值型，按数值大小比较；（2）字符串比较,则按字符的ASCII码值从左到右一一比较,直到出现不同的字符为止；逻辑运算符：Not 计算结果与原始数据的逻辑值相反And 两者为真才是真Or 两者为假才是假一般用来连接关系运算，结果也为逻辑型。
（True或者False）练一练：1.逻辑表达式4<5 and 7=5的值为______2.求VB表达式4+2>3+5 Or Not 2＞3的值3.数学表达式3≤x＜10在VB中的逻辑表达式为________。
A.3＜=x＜10B.x≥3 And x＜10C.X＞=3 Or x＜10D. x＞=3 And x＜10赋值语句的格式：变量名=表达式或对象.属性名=表达式分支结构：1、行If语句If 条件表达式 Then 语句1 Else 语句22、块If语句If 条件表达式1 Then语句块1ElseIf 条件表达式2 Then语句块2………ElseIf 条件表达式n Then语句块nElse语句块0End If块If语句的ElseIf语句部分和Else语句部分是可选的。
选择题：1、在VB 中，已知z 、a 、b 均为正整数，当逻辑表达式 (z Mod a=0) And (z Mod b=0)为真时，则表示： A 、 z 是a 的倍数，但不是b 的倍数 B 、 z 既是a 的倍数，又是b 的倍数 C 、 z 是a 的倍数或者是b 的倍数D 、 z 既不是a 的倍数，也不是b 的倍数 3、 将数学表达式Y=x 2+1|x |+3写成VB 表达式，正确的是：A 、y=x^2+1/Abs(x)+3B 、y=(x^2+1)/(Sqr(x)+3)C 、y=(x^2+1)/(Abs(x)+3)D 、y=x^2+1/Sqr(x)+3 4、在VB 中，若a 、b 都是大于0的整数，且关系表达式（a+b ）Mod 2=1，则下列说法正确的是： A 、a 、b 一定同时为奇数 B 、a 、b 一定同时为偶数C 、a 、b 中必是一个为偶数，另一个为奇数D 、以上说法都不对5、设A=7.5，B=2,C=-3.6，表达式A>B And C<A Or Not C>B And A<C 的值是： A 、True B 、False C 、-1 D 、1 6、下列赋值语句正确的是：A.a+b=5B.a=a2+3 c.a2+3=a D.a-b=a+b 7表达式a+5<a 是：A.非法表达式B.字符串表达式C.关系表达式D.逻辑表达式 8、语句i=i+1的正确含义是：A.变量i 与i+1的值相等B.将变量i 的值赋到i+1中C.将变量i 的值加1后赋值给变量ID.变量i 的值为1 9、下列语句中正确的是：A.txt3.Text=txt1.Text+txt2.Text=cmdOKbel1.Caption=1234mand1.Caption=45*1210、对应VB 语句If i=1 Then j=1,下列说法正确的是： A.i=1和j=1均为赋值语句 B.i=1和j=1均为关系表达式C.i=1为关系表达式，j=1为赋值语句D.i=1为赋值语句，j=1为关系表达式11、有如下程序段运行后，a的值为：a=5:b=2:a=a-b:b=a+b:a=b-aA.2B.3 c.4 D.512、有如下程序段运行后，y的值是：X=6:y=-10If Not x>0 Then x=y-5 Else y=x+4A.10B.-10 c.15 D.-1513、以下是一段VB程序：a = 1b = a + 1c = a + b它的基本结构属于（）A、顺序结构B、选择结构C、循环结构D、树型结构14、下列VB程序运行后，变量x的值为( ).x=2Print x+lPrint x+2A、2B、3C、5D、815、以下是一段Visual Basic程序:If I=1 ThenX=X+1ElseX=X*2End If它的基本结构属于( ).A、选择结构B、循环结构C、顺序结构D、树型结构16、下列程序段运行后，变量Value的值是（）x = 20If x >= 10 ThenValue = 5 * xElseValue = 4 * xEnd IfA、100B、80C、90D、7017、如要完成:从键盘输入一个正整数，判断是否是奇数，如是就在屏幕上显示。
比较好的算法是( )。
选项:A、①输人的数存人n变量②f=(n/2=Int(n/2))③如果f中的值为True就显示n中值B、①输人的数存人n变量②f=(n/2=Int(n/2))③如果f中的值为False就显示n中值C、①输人的数存人n变量②如果n/2=Int(n/2)成立，就显示n 中值D、①输人的数存人n变量②如果n/2=Int(n/2)不成立，就显示n中值18、下面是判断变量x是不是能被5整除的偶数的程序，横线上的逻辑表达式应为( )Private Sub commandl_Click()Dim x As Integerx=Val(Text1. Text)If ____ = 0 ThenLabell.Caption=这个数是能被5整除的偶数ElseLabell.Caption=这个数不是能被5整除的偶数End If选项：A、(x Mod 5) = 0 And (x Mod 2 ) = 0B、x Mod 10 = 0C、x Mod 5 = 0D、x Mod 2 = 019、下列程序段运行后,m的值为( )A=2: b=1: c=5If A < b Then m = A Else m = bIf c < m Then m = c选项：A、1B、2C、5D、提示错误，无答案20、下列VB语句中，正确的是（）A．x=|x-y| B．loop=y+1C．If 5>8x>0 Then s=y D．a(i)=a(i)+a(i+1)21、如下程序段运行后，a和b的值分别是（）a=6：b=9a=a*bb=a\ba=a\bA、6,9B、9,6C、0,0D、1,622、“如果a，b中任意一个为0，那么y=y+l”。
能实现该功能的VB语句是（）A．If a=0 And b=0 Then y=y+1 B．If a*b=0 Theny=y+1C．If a=0,b=0 Then y=y+1 D．If a,b=0 Theny=y+123、小明在大街上经常看见一种测量身高体重并提示肥瘦的机器，很感兴趣，就在VB中编写了如下程序，程序运行时，在文本框Text1中输入数据60，在文本框Text2中输入数据178，单击命令按钮Command1后，文本框Text3中显示的内容是（）Private Sub Command1_Click( )Dim t As Integer, h As integerDim ans as integerDim xs as singlet = Val(Text1.Text)h = Val(Text2.Text)xs=t^2/hIf xs<18 ThenAns="偏瘦"Elseif xs<=25 thenAns="正常"ElseAns="肥胖"EndifText3.Text =AnsEnd SubA.偏瘦B.正常C.肥胖D.Ans。