第一篇：vb實驗教案(第3次)

實驗三 常用控件和窗體 【實驗目的】

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

【實驗內容】

1、單選按鈕和復選框

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

(2)Alignment屬性表示標題（Caption）顯示的位置，默認控件按鈕在左邊，標題顯示在右邊，值為0；反之值為1(3)Value屬性用來檢查單選按鈕和復選框是否被選定。對于單選按鈕，屬性值為True表示被選定，False是缺省值，表示未被選定；復選框用屬性值0、1、2分別表示未選定、選定和灰色（不允許選）

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

2、框架

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

(3)主要屬性是Caption，當該屬性為空時，為封閉框架。(4)框架一般不需要編寫事件過程。

3、列表框和組合框

(1)列表框（對于初學者來說，使用起來不太順手，這里簡單說明一下）

列表框控件，用于顯示項目列表，用戶可從中選擇一個或多個項目。1）屬性

A.List：字符型數組，存放列表框的項目，下標是從0開始的。

屬性窗口添加選項，輸入下一項時，按“Ctrl+Enter”；

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

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

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

D.Selected 屬性，該屬性返回或設置列表框控件中的一個項目的選擇狀態，邏輯型，只能在程序中設置或引用。

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

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

舉例說明： List1.AddItem “沈陽”，4

‘ 在第4項后插入“沈陽” List1.AddItem “沈陽”

‘ 在最后出入“沈陽” List1.RemoveItem 4

‘ 刪除第5項內容 List1.Clear

‘ 刪除所有項目 3）Click，DblClick事件

Click事件，自動改變列表框ListIndex、Selected、Text等屬性，無需另行編寫代碼。

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

Style = 0時，可以編輯項目，響應Click，Change和Dropdown事件；

Style = 1時，可以編輯項目，響應Click，DblClick和Change事件；

Style = 2時，不可以編輯項目，響應Click．和Dropdown事件。

說明：Change事件：文本框內容改變時觸發。

DropDown事件：單擊下拉箭頭時觸發。

4、滾動條

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

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

5、時鐘控件

按一定時間間隔（Interval）產生一個計時器（Timer）事件的控件。常用屬性：Interval，以0.001秒為單位。事件：Timer。

【實驗步驟】

1．設計一個調色板應用程序。使用三個滾動條作為三種基本顏色的輸入工具，合成的顏色顯示再右邊的顏色區中。當完成調色后，用兩個命令按鈕設置右下文本框的前景和背景顏色。如圖所示。

1）設計界面：添加控件及其屬性

需要3個滾動條，2個命令按鈕，3個標簽，2個文本框

窗體的Font屬性設為小四號字，加粗（這樣加載到窗體的控件也是小四號字，加粗）滾動條（HScroll），Max值設為255，Min值設為0，SmallChange為1，LargeChange為25。其他的控件屬性請按下圖。

2）編寫代碼。

3）運行：調整各個控件，使結果如例圖。并保存。

2．設計一個計時器如圖所示。如：在單選按鈕處選擇1分鐘，在單擊“開始”按鈕后，開始計時，同時標簽中顯示“計時開始！”；當到選擇的時間后停止計時，在標簽中顯示“時間到！”。默認運行的時間選擇為1分鐘。

1)界面設計，控件屬性

1個標簽，一個命令按鈕，一個框架，1個時鐘 一組單選按鈕（3個），這個是單選按鈕的控件組（要用復制粘貼，控件組名稱都相同，Index

分別是0,1,2,）屬性設置

時鐘Timer1的Interval屬性設為1000 其他屬性按圖設置。

2)程序代碼

3.設計一個能定時的鬧鐘(因為設置關系可能聽不到聲音，但我在家里運行時聽到了)1）控件： 5個標簽，其中Label 1用來顯示當前時間，BorderStyle為1 2個文本框，2個命令按鈕，1個時鐘，其中Interval屬性設為1000。

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

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

1)控件：一個列表框，一個文本框、一個命令按鈕和標簽

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

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

Form_Paint是窗體重繪事件，窗體改變大小等都會觸發

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

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

程序代碼

運行出結果后，可以將代碼中畫圖的一些參數改變一下，再運行看結果

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

第二篇：vb實驗教案 -

實驗一 VB集成開發環境和簡單程序設計

一、本次課主要內容

1． 練習Visual Basic6.0的安裝與重新安裝。2． 啟動和退出Visual Basic 6.0。3． 認識VB6.0的工作界面。

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

P 1 5． 按照Visual Basic編寫程序的基本步驟建立一個用于“商品銷售計劃”的窗體程序。

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

2．學習怎樣啟動和退出Visual Basic；

3．熟悉Visual Basic的工作環境，為以后的程序設計作好準備； 4．理解Visual Basic中對象和類的概念。5．學習用屬性窗口設置對象屬性的方法。

6．初步學習在代碼編輯器中輸入程序代碼的基本操作。7．基本掌握用Visual Basic編寫程序的基本步驟。8．了解Visual Basic聯機幫助的使用方法。

三、教學重點難點 VB語言程序的上機步驟

四、教學方法和手段 實驗室機房電腦上機

五、作業與習題布置

1.撰寫實驗報告，寫出所有的方法，要有詳細的操作步驟； 2.預習并思考實驗2。

實驗一 VB集成開發環境和簡單程序設計

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

2． 如何使各窗口顯示或不顯示？ 3． 如何對工具箱添加選項卡？

4．當建立好一個簡單的應用程序后，假定該工程僅有一個窗體模塊。問該工程涉及到多少個文件要保存？若要保存該工程中的所有文件，正確的操作應先保存什么文件？再保存什么文件？若不這樣做，系統會出現什么信息？

5．在窗體上畫一個命令按鈕，然后通過屬性窗口設置下列屬性： Caption：這是命令按鈕 Font：宋體 粗體 三號 Visible：False Style：1-Graphical

6、參考實驗教材“實驗一”和“實驗二”的實驗過程編寫程序。

P 2

教學后記：

實驗二 順序結構程序設計

一、本次課主要內容

1.實驗Visual Basic中三種除法運算符（/、、Mod）的區別。2．掌握表達式的書寫，并能閱讀出表達式的運行結果。3．設計一個簡單的計數器。

二、教學目的與要求

1．掌握Visual Basic數據類型的基本概念。2．掌握變量，常量的定義規則。

3．掌握Visual Basic各種運算符的功能及表達式的構成和求值方法。4．掌握Visual Basic的基本語句。

三、教學重點難點

VB的各種運算符的功能及表達式的構成

四、教學方法和手段 實驗室機房電腦上機

五、作業與習題布置

1.撰寫實驗報告，寫出所有的方法，要有詳細的操作步驟； 2.預習并思考實驗3。

P 3

實驗二 順序結構程序設計

1．實驗Visual Basic中三種除法運算符（/、、Mod）的區別。按以下步驟執行：

P 4（1）在窗體上畫5個標簽、5個文本框和一個命令按鈕。5個標簽的標題分別為：“被除數”、“除數”、“浮點除（/）”、“整數除（）”和“余數除（Mod）”，把5個文本框清為空白，把命令按鈕的標題設置為“執行除法運算”，如圖6所示。

圖6

除法運算符實驗（界面設計）

（2）編寫命令按鈕的事件過程： 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或單擊工具欄上的“啟動”按鈕運行程序，在第一個文本框中輸入被除數，在第二個文本框中輸入除數，然后單擊命令按鈕，即可得到三種不同的相除結

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

P 5

圖7

除法運算符試驗（運行情況）

2．先用手工計算下列表達式的值，然后在立即窗口中試驗這些表達式的輸出結果。

(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．設x,y,z均為布爾型變量，其值分別為： x=True Y=True Z=False 求下列表達式的值：

(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 要求：先手工計算，再上機驗證。

教學后記：

P 6

實驗三 選擇結構程序設計

一、本次課主要內容

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

2．按要求編寫程序實現稅務部門征收所得稅的納稅金額。

二、教學目的與要求

1.掌握邏輯表達式的正確書寫形式。2.掌握單分支與多分支語句的使用。3.熟悉“選擇”結構程序設計。

三、教學重點難點

邏輯表達式的正確書寫形式

四、教學方法和手段 實驗室機房電腦上機

五、作業與習題布置

1.撰寫實驗報告，寫出所有的方法，要有詳細的操作步驟； 2.預習并思考實驗4。

P 7

實驗三 選擇結構程序設計

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

2．稅務部門征收所得稅，規定如下：（1）收入在800元以內，免征；

（2）收入在800~1000元以內，超過200元的部分納稅5%；（3）收入在1000~2000元以內，超過1000元的部分，納稅8%；（4）當收入達到2000元或超過時，納稅10%； 編程實現上述操作。（1）編寫程序代碼：

（2）程序運行

程序運行后，單擊窗體，在輸入對話框中輸入收入數，程序將輸出納稅金額。例如輸入1560，運行情況如圖30所示。

P 8

圖30 納稅運行情況

3．輸入x、y、z三個數，按從大到小的次序顯示。要求：對輸入數據應有測試手段，可以通過IsNumeric函數對文本框中的數進行測試。若輸入的數有非數字字符，顯示“不能轉換成數值”，提示再輸入。當輸入的三個數全部都是數字字符后再轉換成數值型，然后進行大小比較。

4．某市公用電話收費標準如下：市話通話時間在3分鐘以下，收費0.50元；3分鐘以上，則每超過1分鐘加收0.15元；在7:00-19:00之間通話者，按上述收費標準全價收費；在其他時間通話者一律接收費標準的半價收費。試計算某人在T時間通話S分鐘，應繳多少電話費。

5．設在窗體上已經建立一個文本框Text1，兩個命令按鈕Commmand1和Command2，說明執行以下語句后，各控件將顯示什么內容？

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 教學后記：

實驗四 循環結構程序設計

P 10

一、本次課主要內容 1．計算階乘。

2．編程實現勾股定理中三個數的關系是a2＋b2 = c2。3．編程求完全數。

二、教學目的與要求

1.熟悉分支轉移結構程序設計，靈活使用有關語句。2.熟悉循環結構程序設計，靈活使用各種循環語句。3.能夠正確閱讀嵌套循環，及正確使用嵌套循環。

三、教學重點難點

循環結構程序設計及相關語句的用法

四、教學方法和手段 實驗室機房電腦上機

五、作業與習題布置

1.撰寫實驗報告，寫出所有的方法，要有詳細的操作步驟； 2.預習并思考實驗5。

實驗四 循環結構程序設計

P 11 1.計算階乘

2．勾股定理中三個數的關系是a2＋b2 = c2。編寫程序，輸出30以內滿足上述關系的整數組合，例如3，4，5就是一個整數組合。

（1）編寫程序

（2）程序運行后，單擊窗體，將輸出30以內滿足關系的整數a，b，c的組合，同時顯示相應的a*a，b*b，c*c，結果如圖36所示。

圖36

程序執行結果

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

程序如下：

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

P 12

程序執行結果

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

（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語句計算2n，請嘗試用不同形式的Do?Loop語句和For?Next語句重寫該程序。

教學后記：

實驗五 VB的常用控件

一、本次課主要內容

1．設置文本框Text1中內容的字體、字型和顏色。

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

3．將定時器計時開始后度過的總秒數換算為時、分、秒(取2位小數)顯示。4．將復選框的選中狀態（Value屬性值）轉換為邏輯值后賦值給圖片框的AutoSize屬性，決定圖片框是否自動改變大小以顯示全部圖形；將復選框的選中狀態（Value屬性值）轉換為邏輯值后賦值給圖像框的Stretcch屬性，決定圖形是否自動縮放以適應圖像框大小。

二、教學目的與要求

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

4.掌握圖片框控件和圖像框控件的使用方法。

三、教學重點難點 常用控件的使用方法

四、教學方法和手段 實驗室機房電腦上機

五、作業與習題布置

1.撰寫實驗報告，寫出所有的方法，要有詳細的操作步驟； 2.預習并思考實驗6。

P 13

P 14

實驗五 VB的常用控件

1．設計界面（程序一到四）2．設置屬性 3．編寫程序代碼 4.調試運行 第一題：

運行結果：

第二題：

運行結果：

P 15

第四題：

運行結果：

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

教學后記：

實驗六 數組

一、本次課主要內容

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

P 16 2.請編寫程序，完成將一個6×8的矩陣分別按行和列的順序放到一維數組中。3.隨機產生10個數，按升序（降序）排列輸出

二、教學目的與要求 1.掌握數組的基本概念。2.掌握數組的聲明、應用。3.掌握控件數組。

4.掌握如何利用數組解決與數組相關的常用算法（特別是排序算法）。

三、教學重點難點

利用數組解決與數組相關的常用算法

四、教學方法和手段 實驗室機房電腦上機

五、作業與習題布置

1.撰寫實驗報告，寫出所有的方法，要有詳細的操作步驟； 2.預習并思考實驗7。

實驗六 數組

第一題：

P 17

Dim a(0 To 9)As Integer '定義一個大小為10的整形數組 '數組賦值命令按鈕事件過程 Private Sub Command1_Click()For i = 0 To 9 a(i)= Int(InputBox(“請輸入數組元素” & i + 1 & “/” & “10”, “數組賦值”))Next i End Sub '顯示數組元素命令按鈕事件過程 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%()'定義一個二維數組(6x8)和兩個動態數組 '將二維數組按行存儲到一維數組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 = “" '將按行存放后的一維數組b的元素顯示到文本框中 For i = LBound(b)To UBound(b)Text2.Text = Text2.Text & Format(b(i), ”@@@@“)Next i End Sub '將二維數組按列存儲到一維數組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 = ”“ '將按列存放后的一維數組c的元素顯示到文本框中 For i = LBound(c)To UBound(c)Text3.Text = Text3.Text & Format(c(i), ”@@@@“)Next i End Sub '窗體載入事件過程 Private Sub Form_Load()Text1.Text = ”“: Text2.Text = ”“: Text3.Text = ”“ '二維數組初始化

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 ”輸入的三條邊不能構成一個三角形！" 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

教學后記：

P 24

P 25

實驗八 等級考試專題及考查

一、本次課主要內容

進行一次等級考試的模擬測試。

二、教學目的與要求

1.熟悉等級考試中程序題的答題過程。

2.掌握利用VB內部函數、表達式、控制結構等知識進行較復雜的編程。

三、教學重點難點 等級考試的復雜題型

四、教學方法和手段 實驗室機房電腦上機

五、作業與習題布置

1.認真完成和按時提交考查任務；

2.自行復習，準備下學期初的國二VB考試。

實驗八 等級考試專題及考查

P 26 1．登陸等級考試系統，選做VB的基礎知識和程序題（包括程序改錯，程序填空、程序設計）

2.每個同學都把自己等級考試中隨機抽到的題目抄寫下來，互相傳閱，最后把不同類型的題目做個歸納總結。

教學后記：

第三篇：VB大實驗[范文]

綜 合 性 實

實 驗 名 稱: 通訊錄管理系統

專 業 班 級: 數字1201班

學 生 姓 名:馬曉軍

學 號：201225070125 指 導 教 師：王云俠

驗 需求分析：

通訊錄管理系統是針對系統服務對象的具體要求設計的，能夠輸入所有人員的

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

WINDOWS XP系統；VB6.0 3開發工具和編程語言：

Visual Basic6.0語言 4 系統設計

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

系統主窗體

代碼：

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(“確定要刪除當前記錄嗎？”, vbYesNo + vbQuestion, “確認”)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.選擇要查詢的條件，輸入查詢的信息，按下查詢按鈕即可顯示查詢結果，按下返回按鈕返回上級窗口。

查詢界面窗體

代碼：

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 “手機” Combo1.AddItem “地址” Combo1.AddItem “公司” Combo1.AddItem “所在組” Text1.Text = "" End Sub 5 系統運行及測試；參考文獻;

[1]龔培曾，楊志強Visual Basic程序設計教程（第3版），高等教育出版社，2001/12 7心得體會：

1.VB程序設計本身并不復雜,翻開一本程序設計學習的書籍,看到的無非就是變量,函數,條件語句,循環語句等概念.但要真正能進行程序設計,需要深入理解這些概念.因此,在程序入門階段還是應該重視概念的學習、多請教老師、多與同學交流解決問題的方法、多與他人進行討論問題，所有VB問題都會弄懂的。

2.VB程序設計的入門學習并不難,但卻是一個十分重要的過程,因為程序設計思想就在這時形成的,良好的程序設計習慣也在這個階段養成。

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

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

第3次作業

一、填空題（本大題共40分，共 10 小題，每小題 4 分）1.是指計算機系統軟件或硬件方面出現問題，導致計算機整個系統或某些軟件無法正常使用。

2.網絡店鋪是指一家企業開設的網站，企業通過網站銷售________和________。

3.垂直B2B電子市場可以分為兩個方向，即________和________。

4.B2B電子商務從大的類別來說可以分為兩大類：一類是 ________ ,另一類是________。

5.EDI就是按照商定的協議，將商業文件標準化和格式化，并通過計算機網絡，在貿易伙伴的計算機網絡系統之間進行數據交換和自動處理。俗稱“________”。

6.全球定位系統是一種基于________的跟蹤系統，據此能判斷GPS設備所在的位置。

7.電子商務通用交易過程包括：交易前的準備、________、________、合同的履行和支付過程。

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

9.________是指原來從事目錄郵購的企業，將產品發布方式轉移到互聯網成為電子零售商。

10.不管是網絡市場還是其他的各種市場都具有3大功能：________、促進與交易相關的信息、商品、服務和資金的交換；提供________以提升市場效率。

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

2.網絡零售商

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

5.價值訴求

6.搜索引擎優化

7.信息中介

三、簡答題（本大題共18分，共 3 小題，每小題 6 分）1.簡述電子商務安全管理制度的內容。

2.簡述第三方B2B電子商務平臺的特點。

3.簡述社交購物的主要模式。

答案：

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

1.參考答案：

系統故障

解題方案：

評分標準：

2.參考答案： 商品、服務

解題方案：

評分標準：

3.參考答案：

上游，下游

解題方案：

評分標準：

4.參考答案：

第三方B2B電子商務平臺，企業B2B電子商務平臺。

解題方案：

評分標準：

5.參考答案： 無紙化貿易

解題方案：

評分標準：

6.參考答案： 衛星技術

解題方案：

評分標準：

7.參考答案：

交易磋商、簽訂合同與辦理手續

解題方案：

評分標準：

8.參考答案：

匹配買方和賣方、制度支持

解題方案：

評分標準：

9.參考答案： 郵購商

解題方案：

評分標準：

10.參考答案：

匹配買方和賣方、制度支持 解題方案：

評分標準：

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

1.參考答案：

商業模式是指開展商務活動的方法，企業就此獲得利益，維持生存和發展。它另一層含義，那就是企業在一條價值鏈中處于什么地位。也就是說，企業通過什么方式為產品或是服務提升價值。

解題方案：

評分標準：

2.參考答案：

網絡零售商是指在網絡上開展零售業務的廠商。

解題方案：

評分標準：

3.參考答案：

第三方支付就是一些和國內外各大銀行簽約、并具備一定實力和信譽保障的第三方獨立機構提供的交易支持平臺。

解題方案：

評分標準：

4.參考答案：

支付接口就是第三方支付平臺提供的一段代碼，商務需要將該代碼配置到自己的服務器上去，并設置一些相關的接口參數。

解題方案：

評分標準：

5.參考答案：

企業從落實商業模式中可以得到的利益，這些利益包括無形的、難以量化的利益。

解題方案：

評分標準：

6.參考答案：

搜索引擎優化，是通過對網站欄目結構和網站內容等基本要素的優化設計，提高網站對搜索引擎的友好性，使得網站中盡可能多的網頁被搜索引擎收錄，并且在搜索結果中獲得好的排名效果，從而通過搜索引擎的自然檢索獲得盡可能多的潛在客戶。

解題方案：

評分標準：

7.參考答案：

在網絡世界有些中介專門提供信息或是控制信息。這樣的網絡中介稱為信息中介。信息通過信息中介在買賣雙方之間流動。信息中介其實也是一種網站，它們收集巨量的信息，進行加工整理，然后在提供信息的一方與需要信息的一方進行撮合。

解題方案：

評分標準：

三、簡答題（18分，共 3 題，每小題 6 分）

1.參考答案：

電子商務安全管理制度是用文字形式對各項安全要求所做的規定，它是保證企業電子商務取得成功的重要基礎，是企業電子商務人員安全工作的規范和準則。企業在參與電子商務伊始，就應當形成一套完整的、適應于網絡環境的安全管理制度。這些制度應當包括人員管理制度、保密制度、跟蹤審計制度、系統維護制度、數據備份制度、病毒定期清理制度等。

解題方案：

評分標準：

2.參考答案：

1.交易模式多樣化、交易撮合自動化； 2.產品提供個性化、組合化； 3.發現買方與賣方的過程高效化； 4.價格發現動態化、多樣化； 5.交易支持復雜化。

解題方案：

評分標準：

3.參考答案：

1.購物推薦、購物排名及評價； 2.團購；

3.購物社區及購物俱樂部； 4.購物伙伴模式；

5.基于位置的購物活動。

解題方案：

評分標準：

第五篇：工作總結.第3次

班長工作總結

到今天，這個學期的工作告一段落了。當了一個學期的班長，有很多收獲和感慨。對這個學期的工作做一個總結，從學習，生活，工作三個方面。

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

在生活上，我們舉辦了一系列的活動。四次團組織生活，團課，男女混合籃球賽，年級羽毛球賽，元旦聯誼晚會。我想這些活動最成功的是加強了班上同學的認識和交流，給同學們展現自己的舞臺，鍛煉了自己的能力。當然，一個活動有成功的地方，也會有不足。有些安排沒有到位，同學們的需求不能滿足等等。感謝大家對我的包涵和支持，我會帶著這些寶貴經驗繼續前進。

在生活上，我是一個很隨意很懶惰的人。甚至有點得過且過的感覺。但對待工作，我會很認真的去完成我該做和能做的事情，有點好強吧。回想這個學期的工作，是個忙碌的過程，有很多很多的事情需要處理。但結果，我認為還是不錯的。希望能夠得到同學們的肯定。

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

雖然說是金子總會發光的，但需要有個人去發現你啊！班干部要為同學做實事，但并不是每件事情都能夠親力親為，我們的班干部少了一種主動性，其實很多事情可以找同學幫忙的，大家團結一起，可能會事半功倍。讓我們五班更加團結吧！

如果下學期，我還是酒店管理的班長，我會更加努力做好這份工作。

新的一年快要來臨，祝福大家新年快樂！

至此

14級酒店管理

吳術寶

2015年3月25日