《vb教案.docVIP

算法和算法的表示（1） 1、实践目标 （1）了解使用计算机解决问题的一般过程。 （2）能使用流程图描述简单的算法。 2、任务描述 小张想为“希望工程”尽一份力，他在第一个存入1元钱，第二个月存入2元钱，第三个月存入3元钱……依此类推，那么三年后，小张能为“希望工程”存多少钱？ 3、操作提示 （1）分析问题，确定解决问题的方法。 假设存入的钱的总数是Sum，则有： 第1个月：Sum=1 Sum1=1 第2个月：Sum=1+2即Sum2=Sum1+2 第3个月：Sum=1+2+3即Sum3=Sum2+3 …… 第36个月：Sum=1+2+…+36或Sum= 由以上分析可知，这是一个累加问题，可以用循环累加的方法来解决。 （2）使用流程图描述算法。请完善下面的流程图。 （3）容器A和B分别装满了两种不同的液体，现要将A、B两容器内的液体互换 ，请画出交换A、B容器液体的算法流程图。 [扩展与提高] （4）如果要计算n个月后小张存钱的总金额，该如何修改上面的流程图？请画出相应的流程图。 （5）笼子里有鸡和兔共50只，已知鸡和兔子的腿共有160条，问鸡和免各有多少只？按要求完成以下任务： ①分析问题，列出数学表达式。 ②确定算法，画出相应流程图。 变量与表达式（2） 1、实践目标 （1）理解VB的基本数据类型及变量、常量的概念，能定义基本类型的常量与变量。 （2）了解VB中常用的标准函数，熟练掌握各类表达式转化为VB表达式的方法。 2、练习与实践 （1）下列函数中把字符串内容转换成数值的是（ ） A、Str( ) B、Chr( ) C、Abs( ) D、Val( ) （2）将下列数学表达式改写成VB表达式。 ①： ②： （提示：上式中为以10为底的对数。VB中Log(x）函数为求以e为底的x的对数，是一个无理数，数学中书写为1nx。) （3）将下列语句改写成VB逻辑表达式。 ①判断某一年year(设)是否是闰年。Year是闰年要满足下列条件：year能被4整除但不能被100整除，或者year能被400整除。 ②判断字符串变量strAbc的第三位至第五位的子串是否大于“abc”。 （4）已知自由落体的位移公式为：，其中为初始速度，g为重力加速度，t为经历的时间，s为位移。编程求s的值，请完成以下变量、常量的定义，并写出表达式。 ① ，定义常量g ② ，定义变量 ③s= 写出求位移的表达式 [扩展与提高] （5）写出以下程序的运行结果，并上机验证。 Const strA=“adcdefg” Dim strB As String Dim iCnt As Integer strB=“” For iCnt=1 to len (strA) If iCnt mod 2=0 Then strB=strB Chr(Asc (Mid(strA, iCnt,1)+2) Next Print strB 这段程序运行后，strB的值是 。 求解一元二次方程的实数根（3） 1、实践目标 （1）掌握赋值、选择语句的使用方法。 （2）学会用顺序、选择结构编写程序。 2、任务描述 编写程序要求：输入一元二次方程的三个系数，输出求解结果。 3、操作提示 （1）分析问题。计算一元二次方程的实数根，根据方程系数的变化，利用可判断实数根的情况：有两个相同的实数根、有两个不同的实数根或者无实数根。设，则方程的实数根情况如表6-1。 表6-1 d的情况 有无实数根 实数根为多少 情况1 d0 有两个不同的实数根 X1=(-b+sqr(d)/(2*a) X2=(-b-sqr(d)/(2*a) 情况2 d=0 有两个不同的实数根 X1=X2=(-b)/(2*a) 情况3 d0 无实数根 - （2）设计算法。根据分析结果将以下流程图补