第一篇：VB程序設(shè)計的常用算法教案

VB程序設(shè)計的常用算法教案

算法（Algrith）：計算機解題的基本思想方法和步驟。算法的描述：是對要解決一個問題或要完成一項任務(wù)所采 取的方法和步驟的描述，包括需要什么數(shù)據(jù)（輸入什么數(shù)據(jù)、輸出什么結(jié)果）、采用什么結(jié)構(gòu)、使用什么語句以及如何 安排這些語句等。通常使用自然語言、結(jié)構(gòu)化流程圖、偽代碼等來描述算法。

一、計數(shù)、求和、求階乘等簡單算法

此類問題都要使用循環(huán)，要注意根據(jù)問題確定循環(huán)變量的初值、終值或結(jié)束條，更要注意用來表示計數(shù)、和、階 乘的變量的初值。

例：用隨機函數(shù)產(chǎn)生100個[0，99]范圍內(nèi)的隨機整數(shù)，統(tǒng)計個位上的數(shù)字分別為1，2，3，4，6，7，8，9，0的 數(shù)的個數(shù)并打印出來。

本題使用數(shù)組來處理，用數(shù)組a存放產(chǎn)生的確100個隨機整數(shù)，數(shù)組x來存放個位上的數(shù)字分

別為1，2，3，4，6，7，8，9，0的數(shù)的個數(shù)。即個位是1的個數(shù)存放在x中，個位是2的個數(shù)存放在x中，…… 個位是0的個數(shù)存放在x。

將程序編寫在一個GetTput過程中，代碼如下： PubliSubGetTput

DiaAsInteger

DixAsInteger

DiiAsInteger,pAsInteger

'產(chǎn)生100個[0，99]范圍內(nèi)的隨機整數(shù)，每行印出來

Fri=1T100

a=Int

Ifa<10Then

Fr1PrintSpae;a;

10個打

Else

Fr1PrintSpae;a;

EndIf

Ifid10=0ThenFr1Print

Nexti

'統(tǒng)計個位上的數(shù)字分別為1，2，3，4，6，7，8，9，0的數(shù)的個數(shù)，并將統(tǒng)計結(jié)果保存在數(shù)組x,x，x中，將統(tǒng)計結(jié)果打印出來

Fri=1T100

p=a

d

0

'求個位上的數(shù)字

Ifp=0Thenp=10

x=x+1

Nexti

Fr1Print&qut;統(tǒng)計結(jié)果&qut;

Fri=1T10

p=i

Ifi=10Thenp=0 Fr1Print&qut;個位數(shù)為&qut;+Str+&qut;&qut;+Str)+&qut;個&qut;

Nexti EndSub

二、求兩個整數(shù)的最大公約數(shù)、最小公倍數(shù) 分析：求最大公約數(shù)的算法思想：

對于已知兩數(shù)，n，使得>n；

共

除以n得余數(shù)r；

若r=0，則n為求得的最大公約數(shù)，算法結(jié)束；否則執(zhí)行；

←n，n←r，再重復(fù)執(zhí)行。

例如:求=14,n=6的最大公約數(shù)

n

r

0 =inputBx n=inputBx n=n* If

r=dn

Dhile

=n

n=r

r=dn

Lp

Print&qut;最大公約數(shù)=&qut;,n [1]

[2]

[3]

[4]

[]

[6]

[7]

下一頁 <

第二篇：算法與程序設(shè)計VB試題與答案08

VB08

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

實現(xiàn)功能：回文字符串是指一個字符串從左往右讀與從右往左讀是一樣的，如“ABCBA”，“123321”等等。輸入一個字符串，若是回文字符串，則輸出“Yes”，否則輸出“No”。使用文本框Text1輸入字符串，使用文本框Text2輸出結(jié)果。

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事件代碼并保存。

實現(xiàn)功能：當單擊“計算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事件代碼并保存。

實現(xiàn)功能：輸入一個正整數(shù)，計算并輸出它的各位數(shù)字之和。如輸入123，則輸出6。使用文本框Text1輸入正整數(shù)，使用文本框Text2輸出計算結(jié)果。

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事件代碼并保存。

實現(xiàn)功能：當單擊“顯示”按鈕后，隨機產(chǎn)生10個屬于區(qū)間[0，100)的自然數(shù)，并保存于數(shù)組a中，然后在窗體上顯示這10個數(shù)及其平均值。(注：學(xué)生運算結(jié)果有可能跟樣圖中數(shù)值不一致)

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個自然數(shù)的平均值=”;s / 10 End Sub ①9

②s+a(i)③next i

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

實現(xiàn)功能：單擊窗體時在窗體上打印下面所示的圖案。

**** *** ** *

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事件代碼并保存。

實現(xiàn)功能：當單擊“顯示”按鈕后，在窗體上顯示下面的圖形：

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

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

第三篇：算法與程序設(shè)計VB試題與答案10

VB10

1、打開文件“考生文件夾178工程1.vbp”，完善Command1_Click事件及fac函數(shù)并保存。

實現(xiàn)功能：用遞歸法求3!+5!+7!的值，將結(jié)果輸出到窗體上。

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事件代碼并保存。

實現(xiàn)功能：青竹高17米，蝸牛從青竹底端慢慢爬向頂端，晴天每天爬1.4米，雨天每天爬1.8米，若蝸牛爬到頂端用了11天，計算晴天、雨天各多少天？（晴天對應(yīng)文本框text1，雨天對應(yīng)文本框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程序設(shè)計教案

第四課 學(xué)學(xué)程序設(shè)計—初步認識編程軟件VB 教學(xué)目標：

知識目標：了解什么是程序設(shè)計語言和計算機程序以及語言的分類

過程與方法：培養(yǎng)學(xué)生的閱讀總結(jié)和自主探索能力

情感態(tài)度與價值觀：通過學(xué)生利用所學(xué)的知識解決實際問題，激

發(fā)學(xué)生的學(xué)習(xí)興趣

教學(xué)重難點：了解什么是程序設(shè)計語言

啟發(fā)學(xué)生創(chuàng)新思維

以任務(wù)為驅(qū)動，激發(fā)學(xué)生創(chuàng)新思維 教法：講授法、任務(wù)驅(qū)動法 教學(xué)過程：

一、導(dǎo)入新課

教師運行游戲小程序，引起學(xué)生的興趣，并打開程序的原代碼說明編程并不很神秘。試運行游戲小程序，激發(fā)學(xué)生的學(xué)習(xí)興趣。

二、教師講授： 程序設(shè)計語言

教師活動：語言是人類交流思想、溝通感情最重要的工具。那么語言不通的人如何交流呢？

學(xué)生活動：請一個語言翻譯或自己學(xué)會他人的語言

教師活動：計算機所做的事情均為人向機器下達的命令，那么操作作者又是通過什么語言同計算機進行溝通的呢？ 程序設(shè)計語言的分類及特點

1、機器語言

教師活動：①計算機能聽懂的語言（機器語言）②機器語言的實質(zhì)（二進制語言）③二進制語言的特點。強調(diào)計算機內(nèi)部只認識二進制

學(xué)生活動：談對二進制語言的感受

教師小結(jié)：機器語言的特點（二進制、計算機直接能懂、難以理解，與人類語言差距較大）匯編語言-用助記符號表示面向機器的程序設(shè)計語言。使用匯編語言編寫的程序，機器不能直接識別，要由一種程雪匯編語言翻譯成機器語言。適合編寫直接控制機器操作的程序，不容易使用。高級語言-最接近人的自然語言，即簡單易學(xué)，它所編制的程序計算機執(zhí)行時需要“翻譯”，執(zhí)行速度比二進制程序慢。三：展示微課視頻

VB簡介、認識VB窗口、相關(guān)概念：

1、對象的概念

2、屬性的概念

3、事件和代碼的概念。演示設(shè)計運行程序“奔跑的小汽車”依照微課演示編寫程序“奔跑的小汽車” 四：學(xué)生體驗

1、學(xué)生編寫程序“奔跑的小汽車”，教師巡回指導(dǎo)。

2、試修改程序，讓汽車倒車、速度變慢。

五、教學(xué)評價：

1、教師點評教師通過巡視，把部分學(xué)生修改的結(jié)果進行點評，指出典型的錯誤。

六、課后小結(jié)：

這節(jié)課，我們體驗了用VB設(shè)計程序，了解程序有關(guān)知識。（回顧本節(jié)知識）希望同學(xué)們繼續(xù)努力。

第五篇：算法與程序設(shè)計教案

第一課 初識算法與程序設(shè)計

一、教學(xué)目標

1、知識與技能

（1）理解算法的概念，培養(yǎng)學(xué)生自我探索信息，高效獲取信息的能力；

（2）能初步利用算法解決簡單的問題，培養(yǎng)學(xué)生的理論聯(lián)系實際能力和動手操作能力。

2、情感、態(tài)度、價值觀

學(xué)生在學(xué)習(xí)過程中，通過親身經(jīng)歷體驗獲得對此算法的感性認識，培養(yǎng)學(xué)生自我獲取信息、分析評價信息、、表達呈現(xiàn)信息的能力，進一步提高其信息素養(yǎng)。

二、教學(xué)重點難點

重點：算法概念的理解

難點：如何科學(xué)合理的選擇和設(shè)計算法。

三、教學(xué)策略與手段

以趣味性問題設(shè)置情境，激發(fā)學(xué)生探索解決問題的興趣，與學(xué)生進行互動探討，通過Flash演示材料，比較直觀地把抽象的問題簡單化，使學(xué)生的思考逐步深入，從而總結(jié)出算法的概念，學(xué)會如何設(shè)計和選擇算法，培養(yǎng)學(xué)生自主探究學(xué)習(xí)的能力。

四、教學(xué)過程（1課時）

（一）我們來共同尋找下面一些生活中比較現(xiàn)實的問題的解決方法。【問題一】天下真的有“不要錢的午餐”嗎？

某一餐館門口海報上寫著“不要錢的午餐”，規(guī)則如下：在三個月內(nèi)，來賓必須湊夠五個人，五人每次來就餐必須按照不同的順序坐，直到把所有可能的順序都坐一遍，以后來吃飯就可永遠免費”。于是有人想，這太容易了，每人每次坐不同的位置，吃五次不就行了？于是他就叫上自己的朋友參加這項活動，可是，吃了十次之后，還沒有吃上免費午餐，這是怎么回事呢？

學(xué)生們感覺非常有意思，很快以小組為單位進行熱烈的討論并得出了破解問題的步驟：①第一個座位５個人都有坐的機會②第二個座位只有４個人中的任一個有坐的機會（一個人不能同時坐兩個座位）③第三個座位只有３個人中的任一個有坐的機會④第四個座位只有２個人中的任一個有坐的機會⑤第五個座位只有１個人有坐的機會⑥計算：５×４×３×２×１＝１２０⑦得出結(jié)論：需要吃１２０次才有可能吃上免費午餐。

【問題二】有三個和尚和三個妖怪過河，只有一條能裝下兩個人的船，在河的任何一方或者船上，如果妖怪的人數(shù)大于和尚的人數(shù)，那么和尚就會有被吃掉的危險。你能不能找出一種安全的渡河方法呢？請寫一寫你的渡河方案。學(xué)生：學(xué)生討論回答。〖展示步驟〗

①兩個妖怪先過河，一個妖怪回來； ②再兩個妖怪過河，一個妖怪回來； ③兩個和尚過河，一個妖怪和一個和尚回來； ④兩個和尚過河，一個妖怪回來； ⑤兩個妖怪過河，一個妖怪回來； ⑥兩個妖怪過河。

【Flash動畫展示】通過討論和動畫展示，我們可以知道，計算機解決問題和人解決問題一樣需要有清晰的解題步驟。算法就是解決問題的程序或步驟。

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

1、廣義的算法是指完成某項工作的方法和步驟，在我們?nèi)粘Ｉ钪幸步?jīng)常使用算法，只是沒意識到罷了。如：洗衣機的使用說明書是操作洗衣機的算法，菜譜是做菜的算法等等。

2、在數(shù)學(xué)中，現(xiàn)代意義的算法是指可以用計算機來解決的某一類問題的程序和步驟，這些程序或步驟必須是明確和有效的，而且能夠在有限步之內(nèi)完成。

【小試身手】按照這樣的理解,我們可以設(shè)計出很多由具體數(shù)學(xué)問題解決一類數(shù)學(xué)問題的算

法.下面看一個例子:（要求學(xué)生自己考慮并寫出具體的算法）

雞兔同籠問題。一個籠子里有雞和兔，現(xiàn)在只知道里面一共有17個頭，48只腳，雞和兔各有多少只？試設(shè)計一個求解的算法。

【設(shè)計意圖】求解雞兔的問題簡單直觀，卻包含著深刻的算法思想。應(yīng)用解二元一次方程組的方法來求解雞兔同籠問題。

第一步：設(shè)有小雞x只，小兔y只，則有

第二步：將方程組中的第一個方程兩邊乘－2加到第二個方程中去，得到，得到y(tǒng)=7； 第三步：將y=7代入（1）得x=10。

【變一變】在籠中有雞、兔若干，已知有頭a個，有腳b只，求各有多少只雞和兔。

【師生合作】老師帶領(lǐng)學(xué)生共同書寫規(guī)范的算法的具體步驟，最后引出算法使用的范圍：能解決一類問題，并且能重復(fù)使用。

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

①有窮性 ②確定性 ③不唯一性 ④有效性（邏輯性）

1、有窮性：一個算法應(yīng)該包含有限個操作步驟，而不能是無限的。

2、確定性：算法的每個步驟都應(yīng)該是明確無誤的，不能含義模糊，使執(zhí)行者無所適從。

3、有零個或者多個輸入，有一個或者多個輸出

4、有效性：算法中的每一步都應(yīng)該能有效地執(zhí)行，執(zhí)行算法最后應(yīng)該能得到確定的結(jié)果。

【教學(xué)總結(jié)】

1、本節(jié)課通過一些生活中看似簡單問題的解決方法和步驟，使學(xué)生比較輕松的接受了生活算法的概念，進一步理解了計算機算法的概念。

2、課堂教學(xué)的效益取決于學(xué)生對所學(xué)知識理解了多少，能否用所學(xué)知識來解決一些實際問題。本節(jié)課的設(shè)計突出講與練的結(jié)合，培養(yǎng)學(xué)生的動手能力，并且引出學(xué)生對下一節(jié)課的內(nèi)容的思考，比較順利的完成了本節(jié)課的教學(xué)任務(wù)。

3、如何優(yōu)化算法，找到算法的形式和用算法解決問題的效益的最佳結(jié)合點，還尚需探討。