发布时间 : 星期日 文章vb教案更新完毕开始阅读
算法和算法的表示（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）使用流程图描述算法。请完善下面的流程图。
开始 Sun←0：I←0 输出I←I+1
结束 I←I+1
（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表达式。
①b?4ac： ②
x?lgx|x?3|?y32：
（提示：上式中lgx?log10X为以10为底的对数。VB中Log(x）函数为求以e为底
的x的对数，e?2.71828?是一个无理数，数学中书写为1nx。)
（3）将下列语句改写成VB逻辑表达式。
①判断某一年year(设year?1900)是否是闰年。Year是闰年要满足下列条件：year能被4整除但不能被100整除，或者year能被400整除。
②判断字符串变量strAbc的第三位至第五位的子串是否大于“abc”。 （4）已知自由落体的位移公式为：s?12gt2?V0t，其中V0为初始速度，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）分析问题。计算一元二次方程ax2?bx?c?0的实数根，根据方程系数的变化，利用??b2?4ac可判断实数根的情况：有两个相同的实数根、有两个不同的实数根或者无实数根。设d?b^2?4*a*c，则方程的实数根情况如表6-1。
表6-1
情况1 情况2 情况3 d的情况 d>0 d=0 d<0 有无实数根 有两个不同的实数根 有两个不同的实数根 无实数根 实数根为多少 X1=(-b+sqr(d)/(2*a) X2=(-b-sqr(d)/(2*a) X1=X2=(-b)/(2*a) - （2）设计算法。根据分析结果将以下流程图补充完整： 开始 输入系数a、b、c 计算d← b^2—4*a*c d>0? N Y X1=(-b+sqr(d))/(2*a) X2=(-b-sqr(d))/(2*a) Y N 无实数根 结束 （3）程序实现。
①新建工程，创建窗体。界面设计参照图6-1，属性设置参照表6-2。
6-2 窗体中主要控件属性设置 对象 From1 Label1 Label2 Label3 Label4 Label5 Label6 Text1 Text2 Text3 Text4 Text5 Command1 属性名称 Caption Caption Caption Caption Caption Caption Caption Text BackColor Text BackColor Text BackColor Text BackColor Text BackColor Caption 系数a 系数b 系数c X1= X2= （空白） （空白） &H0000FFFF&（黄色） （空白） &H0000FFFF&（黄色） （空白） &H0000FFFF&（黄色） （空白） &H0000FFFF&（黄色） （空白） &H0000FFFF&（黄色） 计算开始 属性值 求一元二次方程的实数根 ②完善下列程序代码，并将其输入计算按钮的代码窗口中。 Private Sub Command1 Click( ) Dim a As Double, b As Double, c As Double, d As Double, X1 As Double, X2 As Double a=Val(Text1. Text) b=Val(Text2.Text)
c=Val(Text3.Text)
d= If d>0 Then
X1= X2= Text4.Text=Str(X1) Text5.Text=Str(X2)
Label6.Caption=“有两个不同的实数根” Else
If Then X1=(-b)/(2*a) X2=X1
Text4.Text=Str(X1) Text5.Text=Str(X2)
Label6.Caption=“有两个不同的实数根” Else