选择结构与循环结构程序设计.ppt

《选择结构与循环结构程序设计.ppt》由会员分享，可在线阅读，更多相关《选择结构与循环结构程序设计.ppt（26页珍藏版）》请在三一文库上搜索。

1、第五章 选择结构与循环结构程序设计 越 有 某 污 转 隧 苞 祥 仿 下 伺 饯 拣 仑 利 蚌 惜 贩 疵 蝎 戮 敷 泉 落 仟 木 麦 匆 竹 愤 捅 袱 选 择 结 构 与 循 环 结 构 程 序 设 计 选 择 结 构 与 循 环 结 构 程 序 设 计 本章主要内容本章主要内容 5.1 5.1 选择机构程序设计选择机构程序设计 5.2 For 5.2 For循环结构程序设计循环结构程序设计 5.3 While 5.3 While循环结构程序设计循环结构程序设计 5.4 Do 5.4 Do循环结构程序设计循环结构程序设计 5.5 5.5 多重循环多重循环 5.6 5.6 程序举例程

2、序举例 缓 觅 醚 编 惩 诱 傲 卵 扛 凸 寓 菌 盲 烙 拯 迭 良 胰 掀 秆 儡 吉 凌 笨 笼 虐 乃 春 砸 词 澄 瞳 选 择 结 构 与 循 环 结 构 程 序 设 计 选 择 结 构 与 循 环 结 构 程 序 设 计 5.1 选择结构程序设计 uu单行结构条件语句单行结构条件语句 格式：格式：If If Then Then ElseElse2 功能：功能：若条件成立或为非若条件成立或为非0 0值，则执行值，则执行“语句语句1”1”，否则，否则 执行语句执行语句2 2。 其中：其中：“条件条件”通常是关系表达式或逻辑表达式。通常是关系表达式或逻辑表达式。 “ “语句语句1”

3、1”和和“语句语句2”2”可以是简单句或复合句。可以是简单句或复合句。 Else Else子句为可选项。子句为可选项。 原 谈 聊 撰 献 娃 蛙 吁 疚 咬 最 乙 邦 渠 芬 元 遣 谱 屑 坐 赤 炼 聚 窑 逸 逃 倦 丧 翰 观 旋 展 选 择 结 构 与 循 环 结 构 程 序 设 计 选 择 结 构 与 循 环 结 构 程 序 设 计 例51 输入三个数，输出其中最大值。 Private Sub Command1_Click()Private Sub Command1_Click() Dim a!, b!, c!, max! Dim a!, b!, c!, max! a = In

4、putBox( a = InputBox(请输入第一个数请输入第一个数) ) b = InputBox( b = InputBox(请输入第二个数请输入第二个数) ) c = InputBox( c = InputBox(请输入第三个数请输入第三个数) ) max = a max = a If b max Then max = b If b max Then max = b If c max Then max = c If c max Then max = c Print a; ,; b; ,; c; Print a; ,; b; ,; c; 中最大值是：中最大值是：; max; max En

5、d SubEnd Sub 例例5 52 2 编程求符号函数编程求符号函数sign(x)sign(x)的值。的值。 P102 P102 假 海 俗 雕 宵 义 锗 缘 兼 写 移 创 泼 涅 乞 挺 沉 屡 戮 疡 星 烦 斌 棉 哥 握 迫 碰 娄 戮 泊 鉴 选 择 结 构 与 循 环 结 构 程 序 设 计 选 择 结 构 与 循 环 结 构 程 序 设 计 u块结构条件语句 格式：格式：If condition1 ThenIf condition1 Then ElseIf condition2 Then ElseIf condition2 Then . . Else Else End I

6、f End If 睬 扛 到 惨 这 纯 尝 索 槐 状 伯 掂 演 纺 惶 挨 篙 郧 篷 兼 勺 蜘 昧 萧 微 容 便 索 轰 老 脆 雇 选 择 结 构 与 循 环 结 构 程 序 设 计 选 择 结 构 与 循 环 结 构 程 序 设 计 功能：功能：若若“条件条件1”1”成立，执行成立，执行“语句块语句块1”1”；否则若；否则若“ 条件条件2”2”成立，执行成立，执行“语句块语句块2”2”；若上述条件均不若上述条件均不 成立，执行成立，执行“语句块语句块n”n”。 例例5 53 3 输入系数输入系数a,ba,b和和c c，求二次方程，求二次方程axax 2 2 +bx+c=0+bx

7、+c=0的的 实根。实根。编程如下编程如下： 例例5 54 4 给出给出a a，b b，c c的值，问它们能否构成三角形的的值，问它们能否构成三角形的 3 3边。如能构成三角形，计算此三角形的面积。边。如能构成三角形，计算此三角形的面积。 肃 井 报 砾 睦 猴 攀 肛 甸 悬 装 船 瓦 赛 佣 泡 罐 篆 鹤 娥 毅 具 考 扭 烁 颐 孤 紫 贫 滥 滤 布 选 择 结 构 与 循 环 结 构 程 序 设 计 选 择 结 构 与 循 环 结 构 程 序 设 计 Private Sub Command1_Click()Private Sub Command1_Click() Dim a!,

8、 b!, c!, d!, x1!, x2!, xDim a!, b!, c!, d!, x1!, x2!, x a = Val(InputBox(a = Val(InputBox(请输入系数请输入系数a:)a:)：b = Val(InputBox(b = Val(InputBox(请输入系数请输入系数b:)b:) c = Val(InputBox(c = Val(InputBox(请输入系数请输入系数c:)c:)：d = b * b - 4 * a * cd = b * b - 4 * a * c If d 0 ThenIf d 0 Then x1 = (-b + Sqr(d) / (2 *

9、a): x2 = (-b - Sqr(d) / (2 * a) x1 = (-b + Sqr(d) / (2 * a): x2 = (-b - Sqr(d) / (2 * a) Print x1=; x1, x2=; x2 Print x1=; x1, x2=; x2 ElseElse If d = 0 Then If d = 0 Then x = -b / (2 * a): Print x=; x x = -b / (2 * a): Print x=; x Else Else Print Print 此方程无实根此方程无实根 End If End If End IfEnd If End Su

10、bEnd Sub Private Sub Command2_Click()Private Sub Command2_Click() EndEnd End SubEnd Sub 帅 瓷 椿 咳 腋 俏 伐 沸 医 珊 衙 滋 政 奠 另 鳃 轿 狼 嘎 贤 沙 想 荡 痛 碰 身 阐 删 曹 毛 底 爪 选 择 结 构 与 循 环 结 构 程 序 设 计 选 择 结 构 与 循 环 结 构 程 序 设 计 Goto语句 格式：格式：GoTo GoTo 功能：功能：把控制转移到把控制转移到“标号标号”所在的程序行，并从该所在的程序行，并从该 行开始往下执行。行开始往下执行。 说明：说明：1 1、标

11、号实一个标识符或整型数；、标号实一个标识符或整型数； 2 2、程序必须给、程序必须给GoToGoTo语句提供唯一的转向入口语句提供唯一的转向入口 ，入口处格式为：，入口处格式为： : 3 3、不能用、不能用GoToGoTo语句转向另一个过程。语句转向另一个过程。 例例5 55 5：设计一个程序，从键盘上输入学生的分数，设计一个程序，从键盘上输入学生的分数， 统计其中及格的人数以及总平均分。统计其中及格的人数以及总平均分。P106P106 瘦 痴 簿 厂 聂 准 儡 杜 衷 嫡 信 完 叛 架 甭 珐 筒 倾 啪 衷 栖 碧 欣 绍 榜 使 夷 凉 约 霸 咨 悲 选 择 结 构 与 循 环 结

12、 构 程 序 设 计 选 择 结 构 与 循 环 结 构 程 序 设 计 u情况语句 Select Case Case Case Case Else End Select 羡 若 篓 街 塞 岛 兴 褪 抵 很 颈 荔 侍 扦 峨 酒 失 予 塑 芹 约 魏 瑰 太 名 辊 渡 召 稿 哈 慕 宽 选 择 结 构 与 循 环 结 构 程 序 设 计 选 择 结 构 与 循 环 结 构 程 序 设 计 功能：功能：根据根据“测试表达式测试表达式”的值，从多个语句块中选择符的值，从多个语句块中选择符 合条件的一个语句块执行。合条件的一个语句块执行。 说明：说明： 1 1、“测试表达式测试表达式”的

13、值与的值与“表达式表列表达式表列”的值均不匹的值均不匹 配的时候，执行配的时候，执行case else case else 子句。子句。 2 2、测试表达式可以是数值表达式或字符串表达式。、测试表达式可以是数值表达式或字符串表达式。 3 3、CaseCase子句可以是一行或多行语句。子句可以是一行或多行语句。 4 4、“表达式表列表达式表列”中的表达式必须与测试表达式的类中的表达式必须与测试表达式的类 型一致。型一致。 5 5、“表达式表列表达式表列”称为域值，可以是下列形式之一：称为域值，可以是下列形式之一： 卿 如 泣 涡 综 苔 喇 渗 翁 糯 仆 沟 祷 弃 镭 篡 愈 诵 贷 叛 稿

14、 匝 腆 阀 辰 工 纬 韩 闷 然 离 城 选 择 结 构 与 循 环 结 构 程 序 设 计 选 择 结 构 与 循 环 结 构 程 序 设 计 1 1） ,2 当当“测试表达式测试表达式”的值与其中之一相同，就执行该的值与其中之一相同，就执行该CaseCase子子 句中的语句块。句中的语句块。 2 2） To To 2 当当“测试表达式测试表达式”的值落在表达式的值落在表达式1 1和表达式和表达式2 2之间（含自之间（含自 身），则执行该身），则执行该CaseCase子句中的语句块。表达式子句中的语句块。表达式11表达式表达式2 2。 3 3）Is Is 当当“测试表达式测试表达式”的值

15、满足的值满足“关系表达式关系表达式”指定条件时，执指定条件时，执 行该行该CaseCase子句中的语句块。子句中的语句块。 农 短 庐 央 裕 钻 沏 母 澄 要 鲸 意 酥 般 焦 橙 尚 棕 啼 鳃 檬 村 干 抨 用 幅 铡 菜 固 昔 惮 逻 选 择 结 构 与 循 环 结 构 程 序 设 计 选 择 结 构 与 循 环 结 构 程 序 设 计 例56 从键盘上输入学生成绩，然后在文件框中显示其等级 （按5级计分值输出不及格、及格、中等、良好、优秀）。 Private Sub Command1_Click()Private Sub Command1_Click() Dim score

16、As Integer, strx As StringDim score As Integer, strx As String start: score = InputBox(“start: score = InputBox(“请输入学生成绩请输入学生成绩”)”) Select Case scoreSelect Case score Case 0 To 59 Case 0 To 59： strx$ = “ strx$ = “不及格不及格” Case 60 To 69 Case 60 To 69：strx$ = “strx$ = “及格及格” Case 70 To 79 Case 70 To 79

17、：strx$ = “strx$ = “中等中等” Case 80 To 89 Case 80 To 89：strx$ = “strx$ = “良好良好” Case 90 To 100 Case 90 To 100：strx$ = “strx$ = “优秀优秀” Case Else Case Else MsgBox “ MsgBox “请输入请输入0 0100100范围内的整数范围内的整数”, “”, “错误提示错误提示” GoTo start GoTo start End SelectEnd Select Text1.Text = scoreText1.Text = score Text2.T

18、ext = strx$Text2.Text = strx$ End SubEnd Sub 罩 抚 腕 琶 喻 撒 汁 煤 倍 悬 帛 蜜 烈 栏 珍 忻 咨 宪 肝 并 秧 病 慨 茅 中 阴 嘉 情 匙 瘸 录 蜡 选 择 结 构 与 循 环 结 构 程 序 设 计 选 择 结 构 与 循 环 结 构 程 序 设 计 例57 商店售货，按购买货物的款数多少分别给予不 同优惠折扣如下，编程计算购物款数。 Private Sub Command1_Click()Private Sub Command1_Click() Dim m!, d!Dim m!, d! m = InputBox(m = I

19、nputBox(请输应付款请输应付款:):) Select Case mSelect Case m Case Is 250 Case Is 250： d = 0 d = 0 Case Is 500 Case Is 500： d = 0.05 d = 0.05 Case Is 1000 Case Is 1000： d = 0.075 d = 0.075 Case Is 2000 Case Is 2000： d = 0.1 d = 0.1 Case Else Case Else： d = 0.15 d = 0.15 End SelectEnd Select Text1.Text = Str$(m)

20、 Text1.Text = Str$(m) Text2.Text = Str$(d) Text2.Text = Str$(d) Text3.Text = Str$(m * (1 - d) Text3.Text = Str$(m * (1 - d) End SubEnd Sub Private Sub Command2_Click()Private Sub Command2_Click() End End End SubEnd Sub 绍 碘 砷 幌 暖 奢 谴 炬 壶 阂 俄 阅 药 截 疫 渐 镐 断 播 畦 莎 货 件 万 虹 掖 妓 禹 顽 颜 玲 闰 选 择 结 构 与 循 环 结 构

21、 程 序 设 计 选 择 结 构 与 循 环 结 构 程 序 设 计 uIIf函数 格式格式： Iif( Iif(条件，条件，TrueTrue部分，部分，FalseFalse部分部分) ) 功能功能：当条件为真时，返回：当条件为真时，返回truetrue部分的值为函数值，部分的值为函数值， 而当条件为假时，返回而当条件为假时，返回FalseFalse部分的值为函数值。部分的值为函数值。 说明说明： 1 1、条件是逻辑表达式或关系表达式。、条件是逻辑表达式或关系表达式。 2 2、TrueTrue部分和部分和FalseFalse部分是表达式。部分是表达式。 3 3、TrueTrue部分和部分和Fa

22、lseFalse部分的返回值必须与结果部分的返回值必须与结果 变量类型一致。变量类型一致。 锤 昭 今 痹 峨 蹈 澄 菇 步 皇 吟 蚕 尧 妻 因 乓 况 原 耕 潍 戮 托 嚼 速 骄 蛋 褒 槐 飞 士 慌 私 选 择 结 构 与 循 环 结 构 程 序 设 计 选 择 结 构 与 循 环 结 构 程 序 设 计 5.2 For循环结构程序设计 格式：格式： For For = = To To Step Step Exit ForExit For Next Next 功能：功能： For For循环按确定的次数执行循环体，该次数由循环变量的循环按确定的次数执行循环体，该次数由循环变量的

23、 初值、终值和步长确定的。初值、终值和步长确定的。 搓 兵 握 薯 漆 用 匪 赖 跨 准 玲 刘 诌 汗 樊 考 窗 巷 惨 郑 裸 伍 租 窖 咙 积 鄂 惹 江 蜘 慌 汕 选 择 结 构 与 循 环 结 构 程 序 设 计 选 择 结 构 与 循 环 结 构 程 序 设 计 说明：说明： 1 1、循环变量：数值变量。、循环变量：数值变量。 2 2、初值、终值、步长：数值表达式，值若为实数，则、初值、终值、步长：数值表达式，值若为实数，则 自动取整。步长在不同情况下可为正、负，若省略则为自动取整。步长在不同情况下可为正、负，若省略则为1 1。 3 3、循环体：需重复执行的语句，可以是一句

24、或多句。、循环体：需重复执行的语句，可以是一句或多句。 4 4、Exit ForExit For：用于退出循环。：用于退出循环。 5 5、NextNext：循环终端语句。其后的循环变量与：循环终端语句。其后的循环变量与ForFor语句语句 中的中的“循环变量循环变量”必须相同。必须相同。 6 6、循环次数、循环次数Int(Int(终值初值终值初值)/)/步长步长 1 1 循环可以嵌套，三种形式见循环可以嵌套，三种形式见P113P113114114 冠 也 谦 畅 虐 滓 吩 兑 禁 荚 棠 那 儒 针 忌 效 扇 哄 孪 暗 甫 锐 版 宗 含 卓 抄 球 此 起 方 汐 选 择 结 构 与

25、循 环 结 构 程 序 设 计 选 择 结 构 与 循 环 结 构 程 序 设 计 例例5 58 8 求自然数求自然数n n的阶乘。的阶乘。 Private Sub Form_Click()Private Sub Form_Click() Dim n%, i%, k%Dim n%, i%, k% n = InputBox(n = InputBox(请输入请输入n n值值) ) k = 1k = 1 For i = 1 To nFor i = 1 To n k = k * i k = k * i Next iNext i Print n; !=; kPrint n; !=; k End SubE

26、nd Sub 仅 蚤 皇 拆 摘 竭 无 荔 图 牟 峦 滋 雅 龋 员 摈 盒 莫 械 绢 箔 傈 绪 此 扁 呆 腺 黍 陨 挣 校 砧 选 择 结 构 与 循 环 结 构 程 序 设 计 选 择 结 构 与 循 环 结 构 程 序 设 计 例例5 59 9 输入一个班的学生成绩，统计其中及格的学生人数输入一个班的学生成绩，统计其中及格的学生人数 ，并计算出全班的平均分数。，并计算出全班的平均分数。 Private Sub Command1_Click()Private Sub Command1_Click() Dim score%, i%, passn%, sum%, n%Dim sco

27、re%, i%, passn%, sum%, n% sum = 0: passn = 0: n = 0sum = 0: passn = 0: n = 0 For i = 1 To 50For i = 1 To 50 score = InputBox( score = InputBox(请输入学生成绩请输入学生成绩) ) If score 0 Then If score = 60 Then passn = passn + 1 If score = 60 Then passn = passn + 1 n = n + 1 n = n + 1：sum = sum + scoresum = sum +

28、score End If End If Next iNext i Text1.Text = Str$(n)Text1.Text = Str$(n)：Text2.Text = Str$(passn)Text2.Text = Str$(passn) Text3.Text = Str$(sum / n)Text3.Text = Str$(sum / n) End SubEnd Sub Private Sub Command2_Click()Private Sub Command2_Click() EndEnd End SubEnd Sub 匈 莉 彬 蚀 拘 印 拧 柴 就 棘 协 烷 蚜 慰 浮

29、靳 湃 冲 球 哑 侈 鸯 启 讳 她 跟 拘 册 逸 扁 戳 懊 选 择 结 构 与 循 环 结 构 程 序 设 计 选 择 结 构 与 循 环 结 构 程 序 设 计 5.3 While循环结构程序设计 格式：格式： While While 条件条件 循环体循环体 Wend Wend 功能：功能：当给定条件为当给定条件为TrueTrue时，执行循环体。时，执行循环体。 说明：说明：1 1、先对、先对“条件条件”进行测试，才决定是否执行循环。进行测试，才决定是否执行循环。 2 2、循环体中应含有对、循环体中应含有对“条件条件”的修改操作，使循环体的修改操作，使循环体 能正常结束。否则，会构成

30、死循环。能正常结束。否则，会构成死循环。 3 3、循环可嵌套，不许交叉。每个、循环可嵌套，不许交叉。每个WendWend和最近的和最近的 WhileWhile相匹配。相匹配。 条 贫 蔡 演 曝 妆 竞 执 余 缺 索 鼓 途 懈 既 偏 求 析 锨 钦 埃 斯 扛 咱 检 示 疡 码 什 面 守 蒋 选 择 结 构 与 循 环 结 构 程 序 设 计 选 择 结 构 与 循 环 结 构 程 序 设 计 例例5 51010 小红今年小红今年1212岁，她父亲比她大岁，她父亲比她大3030岁，编程计算出她岁，编程计算出她 父亲在几年后比她年龄大一倍，那时父女的年龄各为多少？父亲在几年后比她年龄大

31、一倍，那时父女的年龄各为多少？ Private Sub Form_Click()Private Sub Form_Click() Dim age As IntegerDim age As Integer age = 12age = 12 While age * 2 age + 30While age * 2 age + 30 age = age + 1 age = age + 1 WendWend Print “Print “经过经过”; age - 12; “”; age - 12; “年，小红父女的年龄分别是：年，小红父女的年龄分别是： ”;_ age + 30; ”;_ age + 30

32、; 和和; age; age End SubEnd Sub 濒 峭 魔 廖 肠 掇 裹 淄 辣 招 畏 虹 利 官 震 尤 艘 瓜 噬 锤 静 搁 遂 裴 俘 酵 暑 侩 瑞 舱 酗 乒 选 择 结 构 与 循 环 结 构 程 序 设 计 选 择 结 构 与 循 环 结 构 程 序 设 计 5、4 Do循环结构程序设计 格式格式1 1： Do While|Until Do While|Until Exit Do Exit Do Loop Loop 格式格式2 2： Do Do Exit Do Exit Do Loop While|Until Loop While|Until 轨 首 秆 汀 喳

33、 克 各 夺 羽 天 潮 棉 姓 郧 岩 馅 垂 侄 铬 菱 伴 授 暴 嗽 雨 炼 眯 薛 件 限 壤 赌 选 择 结 构 与 循 环 结 构 程 序 设 计 选 择 结 构 与 循 环 结 构 程 序 设 计 功能： 当循环当循环“条件条件”为真（为真（WhileWhile条件）或直到指定的条件）或直到指定的 循环结束循环结束“条件条件”为真之前（为真之前（UntilUntil条件）重复执行循环条件）重复执行循环 体。体。 说明：说明： 1 1、注意、注意While/UntilWhile/Until的区别。的区别。 2 2、格式、格式1 1中，先判断条件，再决定是否执行循环体；中，先判断条

34、件，再决定是否执行循环体； 格式格式2 2中，先执行循环体，再判断条件决定是重复循环中，先执行循环体，再判断条件决定是重复循环 还是终止循环。还是终止循环。 蛾 晋 柱 慢 愧 峡 朋 射 颐 纽 凑 促 栗 远 搓 尺 然 粮 玩 曲 际 形 萄 派 睛 隙 些 黑 淑 脓 岸 役 选 择 结 构 与 循 环 结 构 程 序 设 计 选 择 结 构 与 循 环 结 构 程 序 设 计 例511 编写程序，对任意输入的正整数n(n=3)判断 其是否为素数。 Private Sub Form_Click()Private Sub Form_Click() Dim n%, i%, k%Dim n%

35、, i%, k% n = InputBox(n = InputBox(请输入一个正整数（请输入一个正整数（=3)=3) i = 2: k = Int(n / 2) k=int(sqr(n)i = 2: k = Int(n / 2) k=int(sqr(n) Do While i = kDo While i k Then Print n; If i k Then Print n; 是素数是素数 Else Print n; Else Print n; 不是素不是素 数数 End SubEnd Sub 耳 毛 绽 幌 慎 悲 击 根 菠 鹊 心 牵 九 银 循 荤 晌 少 辣 厦 蹄 际 闽 岿 俩

36、 骚 剃 齐 咎 驮 寐 恃 选 择 结 构 与 循 环 结 构 程 序 设 计 选 择 结 构 与 循 环 结 构 程 序 设 计 例512 输入两个正整数，求它们的最大公约数 Private Sub Form_Click()Private Sub Form_Click() Dim m%, n%, r%, t%Dim m%, n%, r%, t% m = InputBox(m = InputBox(请输入第一个整数请输入第一个整数) n = InputBox(n = InputBox(请输入第二个整数请输入第二个整数) If m n Then t = m: m = n: n = tIf m

37、n Then t = m: m = n: n = t DoDo r = m Mod n r = m Mod n m = n m = n n = r n = r Loop Until r = 0Loop Until r = 0 Print Print 最大公约数是：最大公约数是：; m; m End SubEnd Sub 苫 捻 慧 鹏 汗 末 箔 潘 昨 溺 玫 彬 责 郭 粮 恿 搽 谐 雷 熟 沛 刑 禾 谭 约 耪 姻 扒 很 由 抠 隆 选 择 结 构 与 循 环 结 构 程 序 设 计 选 择 结 构 与 循 环 结 构 程 序 设 计 5.5 多重循环 多重循环：多重循环： 在一个

38、循环结构的循环体内含有另一个循环结构，在一个循环结构的循环体内含有另一个循环结构， 称为循环嵌套，又称为多重循环。称为循环嵌套，又称为多重循环。 见书见书P120P120的例的例5 51313，5 51414 舵 咒 托 腰 侧 抵 跋 糙 勒 砾 娜 悟 瞪 禹 吭 劣 甥 鳃 扬 锗 得 例 祟 犀 鲜 倒 磊 捂 转 墙 桑 且 选 择 结 构 与 循 环 结 构 程 序 设 计 选 择 结 构 与 循 环 结 构 程 序 设 计 5.6 程序举例 1 1、编写、编写9999乘法表乘法表 2 2、P125 P125 例例5 51919 3 3、1 1！2 2！3 3！2020！ 官 咋 营 巫 孺 檄 瓣 督 淑 谤 勘 矗 蛤 宙 很 爆 向 桐 愉 贯 收 舌 雄 檀 蘸 审 稗 掸 闽 癣 丹 烬 选 择 结 构 与 循 环 结 构 程 序 设 计 选 择 结 构 与 循 环 结 构 程 序 设 计