《初中VB教学问题与方法课件》由会员分享，可在线阅读，更多相关《初中VB教学问题与方法课件（55页珍藏版）》请在金锄头文库上搜索。
1、初二VB教学研讨,广州市教育局教学研究室编写的 初中信息技术第二册第二章 程序设计初步,一、问题的提出,提高学生的学习兴趣至关重要。学生学习的好坏很大程度上取决于学生积极学习时间的多少，我们应该关注怎样最大限度地增加学生积极学习时间。 因此要从学生感兴趣的程序内容开始教学。,在初二VB教学中，有比较多老师在教学中觉得很难处理，主要在于两个方面：,1、学生的学习兴趣问题。,程序设计的学习内容非常广泛，要学得好是比较难的，关键是如何把一些难懂的知识点让学生理解、掌握。 程序设计难度上要求不高，教参在这方面讲得很清楚，明确要求学生学会读懂简单的程序，让学生初步掌握顺序、条件、循环三种基本程序结构，了
2、解程序设计的基本思想和方法，而不用编写出程序。 下面主要通过一些例子让大家总结出对一些知识点的处理方法，从而进一步提高对VB的认识和教学的灵活性。,2、如何把教学中的一些知识点处理好,二、组织好相关的例程，解决学生感觉 难学的知识点,1、 VB程序设计环境的熟悉，通过简单而有趣的例子实现。,Private Sub Form_KeyPress(KeyAscii As Integer) Print 我知道你按的是：; Print Chr$(KeyAscii), Print 它在电脑里的值是：; KeyAscii End Sub, 启动VB，输入程序： 检测所按键盘字符，弹出对应的ASC码值程序：,
3、Private Sub Command1_Click() R = 2000 For K = 1 To 360 Step 1 X = 5000 + R * Cos(K * 3.14 / 180) Y = 4000 + R * Sin(K * 3.14 / 180) Circle (X, Y), R Next End Sub,画圆程序的实现：程序用于画一个这样的圆,然后对程序进行修改：,（1）将程序中的 R = 2000 改为 R = 1000 再运行； （2）将程序中的For K= 1 To 360 Step 改为For K= 1 To 360 Step 10 再运行； （3）研究、理解一下该程
4、序的作用。,学生经过这样的练习，就会觉得：程序很有意思，很容易变化，最主要的是错了的可以改，改了可以再改！对VB的界面也在不知不觉中有点印象了。特别是（1）和（2）的修改，较多学生很快就发现可以任意更改，兴趣很高。如果课堂上经常出现这种状态，就会逐步使学生在这方面的情感、态度发生重大变化。,Dim R, X, Y, K As Integer R = 2000 For K = 1 To 360 Step 1 X = 5000 + R * Sin(K * 3.1415926 / 180) Y = 4000 + R * Cos(K * 3.1415926 / 180) PSet (X, Y), 25
5、5 Rem 延时 For H = 1 To 50000 H = H + 1 - 1 Next Next,也可使用画点成圆的程序进行：,（X，Y）,R,X=圆心5000+Rcos(K),Y=圆心4000+Rsin(K),K,（5000，4000）, shape形状的设置，用于让学生熟悉属性,新建工程 选择工具箱中的Shape 在窗体上拖动鼠标放置一个Shape 设定属性窗口的Shape值为square 重复以上动作选不同形状 设置bordercolor 、 borderstyle、 fillcolor 和 fillstyle属性产生不同效果, 分四人一组将上面表格讨论后填好。,如何讨论？ 每人将
6、自己平时的处理方法讲出，其他人记录。（五分钟内完成）,数据类型对程序设计来说是非常重要，而且越丰富越好！但对我们的学生来说，越简单就越好。所以对数据类型的处理要把它简单化，强调“表示数值就使用integer或single，表示姓名等字符串内容就用string，表示真假就用boolean”，然后在后面的讲课中遇到再重复这些类型的表示，来加强学生的记忆。 引入对数据类型的理解可以用表示一个人的资料信息有哪些，哪些用数值表示、哪些用文字（字符串）表示，哪些用“是”、“否”表示来引导学生。 数值：身高、体重 integer或single 文字：姓名、住址 string 是否：团员、性别 boolean
7、,2、对数据类型的理解：,程序： PRINT 35 PRINT 25, 判断 XY 有多少种可能的结果？ 改为 35 如何表示这种结果？ 引出true 和 false,Dim a, b, c As Integer Rem Dim c As Single a = 5 b = 10 c = a b Print c 运行该段程序，思考运行结果。区分四种数值类型，分别将B的取值2、10、100和1000。,可结合变量及后续内容进行讲解。,3、对变量的理解：, “姓名”的值,指向“张三”，姓名的值是“张三”,指向“李四”，姓名的值是“李四”,存贮空间的表示：,2,6,A,B,A=2,A=A+1,B=6,
8、A=A+B,DIM A，B AS INTEGER,3,9, 变量名的确定,使用有相同意思（义）的单词作变量名： NAME、ADDRESS 使用一、两个字母加数字简单表示： A1 、AA 、B2 错误例子： 3F SUB END A-B X/Y,4、数算术表达式写成VB表达式,分式形式,指数形式,多层括号的形式,（1）练习题型的确定：,(a*b-c)/(c+d),X(1/3)+y(1/5),(d/(1+1/a)2 + (1/(1-b)2,乘号没有写 a*b ab 除以与整除混淆 / 分数没有写成一行 1/3 括号没有全用小括号 ( ) 括号左右不对称（漏写）,（2）常见错误：,（3）处理方法：,
9、将表达式切实地写多两遍，一般均能掌握。,5、输出语句的错误情况分析：,写结果时分不清“分区”格式与“紧凑”格式的表示,写结果时多写逗号：,A=10 : B=5 : C=3 PRINT A, B, C 10 , 5 , 3,A=10 : B=5 : C=3 PRINT A, B, C PRINT C; B;A,A=10 : B=5 : C=3 PRINT A, B, C PRINT “A+B=”; PRINT A+B,少写或多写了 “A= ” “M=”等,不知道何时换行,*tab(n)的使用,PRINT A 时结果写成 A=10 PRINT “B=”；B 时结果写成 5,6、条件语句的使用, 强
10、调条件语句的执行过程。 四个单词：IF 如果 THEN就 ELSE否则 用ENDIF结束 结合例子：（课本省去了格式1） 格式1：每天上学，如果，就带雨衣才，上学；如果不下雨呢？ IF 下雨 THEN 带雨衣 ENDIF 上学 格式2：上体育课，体育老师宣布，若喜欢打蓝球的就打蓝球，否则去踢足球。 IF 喜欢打蓝球 THEN 打蓝球 ELSE 踢足球 ENDIF 继续上课,IF语句的格式2 ： IF THEN ELSE ENDIF 后继语句,IF语句的格式1 ： IF THEN ENDIF 后继语句,DIM X AS INTEGER X=INPUTBOX(“X的值是:“) IF X MOD 2
11、=0 THEN PRINT X;“是偶数” ELSE PRINT X;“是奇数” ENDIF,X/2 =X2,X/2 =INT(X/2),以下程序，输入一个整数X，若是偶数,则显示“偶数”两个字，否则显示“奇数”两个字。,DIM X AS INTEGER X=INPUTBOX(“X的值是:“) IF X=1 THEN PRINT “蓝球” ELSE IF _ THEN PRINT “足球” ELSE _ ENDIF ENDIF,PRINT “其他”,X=2,以下程序用于判断：输入1时，显示“蓝球”，输入2时，显示“足球”，否则显示“其他”。请填写完整。,以下程序使用inputbox()输入一个
12、数,若该数小于100,则画一个红色圆,否则画一蓝色的圆。,DIM R AS SINGLE R=INPUTBOX(“R的值是:“) IF R100 THEN CIRCLE(4000,4000),2000, RGB(255,0,0) ELSE CIRCLE(8000,4000),2000, RGB(0,0,255) ENDIF,7、循环语句的解决, 强调理解其执行过程。,Dim X, Y, S As Integer Y = 0 S = 0 For X = 1 To 20 Step 4 Y = Y + 1 S = S + X Next Print X=; X Print 次数=; Y Print 和
13、=; S,学习循环语句的关键在于理解语句的执行过程，简单说就是它控制电脑做了什么事情！, 强调循环变量的作用和自动增加步长,透彻理解右边这个程序的运行过程！“退出循环时循环变量的值、循环了多少次，累加得到的和是多少？”都有了。,FORNEXT语句 的执行过程,遇到FOR语句，做三件事情： 初值100赋给循环变量I ，记录终值2000、记录步长值100,判断：循环变量I的值否超过终值 I 2000 ?,执行循环体中的语句一次,遇到NEXT，做两件事情：循环变量I的的值增加一个步长值I I+100，返回判断处,结束循环，执行Next语句的后继语句,TRUE,FALSE,以画同心圆的程序为例，详细分
14、析程序的执行过程来帮助学生掌握：,For I=100 to 2000 step 100 R=I Circle(3000,3000),R,RGB(255,60,60) Next I,R=1500 FOR I=5 TO 255 STEP 10 Circle(I*20，3000)，R，RGB（I，60，60） NEXT,修改画圆程序，使画出彩色渐变的圆（控制X轴方向的圆心及颜色中的红色随着循环变量由变化）。,打印五个“*”号 打印五行，每行五个“*”号 打印五行，每第n行打印n个“*”号 利用TAB()打印成等腰三角形 FOR K=1 TO 5 PRINT “*” ; NEXT PRINT, 多举例
15、子，回顾前面的知识点，如：,解释这个PRINT的作用,第十天：10只 第九天：910 9 （10） 第八天：8 （9） 第I 天：i （i+1） ,较难的题目： 猴子吃桃问题：猴子摘了一批桃子，第一天，吃了一半，觉得不过瘾，又吃了一只；以后每天也是如此，到第十天一看，只剩下一只桃子。编一程序求出第一天猴子摘了多少只桃子。,DIM X , I AS INTEGER X=1 FOR I=9 TO 1 STEP -1 X=2*（X+1） NEXT PRINT “第一天有：”；X；“只”,程序：,对VB的函数的学习比较难，这部分不是初二学生学习的重点，若有时间，也可让学生进一步掌握。,8、对函数的学习
16、,让学生重点先掌握几个来逐步熟悉。 ABS（） SQR（） INT（） RND（） RGB（）,随机抽号程序。随机产生一个学生的学号，发表意见。 RANDOMIZE A=INT（RND（）*50+1） PRINT A,Private Sub Command1_Click() Dim X, Y, R, N1, N2, N3 As Integer X = 5000 Y = 4000 R = Int(Rnd() * 3000) + 200 Circle (X, Y), R End Sub,从学生熟悉的课本中的画圆程序入手：,半径随机,只是半径发生随机变化。,几个常用函数中以随机函数和取整函数为最难，用以下例子让学生学习：,Private Sub Command1_Click() Di
