第一篇：體驗(yàn)VB編程教學(xué)設(shè)計(jì)

《體驗(yàn)VB編程》教學(xué)設(shè)計(jì)

一、教學(xué)內(nèi)容分析

1．課程標(biāo)準(zhǔn)內(nèi)容《信息的編程加工》教學(xué)設(shè)計(jì)

初步掌握用計(jì)算機(jī)編程加工信息的工作過程和基本特征； 2．教材作用與地位

教科版《信息技術(shù)基礎(chǔ)》第三章第二節(jié)“信息的編程加工”，對(duì)這部分內(nèi)容分兩堂課完成。第一節(jié)課通過操作和剖析已經(jīng)編好的計(jì)算機(jī)程序，在解決實(shí)際問題中分析并了解其工作過程，這種通過問題分析形成算法、再利用計(jì)算機(jī)程序解決問題的思路和做法，對(duì)學(xué)生幫助很大。

第二節(jié)課主要是通過制作“QQ登陸”這個(gè)小程序，體驗(yàn) VB編程的過程。讓學(xué)生了解一些簡單的編程知識(shí)。我們認(rèn)識(shí)問題的過程一般都是像課本那樣：從概念到案例。即從事物的原理出發(fā)，以實(shí)例來驗(yàn)證原理。這樣的方法雖然對(duì)闡述問題的整體性是有益的，但是卻并不容易突破難題，給人以就事論事的感覺，沒有鮮活的體現(xiàn)。

所以本節(jié)采用的策略是：從案例到概念。即從事物的表象出發(fā)，根據(jù)現(xiàn)象去探索原理。這樣的方法更符合青少年的求知心理，也更容易在用技術(shù)實(shí)現(xiàn)軟件模型過程中體驗(yàn)到程序的本質(zhì)意義和巨大價(jià)值。而且要通過例子來讓學(xué)生明白計(jì)算機(jī)語言只是工具，算法才是程序設(shè)計(jì)的靈魂，從而理解計(jì)算機(jī)工作的內(nèi)部機(jī)制，也就理解了為什么說自動(dòng)化信息加工和人性化加工是智能化加工的一個(gè)基礎(chǔ)。

二、學(xué)生分析

因?yàn)榇蠖鄶?shù)學(xué)生在初中都沒有接觸到利用計(jì)算機(jī)來進(jìn)行編程方面的內(nèi)容，因此在利用 VB來進(jìn)行編程方面的基礎(chǔ)可以說是零，老師就要從最簡單、最基礎(chǔ)的方面來引導(dǎo)這些零起點(diǎn)的學(xué)生。在學(xué)生已有的計(jì)算機(jī)基礎(chǔ)上給他們講解一下程序設(shè)計(jì)中的算法以及一些簡單的VB編程。

三、教學(xué)目標(biāo)： 1．知識(shí)與技能目標(biāo)

引導(dǎo)學(xué)生了解有關(guān)程序設(shè)計(jì)的基本知識(shí)；讓學(xué)生了解計(jì)算機(jī)加工信息的內(nèi)在機(jī)制以及算法的含義。

2．過程和方法目標(biāo)

讓學(xué)生了解計(jì)算機(jī)解決問題的一般過程，了解用高級(jí)語言編程工具解決問題的基本方法，感悟計(jì)算機(jī)程序設(shè)計(jì)的思想，了解計(jì)算機(jī)程序設(shè)計(jì)的基本流程。

3．情感與價(jià)值觀目標(biāo)

激發(fā)學(xué)生對(duì)信息技術(shù)的求知欲，提高其學(xué)習(xí)興趣，形成積極主動(dòng)學(xué)習(xí)信息技術(shù)的態(tài)度。

四、教學(xué)重點(diǎn)

1．了解VB程序設(shè)計(jì)的界面組成。

2．了解怎樣用VB編寫簡單的小程序，并且運(yùn)行小程序。

五、教學(xué)難點(diǎn)

學(xué)生對(duì)于算法和 VB編程的理解程度。

六、教學(xué)過程

1．第一環(huán)節(jié)：觀看程序，查看代碼，了解設(shè)計(jì)程序的一般過程 通過演示“QQ登陸框“小程序激發(fā)同學(xué)們的興趣。

學(xué)生觀察其界面。分析其程序。

教師：上節(jié)課大家通過修改程序體驗(yàn)了一下編程的神奇力量，今天這堂課大家就變身真正的程序員，自己設(shè)計(jì)程序，編寫代碼，大顯身手了！首先，我們來設(shè)計(jì)它的外觀吧！

第二環(huán)節(jié) 上手模擬軟件外觀。

認(rèn)識(shí)算法：制作軟件需要編寫程序，編寫程序要有一定的工具，事先還要有一定的規(guī)劃和設(shè)計(jì)，即算法。以蓋房子為例講解算法：預(yù)計(jì)有多少房間，規(guī)劃每個(gè)房間的功能是什么，建筑的過程是怎樣的，最后的裝修使用等。

操作演示：從制作軟件者的視角，了解 VB的結(jié)構(gòu)特點(diǎn)。（1）控件。

VB就像蓋房，有各種材料、器件——控件，以圖像控件為例，演示給學(xué)生插入一個(gè)控件。（2）控件的屬性。

每個(gè)控件都有一定的屬性，就像壁畫有名稱、大小、內(nèi)容、位置等。為圖像控件的 Picture屬性引入一個(gè)圖片。

（3）事件響應(yīng)代碼。

有的控件要能響應(yīng)一定的功能要求——事件。就像門鈴按動(dòng)時(shí)有聲音，按門鈴就是事件，聲音就是響應(yīng)。

教師演示如何設(shè)計(jì)程序界面！（演示一個(gè)控件即可！更改其屬性，并引導(dǎo)學(xué)生觀察每個(gè)對(duì)象的屬性說明，選擇相應(yīng)的屬性進(jìn)行修改。）

學(xué)生：設(shè)計(jì)程序界面。

教師要引導(dǎo)學(xué)生觀察每個(gè)對(duì)象的名稱。第三環(huán)節(jié) 探索軟件智慧的來源。

教師：設(shè)計(jì)好了程序界面，我們運(yùn)行程序，是否會(huì)相應(yīng)我們的操作！我們輸入了正確的賬號(hào)和密碼，就會(huì)顯示登錄成功的界面嗎？

學(xué)生：不會(huì)！要給它編寫代碼！

教師：是呀！我們剛才只是給它一個(gè)軀體，并沒有賦予它靈魂！只有編寫了正確的代碼，它才會(huì)按照我們的指令去操作！

那我們來分析一下這個(gè)程序！什么時(shí)候我們才能登陸成功？ 學(xué)生：輸入正確的賬號(hào)和密碼！教師：什么時(shí)候出現(xiàn)錯(cuò)誤的提示：

學(xué)生：賬號(hào)錯(cuò)誤或密碼錯(cuò)誤或者賬號(hào)密碼都錯(cuò)誤！

教師：分析得非常好！明確了解決問題的過程，我們就開始動(dòng)手編寫代碼吧?。ǜ咭坏臄?shù)學(xué)已經(jīng)了解程序設(shè)計(jì)的相關(guān)知識(shí)，學(xué)生讀懂程序沒有什么障礙！老師稍加點(diǎn)撥即可?。?/p>

問題是我們現(xiàn)在對(duì)那個(gè)對(duì)象編寫代碼？這是我們要解決的問題！

學(xué)生通過討論和思考：單擊“登陸”按鈕才引發(fā)的事件，應(yīng)當(dāng)對(duì)“登陸”按鈕編寫代碼！代碼如下：

Private Sub Command1_Click()mm = “gl123” hm = “2423366923” sr = Text2.Text If sr = mm And Text1.Text = hm Then Form2.Show Else MsgBox(“密碼輸入錯(cuò)誤！”)End End If End Sub 教師和學(xué)生共同理解程序。

教師：在編寫程序過程中，難免會(huì)出現(xiàn)錯(cuò)誤，就需要進(jìn)行運(yùn)行和調(diào)試！解決編程中出現(xiàn)的問題！有學(xué)生提出疑問：老師，我輸入的密碼為什么不能以“*”顯示？ 教師：在文本框有一個(gè)passwordchar屬性，大家更改一下看看如何？

還可以對(duì)程序進(jìn)行哪些修改呢？我們有時(shí)遇到網(wǎng)絡(luò)很差，想取消登陸怎么辦？引導(dǎo)學(xué)生對(duì)程序進(jìn)行進(jìn)一步的修改和完善！

第四環(huán)節(jié) 總結(jié)程序的作用及程序的結(jié)構(gòu)特點(diǎn)。教學(xué)反思： 1．教學(xué)設(shè)計(jì)

本節(jié)課在教學(xué)過程中，緊扣課標(biāo)，從學(xué)生的認(rèn)識(shí)特點(diǎn)和實(shí)際能力出發(fā)，沒有用教材提供的例子，而用教師自己設(shè)計(jì)的例子——設(shè)計(jì)QQ登陸程序，引發(fā)學(xué)生的學(xué)習(xí)興趣。數(shù)學(xué)中已經(jīng)初步了解了程序設(shè)計(jì)語言，了解了程序涉及的三種結(jié)構(gòu)，從學(xué)生熟知的例子入手，這樣引入課題自然、清楚，更重要的是簡化了“算法”和簡化了程序，課堂效果較好，達(dá)到了課標(biāo)的要求。本節(jié)課的教學(xué)我感到最為成功的地方是，以學(xué)生為本，緊扣課標(biāo)，教材處理恰當(dāng)。通過分析通過剖析程序讓學(xué)生了解編程解決問題的方法和步驟；通過學(xué)生上機(jī)實(shí)踐，親身感受計(jì)算機(jī)編程解決問題的過程；通過學(xué)生感悟編程的過程，感受到編程就像跟計(jì)算機(jī)對(duì)話一樣；

2．分層教學(xué)的實(shí)施

教學(xué)中采用了分層教學(xué)，對(duì)不同的學(xué)生有不同的要求，“零起點(diǎn)”學(xué)生親身感受計(jì)算機(jī)程序解決問題的過程，懂得計(jì)算機(jī)程序設(shè)計(jì)的基本流程，“非零起點(diǎn)”的學(xué)生在“零起點(diǎn)”的基礎(chǔ)上，能夠根據(jù)自己的需要對(duì)程序進(jìn)行進(jìn)一步的完善。這樣所有的學(xué)生都能達(dá)到課標(biāo)的要求，每個(gè)學(xué)生在自己的基礎(chǔ)上都有所提高。

3．感悟和提升

在教學(xué)中教師讓學(xué)生感悟程序設(shè)計(jì)的過程像什么活動(dòng)一樣，好多學(xué)生都能感悟出像對(duì)話一樣，這正是程序設(shè)計(jì)的“精髓”。教師告訴學(xué)生編程不但能解決畫函數(shù)圖像這樣的小問題，還能解決更大更復(fù)雜的問題，你們現(xiàn)在所用的 Office就是用VB開發(fā)出來的，你們以前所學(xué)內(nèi)容主要是在應(yīng)用別人開發(fā)的程序，如果有一天你能開發(fā)出程序讓別人使用，那么你的計(jì)算機(jī)水平將上一個(gè)臺(tái)階，你自己也很有成就感。

4．不足

前面在程序設(shè)計(jì)界面上，學(xué)生花費(fèi)了較多的時(shí)間，在完善程序，如密碼框改變其屬性passwordchar，設(shè)計(jì)取消登陸框的“取消”按鈕，沒有完成。

第二篇：初試身手,體驗(yàn)編程_教學(xué)設(shè)計(jì)

初試身手，體驗(yàn)編程

臨泉一中 訾振輝

一、教學(xué)目標(biāo)

1、知識(shí)與技能

使學(xué)生知道什么是源代碼，并理解算法、程序設(shè)計(jì)、程序設(shè)計(jì)語言之間的關(guān)系，了解程序設(shè)計(jì)語言的發(fā)展及種類。

2、過程與方法

初步體驗(yàn)編程樂趣，了解如何編輯程序、編譯程序和連接程序。

3、情感態(tài)度與價(jià)值觀

讓學(xué)生進(jìn)一步領(lǐng)會(huì)算法和程序設(shè)計(jì)在解決問題中的地位，體會(huì)編寫程序的魅力，從而培養(yǎng)學(xué)生學(xué)習(xí)編程的興趣。

二、重點(diǎn)難點(diǎn)

（1）重點(diǎn)：了解代碼所包含的算法思想。

（2）難點(diǎn)：計(jì)算機(jī)是如何編輯程序、編譯程序和連接程序的。

三、教材處理

上一節(jié)課學(xué)習(xí)了描述算法的三種方法，但這三種算法計(jì)算機(jī)無法識(shí)別，必須編寫程序代碼，方可實(shí)現(xiàn)用計(jì)算機(jī)解決問題。本節(jié)課以“韓信點(diǎn)兵”問題引入，然后引導(dǎo)學(xué)生把解決“韓信點(diǎn)兵”問題的方法（即算法），應(yīng)用到程序編寫中，實(shí)現(xiàn)使用VB編程解決問題，體驗(yàn)編程的樂趣。

四、教學(xué)過程

（一）引入

“韓信點(diǎn)兵”問題引入，讓學(xué)生思考解決問題的方法。

設(shè)計(jì)意圖：“韓信點(diǎn)兵”問題，易于學(xué)生接受，學(xué)生可以用數(shù)學(xué)思想思考解決問題的方法。（這一點(diǎn)對(duì)編程來說也很重要，解決問題的方法和步驟即算法。）

（二）、編程解決問題

讓學(xué)生通過對(duì)程序半成品的完善，解決韓信點(diǎn)兵問題，體驗(yàn)編程樂趣。領(lǐng)會(huì)算法在程序設(shè)計(jì)中的地位，了解如何編輯程序、編譯程序和連接程序。

設(shè)計(jì)意圖：編程，對(duì)學(xué)生來說是一個(gè)全新的課程，理解其概念與思想需要一個(gè)過程。程序半成品對(duì)初學(xué)編程的高中生來說最合適不過了，既能讓學(xué)生體驗(yàn)編寫程序、執(zhí)行程序的過程，又不至于因?yàn)殡y度過大而完不成教學(xué)任務(wù)。

（三）、知識(shí)拓展

（1）通過對(duì)“韓信點(diǎn)兵”問題的升華，加深學(xué)生對(duì)本節(jié)課教學(xué)內(nèi)容的理解，為學(xué)生進(jìn)一步提高指明方向。

（2）通過閱讀老師提供的學(xué)習(xí)資料及課后內(nèi)容，幫助學(xué)生進(jìn)一步了解編輯程序、編譯程序和連接程序；知道什么是源代碼；理解算法、程序設(shè)計(jì)、程序設(shè)計(jì)語言之間的關(guān)系；了解程序設(shè)計(jì)語言的發(fā)展及種類。

設(shè)計(jì)意圖：概念性的內(nèi)容，僅憑教師課堂上的三言兩語很難講清楚，學(xué)生也不愛聽。在經(jīng)歷過課堂實(shí)例的動(dòng)手實(shí)踐之后，再安排學(xué)生自學(xué)這些內(nèi)容，既能幫助學(xué)生更好的理解概念，加深對(duì)所學(xué)知識(shí)的認(rèn)識(shí)，又能提高學(xué)生的學(xué)習(xí)興趣。

第三篇：VB編程題及答案

1定義一個(gè)下標(biāo)上界為10整型數(shù)組，并用隨機(jī)函數(shù)為其賦值（值處于[0,100]之間），計(jì)算數(shù)組中所有偶數(shù)的和。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 “所有偶數(shù)的和為”, s 2 設(shè) S=35，C=0.3，編寫程序，計(jì)算并輸出下面級(jí)數(shù)的部分和。結(jié)果取小數(shù)點(diǎn)后面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.編寫一個(gè)函數(shù)，求某個(gè)數(shù)的階乘。

調(diào)用該函數(shù)計(jì)算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(“輸入一個(gè)正整數(shù)：

”)

s = fact(m)

MsgBox(s)End Sub ‘479001600 14.編寫子過程，計(jì)算并輸出3000-4000之間的素?cái)?shù)之和C與其中最小的素?cái)?shù)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 編寫一個(gè)函數(shù)，其功能為求兩個(gè)數(shù)的最大公約數(shù)。

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輸入一個(gè)年份，判斷該年份是否是平年，若是則輸出“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 輸入兩個(gè)整數(shù)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求下面級(jí)數(shù)前n項(xiàng)的和S，在求和

過程中，當(dāng)某項(xiàng)（注意，該項(xiàng)參與求和）的絕對(duì)值小于0.0001 時(shí)求和終止。結(jié)果取 5 位小數(shù)。

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)

整數(shù)：”)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 編寫一個(gè)函數(shù)，其功能為判斷一個(gè)3位正整數(shù)是否是“水仙花數(shù)”。（“水仙花數(shù)”是指各位數(shù)字的立方和與該數(shù)相等，如153=1^3+5^3+3^3,153就是水仙花數(shù)。）

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(“輸入一個(gè)3位正

MsgBox(Panduan(i))End Sub 定義一個(gè)下標(biāo)上界為10整型數(shù)組，并為其賦值（值處于[0，100]之間），計(jì)算數(shù)組中所有不小于60的數(shù)據(jù)的和。

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.編寫程序，求下面級(jí)數(shù)前n項(xiàng)的和s=1/1!-1/2!+1/3!-1/4!+....+(-1)^(n-1)*1/n!+.....。

'求和過程當(dāng)某一項(xiàng)的絕對(duì)值小于0.0001時(shí)結(jié)束（注意，該項(xiàng)參與求和），計(jì)算并輸出所求的s，要求結(jié)果保留6位小數(shù)。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輸入一個(gè)四位數(shù)，分別輸出它的個(gè)位數(shù)字，是十位數(shù)字，百位數(shù)字，千位數(shù)字。Private Sub Command1_Click()Dim a%, j%, k%, i%, m% a = InputBox(”請(qǐng)輸入一個(gè)四位整數(shù)“)j = a 1000 k = a 100 Mod 10 i = a 10 Mod 10 m = a Mod 10 Print ”個(gè)位數(shù)字;“;m Print ”十位數(shù)字;“;i Print ”百位數(shù)字;“;k Print ”千位數(shù)字;“;j End Sub 6.計(jì)算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編寫程序，計(jì)算并輸出下面級(jí)數(shù)前n項(xiàng)（n=20）中奇數(shù)項(xiàng)的和。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隨機(jī)輸出一個(gè)小寫字母。Private Sub Command1_Click()Dim a As String Randomize

a = Chr(Int(97 + 26 * Rnd))MsgBox(a)End Sub、29編寫程序，計(jì)算并輸出下面級(jí)數(shù)前n項(xiàng)（n=50）中偶數(shù)項(xiàng)的和。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斐波那契數(shù)列是由計(jì)算某類動(dòng)物繁殖增長量而提出的。數(shù)列的前兩項(xiàng)是1、1，以后的每一項(xiàng)都是其相鄰前兩項(xiàng)的和。編寫程序求：數(shù)列前30項(xiàng)和。

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輸入三個(gè)數(shù)a、b、c，編寫程序使得a<=b<=c，并輸出a、b、c的值。Private Sub Command1_Click()Dim a%, b%, c%, t%

a = Val(InputBox(”請(qǐng)輸入a的值!“))b = Val(InputBox(”請(qǐng)輸入b的值!“))c = Val(InputBox(”請(qǐng)輸入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編寫程序，設(shè)n=20，x=3.4，計(jì)算并輸出S(n)的值，要求結(jié)果保留5位小數(shù)。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輸入任意三個(gè)數(shù) 找出其中最大的數(shù) 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之間的素?cái)?shù) 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打印斐波那契數(shù)列20項(xiàng) 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判定素?cái)?shù)

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名學(xué)生的平均成績并統(tǒng)計(jì)高于平均分的人

Dim c(1 to 50)as integer Dim p!,n%,i% P=0 For i=1 to 50 C(i)=inputbox(“請(qǐng)輸入第”&i&”位學(xué)生的成績”

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 “平均分=”;”高于平均分的人數(shù)=”;n

設(shè)C=0.3，編寫程序，計(jì)算并輸出下面級(jí)數(shù)的部分和。結(jié)果取小數(shù)點(diǎn)后面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為整數(shù)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=)

定義一個(gè)下標(biāo)上界為30的單精度數(shù)組，設(shè)置好其初值（值處于[20，90]），計(jì)算數(shù)組中所有元素的均值。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求下面級(jí)數(shù)前S項(xiàng)中奇數(shù)項(xiàng)的和sum。在求和過程中，以第一個(gè)奇數(shù)項(xiàng)的數(shù)值大于 10000 的項(xiàng)為末項(xiàng)。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計(jì)算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]區(qū)間內(nèi)的素?cái)?shù)及素?cái)?shù)和（這里需要用到三個(gè)文本框和2個(gè)按鈕）'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某分段函數(shù)描述如下：（1）當(dāng)x為偶數(shù)時(shí)，y的值為x的二分之一。（2）當(dāng)x為奇數(shù)時(shí)，y的值為x的二倍。Private Sub Command1_Click()Dim x!, y!x = Val(InputBox(”請(qǐng)輸入X的值！“))

If x Mod 2 = 0 Then y = x / 2 Else y = 2 * x MsgBox(y)End If End Sub

44隨機(jī)輸出一個(gè)小寫字母。Private Sub Command1_Click()Dim a As String Randomize

a = Chr(Int(97 + 26 * Rnd))MsgBox(a)End Sub、45編寫程序，計(jì)算并輸出下面級(jí)數(shù)前n項(xiàng)（n=50）中偶數(shù)項(xiàng)的和。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編寫程序，設(shè)n=20，x=3.4，計(jì)算并輸出S(n)的值，要求結(jié)果保留5位小數(shù)。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設(shè) S=35，C=0.3，編寫程序，計(jì)算并輸出下面級(jí)數(shù)的部分和。結(jié)果取小數(shù)點(diǎn)后面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編寫子過程，計(jì)算并輸出3000-4000之間的素?cái)?shù)之和C與其中最小的素?cái)?shù)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(”不能構(gòu)成三角形")End If End Sub

第四篇：vb語言編程教案

課

題：vb語言編程概述 課 時(shí):2課時(shí) 授課時(shí)間：2011.09.05 課堂類型：講授

教學(xué)目的：1.熟悉VB界面和VB集成開發(fā)環(huán)境；

2.在實(shí)際操作中學(xué)會(huì)編簡單的VB應(yīng)用程序；

教學(xué)要求：1.掌握VB基礎(chǔ)知識(shí)。

2.會(huì)編簡單的VB應(yīng)用程序。

教學(xué)重點(diǎn)：1.熟悉VB集成開發(fā)環(huán)境

2.編寫簡單VB應(yīng)用程序。

教學(xué)難點(diǎn)：在熟悉VB界面的同時(shí)學(xué)習(xí)編寫簡單VB應(yīng)用程序 教學(xué)方法：講授 教學(xué)過程：

一、VB簡介

BASIC是英文Beginner’s All-purpose Symbolic Instruction Code（初學(xué)者通用符號(hào)指令代碼）的縮寫，它是專門為初學(xué)者設(shè)計(jì)的高級(jí)語言。Visual Basic是Microsoft公司于1991年推出的基于窗口的可視化程序設(shè)計(jì)語言。

a．“Visual”是“可視化的”、“形象化的”的意思。b.因此Visual Basic也具有易學(xué)易用的特點(diǎn)

c.目前Visual Basic的最新版本是Visual Basic 6.0（簡稱VB 6.0）

二、啟動(dòng)VB

1、首先顯示“新建工程”對(duì)話框

直接單擊“打開”按鈕，創(chuàng)建“標(biāo)準(zhǔn)EXE”類型應(yīng)用程序，進(jìn)入集成開發(fā)環(huán)境主界面。

2、集成開發(fā)環(huán)境中的各元素 1）標(biāo)題欄：用來顯示窗口的標(biāo)題。2）菜單欄 3）工具欄 4）工具箱 5）窗體窗口 6）工程窗口 7）屬性窗口 8）窗體布局窗口

三、通過一個(gè)簡單的應(yīng)用程序快速入門

【例1.1（實(shí)訓(xùn)1，p16）】制作一個(gè)的一個(gè)簡單的應(yīng)用程序的運(yùn)行界面。它由一個(gè)窗體、一個(gè)文本框、一個(gè)標(biāo)簽和一個(gè)命令按鈕組成。當(dāng)用戶單擊命令按鈕“顯示”時(shí)，文本框中出現(xiàn)“教你學(xué)VB”。1．新建工程 2．添加文本框Text1 3．添加命令按鈕Command1 4．添加標(biāo)簽Label1 5．設(shè)置屬性 6．編寫事件過程代碼

前面的工作把應(yīng)用程序的界面設(shè)計(jì)好了，屬性也設(shè)置完畢。但現(xiàn)在應(yīng)用程序并不能實(shí)現(xiàn)實(shí)際的功能。為了使它具有一定的功能，還必須為對(duì)象編寫實(shí)現(xiàn)某一功能的事件過程代碼。1）雙擊窗體上的“顯示”按鈕，屏幕上出現(xiàn)代碼窗口，程序代碼就在這里編寫。編寫如下事件過程：

Private Sub Command1_Click（）Text1.Text = “歡迎使用VB” End Sub 2）運(yùn)行應(yīng)用程序 3）保存應(yīng)用程序

VB應(yīng)用程序至少有兩種文件需要保存： · 窗體文件（.frm）· 工程文件（.vbp）4）生成EXE文件

四、總結(jié)步驟

設(shè)計(jì)VB應(yīng)用程序主要有以下4個(gè)步驟：（1）設(shè)計(jì)用戶界面。（2）設(shè)置屬性。（3）編寫代碼。（4）保存和運(yùn)行調(diào)試程序，生成EXE文件。

五、知識(shí)延伸

1、只有一個(gè)文本框的實(shí)例 編寫如下事件過程：

Private Sub Command1_Click（）Text1.Text = “教你學(xué)VB“ End Sub

2、多個(gè)文本框時(shí) 編寫如下事件過程：

Private Sub Command1_Click（）Text1.Text = ”教你學(xué)VB“ Text2.Text = “歡迎使用VB“ End Sub

3、按照系統(tǒng)的元件特性分類(分別舉例說明)課后實(shí)訓(xùn)1 第二個(gè)命令按鈕：清除 第三個(gè)命令按鈕：退出 步驟：

1.添加2個(gè)命令按鈕 2.雙擊按鈕，進(jìn)入編程狀態(tài) 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

六、小結(jié) 1.熟悉界面。

2.掌握完整編程過程以及運(yùn)行及調(diào)試程序的過程。

第五篇：VB編程實(shí)訓(xùn)總結(jié)

V

B

編

程

實(shí)

訓(xùn)

總

結(jié)

一、實(shí)訓(xùn)目的：

加深對(duì)可視化編程技術(shù)基本知識(shí)的理解，掌握運(yùn)用VB開發(fā)應(yīng)用程序的基本方法及基本技巧。

二、實(shí)訓(xùn)時(shí)間：

2011年01月02日—2010年01月06日

三、實(shí)訓(xùn)方式：上機(jī)操作

四、實(shí)訓(xùn)內(nèi)容：

這次在3名指導(dǎo)老師的帶領(lǐng)下，利用VB開發(fā)工具與數(shù)據(jù)庫SQL server開發(fā)一個(gè)實(shí)用的小型管理信息系統(tǒng)。一共有五個(gè)題目。我選擇的是第四個(gè)—-學(xué)籍管理系統(tǒng)。它的功能要求如下：

1、學(xué)籍信息輸入：實(shí)現(xiàn)學(xué)生基本情況的輸入。包括各個(gè)學(xué)生的情況，姓名、家庭電話、家庭住址、學(xué)號(hào)等各個(gè)消息。

2、學(xué)籍信息管理：本模塊實(shí)現(xiàn)了信息的修改、刪除、查詢。還有個(gè)人信息。把信息統(tǒng)計(jì)這個(gè)繁瑣的工作簡單化，為學(xué)生信息的管理方面提高工作效率。

3、學(xué)籍信息查詢：通過輸入學(xué)號(hào)便可以查詢到這個(gè)學(xué)生的全部信息，包括姓名、性別、出生年月、班級(jí)、入學(xué)日期、聯(lián)系電話、獎(jiǎng)勵(lì)和成績表都一目了然，很大的方便了教工們查詢學(xué)生信息的過程。

4、統(tǒng)計(jì)查詢：實(shí)現(xiàn)查詢?nèi)嗳藬?shù)，男女生比例等

五、實(shí)訓(xùn)體會(huì)

今天是第一天實(shí)習(xí)，感覺既有趣又有些酸痛（累的）這還是老師怕我們適應(yīng)不了所以沒教那么多知識(shí)，即使這樣我們?nèi)詫W(xué)到了比以前

上學(xué)時(shí)更多的知識(shí)，而且這些知識(shí)有好多都是我們自己去領(lǐng)悟的到的。我也知道了有人比我們還累。所以我自覺得還是很好的。

經(jīng)過這次的實(shí)訓(xùn)，我真真確確的感受到了計(jì)算機(jī)在我們生活中工作中的運(yùn)用，這些軟件、程序能讓我們提高工作的效率，更直觀更便捷的切入主題。這次我們學(xué)習(xí)的是數(shù)據(jù)源的原理及應(yīng)用的各方面知識(shí)，由老師帶著我們不斷操作。SQL Server 2005能有效的組織、管理和共享數(shù)據(jù)庫信息，能把數(shù)據(jù)庫信息與ADO結(jié)合在一起，實(shí)現(xiàn)數(shù)據(jù)庫信息的共享。同實(shí)，SQL Server 2005概念清晰，簡單易學(xué)、實(shí)用是適合企業(yè)管理人員、數(shù)據(jù)庫管理員使用的首選。我覺得學(xué)習(xí)了這個(gè)，對(duì)我參加工作后制表、創(chuàng)建查詢、數(shù)據(jù)分析和材料演示都有很大的作用，這樣，我們能更清楚的了解信息并進(jìn)行分析。當(dāng)然，在學(xué)習(xí)的過程中并不是一帆風(fēng)順的，在這之中，因?yàn)橐僮鞯臇|西很多，有時(shí)錯(cuò)一步，后面的結(jié)果就無法顯示，而自己的計(jì)算機(jī)反應(yīng)慢，根本檢查不出來是哪里出了錯(cuò)！這時(shí)候，老師都會(huì)耐心的過來幫助我，我很感謝竇老師也很感謝學(xué)校能安排這么優(yōu)秀的竇老師來教我們!只是，我們太頑皮，有很多東西老師講了我們也沒能記住，我想在此說一句：老師，您辛苦了，下學(xué)期我們一定認(rèn)認(rèn)真真的好好學(xué)！