第一篇：VB綜合實(shí)驗(yàn)8_08_09

VB程序設(shè)計(jì)基礎(chǔ)綜合性實(shí)驗(yàn)

（八）－數(shù)組的應(yīng)用（班級(jí)：學(xué)號(hào)：姓名：）

該綜合實(shí)驗(yàn)是在學(xué)生完成前面的實(shí)驗(yàn)，初步掌握順序結(jié)構(gòu)、選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)的程序設(shè)計(jì)方法。在此基礎(chǔ)上，通過(guò)本次綜合實(shí)驗(yàn)掌握數(shù)組的聲明和數(shù)組元素的引用，掌握固定數(shù)組和動(dòng)態(tài)數(shù)組的使用方法。

1．實(shí)驗(yàn)?zāi)康耐ㄟ^(guò)本次綜合實(shí)驗(yàn)掌握數(shù)組的聲明和數(shù)組元素的引用，掌握固定數(shù)組和動(dòng)態(tài)數(shù)組的使用方法，學(xué)會(huì)利用數(shù)組解決一些較為復(fù)雜的問(wèn)題。

2．實(shí)驗(yàn)內(nèi)容

1）用隨機(jī)數(shù)產(chǎn)生100個(gè)整數(shù)（其取值范圍為1~100），存放在數(shù)組x中，輸出出現(xiàn)3次的數(shù)，每行輸出10個(gè)數(shù)。

2）編寫(xiě)程序求兩個(gè)集合的差B-A，數(shù)組a[50]和b[30]分別存放集合A,B的元素，設(shè)A，B中的元素各不相同，它們由鍵盤(pán)輸入，差集存放在數(shù)組c[50]中，(c中的元素不能出現(xiàn)在A中),再將c中元素排序，最后輸出c數(shù)組。

3．實(shí)驗(yàn)要求：

1）．掌握數(shù)組的聲明和數(shù)組元素的引用；

2）．掌握固定數(shù)組和動(dòng)態(tài)數(shù)組的使用方法；

3）．學(xué)會(huì)利用數(shù)組解決一些較為復(fù)雜的問(wèn)題。

4．實(shí)驗(yàn)報(bào)告的要求

1）實(shí)驗(yàn)?zāi)康母鶕?jù)教材和和課堂學(xué)習(xí)的知識(shí)要點(diǎn)，列出本次實(shí)驗(yàn)要達(dá)到的目的。

2）實(shí)驗(yàn)內(nèi)容

描述實(shí)驗(yàn)的具體內(nèi)容，包括實(shí)驗(yàn)題目要求、實(shí)驗(yàn)過(guò)程和步驟。

3）設(shè)計(jì)和分析

程序設(shè)計(jì)說(shuō)明，包括運(yùn)行環(huán)境、界面設(shè)計(jì)、算法描述、流程圖等。

4）代碼設(shè)計(jì)

經(jīng)調(diào)試正確的源程序。

5）結(jié)果討論

(1)具體分析程序的運(yùn)行情況，包括對(duì)不同測(cè)試數(shù)據(jù)的運(yùn)行結(jié)果，最后對(duì)運(yùn)行結(jié)果進(jìn)行分析。

（2)通過(guò)此次實(shí)驗(yàn)，你有什么體會(huì)、有哪些收獲。

5．遞交實(shí)驗(yàn)的相關(guān)文件

第二篇：vb綜合實(shí)驗(yàn)

綜 合 性 實(shí) 驗(yàn)

實(shí) 驗(yàn) 名 稱(chēng):關(guān)閉標(biāo)題包含指定字符的所有窗口 專(zhuān) 業(yè) 班 級(jí): 學(xué) 生 姓 名：

學(xué) 號(hào)：

指 導(dǎo) 教 師：

需求分析：

關(guān)閉標(biāo)題包含指定字符的所有窗口，使我們能更方便的關(guān)閉很多窗口，避免了一個(gè)一個(gè)關(guān)閉的麻煩 運(yùn)行環(huán)境：

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

Visual Basic6.0語(yǔ)言； 4 系統(tǒng)設(shè)置：

下例程序運(yùn)行后，單擊按鈕關(guān)閉標(biāo)題包含“記事本”的所有窗口

'在窗體上放置 3 個(gè)控件，所有控件無(wú)需設(shè)置任何屬性，全部采用默認(rèn)設(shè)置： ' Command1，Label1，Text1

Private Declare Function FindWindowEx Lib “user32” Alias “FindWindowExA”(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String)As Long Private Declare Function PostMessage Lib “user32” Alias “PostMessageA”(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)As Long Private Declare Function GetWindowText Lib “user32” Alias “GetWindowTextA”(ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long)As Long Private Sub Form_Load()'設(shè)置控件初始狀態(tài)，實(shí)際可以在窗體設(shè)計(jì)階段完成 Dim S As Single

Me.Caption = “關(guān)閉指定窗口”: Text1.Text = “記事本” Label1.AutoSize = True: Label1.Caption = “窗口標(biāo)題包含的字符：” Command1.Caption = “關(guān)閉指定窗口”

S = Label1.Height Label1.Move S, S Text1.Move S + Label1.Width, S * 0.5, S * 8, S * 2 Command1.Move S, S * 3, S * 8, S * 2 End Sub

Private Sub Command1_Click()Dim hWnds As Long, nCap As String, nFind As String Dim S As Long, S1 As Long, nLong()As Long, nCount As Long

S = 255: nFind = Text1.Text Do hWnds = FindWindowEx(0, hWnds, vbNullString, vbNullString)If hWnds = 0 Then Exit Do nCap = String(S + 1, “ ”)GetWindowText hWnds, nCap, S S1 = InStr(nCap, Chr(0))If S1 > 0 Then nCap = Left(nCap, S1-1)If InStr(nCap, nFind)> 0 Then ' PostMessage hWnds, &H10, 0, 0 '不在這里發(fā)送關(guān)閉消息，是為了防止漏查 nCount = nCount + 1 ReDim Preserve nLong(1 To nCount)nLong(nCount)= hWnds End If Loop

For S = 1 To nCount PostMessage nLong(S), &H10, 0, 0 '發(fā)送關(guān)閉窗口消息 DoEvents Next End Sub 5參考文獻(xiàn)：

龔培增，楊志強(qiáng)Visual Basic程序設(shè)計(jì)教程（

第三篇：VB綜合實(shí)驗(yàn)7_08_09

VB程序設(shè)計(jì)基礎(chǔ)綜合性實(shí)驗(yàn)

（七）－數(shù)組

（班級(jí)：學(xué)號(hào)：姓名：）

該綜合實(shí)驗(yàn)是在學(xué)生完成前面的實(shí)驗(yàn)，初步掌握順序結(jié)構(gòu)、選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)的程序設(shè)計(jì)方法。在此基礎(chǔ)上，通過(guò)本次綜合實(shí)驗(yàn)掌握數(shù)組的聲明和數(shù)組元素的引用，掌握固定數(shù)組和動(dòng)態(tài)數(shù)組的使用方法。

1．實(shí)驗(yàn)?zāi)康耐ㄟ^(guò)本次綜合實(shí)驗(yàn)掌握數(shù)組的聲明和數(shù)組元素的引用，掌握固定數(shù)組和動(dòng)態(tài)數(shù)組的使用方法，學(xué)會(huì)利用數(shù)組解決一些較為復(fù)雜的問(wèn)題。

2．實(shí)驗(yàn)內(nèi)容

1）創(chuàng)建一個(gè)應(yīng)用程序，要求：用隨機(jī)數(shù)產(chǎn)生10個(gè)整數(shù)（其取值范圍為1~100），存放在數(shù)組x中，查找x數(shù)組中的最大元素及最小元素，并將最大元素及最小元素分別與數(shù)組的第1個(gè)和最后一個(gè)元素交換，分別輸出x數(shù)組交換前后各元素的值。

2）讀入10個(gè)整數(shù)到a[10],然后輸入一個(gè)整數(shù)m,(設(shè)數(shù)組a中各元素均不相同且m一定在a中),將與m相等的元素放置到數(shù)組的最后位置，其它元素的相對(duì)位置保持不變，輸出數(shù)組。

3．實(shí)驗(yàn)要求：

1）．掌握數(shù)組的聲明和數(shù)組元素的引用；

2）．掌握固定數(shù)組和動(dòng)態(tài)數(shù)組的使用方法；

4．實(shí)驗(yàn)報(bào)告的要求

1）實(shí)驗(yàn)?zāi)康母鶕?jù)教材和和課堂學(xué)習(xí)的知識(shí)要點(diǎn)，列出本次實(shí)驗(yàn)要達(dá)到的目的。

2）實(shí)驗(yàn)內(nèi)容

描述實(shí)驗(yàn)的具體內(nèi)容，包括實(shí)驗(yàn)題目要求、實(shí)驗(yàn)過(guò)程和步驟。

3）設(shè)計(jì)和分析

程序設(shè)計(jì)說(shuō)明，包括運(yùn)行環(huán)境、界面設(shè)計(jì)、算法描述、流程圖等。

4）代碼設(shè)計(jì)

經(jīng)調(diào)試正確的源程序。

5）結(jié)果討論

(1)具體分析程序的運(yùn)行情況，包括對(duì)不同測(cè)試數(shù)據(jù)的運(yùn)行結(jié)果，最后對(duì)運(yùn)行結(jié)果進(jìn)行分析。

（2)通過(guò)此次實(shí)驗(yàn)，你有什么體會(huì)、有哪些收獲。

5．遞交實(shí)驗(yàn)的相關(guān)文件

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

綜 合 性 實(shí)

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

專(zhuān) 業(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)人員的分類(lèi)管理和查詢(xún)。主要設(shè)計(jì)了以下幾大功能：(1)新建、修改、刪除通訊錄記錄(2)能根據(jù)姓名進(jìn)行模糊查詢(xún)(3)能根據(jù)電話(huà)查詢(xún)某人(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.選擇要查詢(xún)的條件，輸入查詢(xún)的信息，按下查詢(xún)按鈕即可顯示查詢(xún)結(jié)果，按下返回按鈕返回上級(jí)窗口。

查詢(xún)界面窗體

代碼：

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é)好的。

第五篇：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ì)象和類(lèi)的概念。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有多種類(lèi)型的窗口，若想在設(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ù)類(lèi)型的基本概念。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元以?xún)?nèi)，免征；

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

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

程序運(yùn)行后，單擊窗體，在輸入對(duì)話(huà)框中輸入收入數(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．某市公用電話(huà)收費(fèi)標(biāo)準(zhǔn)如下：市話(huà)通話(huà)時(shí)間在3分鐘以下，收費(fèi)0.50元；3分鐘以上，則每超過(guò)1分鐘加收0.15元；在7:00-19:00之間通話(huà)者，按上述收費(fèi)標(biāo)準(zhǔn)全價(jià)收費(fèi)；在其他時(shí)間通話(huà)者一律接收費(fèi)標(biāo)準(zhǔn)的半價(jià)收費(fèi)。試計(jì)算某人在T時(shí)間通話(huà)S分鐘，應(yīng)繳多少電話(huà)費(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以?xún)?nèi)滿(mǎn)足上述關(guān)系的整數(shù)組合，例如3，4，5就是一個(gè)整數(shù)組合。

（1）編寫(xiě)程序

（2）程序運(yùn)行后，單擊窗體，將輸出30以?xún)?nèi)滿(mǎn)足關(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ù)本身，則稱(chēng)這樣的數(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ì)話(huà)框中分別輸入N 和M的值，即可輸出N和M之間的“完全數(shù)”。假定輸入的N和M的值分別為2和1000，則結(jié)果如圖37所示。

P 12

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

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

（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í)考試專(zhuān)題及考查

一、本次課主要內(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í)考試專(zhuān)題及考查

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

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

教學(xué)后記：