第4章 程序控制结构与算法基础.pps
《第4章 程序控制结构与算法基础.pps》由会员分享,可在线阅读,更多相关《第4章 程序控制结构与算法基础.pps(61页珍藏版)》请在淘文阁 - 分享文档赚钱的网站上搜索。
1、第4章 程序控制结构与算法基础,实验五说明,上机教材 实验 P137 实验3-5素数的判定算法3:由2n/2之间的数去除算法4:由2,之间的数去除,综合小例:,1.求 1!+2!+n!2.在列表框显示1100之间的所有 素数;而不是素数的则显示在组合框中3.将上例修改为在窗体上直接打印要求:每显示8个则换行显示下一行内容,例:,* 输出移动的标签除数为0的判定密码登录验证素数(质数)判定随机计算题,三种基本结构,顺序结构,分支(选择)结构,循环,代码书写规则,每个语句一行,以回车键结束;多个语句可以写在同一行上,各语句之间用冒号(:)进行分隔;一条长语句可以分成多行书写,在除最后一行之外的其余
2、各行的末尾使用下划线(_)作为续行符,并且续行符与它前面的字符之间至少要有一个空格;所有语句中的变量名、函数名、关键字、对象名、对象属性名、对象方法名等均不区分大小写,但保留定义时所使用的大小写格式;代码的物理行最多可含1023个字符,一个逻辑行最多可由10个物理行组成。,自动语法检测,VB的IDE默认情况下具有自动语法检测功能。如果用户输入有语法错误的语句,在按下回车键后,系统将弹出一个出错提示框,并用红色标出有语法错误的语句。,赋值语句,格式:变量对象.属性名 =表达式 可以给一个变量(或对象的属性)多次赋值,但变量中保留的是最后一次的值。累加:B=B+N 累乘:C=C*N,交换两个变量的
3、值,中间变量法T=AA=BB=T数值加减法A=A+B B=A-B A=A-B,适合任何两个相同类型的变量,适合两个数值类型的变量,算法,程序=数据结构+算法算法是解决问题的方法、步骤,是程序的核心。 算法的特性确定性能行性有穷性输入输出,程序的三种基本结构,顺序结构:按语句书写顺序执行。分支结构:也叫选择结构,根据一个条件决定程序执行的走向。循环结构:将某些语句重复执行有限次。,顺序结构,示例,输入正方形边长,求其周长与面积。,Private Sub Command1_Click() Dim A As Single, L As Single, S As Single A = Val(Text1
4、.Text)获取Text1中的内容 L = 4 * A S = A 2 Text2.Text = L在Text2中输出周长 Text3.Text = S在Text3中输出面积End Sub,分支结构-If语句,单行结构If语句If 条件 Then 语句A Else 语句B块结构If语句,If 条件 Then 分支1Else 分支2End If,If语句流程图,示例,输入一个整数,若为偶数,则输出“偶数”,否则输出“奇数”。,Private Sub Form_Click() Dim X As Integer X = Val(InputBox(输入一个整数A) If X Mod 2 = 0 The
5、n Print 偶数“ Else Print 奇数“ENDIFEnd Sub,说明,If语句中的条件一般是一个逻辑表达式,也可以是一个返回值为数值的表达式。如果是数值表达式,则0对应False,非0的任何数对应True。 If语句中如果条件成立,则执行对应的语句或语句块,然后便跳出条件语句结构。 在块结构的条件语句中,语句块中的语句不能与Then、Else书写在同一行上。 单行结构的条件语句中不能有End If,而块结构的条件语句中不能缺少End If。,例1,除数判定 (结合val函数)密码登录验证(结合msgbox函数)移动的标签,例2,改进的密码验证 (结合msgbox函数)三角形面积(
6、海伦公式)单击窗体,判断输入的数是奇数还是偶数,改进1,1.用户名错误,则判定为“非法用户”,弹出对话框后,退出2.用户名正确密码不正确 ,判定为“密码错误”密码也正确 ,判定为“合法用户”, 并进入另一个表单,改进2,用户名正确密码不正确 ,判定为“密码错误”如果密码错误,弹出对话框提示用户重新输入,如果用户确认重新输入,则令密码框获取焦点,并清空;否则退出程序,分支的嵌套,不允许交叉,例3:根据三角形的三条边求三角形的面积,输入三条边a, b, c ;如果a+bc且b+ca且a+cb则利用海伦公式计算三角形的面积;否则弹出错误信息后结束。,多分支语句-If-ElseIf,If 条件1 Th
7、en 语句块1 ElseIf 条件2 Then 语句块2ElseIf 条件3 Then 语句块3Else 语句块n+1End If,ElseIf中的Else与If之间不能有空格!ElseIf语句的数量没有限制!前面的条件成立执行对应语句后结束!,行IF语句块IF语句,多分支语句-Select Case,Select Case 测试表达式 Case 表达式列表1 语句组1 Case表达式列表2 语句组2 Case表达式列表3 语句组3 Case Else 语句组n+1End Select,Select Case语句功能,首先计算出测试表达式的值,然后自上而下依次与各个表达式列表进行比较,如果匹配
8、,则执行相应的语句组,然后跳到End Select后面的语句继续执行;如果测试表达式的值不能与给出的任何一个表达式列表匹配,则执行Case Else之后的语句组。如果缺省了Case Else部分,而测试表达式的值不能与给出的任何一个表达式列表匹配,则不执行任何语句组,直接跳到End Select后的语句执行。,测试项的形式,具体的取值(表达式),值与值之间用逗号分隔。如:1,3,5,A+B等。连续的范围,范围是用关键字To连接的两个值。如:10 To 20,”A” To “Z”。使用Is关键字构成的比较表达式。如:Is=10。也可以是上述几种形式的组合,用逗号分隔开。,示例,输入一个成绩,输出
9、此成绩相应的等级。,Private Sub Command1_Click() Dim CJ As Single, DJ As String CJ = Val(Text1.Text) 获取成绩 Select Case CJ 判断等级 Case Is = 90 DJ = 优秀 Case Is = 80 DJ = 良好 Case Is = 70 DJ = 中等 Case Is = 60 DJ = 及格 Case Else DJ = 不及格 End Select Text2.Text = DJ 输出等级End Sub,注意在Select Case语句中,各测试项执行的顺序是自上而下依次判断的,如果执行
10、到“Case Is = 80”,说明“Is = 90”已经不成立,一定要注意书写的顺序,如果顺序混乱,可能导致结果不正确。,练习,输入一个月份,输出该月有多少天。(略)复选 框与分支结构,练习,输入一个年份,判断该年是否为闰年。满足下列条件之一的年份即为闰年年份能被4整除但不能被100整除年份能被400整除输入一个三位正整数,判断其是否为水仙花数。水仙花数:一个三位整数等于其各位数字的立方和,如153=13+53+33,IIf函数,格式:IIf(逻辑表达式,值1,值2) IIf函数的功能类似于有两个分支的If语句。当逻辑表达式的值为True时,函数返回值1,当逻辑表达式的值为False时,函数
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 程序控制 结构 算法 基础
限制150内