VB程序设计的常用算法教案

第一篇：VB程序设计的常用算法教案

VB程序设计的常用算法教案

算法（Algrith）：计算机解题的基本思想方法和步骤。算法的描述：是对要解决一个问题或要完成一项任务所采 取的方法和步骤的描述，包括需要什么数据（输入什么数据、输出什么结果）、采用什么结构、使用什么语句以及如何 安排这些语句等。通常使用自然语言、结构化流程图、伪代码等来描述算法。

一、计数、求和、求阶乘等简单算法

此类问题都要使用循环，要注意根据问题确定循环变量的初值、终值或结束条，更要注意用来表示计数、和、阶 乘的变量的初值。

例：用随机函数产生100个[0，99]范围内的随机整数，统计个位上的数字分别为1，2，3，4，6，7，8，9，0的 数的个数并打印出来。

本题使用数组来处理，用数组a存放产生的确100个随机整数，数组x来存放个位上的数字分

别为1，2，3，4，6，7，8，9，0的数的个数。即个位是1的个数存放在x中，个位是2的个数存放在x中，…… 个位是0的个数存放在x。

将程序编写在一个GetTput过程中，代码如下： PubliSubGetTput

DiaAsInteger

DixAsInteger

DiiAsInteger,pAsInteger

'产生100个[0，99]范围内的随机整数，每行印出来

Fri=1T100

a=Int

Ifa<10Then

Fr1PrintSpae;a;

10个打

Else

Fr1PrintSpae;a;

EndIf

Ifid10=0ThenFr1Print

Nexti

'统计个位上的数字分别为1，2，3，4，6，7，8，9，0的数的个数，并将统计结果保存在数组x,x，x中，将统计结果打印出来

Fri=1T100

p=a

d

0

'求个位上的数字

Ifp=0Thenp=10

x=x+1

Nexti

Fr1Print&qut;统计结果&qut;

Fri=1T10

p=i

Ifi=10Thenp=0 Fr1Print&qut;个位数为&qut;+Str+&qut;&qut;+Str)+&qut;个&qut;

Nexti EndSub

二、求两个整数的最大公约数、最小公倍数 分析：求最大公约数的算法思想：

对于已知两数，n，使得>n；

共

除以n得余数r；

若r=0，则n为求得的最大公约数，算法结束；否则执行；

←n，n←r，再重复执行。

例如:求=14,n=6的最大公约数

n

r

0 =inputBx n=inputBx n=n* If

r=dn

Dhile

=n

n=r

r=dn

Lp

Print&qut;最大公约数=&qut;,n [1]

[2]

[3]

[4]

[]

[6]

[7]

下一页 <

第二篇：算法与程序设计VB试题与答案08

VB08

1、打开“考生文件夹781”中的文件“test4.vbp”，完善Command1_Click事件代码并保存。

实现功能：回文字符串是指一个字符串从左往右读与从右往左读是一样的，如“ABCBA”，“123321”等等。输入一个字符串，若是回文字符串，则输出“Yes”，否则输出“No”。使用文本框Text1输入字符串，使用文本框Text2输出结果。

Private Sub Command1_Click()Dim s As String Dim ok As String Dim i As Integer s = Text1.Text ok = “Yes” For i = 1 To ①

If Mid(s, i, 1)<> ② Then ok = “No” Next i ③ End Sub ①len(s)2 ②Mid(s, len(s)+1-i, 1)③text2.text=ok

2、打开文件“考生文件夹606工程1.vbp”，完善Command1_Click事件代码并保存。

实现功能：当单击“计算1+2+3+…+100”按钮后，文本框Text1显示1+2+3+…+100的值。

Private Sub Command1_Click()Dim s As Integer Dim i As Integer s = ①

For i = 1 To ② s = ③ Next i Text1.Text = Str(④)End Sub ①0 ②100 ③s+i ④s

3、打开“考生文件夹779test2.vbp”，完善Command1_Click事件代码并保存。

实现功能：输入一个正整数，计算并输出它的各位数字之和。如输入123，则输出6。使用文本框Text1输入正整数，使用文本框Text2输出计算结果。

Private Sub Command1_Click()Dim x As Integer Dim s As Integer x = Val(Text1.Text)① Do s = s + ② x = x 10 Loop Until x = 0 ③ End Sub ①s=0 ②x mod 10 ③text2.text=str(s)

4、打开文件“考生文件夹607工程1.vbp”，完善Command1_Click事件代码并保存。

实现功能：当单击“显示”按钮后，随机产生10个属于区间[0，100)的自然数，并保存于数组a中，然后在窗体上显示这10个数及其平均值。(注：学生运算结果有可能跟样图中数值不一致)

Private Sub Command1_Click()Dim a(9)As Integer Dim s As Single Dim i As Integer Me.Cls s = 0 Randomize For i = 0 To ① a(i)= Int(Rnd * 100)Print a(i)Next i For i = 0 To 9 s = ②

③

Print “这10个自然数的平均值=”;s / 10 End Sub ①9

②s+a(i)③next i

5、打开文件“考生文件夹609工程1.vbp”，完善Form_Click事件代码并保存。

实现功能：单击窗体时在窗体上打印下面所示的图案。

**** *** ** *

Private Sub Form_Click()Dim i As Integer Dim j As Integer For i = ① To 1 Step-1 For j = 1 To i ② Next j Print ③ End Sub ①4

②print “*”;③next i

6、打开文件“考生文件夹610工程1.vbp”，完善Command1_Click事件代码并保存。

实现功能：当单击“显示”按钮后，在窗体上显示下面的图形：

@ @@ @@@ @@@@ @@@@@ @@@@@@

Private Sub Command1_Click()Dim i As Integer Dim j As Integer For i = 1 To 6 For j = 1 To ① Print ② Next ③ Print Next i End Sub ①i

②”@”;③j

第三篇：算法与程序设计VB试题与答案10

VB10

1、打开文件“考生文件夹178工程1.vbp”，完善Command1_Click事件及fac函数并保存。

实现功能：用递归法求3!+5!+7!的值，将结果输出到窗体上。

Public Function fac(a As Integer)As Integer If a = 1 Then fac = ① Else fac = a * ②(a1)+ fib(n1)End If End Function

Private Sub Command1_Click()Dim sum As Integer sum = s(③)Print “sum=”;sum End Sub ①1 ②n ③100

6、打开“考生文件夹776”中的文件“蜗牛爬竹.vbp”，完善Command1_Click事件代码并保存。

实现功能：青竹高17米，蜗牛从青竹底端慢慢爬向顶端，晴天每天爬1.4米，雨天每天爬1.8米，若蜗牛爬到顶端用了11天，计算晴天、雨天各多少天？（晴天对应文本框text1，雨天对应文本框text2）

Private Sub Command1_Click()Dim x As Single Dim y As Integer y =(171.4)① = 11-y Text1.Text = Str(②)+ “天” Text2.Text = Str(③)+ “天” End Sub ①x ②x ③y

第四篇：公开课 VB程序设计教案

第四课 学学程序设计—初步认识编程软件VB 教学目标：

知识目标：了解什么是程序设计语言和计算机程序以及语言的分类

过程与方法：培养学生的阅读总结和自主探索能力

情感态度与价值观：通过学生利用所学的知识解决实际问题，激

发学生的学习兴趣

教学重难点：了解什么是程序设计语言

启发学生创新思维

以任务为驱动，激发学生创新思维 教法：讲授法、任务驱动法 教学过程：

一、导入新课

教师运行游戏小程序，引起学生的兴趣，并打开程序的原代码说明编程并不很神秘。试运行游戏小程序，激发学生的学习兴趣。

二、教师讲授： 程序设计语言

教师活动：语言是人类交流思想、沟通感情最重要的工具。那么语言不通的人如何交流呢？

学生活动：请一个语言翻译或自己学会他人的语言

教师活动：计算机所做的事情均为人向机器下达的命令，那么操作作者又是通过什么语言同计算机进行沟通的呢？ 程序设计语言的分类及特点

1、机器语言

教师活动：①计算机能听懂的语言（机器语言）②机器语言的实质（二进制语言）③二进制语言的特点。强调计算机内部只认识二进制

学生活动：谈对二进制语言的感受

教师小结：机器语言的特点（二进制、计算机直接能懂、难以理解，与人类语言差距较大）汇编语言-用助记符号表示面向机器的程序设计语言。使用汇编语言编写的程序，机器不能直接识别，要由一种程雪汇编语言翻译成机器语言。适合编写直接控制机器操作的程序，不容易使用。高级语言-最接近人的自然语言，即简单易学，它所编制的程序计算机执行时需要“翻译”，执行速度比二进制程序慢。三：展示微课视频

VB简介、认识VB窗口、相关概念：

1、对象的概念

2、属性的概念

3、事件和代码的概念。演示设计运行程序“奔跑的小汽车”依照微课演示编写程序“奔跑的小汽车” 四：学生体验

1、学生编写程序“奔跑的小汽车”，教师巡回指导。

2、试修改程序，让汽车倒车、速度变慢。

五、教学评价：

1、教师点评教师通过巡视，把部分学生修改的结果进行点评，指出典型的错误。

六、课后小结：

这节课，我们体验了用VB设计程序，了解程序有关知识。（回顾本节知识）希望同学们继续努力。

第五篇：算法与程序设计教案

第一课 初识算法与程序设计

一、教学目标

1、知识与技能

（1）理解算法的概念，培养学生自我探索信息，高效获取信息的能力；

（2）能初步利用算法解决简单的问题，培养学生的理论联系实际能力和动手操作能力。

2、情感、态度、价值观

学生在学习过程中，通过亲身经历体验获得对此算法的感性认识，培养学生自我获取信息、分析评价信息、、表达呈现信息的能力，进一步提高其信息素养。

二、教学重点难点

重点：算法概念的理解

难点：如何科学合理的选择和设计算法。

三、教学策略与手段

以趣味性问题设置情境，激发学生探索解决问题的兴趣，与学生进行互动探讨，通过Flash演示材料，比较直观地把抽象的问题简单化，使学生的思考逐步深入，从而总结出算法的概念，学会如何设计和选择算法，培养学生自主探究学习的能力。

四、教学过程（1课时）

（一）我们来共同寻找下面一些生活中比较现实的问题的解决方法。【问题一】天下真的有“不要钱的午餐”吗？

某一餐馆门口海报上写着“不要钱的午餐”，规则如下：在三个月内，来宾必须凑够五个人，五人每次来就餐必须按照不同的顺序坐，直到把所有可能的顺序都坐一遍，以后来吃饭就可永远免费”。于是有人想，这太容易了，每人每次坐不同的位置，吃五次不就行了？于是他就叫上自己的朋友参加这项活动，可是，吃了十次之后，还没有吃上免费午餐，这是怎么回事呢？

学生们感觉非常有意思，很快以小组为单位进行热烈的讨论并得出了破解问题的步骤：①第一个座位５个人都有坐的机会②第二个座位只有４个人中的任一个有坐的机会（一个人不能同时坐两个座位）③第三个座位只有３个人中的任一个有坐的机会④第四个座位只有２个人中的任一个有坐的机会⑤第五个座位只有１个人有坐的机会⑥计算：５×４×３×２×１＝１２０⑦得出结论：需要吃１２０次才有可能吃上免费午餐。

【问题二】有三个和尚和三个妖怪过河，只有一条能装下两个人的船，在河的任何一方或者船上，如果妖怪的人数大于和尚的人数，那么和尚就会有被吃掉的危险。你能不能找出一种安全的渡河方法呢？请写一写你的渡河方案。学生：学生讨论回答。〖展示步骤〗

①两个妖怪先过河，一个妖怪回来； ②再两个妖怪过河，一个妖怪回来； ③两个和尚过河，一个妖怪和一个和尚回来； ④两个和尚过河，一个妖怪回来； ⑤两个妖怪过河，一个妖怪回来； ⑥两个妖怪过河。

【Flash动画展示】通过讨论和动画展示，我们可以知道，计算机解决问题和人解决问题一样需要有清晰的解题步骤。算法就是解决问题的程序或步骤。

（二）【课件展示】算法的概念：

1、广义的算法是指完成某项工作的方法和步骤，在我们日常生活中也经常使用算法，只是没意识到罢了。如：洗衣机的使用说明书是操作洗衣机的算法，菜谱是做菜的算法等等。

2、在数学中，现代意义的算法是指可以用计算机来解决的某一类问题的程序和步骤，这些程序或步骤必须是明确和有效的，而且能够在有限步之内完成。

【小试身手】按照这样的理解,我们可以设计出很多由具体数学问题解决一类数学问题的算

法.下面看一个例子:（要求学生自己考虑并写出具体的算法）

鸡兔同笼问题。一个笼子里有鸡和兔，现在只知道里面一共有17个头，48只脚，鸡和兔各有多少只？试设计一个求解的算法。

【设计意图】求解鸡兔的问题简单直观，却包含着深刻的算法思想。应用解二元一次方程组的方法来求解鸡兔同笼问题。

第一步：设有小鸡x只，小兔y只，则有

第二步：将方程组中的第一个方程两边乘－2加到第二个方程中去，得到，得到y=7； 第三步：将y=7代入（1）得x=10。

【变一变】在笼中有鸡、兔若干，已知有头a个，有脚b只，求各有多少只鸡和兔。

【师生合作】老师带领学生共同书写规范的算法的具体步骤，最后引出算法使用的范围：能解决一类问题，并且能重复使用。

（三）【课件展示】算法的基本特征

①有穷性 ②确定性 ③不唯一性 ④有效性（逻辑性）

1、有穷性：一个算法应该包含有限个操作步骤，而不能是无限的。

2、确定性：算法的每个步骤都应该是明确无误的，不能含义模糊，使执行者无所适从。

3、有零个或者多个输入，有一个或者多个输出

4、有效性：算法中的每一步都应该能有效地执行，执行算法最后应该能得到确定的结果。

【教学总结】

1、本节课通过一些生活中看似简单问题的解决方法和步骤，使学生比较轻松的接受了生活算法的概念，进一步理解了计算机算法的概念。

2、课堂教学的效益取决于学生对所学知识理解了多少，能否用所学知识来解决一些实际问题。本节课的设计突出讲与练的结合，培养学生的动手能力，并且引出学生对下一节课的内容的思考，比较顺利的完成了本节课的教学任务。

3、如何优化算法，找到算法的形式和用算法解决问题的效益的最佳结合点，还尚需探讨。