VB模块化程序设计学 东风高中刘丽梅.docVIP

VB模块化程序设计导学 东风高中刘丽梅 【教学目标】理解模块化程序设计的基本思想；学会函数与过程调用方法；初步掌握模块化程序设计思想，尝试化整为零、自顶向下、逐步求精的过程设计方法。 【教学重点】 学会函数与过程调用方法；理解结构化程序设计思想。 【难 点】 模块化程序设计，自定义函数的定义和调用。 情景任务 1、调研“软件危机”和“GOTO有害”论。 2、人类火星探测： 1963年美国火星探测器“水手3号”偏离轨道失败的原因？ 1962 前苏联火星1号探测器飞越火星尝试失败。 1965 美国水手4号行星际探测器飞越火星，拍摄了21张照片。哥德巴赫猜想每个大于等于6的偶数，都可表示为两个奇素数之和；每个大于等于9的奇数，都可表示为三个奇素数之和。后一个命题是前一个命题的推论 陈景润和他的1+2. 知识关联 1、素数判断《广东P63》《教科P40》 Y N N Y Y 判断素数N-S流程图 输入X SF=True For I=2 to X-1 X mod I =0 Yes No SF= True SF=False SF T F 输出 X，“Prime” 显示“非素数” 2、质数判断VB程序 《广东P63》《教科P40》 Private Sub command1_click( ) Dim I as integer, Sf AS Boolean X=Inputbox(“”) Sf=true For I=2 to X-1 If X mod I =0 then Sf=false End if Next If Sf Then Print x, prime Else print x, “No” End Sub 3、将Check( )定义为判定素数的函数，并调用。 Private Sub command1_click( ) Dim N AS Integer N = InputBox( ) If Check(N) Then Print N, prime Else print N, “No” End Sub Public Function Check(X As Integer) As Boolean Dim I As Integer, Sf As Boolean Sf = True For I = 2 To X - 1 If X Mod I = 0 Then Sf = False End If Next