程序设计ABC 课件

获取字符长度（Len函数）
Len函数的语法格式如下： Len(string | varname) 作用： Len函数用于返回一个Long类型的值，其中包含字符串内字符的数目， 或是存储一变量所需的字节数。 参数解释： string：任何有效的字符串表达式。如果string包含Null，会返回Null。 varname：任何有效的变量名称。如果varname包含Null，会返回 Null；如果varname是Variant，Len会视其为String，并且总是返回其 包含的字符数。
• Step3：设置对象的属性（Property）
• Step4：根据设计需要在相应的事件下书写代码
Step5：保存工程，运行程序
• 作业：
1：编写一个奥运会奖牌总数统计程序 设计参照P18 实践（4）
2.3 程序的基本结构
掌握顺序、选择、循环三种基本结构 能够使用三种基本结构编写简单的程序解
关系运算符 运算符 优先级 运算规则 实例
非
NOT
AND
1
2
非真则假 非假即真
都为真时才为真
Not(12<>13)
结果为False (23>10) and (30<23) 结果为False
与ຫໍສະໝຸດ Baidu
或
OR
3
都为假时才为假
(23>10) or (30<23) 结果为True
日期运算符与日期表达式
eg :#2010/09/01#+30 结果为“2010-10-1” #2010/10/20# - #2010/10/10# 结果为 10
• 关系运算符与关系表达式（运算结果为布尔型）
关系运算 大于 运算符 > 示例 100>99结果为True
小于
大于等于 小于等于
<
>= <=
1.2<-23结果为False
3>=0结果为True 5<=0结果为False
等于
不等于
=
<>
12=13结果为False
12<>13结果为True
• 逻辑运算符与逻辑表达式
-3
20 2.5 2 1 25 15
字符串运算符与字符串表达式
VB中字符串运算符有：+ 和 & 作用：将两个字符串连接起来 区别:
字符串表达式 + 数值型表达式 ，结果为数值型数据 eg : “123” + 45 结果为 168 字符串表达式 & 数值型表达式 ，结果为字符串型数据
eg ：”123“ + 45 结果为 “12345”
• 练习
P32 实践部分的(2)
2.1 可视化程序开发工具
理解控件、对象、属性等基本概念 学会使用VB中的标签、文本框、按钮等基
本控件
2.1.1认识我们的“创作室”
菜单栏
窗体设计 器
工具栏
工程管理器
工具箱
属性窗口
代码窗口 窗体布局 窗口
如何实现？ 设计一个程序，用鼠标单击窗体时，窗 体中显示“欢迎进入VB世界！”。
第二章 程序设计ABC
■可视化程序开发 ■数据的表示与处理 ■程序的基本结构
2.2 数据的表示与处理
• 知道VB的常用数据类型、常量、变量、运
算符及表达式的含义
• 学会定义变量，学会使用常用语句及标准
函数
2.2.1 数据类型 VB的数据类型
数据类型 关键字 整型 长整型 单精度 双精度 字符串 布尔型 Integer Long Single Double String 所占内存 2字节 4字节 4字节 8字节 取值范围 -32768～32767范围内的任何整数 -2147483648～2147483647范围内的任何整 数 负数:-3.402823E38~1.401298E-45 正数:1.401298E-45~3.402823E38 负数 -1.797693134E308~-4.940656458E-324 正数 4.940656458E-324~1.797693134E308
• 作业练习
单击窗体时，用*号打印输出一个倒三角 提示： 书中39页有输出正三角的程序代码，只 需对输出*号的个数稍加修改即可
(2)
(3)
现有两个数 a，b 试比较，并输出较大者？ 1：自然语言 如果a>b 输出 a 否则输出b 2：流程图
开始 输入a,b a>b? Y 输出a N 输出b
结束
核心代码： Dim a As Integer, b As Integer a = Val(Text1.Text) b = Val(Text2.Text) If a > b Then Print "a的值比较大，a的值是"; a Else Print "b的值比较大，b的值是"; b End If
• Step 1：启动VB，新建一个VB 标准EXE 工程。单击工具箱中的
文本框控件（TextBox），将鼠标指针移到窗体上，拖动十字线在窗 体上画出大小适当的控件
• Step2：如图2-8所示，用同样的方法添加两个命令按钮控件
（CommandButton）、两个标签控件（Label）和 一 个 文本 框 控 件。
变量：在程序运行期间可以改变的量。 命名规则：
（1）必须以字母或汉字开头，而不能以数字或其他字符开头 （2）只能由字母、数字、汉字和下划线组成，不能含有小数点、 空格等字符 （3）字符个数不超过255个 （4）变量名不能使用VB中的保留字。如print sub end 等 （5）VB不区分变量名中的字母的大小写 （6）为增加程序的可读性，变量名最好取有意义的名称
2 ： 流程图
开始 Sum=0
n<=100
N
Y
Sum=sum+n n=n+1
输出sum 结束
• 核心代码：
Dim n As Integer, sum As Integer sum = 0 For n = 1 To 100 sum = sum + n Next n 思考： 如果只计算 1 到 100 之间的偶数呢？ 程序该如何书写？（ For n = 1 To 100 step 2）
定义形式
Dim 变量名 As 数据类型 Dim A As Integer
2.2.3 运算符与表达式
算术运算符与算术表达式
算术运算符 含义
指数
运算优先级
1
实例
2^
结果
1024
^
* / \ Mod + -
10
取负
乘法 除 整除 求余 加 减
2
3 4 5 6
-5+2
5*4 5/2 5\2 5 Mod 2 20+5 20-5
• 作业：
分析上面的程序，将上面的程序 改写成流程图
• 2.3.2 选择结构
思考分析： 解说体育课上排队的过程及其依据？
• 选择结构中的 if 语句
(1) 单分支选择结构，形式为 if 条件 then 语句或语句组 ‘语句组是指有多条语句的情况 end if 双分支结构，形式为 if 条件 then 语句或语句组1 else 语句或语句组2 end if 多分支结构，形式为 if 条件1 then 语句或语句组1 elseif 条件2 then 语句或语句组2 …… else 语句或语句组n end if
• 2.3.3 循环结构
思考分析： 试讲说一下体育课上我们玩的贴膏药游 戏的游戏规则。
如果跑的人没有抓到要被抓的那个人， 那么他就要执行同样的动作（抓人），知 道完成为止。 循环结构就是这样，只要满足循环条件， 就要执行重复的动作，知道不满足为止。
思考： 如何用程序实现从1到100的累加？ （用循环结构解决） 1：自然语言描述 用n作为累加量，sum为累加和，如果 n 小于 100 ，执行 sum = sum + n 。
思考两者输出结果有什么不同？
6：数学函数 Int(x) 取整函数 Int(99.2) 结果为 99 Rnd() 产生[0,1) 随机数，常与Randomize结合使用，避 免产生相同的随机数 7：字符串函数 Len(字符串) 求字符串的长度 Len(“2008奥运”) 返回值 6 8：日期函数 Date() 返回系统的当前日期 Time()返回系统的当前时间 9：常用转换函数 val(字符串) 将字符串转换为数值， val(“12”) 结果为12 str(整数) 将数值转换为字符串， str(5) 结果为 “5”
2.1.2 可视化编程的一般步骤
完成打字游戏程序，要求如下：
DateDiff函数简介
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
作用：返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。 参数介绍： interval 必要。字符串表达式，表示用来计算date1 和 date2 的时间 差的 时间间隔 Date1、date2 必要；Variant (Date)。计算中要用到的两个日期 后两个参数可选 interval 参数的设定值如下： yyyy 年 ，q 季 ，m 月 ，y 一年的日数 ，d 日 ，W 一周的日数 ， WW周，h 时，n 分钟 ，s 秒
10字节+字 定长字符串： 0~65535个字符 符串长度 不定长字符串： 0~20亿个字符 True或False
Boolean 2字节
日期型
Date
8字节
100/1/1~9999/12/31
2.2.2常量与变量
常量：在程序运行期间始终保持不变。 VB中的常量有数值型常量、字符串常量。 数值型常量类似于数学中的常数。 字符串常量 “1234”、“china” 定义形式： Const 常量名 [AS 类型] = 表达式 Const PI = 3.1415926
运算符的执行顺序
算术运算符>字符串连接运算符>关系运算符>逻辑运算符
2.2.4常用语句与函数
1：赋值语句 用“=”来实现，如N=1 2: Print语句 功能：在指定的对象上输出文本 [对象名.] Print [表达式列表] eg: Print “北京” , “欢迎你 ! ” Print “北京” ; “欢迎你 ! ” 3: 注释语句 用 ‘ 或 Rem 4: 结束语句 end 强制程序运行结束 5：与用户交互函数 InputBox() 与 MsgBox() 函数
决具体的问题
• 2.3.1 顺序结构
思考分析： 当超市很多人要交银，人们是怎么做的？ 还有哪些事情人们是按照先来后到的顺序 做的？ 顺序结构的程序，就是按照代码由上到下的 顺序一行一行地执行。
分析程序： 如何交换 a ，b 两个的值？ 关键代码： Dim a As Single, b As Single, c As Single a = Val(InputBox("输入a")) b = Val(InputBox("输入b")) Print "交换前:a="; a, "b="; b c=a a=b b=c MsgBox "交换后a=" & a & vbTab & "b=" & b, vbOKOnly, "交换结果"
• 选择结构中的 select case 语句
适用于多分支选择时 语法格式： select case 表达式 case 表达式1 语句组1 [ case 表达式n 语句组n ] end select
作为自学选修部分(结合书中实例去感受)
• 编程练习
输入飞船速度，判断飞船是否能飞空
尝试用自然语言，流程图分析 结合书中所给提示完成程序的编写