第一篇：vb语言编程教案
课
题：vb语言编程概述 课 时:2课时 授课时间：2011.09.05 课堂类型：讲授
教学目的：1.熟悉VB界面和VB集成开发环境；
2.在实际操作中学会编简单的VB应用程序；
教学要求：1.掌握VB基础知识。
2.会编简单的VB应用程序。
教学重点：1.熟悉VB集成开发环境
2.编写简单VB应用程序。
教学难点：在熟悉VB界面的同时学习编写简单VB应用程序 教学方法：讲授 教学过程：
一、VB简介
BASIC是英文Beginner’s All-purpose Symbolic Instruction Code（初学者通用符号指令代码）的缩写，它是专门为初学者设计的高级语言。Visual Basic是Microsoft公司于1991年推出的基于窗口的可视化程序设计语言。
a．“Visual”是“可视化的”、“形象化的”的意思。b.因此Visual Basic也具有易学易用的特点
c.目前Visual Basic的最新版本是Visual Basic 6.0（简称VB 6.0）
二、启动VB
1、首先显示“新建工程”对话框
直接单击“打开”按钮，创建“标准EXE”类型应用程序，进入集成开发环境主界面。
2、集成开发环境中的各元素 1）标题栏：用来显示窗口的标题。2）菜单栏 3）工具栏 4）工具箱 5）窗体窗口 6）工程窗口 7）属性窗口 8）窗体布局窗口
三、通过一个简单的应用程序快速入门
【例1.1（实训1，p16）】制作一个的一个简单的应用程序的运行界面。它由一个窗体、一个文本框、一个标签和一个命令按钮组成。当用户单击命令按钮“显示”时，文本框中出现“教你学VB”。1．新建工程 2．添加文本框Text1 3．添加命令按钮Command1 4．添加标签Label1 5．设置属性 6．编写事件过程代码
前面的工作把应用程序的界面设计好了，属性也设置完毕。但现在应用程序并不能实现实际的功能。为了使它具有一定的功能，还必须为对象编写实现某一功能的事件过程代码。1）双击窗体上的“显示”按钮，屏幕上出现代码窗口，程序代码就在这里编写。编写如下事件过程：
Private Sub Command1_Click（）Text1.Text = “欢迎使用VB” End Sub 2）运行应用程序 3）保存应用程序
VB应用程序至少有两种文件需要保存： · 窗体文件（.frm）· 工程文件（.vbp）4）生成EXE文件
四、总结步骤
设计VB应用程序主要有以下4个步骤：（1）设计用户界面。（2）设置属性。（3）编写代码。（4）保存和运行调试程序，生成EXE文件。
五、知识延伸
1、只有一个文本框的实例 编写如下事件过程：
Private Sub Command1_Click（）Text1.Text = “教你学VB“ End Sub
2、多个文本框时 编写如下事件过程：
Private Sub Command1_Click（）Text1.Text = ”教你学VB“ Text2.Text = “欢迎使用VB“ End Sub
3、按照系统的元件特性分类(分别举例说明)课后实训1 第二个命令按钮：清除 第三个命令按钮：退出 步骤：
1.添加2个命令按钮 2.双击按钮，进入编程状态 3.和显示按钮命令编程相似 编写如下事件过程： Private Sub Command2_Click（）Text1.Text = ” “ End Sub Private Sub Command3_Click（）End End Sub
4、图片的加载方法
Private Sub Form_Load()Image1.Picture = LoadPicture(App.Path + “1.BMP”)End Sub
六、小结 1.熟悉界面。
2.掌握完整编程过程以及运行及调试程序的过程。
第二篇：《VB编程实现文字闪烁》教案
《VB编程实现文字闪烁》教案
授课课题：VB编程实现文字闪烁 授课时间： 授课地点： 授课班级： 授 课 人： 教学目的：
一、认知目标
1、理解文字闪烁程序的设计思想和设计方法
2、理解Ｓｅｌｅｃｔ ｃａｓｅ语句构造多分支程序的方法和实现的技巧
3、理解RGB（）函数和RND（）函数配合，动态随机生成颜色的方法
二、技能目标
1、熟练使用VB中的Ｌａｂｅｌ控件构造程序界面
2、熟练使用格式工具对控件进行排列设置
3、熟练使用编程工具对程序代码进行编写和简单的调试
三、情感目标
1、培养学生的自学能力、自主创意、分析解决问题的能力
2、培养学生的团队合作精神，互相协作完成任务的能力
教学重点：
1、熟练使用VB中的Ｌａｂｅｌ控件构造程序界面
2、理解文字闪烁程序的设计思想和设计方法
3、理解Ｓｅｌｅｃｔ ｃａｓｅ语句构造多分支程序的方法和实现的技巧
教学难点：
1、理解文字闪烁程序的设计思想和设计方法
2、理解Ｓｅｌｅｃｔ ｃａｓｅ语句构造多分支程序的方法和实现的技巧
教学方法：直观演示法、案例教学法、分层教学法和兴趣激励法 教学用具：VB开发工具、VB程序案例、多媒体演示系统
学情分析：高二的学生上课纪律较好，比较能够配合教师进行教学；通过大半学期的VB学习，对项目教学法也已经比较熟悉；但大部分学生由于基础知识和学习方法的限制，学习还比较死板，学习方法还只停留在教师教学生学的层面上；学生也不太主动通过摸索、调试自己解决问题。所以本课准备先讲后练，步步引导，并协调好学生自主学习和教师辅助学习的关系，提高学生的主观能动性。
教学过程：
【引入】演示原来讲解过的文字变色的例子和今天要讲解的文字闪烁的例子；提问学生：这两个案例有什么不同。可以调节闪烁的时间，让学生仔细观察。
【预测】学生通过观察大部分都能过发现两个实例的区别。（5分钟）【演示】开始新课，教师先演示Ｌａｂｅｌ控件排列文字的方法。
【预测】学生可能有疑问，为什么８个汉字要用８个Ｌａｂｅｌ控件呢，这个问题教师主动提出来，学生可以思考以后马上解答，也可以设计完程序以后解答。【讲解】教师讲解核心代码和代码设计思想。该过程是学习程序构造算法的关键，教师有目的地进行引导讲解。该过程以教师讲为主，根据学情进行难度适中的提问，力求让大部分学生理解程序的基本设计思路。（10分钟）
【预测】大部分学生应该能初步理解程序的设计思路。在学生自己练习时让学生自己再去体会。
【摸索】学生开始进行设计，也可以在设计过程中进行简单的学生之间的交流和讨论。
【巡视】教师巡视，视学生的设计情况决定是否终止摸索而再次进行教师统一讲解教学。
【预测】由于学生有实习计划和程序代码，大部分学生都应该能够进行设计，但学．．生对程序的理解可能要困难的多。提高程序设计的方法只有两条：多阅读别．．．．．．．．．．．．．．人的优秀程序；自己大胆尝试程序设计。
【建议】成绩比较优秀的学生应该能够完成任务，有部分学生在设计时回出现教学前教师不可预见的错误，如果大部分学生完成任务顺利而教学时间充足，应该把学生中常见的错误和完成好的实例进行展示讲解。教师应该走到学生中去辅助教学。
【练习】尽量能让学生在教师小节前做完设计。
【建议】该过程是学生提升技能，形成能力的关键，应要求学生人人动手，努力设计。（25分钟）
教学评价：
【小节】学生应上传作品和上缴实训报告，教师应结合学生作品对本节内容进行总结。
【预测】有部分学生在设计时会出现教学前教师不可预见的错误，如果大部分学生完成任务顺利而教学时间充足，应该把学生中常见的错误和完成好的实例进行展示讲解。教师应该走到学生中去辅助教学。
【作业】文字闪烁程序的修改版——跳跃文字闪烁（5分钟）
第三篇：VB编程题及答案
1定义一个下标上界为10整型数组，并用随机函数为其赋值（值处于[0,100]之间），计算数组中所有偶数的和。Private Sub Command1_Click()Randomize Dim a%(10)Dim i%, s% For i = 0 To 10 a(i)= 101 * Rnd()Next For i = 0 To 10 If a(i)Mod 2 = 0 Then s = s + a(i)End If Next Print “所有偶数的和为”, s 2 设 S=35，C=0.3，编写程序，计算并输出下面级数的部分和。结果取小数点后面7位。C/1!-C^3/3!+C^5/5!-„ +(-1)^(S-1)*C^(2*S-1)/(2*S-1)!+ „
参考答案如下：
Private Sub Command1_Click()
Dim n As Integer
Dim x As Double
x = 0.3
Dim item As Double
Dim sum As Double
Dim fac As Double
For n = 1 To 35
fac = 1
Dim i As Integer
For i = 1 To 2 * n1)* x ^(2 * n1
If n Mod i = 0 Then
isprime = False
Exit Function
End If
Next
isprime = True End Function Private Sub Command1_Click()
Dim i As Integer
Dim sum As Long
For i = 1000 To 2000
If isprime(i)= True Then
sum = sum + i
End If
Next
Text1.Text = “sum=” & sum End Sub 'sum= 419684 13.编写一个函数，求某个数的阶乘。
调用该函数计算22!。
Public Function fact(ByVal n As Integer)As
Long
Dim i As Integer, f As Long
f = 1
For i = 1 To n
f = f * i
Next i
fact = f End Function Private Sub Command1_Click()
Dim m As Integer, i As Integer, s As Long
m = InputBox(“输入一个正整数：
”)
s = fact(m)
MsgBox(s)End Sub ‘479001600 14.编写子过程，计算并输出3000-4000之间的素数之和C与其中最小的素数MIN。
Private Sub Command1_Click()
Dim sum, i, min As Integer
min=0
For i = 3000 To 4000
Dim isprime As Boolean = True
Dim j As Integer
For j = 2 To i1)* n *(n + 1)
sum = sum + item
n = n + 2
Loop While Abs(sum)<= 100
MsgBox(sum)End Sub 'sum=-68 编写一个函数，其功能为求两个数的最大公约数。
Public Function
gcd(ByVal m As Integer, ByVal n As Integer)As Integer
Dim i As Integer If m > n Then Dim t As Integer t = m: m = n: n = t End If For i = m To 1 Step-1 If m Mod i = 0 And n Mod i = 0 Then gcd = i Exit Function
End If
Next End Function
20.用InputBox输入一个年份，判断该年份是否是平年，若是则输出“Yes”，否则输出“No”。
Dim year As Integer year = Val(InputBox(“"))If(year Mod 400 = 0)Or(year Mod 4 = 0 And year Mod 100<>0)
Then MsgBox(”No“)Else
MsgBox(”Yes“)
End If 输入两个整数m、n，编写程序使得
m>=n，并输出m、n的值。
Dim m, n As Integer
m = Val(InputBox(”“))n = Val(InputBox(”“))
If m < n Then Dim t As Integer t = m : m = n : n = t End If
MsgBox(”m=“ & m & ”;“ & ”n=“ & n)
22求下面级数前n项的和S，在求和
过程中，当某项（注意，该项参与求和）的绝对值小于0.0001 时求和终止。结果取 5 位小数。
1-1/3+1/5-1/7+1/9-1/11+ „ +(-1)^(n-1)*1/(2n-1)+ „
Private Sub Command1_Click()
Dim n As Integer
Dim item As Double
Dim sum As Double
i = Do While True
item =(-1)^(i1)
整数：”)sum = sum + item If Abs(item)< 0.0001 Then Exit Do Else i = i + 1 End If Loop
MsgBox(Format(sum, “0.0000”))
End Sub '
sum=0.78545 编写一个函数，其功能为判断一个3位正整数是否是“水仙花数”。（“水仙花数”是指各位数字的立方和与该数相等，如153=1^3+5^3+3^3,153就是水仙花数。）
Public Function Panduan(ByVal x As Integer)As Boolean
Dim a As Integer, b As Integer, c As Integer
a = x 100
b =(x Mod 100)10
c = x Mod 10
If x = a ^ 3 + b ^ 3 + c ^ 3 Then
Panduan = True
Else
Panduan = False
End If
End Function Private Sub Command1_Click()
Dim i As Integer
i = InputBox(“输入一个3位正
MsgBox(Panduan(i))End Sub 定义一个下标上界为10整型数组，并为其赋值（值处于[0，100]之间），计算数组中所有不小于60的数据的和。
Dim a(10), i, sum As Integer
For i = 0 To 10
a(i)= Int(Rnd()* 101)
Next
For i = 0 To 10
If a(i)〉=60 Then
sum = sum + a(i)
End If
Next
print sum
25.编写程序，求下面级数前n项的和s=1/1!-1/2!+1/3!-1/4!+....+(-1)^(n-1)*1/n!+.....。
'求和过程当某一项的绝对值小于0.0001时结束（注意，该项参与求和），计算并输出所求的s，要求结果保留6位小数。Private Sub Command1_Click()
Dim m As Double, n As Long, s As Double, f As Integer
s = 0: n =-1: m = 1: f = 1 Do While 1 / m >= 0.0001 m = m * f f = f + 1 n =-n
s = s + n / m Loop
s = Format(s, ”0.000000“)Print s End Sub
26输入一个四位数，分别输出它的个位数字，是十位数字，百位数字，千位数字。Private Sub Command1_Click()Dim a%, j%, k%, i%, m% a = InputBox(”请输入一个四位整数“)j = a 1000 k = a 100 Mod 10 i = a 10 Mod 10 m = a Mod 10 Print ”个位数字;“;m Print ”十位数字;“;i Print ”百位数字;“;k Print ”千位数字;“;j End Sub 6.计算sum=2!+4!+6!+...+10!Private Sub Command1_Click()Dim a%, i% Sum = 0 i = 1: a = 1 Do a = 2 * i If i Mod 2 = 0 Then Sum = Sum + a End If i = i + 1 Loop While i <= 10 Print Sum End Sub
27编写程序，计算并输出下面级数前n项（n=20）中奇数项的和。1*2*3-2*3*4+3*4*5-4*5*6+....+(-1)^(n-1)*n*(n+1)*(n+2)+...Private Sub Command1_Click()Dim s!, i% For i = 1 To 20 Step 2 s = s + i *(i + 1)*(i + 2)Next MsgBox(s)End Sub
28随机输出一个小写字母。Private Sub Command1_Click()Dim a As String Randomize
a = Chr(Int(97 + 26 * Rnd))MsgBox(a)End Sub、29编写程序，计算并输出下面级数前n项（n=50）中偶数项的和。s=1*2+2*3+3*4+4*5+....+n*（n+1）+.....Private Sub Command1_Click()Dim s!, i%
For i = 2 To 50 Step 2 s = s + i *(i + 1)Next
MsgBox(s)End Sub
30斐波那契数列是由计算某类动物繁殖增长量而提出的。数列的前两项是1、1，以后的每一项都是其相邻前两项的和。编写程序求：数列前30项和。
Private Sub Command1_Click()Dim a&, b&, c&, i%
a = 1: b = 1: c = 2: Sum = 0 For i = 1 To 28 c = a + b a = b b = c
Sum = Sum + c Next
MsgBox(Sum)End Sub
31输入三个数a、b、c，编写程序使得a<=b<=c，并输出a、b、c的值。Private Sub Command1_Click()Dim a%, b%, c%, t%
a = Val(InputBox(”请输入a的值!“))b = Val(InputBox(”请输入b的值!“))c = Val(InputBox(”请输入c的值!“))If a > b Then t = b b = a a = t End If
If a > c Then t = a a = c c = t End If If b > c Then t = b b = c c = t End If
Print a, b, c End Sub 32编写程序，设n=20，x=3.4，计算并输出S(n)的值，要求结果保留5位小数。S(n)=Inx/x+In2x/x^2+In3x/x^3+.....+In(n*x)/x^n+.....Private Sub Command1_Click()Dim x#, i% Dim S(20)As Double n = 20 x = 3.4 For i = 1 To 20 S(20)= S(20)+ Log(i * x)/(x ^ i)Next Print Format(S(20), ”0.00000“)End Sub
33输入任意三个数 找出其中最大的数 Private Sub Command1_Click()Dim a!, b!, c!, Max!a = Text1.Text b = Text2.Text c = Text3.Text Max = a If b > Max Then Max = b If c > Max Then Max = c Text4.Text = Max End Sub
输出1到100之间的素数 Print 1;2;a = 3 While a <= 100 i = 2
While i < a
If a Mod i = 0 Then
i = a
End If
i = i + 1
Wend
If i = a Then
Print a;
End If a = a + 1 Wend、34打印斐波那契数列20项 Private sub form_click()A=0 B=1
Text1.text=text1.text&str(A)&str(B)&chr(13)& Chr(10)For i=1 to 9 A=A+B B=A+B
Text1.text=text1.text&str(A)&str(B)&chr(13)& Chr(10)Next i
35判定素数
A=val(inputbox(“input a”))For i=2 to a
If(a mod i=0)then Exit for End if Next i
If i 36求sum 1+(1+2)+(1+2+3)………….n = Val(Text1.Text)sum = 0 For i = 1 To n sum1 = 0 For j = 1 To i sum1 = sum1 + j Next j sum = sum + sum1 Next i Text2.Text = sum 37求50名学生的平均成绩并统计高于平均分的人 Dim c(1 to 50)as integer Dim p!,n%,i% P=0 For i=1 to 50 C(i)=inputbox(“请输入第”&i&”位学生的成绩” P=p+c(i)Next i P=p/50 N=0 For i= 1 to 50 If c(i)>p then n=n+1 Next i Print “平均分=”;”高于平均分的人数=”;n 设C=0.3，编写程序，计算并输出下面级数的部分和。结果取小数点后面7位。C/1!-C^3/3!+C^5/5!-„ +(-1)^(S-1)*C^(2*S-1)/(2*S-1)!+ „ Dim n as integer Dim x as integer X=0.3 Dim item as double Dim sum as double Dim fact as double For n=1 to 35 Fact=1 Dim I as integer For I =1 to 2*n-1 Fact=fact*i Next Item =(-1)^(n-1)*x^(2*n-1)/fact Sum=sum+item Next Sum=int(sum*10000000+0,.5)/100000000 Magbox 39已知A、B为整数A和B的立方和为1000求所有的A、B。 Dim x ,y as integer For x=0 to10 For y=0 to10 If x^3+y^3=1000 then Msgbox(x=;y=) 定义一个下标上界为30的单精度数组，设置好其初值（值处于[20，90]），计算数组中所有元素的均值。Dim array(30)as single For i=0 Array(i)=20+int(rnd()*71)Next i Dim sum% For i=0 to 30 Sum=sum+array(i)Next i Print sum 31 End sum 41求下面级数前S项中奇数项的和sum。在求和过程中，以第一个奇数项的数值大于 10000 的项为末项。1!-2!+3!-4!+ „ +(-1)^(S-1)*S!+ „ Dim n as integer Dim item double Dim I as integer Dim sum as double Dim abs as double Do while true Item =1 For I =1 to n Item = item*1 Next i Sum=sum +item N=n+2 If abs(item)>10000 then Exit do Else N=n+2 End if Loop Msgbox(sum) 42计算sum=1/1!+1/2!+1/3!+....+1/10!Private Sub Command1_Click()Dim m As Integer, n As Long, s As Double n = 1 s = 0 For m = 1 To 10 n = n * m s = s + 1 / n Next Print s 42求从[j,s]区间内的素数及素数和（这里需要用到三个文本框和2个按钮）'Private Sub Command1_Click()Dim n%, i%, j%, s% Sum = 0 j = Val(Text1.Text())s = Val(Text2.Text())For n = j To s For i = 2 To n1 Then Sum = Sum + n: Print n Next n Text3.Text = Sum End Sub Private Sub Command2_Click()Cls Text1.Text = ”“ Text2.Text = ”“ Text3.Text = ”“ Text1.SetFocus End Sub 43某分段函数描述如下：（1）当x为偶数时，y的值为x的二分之一。（2）当x为奇数时，y的值为x的二倍。Private Sub Command1_Click()Dim x!, y!x = Val(InputBox(”请输入X的值！“)) If x Mod 2 = 0 Then y = x / 2 Else y = 2 * x MsgBox(y)End If End Sub 44随机输出一个小写字母。Private Sub Command1_Click()Dim a As String Randomize a = Chr(Int(97 + 26 * Rnd))MsgBox(a)End Sub、45编写程序，计算并输出下面级数前n项（n=50）中偶数项的和。s=1*2+2*3+3*4+4*5+....+n*（n+1）+.....Private Sub Command1_Click()Dim s!, i% For i = 2 To 50 Step 2 s = s + i *(i + 1)Next MsgBox(s)End Sub 46编写程序，设n=20，x=3.4，计算并输出S(n)的值，要求结果保留5位小数。S(n)=Inx/x+In2x/x^2+In3x/x^3+.....+In(n*x)/x^n+.....Private Sub Command1_Click()Dim x#, i% Dim S(20)As Double n = 20 x = 3.4 For i = 1 To 20 S(20)= S(20)+ Log(i * x)/(x ^ i)Next Print Format(S(20), ”0.00000“)End Sub 47设 S=35，C=0.3，编写程序，计算并输出下面级数的部分和。结果取小数点后面7位。C/1!-C^3/3!+C^5/5!-„ +(-1)^(S-1)*C^(2*S-1)/(2*S-1)!+ „ 参考答案如下： Private Sub Command1_Click() Dim n As Integer Dim x As Double x = 0.3 Dim item As Double Dim sum As Double Dim fac As Double For n = 1 To 35 fac = 1 Dim i As Integer For i = 1 To 2 * n1)* x ^(2 * n1 fac = fac * i Next item =(-1)^(n1)/ fac sum = sum + item Next sum = Int(sum * 10000000 + 0.5)/ 10000000 MsgBox(sum)End Sub ' sum = 0.479426 49编写子过程，计算并输出3000-4000之间的素数之和C与其中最小的素数MIN。 Private Sub Command1_Click() Dim sum, i, min As Integer min=0 For i = 3000 To 4000 Dim isprime As Boolean = True Dim j As Integer For j = 2 To ia(1))*(pa(3)))MsgBox(s)Else MsgBox(”不能构成三角形")End If End Sub 《体验VB编程》教学设计 一、教学内容分析 1．课程标准内容《信息的编程加工》教学设计 初步掌握用计算机编程加工信息的工作过程和基本特征； 2．教材作用与地位 教科版《信息技术基础》第三章第二节“信息的编程加工”，对这部分内容分两堂课完成。第一节课通过操作和剖析已经编好的计算机程序，在解决实际问题中分析并了解其工作过程，这种通过问题分析形成算法、再利用计算机程序解决问题的思路和做法，对学生帮助很大。 第二节课主要是通过制作“QQ登陆”这个小程序，体验 VB编程的过程。让学生了解一些简单的编程知识。我们认识问题的过程一般都是像课本那样：从概念到案例。即从事物的原理出发，以实例来验证原理。这样的方法虽然对阐述问题的整体性是有益的，但是却并不容易突破难题，给人以就事论事的感觉，没有鲜活的体现。 所以本节采用的策略是：从案例到概念。即从事物的表象出发，根据现象去探索原理。这样的方法更符合青少年的求知心理，也更容易在用技术实现软件模型过程中体验到程序的本质意义和巨大价值。而且要通过例子来让学生明白计算机语言只是工具，算法才是程序设计的灵魂，从而理解计算机工作的内部机制，也就理解了为什么说自动化信息加工和人性化加工是智能化加工的一个基础。 二、学生分析 因为大多数学生在初中都没有接触到利用计算机来进行编程方面的内容，因此在利用 VB来进行编程方面的基础可以说是零，老师就要从最简单、最基础的方面来引导这些零起点的学生。在学生已有的计算机基础上给他们讲解一下程序设计中的算法以及一些简单的VB编程。 三、教学目标： 1．知识与技能目标 引导学生了解有关程序设计的基本知识；让学生了解计算机加工信息的内在机制以及算法的含义。 2．过程和方法目标 让学生了解计算机解决问题的一般过程，了解用高级语言编程工具解决问题的基本方法，感悟计算机程序设计的思想，了解计算机程序设计的基本流程。 3．情感与价值观目标 激发学生对信息技术的求知欲，提高其学习兴趣，形成积极主动学习信息技术的态度。 四、教学重点 1．了解VB程序设计的界面组成。 2．了解怎样用VB编写简单的小程序，并且运行小程序。 五、教学难点 学生对于算法和 VB编程的理解程度。 六、教学过程 1．第一环节：观看程序，查看代码，了解设计程序的一般过程 通过演示“QQ登陆框“小程序激发同学们的兴趣。 学生观察其界面。分析其程序。 教师：上节课大家通过修改程序体验了一下编程的神奇力量，今天这堂课大家就变身真正的程序员，自己设计程序，编写代码，大显身手了！首先，我们来设计它的外观吧！ 第二环节 上手模拟软件外观。 认识算法：制作软件需要编写程序，编写程序要有一定的工具，事先还要有一定的规划和设计，即算法。以盖房子为例讲解算法：预计有多少房间，规划每个房间的功能是什么，建筑的过程是怎样的，最后的装修使用等。 操作演示：从制作软件者的视角，了解 VB的结构特点。（1）控件。 VB就像盖房，有各种材料、器件——控件，以图像控件为例，演示给学生插入一个控件。（2）控件的属性。 每个控件都有一定的属性，就像壁画有名称、大小、内容、位置等。为图像控件的 Picture属性引入一个图片。 （3）事件响应代码。 有的控件要能响应一定的功能要求——事件。就像门铃按动时有声音，按门铃就是事件，声音就是响应。 教师演示如何设计程序界面！（演示一个控件即可！更改其属性，并引导学生观察每个对象的属性说明，选择相应的属性进行修改。） 学生：设计程序界面。 教师要引导学生观察每个对象的名称。第三环节 探索软件智慧的来源。 教师：设计好了程序界面，我们运行程序，是否会相应我们的操作！我们输入了正确的账号和密码，就会显示登录成功的界面吗？ 学生：不会！要给它编写代码！ 教师：是呀！我们刚才只是给它一个躯体，并没有赋予它灵魂！只有编写了正确的代码，它才会按照我们的指令去操作！ 那我们来分析一下这个程序！什么时候我们才能登陆成功？ 学生：输入正确的账号和密码！教师：什么时候出现错误的提示： 学生：账号错误或密码错误或者账号密码都错误！ 教师：分析得非常好！明确了解决问题的过程，我们就开始动手编写代码吧！（高一的数学已经了解程序设计的相关知识，学生读懂程序没有什么障碍！老师稍加点拨即可！） 问题是我们现在对那个对象编写代码？这是我们要解决的问题！ 学生通过讨论和思考：单击“登陆”按钮才引发的事件，应当对“登陆”按钮编写代码！代码如下： Private Sub Command1_Click()mm = “gl123” hm = “2423366923” sr = Text2.Text If sr = mm And Text1.Text = hm Then Form2.Show Else MsgBox(“密码输入错误！”)End End If End Sub 教师和学生共同理解程序。 教师：在编写程序过程中，难免会出现错误，就需要进行运行和调试！解决编程中出现的问题！有学生提出疑问：老师，我输入的密码为什么不能以“*”显示？ 教师：在文本框有一个passwordchar属性，大家更改一下看看如何？ 还可以对程序进行哪些修改呢？我们有时遇到网络很差，想取消登陆怎么办？引导学生对程序进行进一步的修改和完善！ 第四环节 总结程序的作用及程序的结构特点。教学反思： 1．教学设计 本节课在教学过程中，紧扣课标，从学生的认识特点和实际能力出发，没有用教材提供的例子，而用教师自己设计的例子——设计QQ登陆程序，引发学生的学习兴趣。数学中已经初步了解了程序设计语言，了解了程序涉及的三种结构，从学生熟知的例子入手，这样引入课题自然、清楚，更重要的是简化了“算法”和简化了程序，课堂效果较好，达到了课标的要求。本节课的教学我感到最为成功的地方是，以学生为本，紧扣课标，教材处理恰当。通过分析通过剖析程序让学生了解编程解决问题的方法和步骤；通过学生上机实践，亲身感受计算机编程解决问题的过程；通过学生感悟编程的过程，感受到编程就像跟计算机对话一样； 2．分层教学的实施 教学中采用了分层教学，对不同的学生有不同的要求，“零起点”学生亲身感受计算机程序解决问题的过程，懂得计算机程序设计的基本流程，“非零起点”的学生在“零起点”的基础上，能够根据自己的需要对程序进行进一步的完善。这样所有的学生都能达到课标的要求，每个学生在自己的基础上都有所提高。 3．感悟和提升 在教学中教师让学生感悟程序设计的过程像什么活动一样，好多学生都能感悟出像对话一样，这正是程序设计的“精髓”。教师告诉学生编程不但能解决画函数图像这样的小问题，还能解决更大更复杂的问题，你们现在所用的 Office就是用VB开发出来的，你们以前所学内容主要是在应用别人开发的程序，如果有一天你能开发出程序让别人使用，那么你的计算机水平将上一个台阶，你自己也很有成就感。 4．不足 前面在程序设计界面上，学生花费了较多的时间，在完善程序，如密码框改变其属性passwordchar，设计取消登陆框的“取消”按钮，没有完成。 程序语言学习的总结 通过两年的学习，我们基本上掌握了C语言，C++和C#三个编程课程。对于程序设计语言的学习，分为学习语法规定、掌握程序设计方法、提高程序开发能力，这些都必须通过充分的实际上机操作才能完成。课程上的安排除了课堂讲授以外，学院设有专门课堂到实验室进行上机操作实验。 要利用c语言学到的知识编写c语言程序，即把c语言作为工具，通过上机才能检验自己是否掌握c语言、自己编写的程序是否能够正确地解题。通过上机实验来验证自己编制的程序是否正确。在这种思想支配下，可能你会想办法去“掩盖”程序中的错误，而不是尽可能多地发现程序中存在的问题。自己编好程序上机调试运行时，可能有很多你想不到的情况发生，通过解决这些问题，可以逐步提高自己对c语言的理解和程序开发能力。 在原有的C语言的基础知识之上，初步接触C++时感到比较简单易懂。但随着之后的步步深入学习，C++的不同之处以及其优势逐。从第二章引入了C++简单程序的设计。包括一些C++语言的概述，基本数据类型和表达式，数据的输入与输出，算法的基本东芝结构，以及自定义类型数据等知识。此部分多与C语言相似。之后又学习了函数的相关内容，这里学到了新的知识要点----函数重载。该内容尤其在现在做课程设计的时候尤为重要。类是C++语言的精华之所在，在学习中，我感觉到类和C语言中的结构体有很大的相似之处，但在类中的构造函数、拷贝构造函数以及类的组合，经常弄混淆一些概念。在这之后又学习了类的继承与派生。这使得类与类之间形成了树状图的模型，各子类可以访问到父类的一些数据成员，同样也实现了数据的之间的“共享”。我个人在编写派生类的构造函数和拷贝构造函数时，感觉很不熟练，后面章节的多态性主要学习了运算符的重载，其本质就是函数的重载。 在学习C#中，类是具有相同特性和行为的对象的抽象。它使用关键字class声明的。在c#中仅允许单个继承，类只能从一个基类继承实现。但是一个类可以实现一个以上的接口。对象是人们要进行研究的任何事物，从最简单的整数到复杂的飞机等局可以看对象，它不仅表示具体的事物，还能表示抽象的规则、计划或者事件。接口只是包含方法、委托或事件的签名。方法的实现是在实现接口的类中完成的。接口可以是命名空间或类的成员，并可以包含下列成员：每个C#可执行文件都有一个入口—Main方法：static void Main()修饰符public表示可以在任何地方访问该方法。所以可以在类的外部调用它。修饰符static表示方法不能在类的实例上执行，因此不必先实例化类在调用。在变量声明时：变量是类或者结构中的字段，如果没有显示初始化，创建这些变量时，其值就是默认的0。变量是方法的局部变量就必须在代码中显示初始化，之后才能在语句中使用它们的值。 课堂上要讲授许多关于语法规则，要使用这些工具解决问题，通过多次上机练习，对于语法知识有了更深刻的认识，在理解的基础上就会自然而然地掌握。一个程序从编辑、编译、连接到运行，都要在一定的外部操作环境下才能进行。通过上机实验，熟练地掌握开发环境，为以后真正编写计算机程序解决实际问题打下基础。第四篇：体验VB编程教学设计
第五篇：编程语言学习心得
点击咨询 