第一篇：vb實(shí)驗(yàn)教案(第3次)

實(shí)驗(yàn)三 常用控件和窗體 【實(shí)驗(yàn)?zāi)康摹?/p>

掌握常用控件的主要屬性、方法、事件。

【實(shí)驗(yàn)內(nèi)容】

1、單選按鈕和復(fù)選框

(1)Caption屬性為單選按鈕和復(fù)選框邊上的文本標(biāo)

(2)Alignment屬性表示標(biāo)題（Caption）顯示的位置，默認(rèn)控件按鈕在左邊，標(biāo)題顯示在右邊，值為0；反之值為1(3)Value屬性用來(lái)檢查單選按鈕和復(fù)選框是否被選定。對(duì)于單選按鈕，屬性值為T(mén)rue表示被選定，F(xiàn)alse是缺省值，表示未被選定；復(fù)選框用屬性值0、1、2分別表示未選定、選定和灰色（不允許選）

(4)單選按鈕和復(fù)選框的主要事件是Click事件。

2、框架

(1)主要作用是將其他控件組合在一起，對(duì)一個(gè)窗體中的各種功能進(jìn)行分類，便于識(shí)別。(2)當(dāng)用框架將一個(gè)窗體上的單選按鈕分組后，在一組中單選按鈕進(jìn)行的操作不會(huì)影響到其他組的選擇。

(3)主要屬性是Caption，當(dāng)該屬性為空時(shí)，為封閉框架。(4)框架一般不需要編寫(xiě)事件過(guò)程。

3、列表框和組合框

(1)列表框（對(duì)于初學(xué)者來(lái)說(shuō)，使用起來(lái)不太順手，這里簡(jiǎn)單說(shuō)明一下）

列表框控件，用于顯示項(xiàng)目列表，用戶可從中選擇一個(gè)或多個(gè)項(xiàng)目。1）屬性

A.List：字符型數(shù)組，存放列表框的項(xiàng)目，下標(biāo)是從0開(kāi)始的。

屬性窗口添加選項(xiàng)，輸入下一項(xiàng)時(shí)，按“Ctrl+Enter”；

在程序中設(shè)置或引用時(shí)：列表框名.List（Index）。

例如：List1.List(0)=“北京”

B.ListIndex：整數(shù)，表示執(zhí)行時(shí)，選中的列表項(xiàng)的序號(hào)，沒(méi)有項(xiàng)目選中時(shí)為-1。只能在程序中設(shè)置或引用。例如：選擇“北京”，顯示在文本框中，則Text1.text=List1.List(List1.ListIndex)C.ListCount：整數(shù)，表示項(xiàng)目的數(shù)量，ListCount-1是最后一項(xiàng)的下標(biāo)。只能在程序中設(shè)置或引用。

D.Selected 屬性，該屬性返回或設(shè)置列表框控件中的一個(gè)項(xiàng)目的選擇狀態(tài)，邏輯型，只能在程序中設(shè)置或引用。

例如：List1.Selected（0）=True E.Text：被選中的列表項(xiàng)的文本內(nèi)容，只能在程序中設(shè)置或引用。

List1.List(List1.ListIndex)=List1.Text 2）方法

舉例說(shuō)明： List1.AddItem “沈陽(yáng)”，4

‘ 在第4項(xiàng)后插入“沈陽(yáng)” List1.AddItem “沈陽(yáng)”

‘ 在最后出入“沈陽(yáng)” List1.RemoveItem 4

‘ 刪除第5項(xiàng)內(nèi)容 List1.Clear

‘ 刪除所有項(xiàng)目 3）Click，DblClick事件

Click事件，自動(dòng)改變列表框ListIndex、Selected、Text等屬性，無(wú)需另行編寫(xiě)代碼。

1(2)組合框：一種同時(shí)具有文本框和列表框特性的控件?？梢赃x擇項(xiàng)目，也可以輸入項(xiàng)目。Style屬性，用以確定組合框的形式。設(shè)置值可為0，1或2，決定組合框的三種形式。

Style = 0時(shí)，可以編輯項(xiàng)目，響應(yīng)Click，Change和Dropdown事件；

Style = 1時(shí)，可以編輯項(xiàng)目，響應(yīng)Click，DblClick和Change事件；

Style = 2時(shí)，不可以編輯項(xiàng)目，響應(yīng)Click．和Dropdown事件。

說(shuō)明：Change事件：文本框內(nèi)容改變時(shí)觸發(fā)。

DropDown事件：?jiǎn)螕粝吕^時(shí)觸發(fā)。

4、滾動(dòng)條

(1)水平和垂直兩種，可以作輸入數(shù)據(jù)的工具，也可用來(lái)觀察數(shù)據(jù)或確定位置。

(2)常用屬性：Max、Min、Value、SmallChange和LargeChange(3)事件：Change和Scroll。

5、時(shí)鐘控件

按一定時(shí)間間隔（Interval）產(chǎn)生一個(gè)計(jì)時(shí)器（Timer）事件的控件。常用屬性：Interval，以0.001秒為單位。事件：Timer。

【實(shí)驗(yàn)步驟】

1．設(shè)計(jì)一個(gè)調(diào)色板應(yīng)用程序。使用三個(gè)滾動(dòng)條作為三種基本顏色的輸入工具，合成的顏色顯示再右邊的顏色區(qū)中。當(dāng)完成調(diào)色后，用兩個(gè)命令按鈕設(shè)置右下文本框的前景和背景顏色。如圖所示。

1）設(shè)計(jì)界面：添加控件及其屬性

需要3個(gè)滾動(dòng)條，2個(gè)命令按鈕，3個(gè)標(biāo)簽，2個(gè)文本框

窗體的Font屬性設(shè)為小四號(hào)字，加粗（這樣加載到窗體的控件也是小四號(hào)字，加粗）滾動(dòng)條（HScroll），Max值設(shè)為255，Min值設(shè)為0，SmallChange為1，LargeChange為25。其他的控件屬性請(qǐng)按下圖。

2）編寫(xiě)代碼。

3）運(yùn)行：調(diào)整各個(gè)控件，使結(jié)果如例圖。并保存。

2．設(shè)計(jì)一個(gè)計(jì)時(shí)器如圖所示。如：在單選按鈕處選擇1分鐘，在單擊“開(kāi)始”按鈕后，開(kāi)始計(jì)時(shí)，同時(shí)標(biāo)簽中顯示“計(jì)時(shí)開(kāi)始！”；當(dāng)?shù)竭x擇的時(shí)間后停止計(jì)時(shí)，在標(biāo)簽中顯示“時(shí)間到！”。默認(rèn)運(yùn)行的時(shí)間選擇為1分鐘。

1)界面設(shè)計(jì)，控件屬性

1個(gè)標(biāo)簽，一個(gè)命令按鈕，一個(gè)框架，1個(gè)時(shí)鐘 一組單選按鈕（3個(gè)），這個(gè)是單選按鈕的控件組（要用復(fù)制粘貼，控件組名稱都相同，Index

分別是0,1,2,）屬性設(shè)置

時(shí)鐘Timer1的Interval屬性設(shè)為1000 其他屬性按圖設(shè)置。

2)程序代碼

3.設(shè)計(jì)一個(gè)能定時(shí)的鬧鐘(因?yàn)樵O(shè)置關(guān)系可能聽(tīng)不到聲音，但我在家里運(yùn)行時(shí)聽(tīng)到了)1）控件： 5個(gè)標(biāo)簽，其中Label 1用來(lái)顯示當(dāng)前時(shí)間，BorderStyle為1 2個(gè)文本框，2個(gè)命令按鈕，1個(gè)時(shí)鐘，其中Interval屬性設(shè)為1000。

2）程序代碼（Time函數(shù)是當(dāng)前時(shí)間，Beep是響鈴，字符串提取Mid(string, start[, length])）

4.建立列表框，在列表框中有8個(gè)學(xué)生的姓名（其中要有4名學(xué)生的姓名通過(guò)AddItem方法添加），當(dāng)選定學(xué)生的姓名后選擇“顯示學(xué)生籍貫”按鈕，或雙擊姓名，都可在文本框上顯示該學(xué)生的籍貫。

1)控件：一個(gè)列表框，一個(gè)文本框、一個(gè)命令按鈕和標(biāo)簽

屬性窗口：列表框的list屬性中輸入 李寧 張偉 王春華 關(guān)紅梅

5.在窗體上繪圖，如圖所示。

Form_Paint是窗體重繪事件，窗體改變大小等都會(huì)觸發(fā)

每改變一次窗體大小，所繪制的圖如下，在Form_Paint事件中編寫(xiě)程序代碼。

窗體坐標(biāo)系左上角(-300, 200)，右下角(300,-200)，所繪圖都以原點(diǎn)為中心，園半徑為100，直線和正方形右上角（點(diǎn)）坐標(biāo)為（100,100）。

程序代碼

運(yùn)行出結(jié)果后，可以將代碼中畫(huà)圖的一些參數(shù)改變一下，再運(yùn)行看結(jié)果

如：Case 4 Circle(0,0),100,Rgb(0,255,0),-0.9,-2.3 這樣就可以出現(xiàn)綠色的扇形了。

第二篇：vb實(shí)驗(yàn)教案 -

實(shí)驗(yàn)一 VB集成開(kāi)發(fā)環(huán)境和簡(jiǎn)單程序設(shè)計(jì)

一、本次課主要內(nèi)容

1． 練習(xí)Visual Basic6.0的安裝與重新安裝。2． 啟動(dòng)和退出Visual Basic 6.0。3． 認(rèn)識(shí)VB6.0的工作界面。

4． 編寫(xiě)顯示“歡迎使用Visual Basic6.0”的窗體程序。

P 1 5． 按照Visual Basic編寫(xiě)程序的基本步驟建立一個(gè)用于“商品銷(xiāo)售計(jì)劃”的窗體程序。

二、教學(xué)目的與要求 1．熟悉VB6.0的安裝；

2．學(xué)習(xí)怎樣啟動(dòng)和退出Visual Basic；

3．熟悉Visual Basic的工作環(huán)境，為以后的程序設(shè)計(jì)作好準(zhǔn)備； 4．理解Visual Basic中對(duì)象和類的概念。5．學(xué)習(xí)用屬性窗口設(shè)置對(duì)象屬性的方法。

6．初步學(xué)習(xí)在代碼編輯器中輸入程序代碼的基本操作。7．基本掌握用Visual Basic編寫(xiě)程序的基本步驟。8．了解Visual Basic聯(lián)機(jī)幫助的使用方法。

三、教學(xué)重點(diǎn)難點(diǎn) VB語(yǔ)言程序的上機(jī)步驟

四、教學(xué)方法和手段 實(shí)驗(yàn)室機(jī)房電腦上機(jī)

五、作業(yè)與習(xí)題布置

1.撰寫(xiě)實(shí)驗(yàn)報(bào)告，寫(xiě)出所有的方法，要有詳細(xì)的操作步驟； 2.預(yù)習(xí)并思考實(shí)驗(yàn)2。

實(shí)驗(yàn)一 VB集成開(kāi)發(fā)環(huán)境和簡(jiǎn)單程序設(shè)計(jì)

1． Visual Basic 6.0有多種類型的窗口，若想在設(shè)計(jì)時(shí)看到代碼窗口，如何操作？

2． 如何使各窗口顯示或不顯示？ 3． 如何對(duì)工具箱添加選項(xiàng)卡？

4．當(dāng)建立好一個(gè)簡(jiǎn)單的應(yīng)用程序后，假定該工程僅有一個(gè)窗體模塊。問(wèn)該工程涉及到多少個(gè)文件要保存？若要保存該工程中的所有文件，正確的操作應(yīng)先保存什么文件？再保存什么文件？若不這樣做，系統(tǒng)會(huì)出現(xiàn)什么信息？

5．在窗體上畫(huà)一個(gè)命令按鈕，然后通過(guò)屬性窗口設(shè)置下列屬性： Caption：這是命令按鈕 Font：宋體 粗體 三號(hào) Visible：False Style：1-Graphical

6、參考實(shí)驗(yàn)教材“實(shí)驗(yàn)一”和“實(shí)驗(yàn)二”的實(shí)驗(yàn)過(guò)程編寫(xiě)程序。

P 2

教學(xué)后記：

實(shí)驗(yàn)二 順序結(jié)構(gòu)程序設(shè)計(jì)

一、本次課主要內(nèi)容

1.實(shí)驗(yàn)Visual Basic中三種除法運(yùn)算符（/、、Mod）的區(qū)別。2．掌握表達(dá)式的書(shū)寫(xiě)，并能閱讀出表達(dá)式的運(yùn)行結(jié)果。3．設(shè)計(jì)一個(gè)簡(jiǎn)單的計(jì)數(shù)器。

二、教學(xué)目的與要求

1．掌握Visual Basic數(shù)據(jù)類型的基本概念。2．掌握變量，常量的定義規(guī)則。

3．掌握Visual Basic各種運(yùn)算符的功能及表達(dá)式的構(gòu)成和求值方法。4．掌握Visual Basic的基本語(yǔ)句。

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

VB的各種運(yùn)算符的功能及表達(dá)式的構(gòu)成

四、教學(xué)方法和手段 實(shí)驗(yàn)室機(jī)房電腦上機(jī)

五、作業(yè)與習(xí)題布置

1.撰寫(xiě)實(shí)驗(yàn)報(bào)告，寫(xiě)出所有的方法，要有詳細(xì)的操作步驟； 2.預(yù)習(xí)并思考實(shí)驗(yàn)3。

P 3

實(shí)驗(yàn)二 順序結(jié)構(gòu)程序設(shè)計(jì)

1．實(shí)驗(yàn)Visual Basic中三種除法運(yùn)算符（/、、Mod）的區(qū)別。按以下步驟執(zhí)行：

P 4（1）在窗體上畫(huà)5個(gè)標(biāo)簽、5個(gè)文本框和一個(gè)命令按鈕。5個(gè)標(biāo)簽的標(biāo)題分別為：“被除數(shù)”、“除數(shù)”、“浮點(diǎn)除（/）”、“整數(shù)除（）”和“余數(shù)除（Mod）”，把5個(gè)文本框清為空白，把命令按鈕的標(biāo)題設(shè)置為“執(zhí)行除法運(yùn)算”，如圖6所示。

圖6

除法運(yùn)算符實(shí)驗(yàn)（界面設(shè)計(jì)）

（2）編寫(xiě)命令按鈕的事件過(guò)程： Private Sub Command1_Click()Dim diviD, diviS As Single diviD = Val(Text1.Text)diviS = Val(Text2.Text)Text3.Text = Str(diviD / diviS)Text4.Text = Str(diviD diviS)Text5.Text = Str(diviD Mod diviS)End Sub

（3）按F5或單擊工具欄上的“啟動(dòng)”按鈕運(yùn)行程序，在第一個(gè)文本框中輸入被除數(shù)，在第二個(gè)文本框中輸入除數(shù)，然后單擊命令按鈕，即可得到三種不同的相除結(jié)

果。例如，在第一、第二個(gè)文本框中分別輸入124和3，然后單擊命令按鈕，結(jié)果如圖7所示。

P 5

圖7

除法運(yùn)算符試驗(yàn)（運(yùn)行情況）

2．先用手工計(jì)算下列表達(dá)式的值，然后在立即窗口中試驗(yàn)這些表達(dá)式的輸出結(jié)果。

(1)8*3*62(2)7/6*3.2/2.15*(4.3+2.8)(3)344*4.0^3/1.6(4)653 Mod 2.6*Fix(3.7)(5)“abc” + “345” & “257”(6)279.37 + “0.63” = 280(7)4>8 And 4 = 5(8)True Or Not(8+3 >= 11)(9)8 > 4 Or 5 < 9(10)(True And False)Or(True Or False)3．設(shè)x,y,z均為布爾型變量，其值分別為： x=True Y=True Z=False 求下列表達(dá)式的值：

(1)x Or y And z(2)Not x And Not y(3)x Xor y Or z(4)Not x Eqv Not y(5)(Not y Or x)And(y Or z)(6)x Or Not y Imp z 要求：先手工計(jì)算，再上機(jī)驗(yàn)證。

教學(xué)后記：

P 6

實(shí)驗(yàn)三 選擇結(jié)構(gòu)程序設(shè)計(jì)

一、本次課主要內(nèi)容

1．編程求解一元二次方程的根。

2．按要求編寫(xiě)程序?qū)崿F(xiàn)稅務(wù)部門(mén)征收所得稅的納稅金額。

二、教學(xué)目的與要求

1.掌握邏輯表達(dá)式的正確書(shū)寫(xiě)形式。2.掌握單分支與多分支語(yǔ)句的使用。3.熟悉“選擇”結(jié)構(gòu)程序設(shè)計(jì)。

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

邏輯表達(dá)式的正確書(shū)寫(xiě)形式

四、教學(xué)方法和手段 實(shí)驗(yàn)室機(jī)房電腦上機(jī)

五、作業(yè)與習(xí)題布置

1.撰寫(xiě)實(shí)驗(yàn)報(bào)告，寫(xiě)出所有的方法，要有詳細(xì)的操作步驟； 2.預(yù)習(xí)并思考實(shí)驗(yàn)4。

P 7

實(shí)驗(yàn)三 選擇結(jié)構(gòu)程序設(shè)計(jì)

1．求解一元二次方程的根。

2．稅務(wù)部門(mén)征收所得稅，規(guī)定如下：（1）收入在800元以內(nèi)，免征；

（2）收入在800~1000元以內(nèi)，超過(guò)200元的部分納稅5%；（3）收入在1000~2000元以內(nèi)，超過(guò)1000元的部分，納稅8%；（4）當(dāng)收入達(dá)到2000元或超過(guò)時(shí)，納稅10%； 編程實(shí)現(xiàn)上述操作。（1）編寫(xiě)程序代碼：

（2）程序運(yùn)行

程序運(yùn)行后，單擊窗體，在輸入對(duì)話框中輸入收入數(shù)，程序?qū)⑤敵黾{稅金額。例如輸入1560，運(yùn)行情況如圖30所示。

P 8

圖30 納稅運(yùn)行情況

3．輸入x、y、z三個(gè)數(shù)，按從大到小的次序顯示。要求：對(duì)輸入數(shù)據(jù)應(yīng)有測(cè)試手段，可以通過(guò)IsNumeric函數(shù)對(duì)文本框中的數(shù)進(jìn)行測(cè)試。若輸入的數(shù)有非數(shù)字字符，顯示“不能轉(zhuǎn)換成數(shù)值”，提示再輸入。當(dāng)輸入的三個(gè)數(shù)全部都是數(shù)字字符后再轉(zhuǎn)換成數(shù)值型，然后進(jìn)行大小比較。

4．某市公用電話收費(fèi)標(biāo)準(zhǔn)如下：市話通話時(shí)間在3分鐘以下，收費(fèi)0.50元；3分鐘以上，則每超過(guò)1分鐘加收0.15元；在7:00-19:00之間通話者，按上述收費(fèi)標(biāo)準(zhǔn)全價(jià)收費(fèi)；在其他時(shí)間通話者一律接收費(fèi)標(biāo)準(zhǔn)的半價(jià)收費(fèi)。試計(jì)算某人在T時(shí)間通話S分鐘，應(yīng)繳多少電話費(fèi)。

5．設(shè)在窗體上已經(jīng)建立一個(gè)文本框Text1，兩個(gè)命令按鈕Commmand1和Command2，說(shuō)明執(zhí)行以下語(yǔ)句后，各控件將顯示什么內(nèi)容？

Text1.Text = Command1.Caption Command1.Caption = Command2.Caption Command2.Caption = Text1.Text Text1.Text = Command1.Caption & Command2.Caption 6．下面程序段的輸出是什么？

（1）If(2 * 2 = 5)<(2 * 2 = 4)Then Print “True is greater then false.” Else Print “False is greater then true.” End If（2）a = 0 If a > = 7 Then a = 1 Print “Watch Out”, a End If（3）a = 0 If a > = 7 Then a = 1 End If Print “Watch Out”, a

P 9 教學(xué)后記：

實(shí)驗(yàn)四 循環(huán)結(jié)構(gòu)程序設(shè)計(jì)

P 10

一、本次課主要內(nèi)容 1．計(jì)算階乘。

2．編程實(shí)現(xiàn)勾股定理中三個(gè)數(shù)的關(guān)系是a2＋b2 = c2。3．編程求完全數(shù)。

二、教學(xué)目的與要求

1.熟悉分支轉(zhuǎn)移結(jié)構(gòu)程序設(shè)計(jì)，靈活使用有關(guān)語(yǔ)句。2.熟悉循環(huán)結(jié)構(gòu)程序設(shè)計(jì)，靈活使用各種循環(huán)語(yǔ)句。3.能夠正確閱讀嵌套循環(huán)，及正確使用嵌套循環(huán)。

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

循環(huán)結(jié)構(gòu)程序設(shè)計(jì)及相關(guān)語(yǔ)句的用法

四、教學(xué)方法和手段 實(shí)驗(yàn)室機(jī)房電腦上機(jī)

五、作業(yè)與習(xí)題布置

1.撰寫(xiě)實(shí)驗(yàn)報(bào)告，寫(xiě)出所有的方法，要有詳細(xì)的操作步驟； 2.預(yù)習(xí)并思考實(shí)驗(yàn)5。

實(shí)驗(yàn)四 循環(huán)結(jié)構(gòu)程序設(shè)計(jì)

P 11 1.計(jì)算階乘

2．勾股定理中三個(gè)數(shù)的關(guān)系是a2＋b2 = c2。編寫(xiě)程序，輸出30以內(nèi)滿足上述關(guān)系的整數(shù)組合，例如3，4，5就是一個(gè)整數(shù)組合。

（1）編寫(xiě)程序

（2）程序運(yùn)行后，單擊窗體，將輸出30以內(nèi)滿足關(guān)系的整數(shù)a，b，c的組合，同時(shí)顯示相應(yīng)的a*a，b*b，c*c，結(jié)果如圖36所示。

圖36

程序執(zhí)行結(jié)果

3．如果一個(gè)數(shù)的因子（不包括本身）之和等于這個(gè)數(shù)本身，則稱這樣的數(shù)為“完全數(shù)”。例如，整數(shù)28的因子為1，2，4，7，14，其和1＋2＋4＋7＋14 = 28，因此28是一個(gè)完全數(shù)。試編寫(xiě)一個(gè)程序，從鍵盤(pán)上輸出正整數(shù)N和M，輸出N和M之間的所有完全數(shù)。

程序如下：

程序運(yùn)行后，單擊窗體，在兩個(gè)輸入對(duì)話框中分別輸入N 和M的值，即可輸出N和M之間的“完全數(shù)”。假定輸入的N和M的值分別為2和1000，則結(jié)果如圖37所示。

P 12

程序執(zhí)行結(jié)果

4．編程計(jì)算由下列公式確定的s值，其中n是用戶輸入的正整數(shù)，注意選用合適的變量類型。

（1）s = 12 + 22 + 32 + ? + n2（2）s = 11×22×33×?×nn（3）s = 1 + 1×2 + 1×2×3 + ? + 1×2×3×?×n 5．用While?Wend語(yǔ)句計(jì)算2n，請(qǐng)嘗試用不同形式的Do?Loop語(yǔ)句和For?Next語(yǔ)句重寫(xiě)該程序。

教學(xué)后記：

實(shí)驗(yàn)五 VB的常用控件

一、本次課主要內(nèi)容

1．設(shè)置文本框Text1中內(nèi)容的字體、字型和顏色。

2．如果單擊“添加”按鈕，就將在文本框和組合框中輸入或選擇的內(nèi)容插入空格后連接成一個(gè)字符串添加到List1中；如果單擊“去除”按鈕，就將List1中選中的項(xiàng)刪除；如果單擊“清空”按鈕，就將List1中所有的項(xiàng)目全部刪除。

3．將定時(shí)器計(jì)時(shí)開(kāi)始后度過(guò)的總秒數(shù)換算為時(shí)、分、秒(取2位小數(shù))顯示。4．將復(fù)選框的選中狀態(tài)（Value屬性值）轉(zhuǎn)換為邏輯值后賦值給圖片框的AutoSize屬性，決定圖片框是否自動(dòng)改變大小以顯示全部圖形；將復(fù)選框的選中狀態(tài)（Value屬性值）轉(zhuǎn)換為邏輯值后賦值給圖像框的Stretcch屬性，決定圖形是否自動(dòng)縮放以適應(yīng)圖像框大小。

二、教學(xué)目的與要求

1.掌握單選按鈕、復(fù)選框和框架的使用方法。2.掌握列表框控件和組合框控件的使用方法。3.掌握時(shí)鐘控件的使用方法。

4.掌握?qǐng)D片框控件和圖像框控件的使用方法。

三、教學(xué)重點(diǎn)難點(diǎn) 常用控件的使用方法

四、教學(xué)方法和手段 實(shí)驗(yàn)室機(jī)房電腦上機(jī)

五、作業(yè)與習(xí)題布置

1.撰寫(xiě)實(shí)驗(yàn)報(bào)告，寫(xiě)出所有的方法，要有詳細(xì)的操作步驟； 2.預(yù)習(xí)并思考實(shí)驗(yàn)6。

P 13

P 14

實(shí)驗(yàn)五 VB的常用控件

1．設(shè)計(jì)界面（程序一到四）2．設(shè)置屬性 3．編寫(xiě)程序代碼 4.調(diào)試運(yùn)行 第一題：

運(yùn)行結(jié)果：

第二題：

運(yùn)行結(jié)果：

P 15

第四題：

運(yùn)行結(jié)果：

5.利用時(shí)鐘控件和圖像控件編寫(xiě)一個(gè)自動(dòng)紅綠燈模擬程序。要求在晚上21:00到早晨7:00全亮，其余時(shí)間紅、黃、綠燈自動(dòng)切換。

教學(xué)后記：

實(shí)驗(yàn)六 數(shù)組

一、本次課主要內(nèi)容

1.定義一個(gè)固定大小的一維數(shù)組，并為數(shù)組元素賦值，最后將數(shù)組元素輸出到窗體上。

P 16 2.請(qǐng)編寫(xiě)程序，完成將一個(gè)6×8的矩陣分別按行和列的順序放到一維數(shù)組中。3.隨機(jī)產(chǎn)生10個(gè)數(shù)，按升序（降序）排列輸出

二、教學(xué)目的與要求 1.掌握數(shù)組的基本概念。2.掌握數(shù)組的聲明、應(yīng)用。3.掌握控件數(shù)組。

4.掌握如何利用數(shù)組解決與數(shù)組相關(guān)的常用算法（特別是排序算法）。

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

利用數(shù)組解決與數(shù)組相關(guān)的常用算法

四、教學(xué)方法和手段 實(shí)驗(yàn)室機(jī)房電腦上機(jī)

五、作業(yè)與習(xí)題布置

1.撰寫(xiě)實(shí)驗(yàn)報(bào)告，寫(xiě)出所有的方法，要有詳細(xì)的操作步驟； 2.預(yù)習(xí)并思考實(shí)驗(yàn)7。

實(shí)驗(yàn)六 數(shù)組

第一題：

P 17

Dim a(0 To 9)As Integer '定義一個(gè)大小為10的整形數(shù)組 '數(shù)組賦值命令按鈕事件過(guò)程 Private Sub Command1_Click()For i = 0 To 9 a(i)= Int(InputBox(“請(qǐng)輸入數(shù)組元素” & i + 1 & “/” & “10”, “數(shù)組賦值”))Next i End Sub '顯示數(shù)組元素命令按鈕事件過(guò)程 Private Sub Command2_Click()For i = 0 To 9 Print a(i)Next i End Sub

第二題： Option Base 1 Dim a%(6, 8), b%(), c%()'定義一個(gè)二維數(shù)組(6x8)和兩個(gè)動(dòng)態(tài)數(shù)組 '將二維數(shù)組按行存儲(chǔ)到一維數(shù)組b中 Private Sub Command1_Click()k = 1 For i = LBound(a, 1)To UBound(a, 1)For j = LBound(a, 2)To UBound(a, 2)

b(k)= a(i, j): k = k + 1 Next j Next i Text2.Text = “" '將按行存放后的一維數(shù)組b的元素顯示到文本框中 For i = LBound(b)To UBound(b)Text2.Text = Text2.Text & Format(b(i), ”@@@@“)Next i End Sub '將二維數(shù)組按列存儲(chǔ)到一維數(shù)組c中 Private Sub Command2_Click()k = 1 For j = LBound(a, 2)To UBound(a, 2)For i = LBound(a, 1)To UBound(a, 1)c(k)= a(i, j): k = k + 1 Next i Next j Text3.Text = ”“ '將按列存放后的一維數(shù)組c的元素顯示到文本框中 For i = LBound(c)To UBound(c)Text3.Text = Text3.Text & Format(c(i), ”@@@@“)Next i End Sub '窗體載入事件過(guò)程 Private Sub Form_Load()Text1.Text = ”“: Text2.Text = ”“: Text3.Text = ”“ '二維數(shù)組初始化

For i = LBound(a, 1)To UBound(a, 1)For j = LBound(a, 2)To UBound(a, 2)

P 18

a(i, j)= Int(90 * Rnd)X)*(pz))End Sub Private Sub cmdJs_Click()Dim a!, b!, c!, w!a = Val(txtA.Text)b = Val(txtB.Text)c = Val(txtC.Text)If a > b + c Or b > a + c Or c > a + b Then MsgBox ”輸入的三條邊不能構(gòu)成一個(gè)三角形！" Else Call area(a, b, c, w)txtMj.Text = Str(w)End If End Sub 第二題：

P 23

Private Function gcd(ByVal x As Integer, ByVal y As Integer)As Integer Dim r As Integer r = x Mod y Do While r <> 0 x = y y = r r = x Mod y Loop gcd = y End Function Private Sub Command1_Click()Dim a As Integer, b As Integer a = Val(Text1.Text): b = Val(Text2.Text)x = gcd(a, b)Text3.Text = x End Sub

第三題：

Private Function prime(x)As Boolean If x < 2 Then prime = False Exit Function

End If For i = 2 To Sqr(x)If x Mod i = 0 Then prime = False Exit Function End If Next prime = True End Function

Private Sub Form_Click()For a = 200 To 1000-2 b = a + 2 If prime(a)And prime(b)Then Debug.Print a, b c = a + b End If Next Print c End Sub

教學(xué)后記：

P 24

P 25

實(shí)驗(yàn)八 等級(jí)考試專題及考查

一、本次課主要內(nèi)容

進(jìn)行一次等級(jí)考試的模擬測(cè)試。

二、教學(xué)目的與要求

1.熟悉等級(jí)考試中程序題的答題過(guò)程。

2.掌握利用VB內(nèi)部函數(shù)、表達(dá)式、控制結(jié)構(gòu)等知識(shí)進(jìn)行較復(fù)雜的編程。

三、教學(xué)重點(diǎn)難點(diǎn) 等級(jí)考試的復(fù)雜題型

四、教學(xué)方法和手段 實(shí)驗(yàn)室機(jī)房電腦上機(jī)

五、作業(yè)與習(xí)題布置

1.認(rèn)真完成和按時(shí)提交考查任務(wù)；

2.自行復(fù)習(xí)，準(zhǔn)備下學(xué)期初的國(guó)二VB考試。

實(shí)驗(yàn)八 等級(jí)考試專題及考查

P 26 1．登陸等級(jí)考試系統(tǒng)，選做VB的基礎(chǔ)知識(shí)和程序題（包括程序改錯(cuò)，程序填空、程序設(shè)計(jì)）

2.每個(gè)同學(xué)都把自己等級(jí)考試中隨機(jī)抽到的題目抄寫(xiě)下來(lái)，互相傳閱，最后把不同類型的題目做個(gè)歸納總結(jié)。

教學(xué)后記：

第三篇：VB大實(shí)驗(yàn)[范文]

綜 合 性 實(shí)

實(shí) 驗(yàn) 名 稱: 通訊錄管理系統(tǒng)

專 業(yè) 班 級(jí): 數(shù)字1201班

學(xué) 生 姓 名:馬曉軍

學(xué) 號(hào)：201225070125 指 導(dǎo) 教 師：王云俠

驗(yàn) 需求分析：

通訊錄管理系統(tǒng)是針對(duì)系統(tǒng)服務(wù)對(duì)象的具體要求設(shè)計(jì)的，能夠輸入所有人員的

相關(guān)信息，實(shí)現(xiàn)人員的分類管理和查詢。主要設(shè)計(jì)了以下幾大功能：(1)新建、修改、刪除通訊錄記錄(2)能根據(jù)姓名進(jìn)行模糊查詢(3)能根據(jù)電話查詢某人(4)方便的瀏覽逐條記錄 運(yùn)行環(huán)境：

WINDOWS XP系統(tǒng)；VB6.0 3開(kāi)發(fā)工具和編程語(yǔ)言：

Visual Basic6.0語(yǔ)言 4 系統(tǒng)設(shè)計(jì)

1.在下面窗口實(shí)現(xiàn)信息的瀏覽，新建，刪除以及修改，按確定執(zhí)行操作，按取消則放棄操作。

系統(tǒng)主窗體

代碼：

Private Sub CmdAdd_Click()Adodc1.Recordset.AddNew CmdAdd.Enabled = False CmdDel.Enabled = False CmdChange.Enabled = False CmdOk.Enabled = True CmdEsc.Enabled = True CmdFirst.Enabled = True CmdPre.Enabled = True CmdNext.Enabled = False CmdLast.Enabled = False Text1.Locked = False Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False Text6.Locked = False Text7.Locked = False Text8.Locked = False Text1.SetFocus Label9.Caption = “記錄：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount

End Sub Private Sub CmdChange_Click()CmdAdd.Enabled = False CmdDel.Enabled = False CmdChange.Enabled = False CmdOk.Enabled = True CmdEsc.Enabled = True Text1.Locked = False Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False Text6.Locked = False Text7.Locked = False Text8.Locked = False Text1.SetFocus Label9.Caption = “記錄：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub Private Sub CmdDel_Click()x = MsgBox(“確定要?jiǎng)h除當(dāng)前記錄嗎？”, vbYesNo + vbQuestion, “確認(rèn)”)If x = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else Adodc1.Refresh End If Label9.Caption = “記錄：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub

Private Sub CmdEsc_Click()Adodc1.Refresh

CmdAdd.Enabled = True CmdDel.Enabled = True CmdChange.Enabled = True CmdOk.Enabled = False CmdEsc.Enabled = False Label9.Caption = “記錄：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub Private Sub CmdFind_Click()Form2.Show

End Sub Private Sub CmdFirst_Click()Adodc1.Recordset.MoveFirst CmdFirst.Enabled = False CmdPre.Enabled = False CmdNext.Enabled = True CmdLast.Enabled = True Label9.Caption = “記錄：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub Private Sub CmdLast_Click()Adodc1.Recordset.MoveLast CmdFirst.Enabled = True CmdPre.Enabled = True CmdNext.Enabled = False CmdLast.Enabled = False Label9.Caption = “記錄：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub Private Sub CmdN_Click()Dim n As Integer n = Text9.Text Adodc1.Recordset.Move n Label9.Caption = “記錄：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub Private Sub CmdNext_Click()Adodc1.Recordset.MoveNext CmdFirst.Enabled = True CmdPre.Enabled = True If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast CmdNext.Enabled = False CmdLast.Enabled = False End If

Label9.Caption = “記錄：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub

Private Sub CmdOk_Click()Adodc1.Recordset.Update CmdAdd.Enabled = True CmdDel.Enabled = True CmdChange.Enabled = True CmdOk.Enabled = False CmdEsc.Enabled = False Text1.Locked = True Text2.Locked = True

Text3.Locked = True Text4.Locked = True Text5.Locked = True Text6.Locked = True Text7.Locked = True Text8.Locked = True Label9.Caption = “記錄：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub Private Sub CmdPre_Click()Adodc1.Recordset.MovePrevious CmdNext.Enabled = True CmdLast.Enabled = True If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst CmdFirst.Enabled = False CmdPre.Enabled = False End If Label9.Caption = “記錄：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub Private Sub Form_Load()CmdFirst.Enabled = False CmdPre.Enabled = False CmdNext.Enabled = True CmdLast.Enabled = True CmdAdd.Enabled = True CmdDel.Enabled = True CmdChange.Enabled = True CmdOk.Enabled = False CmdEsc.Enabled = False Label9.Caption = “記錄：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub 2.選擇要查詢的條件，輸入查詢的信息，按下查詢按鈕即可顯示查詢結(jié)果，按下返回按鈕返回上級(jí)窗口。

查詢界面窗體

代碼：

Private Sub CmdBack_Click()Form1.Show Unload Me End Sub Private Sub CmdFind_Click()Dim str As String str = “ Select * From person ”

str = str & “Where person.” & Combo1.Text & “ Like '” & Text1 & “% '” Adodc1.RecordSource = str Adodc1.Refresh End Sub Private Sub Form_Load()Combo1.AddItem “姓” Combo1.AddItem “名” Combo1.AddItem “手機(jī)” Combo1.AddItem “地址” Combo1.AddItem “公司” Combo1.AddItem “所在組” Text1.Text = "" End Sub 5 系統(tǒng)運(yùn)行及測(cè)試；參考文獻(xiàn);

[1]龔培曾，楊志強(qiáng)Visual Basic程序設(shè)計(jì)教程（第3版），高等教育出版社，2001/12 7心得體會(huì)：

1.VB程序設(shè)計(jì)本身并不復(fù)雜,翻開(kāi)一本程序設(shè)計(jì)學(xué)習(xí)的書(shū)籍,看到的無(wú)非就是變量,函數(shù),條件語(yǔ)句,循環(huán)語(yǔ)句等概念.但要真正能進(jìn)行程序設(shè)計(jì),需要深入理解這些概念.因此,在程序入門(mén)階段還是應(yīng)該重視概念的學(xué)習(xí)、多請(qǐng)教老師、多與同學(xué)交流解決問(wèn)題的方法、多與他人進(jìn)行討論問(wèn)題，所有VB問(wèn)題都會(huì)弄懂的。

2.VB程序設(shè)計(jì)的入門(mén)學(xué)習(xí)并不難,但卻是一個(gè)十分重要的過(guò)程,因?yàn)槌绦蛟O(shè)計(jì)思想就在這時(shí)形成的,良好的程序設(shè)計(jì)習(xí)慣也在這個(gè)階段養(yǎng)成。

3.課前預(yù)習(xí),認(rèn)真聽(tīng)課并適當(dāng)做些筆記,課后要認(rèn)真復(fù)習(xí)消化所學(xué)內(nèi)容,完成作業(yè)。4.最后，本學(xué)期我VB程序設(shè)計(jì)能順利完成，我最要感謝的是我的王云俠老師，本身VB程序設(shè)計(jì)是很門(mén)讓人枯燥乏味的課程，而且讓我們感覺(jué)很難的課程；但是，值得我們幸運(yùn)的是，我們遇到一位頗有責(zé)任心、有耐心、講課通俗易懂的好老師——王老師，加上她平日的熱情、耐心認(rèn)真地指導(dǎo)；最終，使得我的通訊錄管理系統(tǒng)綜合實(shí)驗(yàn)很順利的完成了；更使我懂得了，只要認(rèn)真、用心、踏實(shí)地學(xué)習(xí)VB程序設(shè)計(jì)，我們一定會(huì)把VB學(xué)好的。

第四篇：電子商務(wù) ( 第3次 )[定稿]

第3次作業(yè)

一、填空題（本大題共40分，共 10 小題，每小題 4 分）1.是指計(jì)算機(jī)系統(tǒng)軟件或硬件方面出現(xiàn)問(wèn)題，導(dǎo)致計(jì)算機(jī)整個(gè)系統(tǒng)或某些軟件無(wú)法正常使用。

2.網(wǎng)絡(luò)店鋪是指一家企業(yè)開(kāi)設(shè)的網(wǎng)站，企業(yè)通過(guò)網(wǎng)站銷(xiāo)售________和________。

3.垂直B2B電子市場(chǎng)可以分為兩個(gè)方向，即________和________。

4.B2B電子商務(wù)從大的類別來(lái)說(shuō)可以分為兩大類：一類是 ________ ,另一類是________。

5.EDI就是按照商定的協(xié)議，將商業(yè)文件標(biāo)準(zhǔn)化和格式化，并通過(guò)計(jì)算機(jī)網(wǎng)絡(luò)，在貿(mào)易伙伴的計(jì)算機(jī)網(wǎng)絡(luò)系統(tǒng)之間進(jìn)行數(shù)據(jù)交換和自動(dòng)處理。俗稱“________”。

6.全球定位系統(tǒng)是一種基于________的跟蹤系統(tǒng)，據(jù)此能判斷GPS設(shè)備所在的位置。

7.電子商務(wù)通用交易過(guò)程包括：交易前的準(zhǔn)備、________、________、合同的履行和支付過(guò)程。

8.對(duì)于社交商務(wù)網(wǎng)站的攻擊一般指竊取和非法使用用戶的________，這些私密信息可能被直接使用，也可能被非法出售。

9.________是指原來(lái)從事目錄郵購(gòu)的企業(yè)，將產(chǎn)品發(fā)布方式轉(zhuǎn)移到互聯(lián)網(wǎng)成為電子零售商。

10.不管是網(wǎng)絡(luò)市場(chǎng)還是其他的各種市場(chǎng)都具有3大功能：________、促進(jìn)與交易相關(guān)的信息、商品、服務(wù)和資金的交換；提供________以提升市場(chǎng)效率。

二、名詞解釋題（本大題共42分，共 7 小題，每小題 6 分）1.商業(yè)模式

2.網(wǎng)絡(luò)零售商

3.第三方支付 4.支付接口

5.價(jià)值訴求

6.搜索引擎優(yōu)化

7.信息中介

三、簡(jiǎn)答題（本大題共18分，共 3 小題，每小題 6 分）1.簡(jiǎn)述電子商務(wù)安全管理制度的內(nèi)容。

2.簡(jiǎn)述第三方B2B電子商務(wù)平臺(tái)的特點(diǎn)。

3.簡(jiǎn)述社交購(gòu)物的主要模式。

答案：

一、填空題（40分，共 10 題，每小題 4 分）

1.參考答案：

系統(tǒng)故障

解題方案：

評(píng)分標(biāo)準(zhǔn)：

2.參考答案： 商品、服務(wù)

解題方案：

評(píng)分標(biāo)準(zhǔn)：

3.參考答案：

上游，下游

解題方案：

評(píng)分標(biāo)準(zhǔn)：

4.參考答案：

第三方B2B電子商務(wù)平臺(tái)，企業(yè)B2B電子商務(wù)平臺(tái)。

解題方案：

評(píng)分標(biāo)準(zhǔn)：

5.參考答案： 無(wú)紙化貿(mào)易

解題方案：

評(píng)分標(biāo)準(zhǔn)：

6.參考答案： 衛(wèi)星技術(shù)

解題方案：

評(píng)分標(biāo)準(zhǔn)：

7.參考答案：

交易磋商、簽訂合同與辦理手續(xù)

解題方案：

評(píng)分標(biāo)準(zhǔn)：

8.參考答案：

匹配買(mǎi)方和賣(mài)方、制度支持

解題方案：

評(píng)分標(biāo)準(zhǔn)：

9.參考答案： 郵購(gòu)商

解題方案：

評(píng)分標(biāo)準(zhǔn)：

10.參考答案：

匹配買(mǎi)方和賣(mài)方、制度支持 解題方案：

評(píng)分標(biāo)準(zhǔn)：

二、名詞解釋題（42分，共 7 題，每小題 6 分）

1.參考答案：

商業(yè)模式是指開(kāi)展商務(wù)活動(dòng)的方法，企業(yè)就此獲得利益，維持生存和發(fā)展。它另一層含義，那就是企業(yè)在一條價(jià)值鏈中處于什么地位。也就是說(shuō)，企業(yè)通過(guò)什么方式為產(chǎn)品或是服務(wù)提升價(jià)值。

解題方案：

評(píng)分標(biāo)準(zhǔn)：

2.參考答案：

網(wǎng)絡(luò)零售商是指在網(wǎng)絡(luò)上開(kāi)展零售業(yè)務(wù)的廠商。

解題方案：

評(píng)分標(biāo)準(zhǔn)：

3.參考答案：

第三方支付就是一些和國(guó)內(nèi)外各大銀行簽約、并具備一定實(shí)力和信譽(yù)保障的第三方獨(dú)立機(jī)構(gòu)提供的交易支持平臺(tái)。

解題方案：

評(píng)分標(biāo)準(zhǔn)：

4.參考答案：

支付接口就是第三方支付平臺(tái)提供的一段代碼，商務(wù)需要將該代碼配置到自己的服務(wù)器上去，并設(shè)置一些相關(guān)的接口參數(shù)。

解題方案：

評(píng)分標(biāo)準(zhǔn)：

5.參考答案：

企業(yè)從落實(shí)商業(yè)模式中可以得到的利益，這些利益包括無(wú)形的、難以量化的利益。

解題方案：

評(píng)分標(biāo)準(zhǔn)：

6.參考答案：

搜索引擎優(yōu)化，是通過(guò)對(duì)網(wǎng)站欄目結(jié)構(gòu)和網(wǎng)站內(nèi)容等基本要素的優(yōu)化設(shè)計(jì)，提高網(wǎng)站對(duì)搜索引擎的友好性，使得網(wǎng)站中盡可能多的網(wǎng)頁(yè)被搜索引擎收錄，并且在搜索結(jié)果中獲得好的排名效果，從而通過(guò)搜索引擎的自然檢索獲得盡可能多的潛在客戶。

解題方案：

評(píng)分標(biāo)準(zhǔn)：

7.參考答案：

在網(wǎng)絡(luò)世界有些中介專門(mén)提供信息或是控制信息。這樣的網(wǎng)絡(luò)中介稱為信息中介。信息通過(guò)信息中介在買(mǎi)賣(mài)雙方之間流動(dòng)。信息中介其實(shí)也是一種網(wǎng)站，它們收集巨量的信息，進(jìn)行加工整理，然后在提供信息的一方與需要信息的一方進(jìn)行撮合。

解題方案：

評(píng)分標(biāo)準(zhǔn)：

三、簡(jiǎn)答題（18分，共 3 題，每小題 6 分）

1.參考答案：

電子商務(wù)安全管理制度是用文字形式對(duì)各項(xiàng)安全要求所做的規(guī)定，它是保證企業(yè)電子商務(wù)取得成功的重要基礎(chǔ)，是企業(yè)電子商務(wù)人員安全工作的規(guī)范和準(zhǔn)則。企業(yè)在參與電子商務(wù)伊始，就應(yīng)當(dāng)形成一套完整的、適應(yīng)于網(wǎng)絡(luò)環(huán)境的安全管理制度。這些制度應(yīng)當(dāng)包括人員管理制度、保密制度、跟蹤審計(jì)制度、系統(tǒng)維護(hù)制度、數(shù)據(jù)備份制度、病毒定期清理制度等。

解題方案：

評(píng)分標(biāo)準(zhǔn)：

2.參考答案：

1.交易模式多樣化、交易撮合自動(dòng)化； 2.產(chǎn)品提供個(gè)性化、組合化； 3.發(fā)現(xiàn)買(mǎi)方與賣(mài)方的過(guò)程高效化； 4.價(jià)格發(fā)現(xiàn)動(dòng)態(tài)化、多樣化； 5.交易支持復(fù)雜化。

解題方案：

評(píng)分標(biāo)準(zhǔn)：

3.參考答案：

1.購(gòu)物推薦、購(gòu)物排名及評(píng)價(jià)； 2.團(tuán)購(gòu)；

3.購(gòu)物社區(qū)及購(gòu)物俱樂(lè)部； 4.購(gòu)物伙伴模式；

5.基于位置的購(gòu)物活動(dòng)。

解題方案：

評(píng)分標(biāo)準(zhǔn)：

第五篇：工作總結(jié).第3次

班長(zhǎng)工作總結(jié)

到今天，這個(gè)學(xué)期的工作告一段落了。當(dāng)了一個(gè)學(xué)期的班長(zhǎng)，有很多收獲和感慨。對(duì)這個(gè)學(xué)期的工作做一個(gè)總結(jié)，從學(xué)習(xí)，生活，工作三個(gè)方面。

在學(xué)習(xí)上我自認(rèn)為很慚愧，不如班上的很多同學(xué)。我們班有的是學(xué)霸，我們寢室就有兩個(gè)。雖然我的鬧鐘定的是早上6點(diǎn)半起床，但都會(huì)賴一會(huì)床，總會(huì)聽(tīng)到他們出門(mén)的聲音。據(jù)我所知，他們每天早上都會(huì)去晨讀，晚上還要鍛煉。堅(jiān)持了這么久的人，值得我們學(xué)習(xí)。我希望她們的堅(jiān)持可以帶動(dòng)更多的同學(xué)，學(xué)習(xí)和運(yùn)動(dòng)應(yīng)該是我們生活必須的一部分。到班上課的情況，在剛開(kāi)始的時(shí)候大家都保持的很好。大學(xué)生活剛開(kāi)始，每個(gè)人都充滿了期待和動(dòng)力，都會(huì)準(zhǔn)時(shí)來(lái)上課。在這里，要表?yè)P(yáng)我們的劉振鵬同學(xué)，他主要負(fù)責(zé)監(jiān)督同學(xué)到班上課的考勤。他能做到每天點(diǎn)名，作好記錄。到后來(lái)，有人翹課，曠課。主要是毛概和職業(yè)生涯規(guī)劃這兩門(mén)課程，有的人在點(diǎn)名后走了，上課的時(shí)候溜了，我都看的很清楚。不過(guò)，只是很多少一部分的人，而且這樣的情況不多，所以我只會(huì)發(fā)個(gè)短信詢問(wèn)一下。大學(xué)學(xué)習(xí)靠的是自覺(jué)和自律，我希望大家可以繼續(xù)保持我們的熱情和積極投入到學(xué)習(xí)中。

在生活上，我們舉辦了一系列的活動(dòng)。四次團(tuán)組織生活，團(tuán)課，男女混合籃球賽，年級(jí)羽毛球賽，元旦聯(lián)誼晚會(huì)。我想這些活動(dòng)最成功的是加強(qiáng)了班上同學(xué)的認(rèn)識(shí)和交流，給同學(xué)們展現(xiàn)自己的舞臺(tái)，鍛煉了自己的能力。當(dāng)然，一個(gè)活動(dòng)有成功的地方，也會(huì)有不足。有些安排沒(méi)有到位，同學(xué)們的需求不能滿足等等。感謝大家對(duì)我的包涵和支持，我會(huì)帶著這些寶貴經(jīng)驗(yàn)繼續(xù)前進(jìn)。

在生活上，我是一個(gè)很隨意很懶惰的人。甚至有點(diǎn)得過(guò)且過(guò)的感覺(jué)。但對(duì)待工作，我會(huì)很認(rèn)真的去完成我該做和能做的事情，有點(diǎn)好強(qiáng)吧。回想這個(gè)學(xué)期的工作，是個(gè)忙碌的過(guò)程，有很多很多的事情需要處理。但結(jié)果，我認(rèn)為還是不錯(cuò)的。希望能夠得到同學(xué)們的肯定。

我想用這幾個(gè)詞來(lái)形容我們班的班干部，負(fù)責(zé)，盡職，盡力，低調(diào)。每個(gè)班干部都知道自己的職責(zé)在哪，安排的工作都會(huì)很盡力的去完成，做好自己該做的事情就好了。給位組長(zhǎng)大人也很給力，時(shí)時(shí)幫助班長(zhǎng)的工作。寢室長(zhǎng)功不可沒(méi)，通知事情到位，積極參加活動(dòng)，雖然不算班干部，但你們履行了班干部的職責(zé)。這次晚會(huì)臺(tái)前和幕后都能看到班干部的聲影，如果沒(méi)有他們的付出，這次晚會(huì)也不會(huì)這么成功了。組織委員王尚昌的節(jié)目負(fù)責(zé)，前期工作幾乎都是他準(zhǔn)備的，找人，排節(jié)目。他的能力和表現(xiàn)值得我們學(xué)習(xí)。我們的副班長(zhǎng)劉振鵬，可以很放心的把事情交給他去辦，租衣服，音樂(lè)調(diào)控，他沒(méi)有說(shuō)半個(gè)不字。還有其他為這次晚會(huì)表演節(jié)目的同學(xué)，你們的付出得到觀眾的掌聲回報(bào)了。希望下次，我們能辦的更好。班委和同學(xué)們合作，需要磨合，需要溝通，需要理解，雖然有些不愉快，但我們收獲了經(jīng)驗(yàn)和教訓(xùn)。

雖然說(shuō)是金子總會(huì)發(fā)光的，但需要有個(gè)人去發(fā)現(xiàn)你??！班干部要為同學(xué)做實(shí)事，但并不是每件事情都能夠親力親為，我們的班干部少了一種主動(dòng)性，其實(shí)很多事情可以找同學(xué)幫忙的，大家團(tuán)結(jié)一起，可能會(huì)事半功倍。讓我們五班更加團(tuán)結(jié)吧！

如果下學(xué)期，我還是酒店管理的班長(zhǎng)，我會(huì)更加努力做好這份工作。

新的一年快要來(lái)臨，祝福大家新年快樂(lè)！

至此

14級(jí)酒店管理

吳術(shù)寶

2015年3月25日