第一篇：《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语言编程教案
课
题：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编程题及答案
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 教育教学研究 试论如何提高学生编程能力 韩国勇男工程硕士信息工程系助理讲师 [文章摘要] 计算机应用能力和编程能力是计算机专业教学的两个重要的检验手段，我结合自己四年的软件开发经验和一年的教学经历，从学习、读程序、思考、练习、实践和好习惯六个方面来论述提高学生的编程能力。[关 键 词] 学习编程实践能力 高等职业技术教育是一种能力教育，是一种以学生就业为导向的教育。除了注重学生能力的全面培养外，更要注重学生专业应用能力和专业扩展能力的培养，这样学生才能适应社会发展的需要。我结合自己四年的软件开发经验和一年的教学经历，通过对我们学校学生的了解，感觉学生编程能力比较薄弱，本文从学、读、思、练、实践和好习惯六个方面探讨如何提高高职院校学生的编程能力。 一、学 所谓学就是学习，认真学习专业课程和编程基础课程，不断地学习新的和先进的开发工具；只有扎实的理论基础，理论指导，编程才能游刃有余，才能写出高水平的代码，才能编写出高质量的程序。 最基础的课程是C语言，然后根据应用范围不同而选择不同的开发工具，如果搞底层开发一般使用C和汇编；如果是大型或者游戏软件开发那就是C或C++，一般都用到VC++或者BC++开发工具；网页编程可以选择ASP/PHP/JSP；电子商务方面选择.NET和J2EE；网络应用一般选择JAVA。不过像数据结构，数据库等课程无论哪个方面的开发都需要学的；另外英语和数学也非常重要。 一般的基础课程有C语言，VB程序设计，数据库原理，数据结构，算法设计等，主要是指学习一门语言，一门数据库，一门算法设计；扎实地学好这些基础课程，基础越牢固编的程序效率越高，这一点在以后的编程中会慢慢的体会到；如果基础课程不牢固，作者简介：韩国勇男工程硕士信息工程系助讲 可能也能编软件，写程序，但是很难写出高水平的程序。 例如一般的程序会遇到费用问题，有费用就要考虑费用的大写问题，那么怎样实现费用的大小写转换呢？首先考虑算法设计，然后考虑使用什么语言实现。考虑算法时就要考虑从左向右转换还是从右向左转换，确定后就可以通过循环控制结构来实现转换；中间用判断结构来判断如果为零或中间有零的情况等等。这样一个问题就通过简单的算法和基本控制结构实现了，所以编程必须有扎实的理论基础。 另外，很多的课程告诉我们一些程序的效率问题，例如数据库设计中提到了SQL语句，我们最先想起的就是Select语句，在数据量比较大的情况下，Select语句的查询速度和数据库中表的索引有很大的关系，但是很多情况下Select语句是不使用索引的，如果在Select语句中的where条件中出现下列情况的不使用索引：列上有数学运算的，列上使用substr字符串函数的，‘%’通配符在第一个字符的，在列上使用字符串连接(||)的，Where条件中使用is null或is not null的等。在对大量的数据进行查询时，如果不考虑上面的情况可能写得SQL语句的效率就比较低。 二、读 所谓的读就是读教材、读程序、读网上资料，然后把看到的经典的程序代码，好的算法，整理出来，逐个消化并吸收，转变为自己的知识，提高编程能力。 多读别人的代码，读完后思考你是否能写出比它更精练更有效率的程序，读别人的程序,不要单纯的模仿,思想才是最重要的,主要是理解别人的思想，和自己的思想进行比较,能学到很多东西；多与别人交流，三人行必有我师焉，也许在一次和别人不经意的谈话中，就可以迸出灵感的火花。多上网搜资料，看别人的开发经验心得，算法的实现，变为己有。 三、思 所谓思就是思考，事前思考有没有解决方案，事中思考有没有更好的解决方案，事后考虑有没有需要完善和补充的功能，总之是使程序功能更强大和完善，性能更好！ 首先：事前思考有没有可行性，给你一个问题或一个项目，最先要做的就是思考可行性问题，包括技术可行性、经济可行性、法律可行性。如果给你一个悖论，让你用程序来实现，本身是一个悖论，编写程序肯定陷入死循环，怎么可能解决呢？ 其次：事中考虑有没有更好的解决方案？微软给了我们很好的思路，比如：登陆界面，保存，输入格式的限制和输入范围的限制等。登陆界面一般有用户名和登录密码，并且默认上次成功登陆系统的用户名，输入的密码显示为一串“*”，在这些操作中可以只使用键盘，我们编写的程序应该怎样实现呢？可以使用setfocus()方法来实现；那么定期保存怎样实现，数据备份怎样实现？其实我们可以在程序中增加登陆时系统时间，在一定的时间间隔内实现备份，最简单的就是调用Winrar进行文件压缩备份；一些输入的限制，要根据输入的内容的逻辑进行判断到底应该输入的内容或范围是什么？例如日期有的月份能输入31日，有的月份就不能输入31日，需要进行逻辑判断，当然了现在已经有很多工具有时间的控件，自动进行逻辑判断。 最后：事后考虑有没有需要完善的，代码有没有 需要优化的？下面举几个代码优化的例子：(1)判断年year是否为闰年，首先我们知道闰年的定义是能被4整除，不能被100整除；或者能被4整除，且能被400整除，然后书写算法（year % 4 == 0 && year % 100!= 0）||(year % 4 == 0 && year % 400 == 0)，其实 year % 4 == 0 就不需要了，因为year如果能整除400，肯定能整除4，所以year % 400 == 0一个条件就可以了。(2)求一元二次方程ax + bx + c = 0的根，步骤是先判断a是否为0，在判断b24ac是否为0时，需要这样判断fabs(b2-4ac)<= 1e – 6，因为在计算机中，储存实数一般都有误差。 四、练 所谓练就是动手做练习，教材上的例题、课后习题都是很好的练习素材，这些是编者经过深思熟虑的例子和习题，很有代表性。 边练习，边理解，边思考，多问为什么？然后根据自己的思考和理解对例子作一定的改动，看执行结果，是否和自己期望的一样？出现问题设法调试和改正使其编译通过。例如有很多循环例子，是否可以实现for循环和while循环相互转化，当通过自己的实际转换后才体会到原来每个循环有各自的特点。 练习要分阶段分步骤，开始编一些趣味性大一点的小程序，例如：数据结构书中有很多算法的,试着把它们敲成程序,运行一下，既可以实践检验算法,也可以锻炼自己的实际编程能力，队列,排序,很多都是很经典的。当积累到一定程度就可以按照自己的想法去编一些实用性强一点的程序，开始时没灵感也不要紧，毕竟资源丰富，可以从借鉴别人的劳动成果开始。最后，系统地学学软件工程，完全按照软件生命周期的6个阶段来做。 练习是一个逐渐的过程，开始熟悉语法，编程规范，各种控件的用法，然后再学习各种控件的综合运 用，甚至编写一个小的系统。但是不要为了练习而练习，要加上自己丰富的想象力，不要拘泥于固定的思维方式，多思考、多练习，通过不断的练习，加深对各种工具或控件的运用，提高编程能力。 五、实践 如果有机会，可以做实际的项目工程，在实践中不断地锻炼自己的其他能力：逻辑能力、思维能力、业务能力、沟通交流能力。 逻辑能力和思维能力是编程能力的基础，只有良好的逻辑能力和思维能力才能开发出高性能的程序，才能保证程序的正确性。 业务能力和沟通交流能力是必须的，如果你不知道业务的话，不可能开发出适合用户的程序，因为不懂业务，所以就不知道用户所需，不能更好的为用户服务。 实践的项目不在大小，在于我们的实践经历，通过实践我们知道在实施项目中除了编程能力外还需要其他的能力，通过实践知道项目的实施过程和环节，在实施的过程中遇到各种各样的问题，会使我们明白在编程中怎样解决这些问题，例如：在培训用户使用我们的系统时，发现用户对我们的业务流程不适应，业务流程过于繁琐，他们有自己的业务流程，而且也比较简单，那么我们在编程时就可以借鉴用户的流程，使我们系统的操作流程更简捷；在测试阶段发现用户经常使用业务回退功能，那么我们就把主要的业务流程都增加上业务回退功能，使系统功能更完善；在现场维护阶段发现维护人员看代码看不明白，那么在编程阶段就要注意良好的编程风格和增加适量的注释，这样位护时才能很快的看明白程序，尽快地调试和改正程序中的问题，以便提高工作效率。 所以，编程能力的高低，不是语言懂的越多能力越高，需要我们在实践中不断的锻炼，提高自己的沟 通交流能力和逻辑思维能力，提高编程综合能力。 六、好习惯 所谓好习惯就是在编程过程中要养成良好的习惯，提高编程效率和编程能力： 1、先想后做：在编程前或解决问题前，先考虑该问题是否有可行性，有可行性再考虑计划和实施。 2、游戏规则：编程要遵循软件的生命周期，按照制定计划、需求分析、软件设计、程序编码、软件测试和运行维护这6个阶段来实现软件，不可越级。 3、有备无患：编程之前，先找一些样例程序仔细研究，应该包含哪些基本功能？里面一些难度大的算法应该怎样实现？不打无准备之仗。 4、见名知意：程序再小，用的变量也不会少，变量起名应当“见名知意”，这是老规矩，能提高程序的易理解性和易修改性。 5、编程规范：和见名知意雷同，主要是使得程序层次清晰，易于理解。 6、多加注解：对程序中自定义的变量、函数、子程序加以功能性的注释说明，别嫌麻烦，如果三五个月之后，连自己写的东西都看不明白了，那才麻烦大了。 7、环境保护：如果应用程序需要修改系统设置，记着执行程序前先保存设置，结束后要恢复设置，千万别污染环境。 8、拿来主义：一个人的力量是有限的，大家的力量是无限的，平时多看看书，有好的经验、巧的方法、用得上的段子不妨拿来。 总之：要提高编程能力，就要不断地学习，不断地读程序、读代码，不断地思考和练习、有机会就实践，还要在编程中养成良好的习惯，只有这样才能得到锻炼，能力才能提高。 《体验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，设计取消登陆框的“取消”按钮，没有完成。第四篇：编程实现能力
第五篇：体验VB编程教学设计
点击咨询 