[工学]VB第三章表达式.ppt

例: Const pi=3.1416 Private Const N As Integer=6 Const D=#3/22/80# Private Const F=“河北工程学院” 可用逗号分隔, 在一行中放置多个常数说明. Const a as integer=23,b as double=1.23e-5 一旦已定义常数,就可将其放置在代码中. 例: If T=D Then Print”生日快乐!“ 如: v=26 v=v+1 book=“计算机应用” sum=v*123.4+56.7 n%=34 Inputbox对话框的应用举例（1） Inputbox对话框的应用举例（2） 值 按钮的设置 对应按钮名称 0 vbOKOnly---------------确认 1 vbOKCancel-------------确认、取消 2 vbAbortRetryIgnore---终止、重试、忽略 3 vbYesNoCancel---------是、否、取消 4 vbYesNo------------------是、否 5 vbRetryCancel----------重试、取消 对应值 符号 出现的图标 练习： 设置一个确认框，提示“输入数据正确吗？”，通过选择“是、否(默认按钮)、取消”来选择不同的操作 返回值 符号常量 对应按钮 Msgbox对话框的 应用举例(1) 例:If S=60 Then Print “你及格了!” Print “希望继续努力!” Endif 例:要求:从窗体的文本框中输入成绩,然后显示分析结果.(条件是大于60分为通过) . . (2) 条件语句的多分支(多条件）结构 If 条件1 Then 语句序列1 ElseIf 条件2 Then 语句序列2 Elseif 条件3 Then 语句序列3 …… Else 语句序列n Endif . Msgbox对话框的 应用举例(3) Msgbox对话框的 应用举例(2) 1.If…Then 结构 2.If…Then…Else 结构 3.Select Case 结构 3. Select Case 结构(多条件时使用该结构) Select Case 测试条件 Case 表达式1 语句序列1 Case 表达式2 语句序列2 …… Case Else 语句序列n End Select 二、条件语句 程序代码： Dim I As Integer 1、Exit （从循环中退出） 满足循环条件的情况下,提前跳出循环体,结束循环. 两种形式：Exit For Exit Do if I mod 17 =0 then print i end if For I=100 to 200 Next I exit for 分析： 重复工作：判断是否能被17整除 初值、终值和增量： 例6：求出100~200之间的第 一个能被17整除的整数。 第三章 基本控制结构 蒿社平 四、辅助控制语句 2、 Go to 语句 3、 End语句 4、 With语句 对某个对象执行一系列操作。 Go To 标号 With Form1 .Caption=“物理实验” .BackColor=vbWhite .ForeColor=vbBlue End With 注意： 进入With语句块，对象不能改变； 属性前的“.”不能省略。 第三章 基本控制结构 蒿社平 四、辅助控制语句 程序代码： 例1.求 n! 分析： 重复工作：* 初值、终值、增量：1、n、1 如何求： 1！+2！+3！+…+n！ For i = 1 To n s = s * i Next i s = 1 Dim i, s, n As Integer n =