第一篇：VB實驗指導與練習題實驗部分的參考答案

VB實驗指導與練習題實驗部分的參考答案： 實驗 4 4-1： 2*pi*r Pi*r*r 4-3: chr(64+n)4-4: x mod 10

x 10 mod 10

x100 4-5:

mid(s,i,1)=Lcase(t)實驗 5 5-1：

a+b+c+d Sum/4 5-2:(4*h-f)/2

(f-2*h)/2 5-4: sec360024

Sec mod(1& 24*3600)mod 3600 mod 60 5-5: 0.5*g*t*t+v0*t 實驗 6 6-1: left(text1,text1.selstart)& text2 & right(text1, len(text1)– text1.selstart)6-2: timer1.enabled=true

Timer1.enabled=false 6-3: shape2.left=shape2.left +d *50 6-5:

a & check2.caption 6-6:

list1.listcount-1 6-7: 1000

List1.list(i)6-8:

text1 實驗 7 7-1: n=n-3500

n-y

text1.setfocus 7-2: a=a & c 7-3: sum +j

Sum=1250 7-4: m=n

n=r

r= m mod n 7-5: if a mod i=0 then exit for 7-6: text1

S2 & mid(s1,k,1)S2=””

7-7:

nfactor

factor+1 7-8: n 7-9:

sum=0

s & i & “ +”

list1.clear 7-10: mid(text1, i, 1)實驗8 8-1：a(i)=a(16-i)

a(16-i)=temp 8-2: a(i-2)+a(i+1)+1

Text2 & vbcrlf 8-3: picture1.print

i=1 to 5

sum=sum+a(I,j)

next i

sum+a(i,j)+a(i,6-i)

not(i>1 and i<5 or j>1 and j<5)8-4: text1 & str(a(i))

If a(i)< min then min=a(i)8-5:

(a(i)10)*(b(i)10)

“sum=”;sum

8-6: a(i,2)=a(i,4)

A(i,4)=t

8-8:

picture1.print a(i,j);

Sum=sum+a(k,k)8-9:

exit for

num=a(i)8-10:

i+1 to 10

a(i)>a(j)

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

綜 合 性 實

實 驗 名 稱: 通訊錄管理系統(tǒng)

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

學 生 姓 名:馬曉軍

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

驗 需求分析：

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

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

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

Visual Basic6.0語言 4 系統(tǒng)設計

1.在下面窗口實現(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(“確定要刪除當前記錄嗎？”, 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 系統(tǒng)運行及測試；參考文獻;

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

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

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

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

第三篇：實驗指導部分教案

附《心理實驗》指導

實驗一 自變量的范圍和間距

（一）目的：通過對皮膚兩點閾的測定，學習確定心理實驗中變量范圍和間距的方法。

（二）材料：兩點閾量規(guī)、遮眼罩、記錄紙。

（三）程序：

（1）主試者選定被試者的左手背（A區(qū)）與前臂背面為測量區(qū)，前臂背面又分為二個區(qū)（B、C區(qū)），本試驗取A、C兩個區(qū)。測量前，在各區(qū)內(nèi)標上藍印或劃出圓圈，刺激在圈內(nèi)進行。

（2）在使用兩點閾量規(guī)時，必須垂直接觸皮膚，對兩個尖點施力均勻，接觸時間不超過2秒鐘，先在自己手上練習幾次，再在被試者的非測驗區(qū)練習幾次。

（3）實驗序列的長度和起點，可根據(jù)初步測驗后確定，大致在7～15毫米的范圍內(nèi)取5個點，每步變化在1毫米左右。每種間距做20次，順序隨機安排。本實驗記錄用紙一

刺激代號相對應的實際刺激值

（4）每隔100次，休息5分鐘。被試者有時產(chǎn)生一種持久的兩點后象（即使只有一點或距離很近的兩點刺激，也有感到兩點的印象），此時應給予休息，使其恢復兩點的標準。每隔數(shù)十次，可插入一次一點刺激，測驗被試者是否有這種后象。

（5）主試者對被試者的指示語必須這樣說明：“在排除視覺的條件下，當被試者感覺到是兩點時說‘二’；當被試者感覺到一點時說‘一’；當被試者不能確定感覺到的是幾點時說‘不’”。本實驗記錄用紙二

被試者反應記錄表（6）主試者在每次刺激前先發(fā)出預備信號：“注意”。在被試者作出反應后，要記錄下來。

（7）在全部測量完畢后，在記錄中挑出有“不”的序列，再重復那些序列，獲得確定的判斷。

（四）結果：分別求出左手A區(qū)和C區(qū)的兩點閾限，并對兩均數(shù)的差別進行考驗。

（五）討論：

（1）說明身體部位不同，觸覺有差異，兩點閾值從一個側面揭示了觸覺感受性的大小。（2）如果要測定皮膚某部位的兩點閾限，自變量的范圍和間距應如何安排？ 實驗二 自變量和因變量的確定（練習對學習的影響）

（一）目的：

（1）通過動作學習的過程了解心理實驗中確定自變量和因變量的方法；（2）學習使用觸棒迷津。

（二）材料：觸棒迷津、小棒、遮眼罩、秒表、記錄紙。

（三）程序：

（1）三人一組，被試者帶上遮眼罩，用小棒走迷津（實驗前被試者勿看迷津，也勿用手觸摸迷津）。主試者對被試者的指示語必須這樣說明：“在排除視覺的條件下，盡快地學會用小棒走迷津，中間不要停頓，要積極運用動覺、記憶和思維，爭取早些學會”。主試者把小棒放在迷津的入口處，然后讓被試者用優(yōu)勢手拿住小棒，手臂懸空。

（2）被試者手執(zhí)小棒靜侯。主試者在每次開始前2秒鐘，先發(fā)出“預備”口令，主試者再說“開始”時，被試者才用小棒走動。在發(fā)出“開始”口令的同時，主試者開動秒手表。

（3）被試者在走迷津的過程中，凡進入盲巷一次就算出錯一次，主試者記下錯誤次數(shù)。（4）當被試者的小棒進入迷津終點，主試者立刻說“到了”，同時停秒表，記錄走一遍迷津所用的時間（秒）。再做下一次的準備工作。

（5）學習遍數(shù)因被試者而異，均以連續(xù)三次不出錯為學會的標準。（6）若被試者在學習途中感到疲勞，可在某次走到終點后休息幾分鐘。

（四）結果：將每次走迷津所用的時間和錯誤次數(shù)列成表格（見下頁）。本實驗記錄用紙

注：學習遍數(shù)因被試者而異，均以連續(xù)三次不出錯為學會的標準，學習遍數(shù)超過15次者可自行加行。

（五）討論：

（1）本實驗中自變量是什么？為什么在實驗前要對所用的自變量提出一個操作上的定義？

（2）本實驗用什么作因變量的指標？它的作用是什么？（3）本實驗控制了那些變量？ 實驗三 廣告悅目測定

（一）目的：學習對偶比較法和等級排列法，判斷哪種廣告較美，分析其原因，并為實際廣告部門提供資料。

（二）材料：選定和制作10張典型廣告幻燈片。

（三）方法和程序 使用對偶比較法和等級排列法來測定哪張廣告較美。

1.對偶比較法。此法最早由寇恩（Cohn，1894）在他的顏色愛好的研究中介紹出來。這個方法是把所有要比較的刺激配成對，然后一對一對地呈現(xiàn)，直到所有的廣告都被比較過為止。如果每一個廣告和另外的廣告逐一配對；則配出對的數(shù)目是n（n-1）/2，10個廣告則為45對。為盡量排除空間誤差，在同一個廣告組成的配對中，該廣告在左和右面的位置各半。被試者的任務就是在兩個廣告中進行選擇，確定哪個廣告較美。

2.等級排列法。這個方法是10個廣告同時呈現(xiàn)，讓被試者按他的判斷標準，把10個廣告排列成一個順序。被試者可以反復比較，只要最后排出一個美丑的等級順序就可以了。然后把許多人對同一廣告評判的等級加以平均。

3.在記錄上述結果的同時，務必詳細記錄被試評定廣告美→丑的理由，以供分析時參考。

（四）結果：整理結果填入記錄紙（表10-16，表10-17，表10-18）

（五）討論：

1.對本實驗所得量表進行分析討論，并提出心理學依據(jù)。

2.在本實驗中，為什么要隨機改變左、右的位置，為什么對每對廣告要有間隔？ 3.對偶比較法和等級排列法用于實驗中還存在什么問題？

實驗四 簡單反應時間實驗

（一）目的：學習對視覺與聽覺簡單反應時間的測定方法；比較兩種簡單反應時間的差別。

（二）材料：簡單反應時間測定裝置。

（三）程序： 1.預備實驗

（1）接通儀器電源，主試者撥動信號發(fā)生開關，在光或聲刺激呈現(xiàn)的同時，計時器應立即進行計時。（2）練習操作，刺激呈現(xiàn)器放在被試1公尺處。被試以右手食指輕觸電鍵。主試者在發(fā)出“預備”口令后約2秒呈現(xiàn)刺激。被試者當感覺到刺激出現(xiàn)時，立即按壓電鍵。計時器停止計時，主試者記下成績。練習實驗可作2～3次。

（3）為防止無關刺激的干擾，主試者與被試者可分隔在兩個操作室中進行實驗。2.正式實驗

（1）刺激呈現(xiàn)按視——聽——聽——視方式安排，每單元各作20次，總次數(shù)為80次。

（2）同預備實驗。

（3）為了檢查被試者有無超前反應現(xiàn)象，在每20次中插入一次“檢查實驗”。如被試對“空白刺激”作出反應，主試者根據(jù)反饋信號燈提供的信息須宣布此單元實驗結果無效，重做20次。

（4）做完20次，休息1分鐘。一被試者測完80次后，換一被試者進行實驗。

（四）結果：

（1）計算個人視覺與聽覺反應時的平均數(shù)及標準差。（2）檢驗全體被試兩種簡單反應時是否有明顯差別。

（五）討論：

（1）根據(jù)實驗結果說明視與聽感覺道簡單反應時的差別及其原因。（2）根據(jù)實驗結果說明簡單反應時是否受練習的影響。實驗五 選擇反應時間實驗

（一）目的：學習測定視覺選擇反應時間的方法，了解選擇反應時間與簡單反應時間的區(qū)別。

（二）材料：選擇反應時測定裝置。

（三）程序： 1.預備實驗

（1）接通儀器電源。主試者按預先列出的程序操作信號呈現(xiàn)開關，發(fā)出“紅”、“黃”、“綠”、“白”四種不同光刺激。

（2）被試者以右手食指作按鍵狀，當感覺到某種色光時，立即按壓相應的反應鍵（即被試對四種不同的刺激相應作出四種不同的反應）。計時器記下時間，練習實驗可作4～5次。

2.正式實驗

（1）四種色光刺激各呈現(xiàn)20次，隨機排列。

（2）主試者呈現(xiàn)刺激與被試者反應方式同預備實驗。如果反應錯了，計時器不計時間，主試者根據(jù)反饋信號燈提供的信息，安排被試者重作一次。

（3）每做完20次休息1分鐘。一被試者測完80次，換另一被試者進行實驗。

（四）結果：

（1）計算個人不同色光的選擇反應時的平均數(shù)、標準差。（2）比較全體被試者對白光的簡單與選擇反應時的平均數(shù)差異。

（五）討論：

（1）本實驗結果是否與前人實驗的數(shù)據(jù)一致？原因何在？（2）舉例說明反應時實驗的實際應用意義。

表： 對四種色光的選擇反應時實驗記錄（反應時單位：毫秒）被試姓名： 主試姓名： 實驗時間：

綜合實驗：認知方式測量

（一）目的：掌握棒框儀的使用方法；通過實驗，認識棒框測驗在認知方式研究中占有很重要的地位。利用鑲嵌圖形測量認知方式

（二）儀器：棒框儀、鑲嵌圖形圖

（三）程序：

1.令被試者端坐在儀器前，雙眼緊貼觀察孔。實驗過程中始終保持這種情況（休息除外），暗適應5分鐘后，開始施測。要求實驗過程中頭部始終保持正直，一定不能隨框的傾斜而傾斜。為了做到這點，可用下額托將頭部固定。待被試者坐好后，施測者陳述指導語：“注意看框和棒，并將棒調(diào)節(jié)與地面垂直，時間不限。當你認為棒已調(diào)至與地面垂直時就報告垂直了，并且每次判斷垂直的標準要一致”。施測者在被試者報告調(diào)至垂直后，記下調(diào)節(jié)的誤差數(shù)（所調(diào)的角度與真正垂直之差數(shù)），不計正負號，只取誤差的絕對值。正式實驗前可讓被測者練習1～2次，讓其掌握方法，施測時還有二個應注意的問題：一是施測者調(diào)節(jié)框和棒的傾斜角度的過程不能讓被試者看到，可采用兩個方法：在施測者調(diào)節(jié)時，將儀器后面進光部分遮上；另一方法是可讓被試者閉目，待施測者調(diào)好后再讓被試者自己調(diào)節(jié)。二是儀器的光源要在一項研究中保持一致。因框棒的不同亮度，對垂直判斷的誤差大小是有影響的。

2.實驗過程要求主試者調(diào)節(jié)框的度數(shù)。讓框從0°開始，每3°為一個梯級，直至45°。即框安排的度數(shù)分別為0°、3°、6°、9°、12°、15°、18°、21°、24°、27°、30°、33°、36°、39°、42°、和45°?？騼A斜的度數(shù)，隨機呈現(xiàn)。每個度數(shù)上，隨機測驗四次，二次要求被試將棒從順時針方向調(diào)至垂直，二次由逆時針方向調(diào)至垂直。取四次的平均數(shù)為該傾斜度的平均誤差數(shù)。

3.運用鑲嵌圖形測量被試的認知方式。

（四）結果

1.分別整理框的各傾斜度的平均誤差數(shù)。

2.以框的傾斜角度為橫坐標，以被試調(diào)節(jié)棒的平均誤差數(shù)為縱坐標，繪制棒框測驗曲線圖。

3.根據(jù)被試的反應給被試鑲嵌圖形測驗打分。

（五）討論

1.比較框的各傾斜度的平均誤差大小，根據(jù)自己實驗結果，看哪個傾斜度的平均誤差數(shù)較大。并和前人實驗結果進行比較。

2.根據(jù)本實驗結果，并結合平時自己的認知方式特點，分析自己是屬于場依存性還是屬于場獨立性認知方式。

3.兩種測量的結果一致嗎，為什么？

棒框測驗記錄用紙

第四篇：vb實驗教案 -

實驗一 VB集成開發(fā)環(huán)境和簡單程序設計

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

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的工作環(huán)境，為以后的程序設計作好準備； 4．理解Visual Basic中對象和類的概念。5．學習用屬性窗口設置對象屬性的方法。

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

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

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

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

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

實驗一 VB集成開發(fā)環(huán)境和簡單程序設計

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

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

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

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

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

P 2

教學后記：

實驗二 順序結構程序設計

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

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

二、教學目的與要求

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

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

三、教學重點難點

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

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

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

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

P 3

實驗二 順序結構程序設計

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

P 4（1）在窗體上畫5個標簽、5個文本框和一個命令按鈕。5個標簽的標題分別為：“被除數(shù)”、“除數(shù)”、“浮點除（/）”、“整數(shù)除（）”和“余數(shù)除（Mod）”，把5個文本框清為空白，把命令按鈕的標題設置為“執(zhí)行除法運算”，如圖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或單擊工具欄上的“啟動”按鈕運行程序，在第一個文本框中輸入被除數(shù)，在第二個文本框中輸入除數(shù)，然后單擊命令按鈕，即可得到三種不同的相除結

果。例如，在第一、第二個文本框中分別輸入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

實驗三 選擇結構程序設計

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

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

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

二、教學目的與要求

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

三、教學重點難點

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

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

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

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

P 7

實驗三 選擇結構程序設計

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

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

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

（2）程序運行

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

P 8

圖30 納稅運行情況

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

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

5．設在窗體上已經(jīng)建立一個文本框Text1，兩個命令按鈕Commmand1和Command2，說明執(zhí)行以下語句后，各控件將顯示什么內(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 教學后記：

實驗四 循環(huán)結構程序設計

P 10

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

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

二、教學目的與要求

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

三、教學重點難點

循環(huán)結構程序設計及相關語句的用法

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

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

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

實驗四 循環(huán)結構程序設計

P 11 1.計算階乘

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

（1）編寫程序

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

圖36

程序執(zhí)行結果

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

程序如下：

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

P 12

程序執(zhí)行結果

4．編程計算由下列公式確定的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語句計算2n，請嘗試用不同形式的Do?Loop語句和For?Next語句重寫該程序。

教學后記：

實驗五 VB的常用控件

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

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

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

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

二、教學目的與要求

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

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

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

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

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

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

P 13

P 14

實驗五 VB的常用控件

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

運行結果：

第二題：

運行結果：

P 15

第四題：

運行結果：

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

教學后記：

實驗六 數(shù)組

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

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

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

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

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

三、教學重點難點

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

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

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

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

實驗六 數(shù)組

第一題：

P 17

Dim a(0 To 9)As Integer '定義一個大小為10的整形數(shù)組 '數(shù)組賦值命令按鈕事件過程 Private Sub Command1_Click()For i = 0 To 9 a(i)= Int(InputBox(“請輸入數(shù)組元素” & i + 1 & “/” & “10”, “數(shù)組賦值”))Next i End Sub '顯示數(shù)組元素命令按鈕事件過程 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%()'定義一個二維數(shù)組(6x8)和兩個動態(tài)數(shù)組 '將二維數(shù)組按行存儲到一維數(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ù)組按列存儲到一維數(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 '窗體載入事件過程 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 ”輸入的三條邊不能構成一個三角形！" 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

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

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

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

二、教學目的與要求

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

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

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

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

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

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

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

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

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

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

教學后記：

第五篇：VB實驗指導書

VB程序設計

實驗指導書

電子與計算機科學技術學院 實驗一

熟悉VB集成開發(fā)環(huán)境

一、實驗目的

1．熟悉計算機環(huán)境 2.VB的安裝、啟動與退出 3.熟悉VB語言編程環(huán)境

二、實驗環(huán)境

1．計算機

2.Visual Basic 6.0開發(fā)環(huán)境

三、實驗說明

1．熟悉機房實驗環(huán)境

2．學習Visual Basic 6.0開發(fā)環(huán)境

四、實驗內(nèi)容和步驟

1.實驗內(nèi)容

（1）Windows的基本操作。（2）VB的安裝、啟動與退出。（3）VB集成開發(fā)環(huán)境的初步使用。2.實驗步驟

（1）打開計算機，進入Windows；

（2）在CD－ROM驅動器中插入Visual Basic 6.0系統(tǒng)盤；（3）運行安裝程序（Setup.exe），即可進入“安裝程序向導”；

（4）在“安裝程序向導”引領下，按步驟選擇相應的選項，添加對應的參數(shù)，完成安裝過程；

（5）從以下幾方面熟悉VB集成開發(fā)環(huán)境：

? 標題欄 ? 菜單欄 ? 工具欄 ? 工程設計窗口 ①“工程資源管理器”窗口 ②“窗體設計器”窗口 ③“屬性設置”窗口 ④“代碼設計”窗口 ⑤“窗體布局”窗口 ⑥“立即”窗口 ⑦“工具箱”窗口

五、實驗報告要求

1.整理實驗結果，填入相應表格中 2.小結實驗心得體會 3.回答思考題：

（1）如果“立即”窗口和“工具箱”窗口已被關閉，如何打開？（2）如果想改變VB程序代碼的字體，應如何進行設置？

實驗二

建立VB應用程序

一、實驗目的

1．進一步熟悉VB語言編程環(huán)境 2．熟悉創(chuàng)建VB程序的步驟

二、實驗環(huán)境 1．計算機

2．Visual Basic 6.0開發(fā)環(huán)境

三、實驗說明

1．熟悉創(chuàng)建VB程序的步驟

2．進一步學習Visual Basic 6.0開發(fā)環(huán)境

四、實驗內(nèi)容和步驟

1.實驗內(nèi)容

（1）設計一個窗體，當單擊“顯示”按鈕時，在文本框內(nèi)顯示“走進VB程序樂園”；當單擊“清除”按鈕時，清除文本框內(nèi)的文本；當單擊“退出”按鈕時，結束程序運行。程序界面如下所示：

（2）設計一個窗體，打開窗體時，標簽顯示“風景這邊獨好！”且為黑色；當單擊“紅”時標簽顯示紅色；當單擊“黃”標簽顯示黃色；當單擊“還原”按鈕時，標簽顯示黑色；當單擊“退出”按鈕時，結束程序運行。程序界面如下所示：

2.實驗步驟（1）打開計算機，在Visual Basic 6.0系統(tǒng)環(huán)境下，選擇“文件”菜單中的“新建工程”菜單選項，打開“新建工程”窗口；

（2）在“新建工程”窗口按下“確定”按鈕打開“工程設計”窗口；（3）在“工程設計”窗口，首先設計窗口的屬性，然后打開工具箱窗口添加所需控件，設計該實驗的界面；

（4）在“工程設計”窗口，選擇“視圖”菜單中的“代碼窗口”菜單選項，打開“代碼窗口”窗口，設計命令按鈕控件的事件代碼；

（5）打開“工程設計”窗口，選擇“文件”菜單中的“保存窗體”菜單選項，將所建的窗體保存到指定的磁盤文件中；

（6）打開“工程設計”窗口，選擇“文件”菜單中的“保存工程”菜單選項，將所建的VB工程保存到指定的磁盤文件中；

（7）在“工程設計”窗口，選擇“運行”菜單中的“啟動”菜單選項，運行程序，觀察運行結果。

五、實驗報告要求1．整理實驗結果，填入相應表格中 2．小結實驗心得體會 3.回答思考題: 使用文本框和標簽都可以顯示信息，二者所使用的屬性一樣嗎？請分別指出。

實驗三

內(nèi)部函數(shù)的使用

一、實驗目的

1．理解VB內(nèi)部函數(shù)的功能和書寫格式 2．學會在“立即”窗口中進行操作

二、實驗環(huán)境

1．計算機

2．Visual Basic 6.0開發(fā)環(huán)境

三、實驗說明

1．熟悉Visual Basic 6.0開發(fā)環(huán)境 2．學會使用“立即”窗口 3．練習使用常用的內(nèi)部函數(shù)

四、實驗內(nèi)容和步驟

1.實驗內(nèi)容（1）常用數(shù)學函數(shù) 練習使用常用的數(shù)學函數(shù)：Abs、Cos、Exp、Int、Log、Rnd、Sgn、Sin、Sqr、Tan等。（2）常用字符函數(shù)

練習使用常用的字符函數(shù)：Lcase、Left、Len、Ltrim、Mid、Right、Rtrim、Space、Trim、Ucase等。（3）常用轉化函數(shù)

練習使用常用的轉化函數(shù)：Asc、Chr、Str、Val等。（4）常用日期函數(shù)

練習使用常用的日期函數(shù)：Date、Day、Hour、Minute、Month、Now、Second、Time、Weekday、Year等。（5）計算下列函數(shù)值。①Sqr(4+3*7)②Int(123.456)③Abs(-12345)④Mid$(“abcdABCD”,5,4)⑤Len(“清華大學出版社ABCD”)⑥Asc(“M”)⑦Asc(Chr(100))⑧DataDiff(“D”,#3/25/2004#,#10/30/2004#)⑨IsData(#11/20/2003#)⑩IsNumeric(“ABC”)2.實驗步驟

（1）打開計算機，進入Visual Basic 6.0系統(tǒng)環(huán)境；

（2）在視圖下拉菜單中選擇“立即窗口”，在“立即窗口”中計算各函數(shù)的值。

五、實驗報告要求1．整理實驗結果，填入相應表格中 2．小結實驗心得體會 3．回答思考題:（1）Int函數(shù)的功能是獲取數(shù)值的整數(shù)部分，如果在獲取數(shù)值整數(shù)部分的時候，要實現(xiàn)“四舍五入”，該如何實現(xiàn)？

（2）Rnd函數(shù)的功能是返回一個0至1之間的隨機數(shù)，如果要返回0至100之間的隨機數(shù)，該如何實現(xiàn)？

實驗四

表達式的書寫及求值

一、實驗目的

1.掌握算術運算符、字符運算符和邏輯運算符的含義 2.掌握算術表達式、字符表達式和邏輯表達式的書寫 3.掌握算術表達式、字符表達式和邏輯表達式的求值

二、實驗環(huán)境

1．計算機

2.Visual Basic 6.0開發(fā)環(huán)境

三、實驗說明

1．理解VB中各種運算符的含義

2．練習算術表達式、字符表達式和邏輯表達式的書寫

3．在“立即”窗口中練習算術表達式、字符表達式和邏輯表達式的求值

四、實驗內(nèi)容和步驟

1.實驗內(nèi)容

（1）將下列代數(shù)式寫成Visual Basic的算術表達式，并給題中變量賦值（a=1,b=2,c=3,x=2,y=1），然后計算表達式的值。

sin2(20?a(4ab?1))①

315abc?(abc②a?b?c)sin45?x?yxy ③22x?y2xy?1?a④

52a9ealna⑤

（2）已知na=100，nb=5，sa$=“Visual Basic”，da=#3/15/2004 8:15:03 PM#，sb$=“程序設計”，la=True，計算下列表達式的值。①(na+nb)/ Sqr(na)②Mid(sa + sb,8,7)③Right(sa$,5)+ Space(5)+ Left(sb$,2)④sb & Str(na)& “ 分” ⑤Year(da)& Month(da)& Day(da)⑥Hour(da)& “:” & Minute(da)& “:” & Second(da)⑦da + 20 ⑧na + nb > 200 And Sqr(na)> 10 Or la ⑨Len(sa)= 12 And Not la And na = 100 ⑩Hour(da)> Int(na / 10)And na > nb 2.實驗步驟

（1）打開計算機，進入Visual Basic 6.0系統(tǒng)環(huán)境；

（2）在視圖下拉菜單中選擇“立即窗口”，在“立即窗口”中書寫表達式，并計算各表達式的值。

五、實驗報告要求1．整理實驗結果，填入相應表格中 2．小結實驗心得體會 3．回答思考題：

（1）試計算以下表達式的值：3 Or 3, 4 And 1。

（2）把以下表達式中的括號去掉后，表達式的值改變了嗎？為什么？

?((1＋2)<(2*2))Or(10/2<>5)?((1＋2)<(2*2))+(10/2<>5)

實驗五

輸入輸出操作

一、實驗目的

1．掌握賦值語句的使用 2．掌握Print方法的使用 3．掌握輸入輸出對話框的使用

二、實驗環(huán)境

1．計算機

2．Visual Basic 6.0開發(fā)環(huán)境

三、實驗說明

1．理解賦值語句、Print方法、輸入輸出對話框的使用 2．練習賦值語句、Print方法、輸入輸出對話框的使用

四、實驗內(nèi)容和步驟

1.實驗內(nèi)容

（1）設計一個窗體，用Print方法在窗體上顯示“輕松快樂學VB！”。

（2）設計一個窗體，單擊窗體時，實現(xiàn)以下功能：

① 使用Inputbox函數(shù)輸入兩個整數(shù)X和Y； ② 計算|sinx+cosy|的值，并賦給變量Z； ③使用Msgbox函數(shù)輸出計算結果。2.實驗步驟（1）打開計算機，在Visual Basic 6.0系統(tǒng)環(huán)境下，選擇“文件”菜單中的“新建工程”菜單選項，打開“新建工程”窗口；

（2）在“新建工程”窗口按下“確定”按鈕打開“工程設計”窗口；（3）在“工程設計”窗口，首先設計窗口的屬性，然后打開工具箱窗口添加所需控件，設計該實驗的界面；

（4）選擇“視圖”菜單中的“代碼窗口”菜單選項，打開“代碼窗口”窗口，設計窗體單擊事件的事件代碼；（5）運行程序，觀察結果；（6）保存窗體，保存工程。

五、實驗報告要求

1．整理實驗結果，填入相應表格中 2．小結實驗心得體會 3．回答思考題：

（1）Inputbox函數(shù)的返回值是什么類型的數(shù)據(jù)？使用Inputbox函數(shù)一次可以輸入兩個或兩個以上的值嗎？

（2）賦值號“=”在VB中還有其它的功能嗎？請指出。

實驗六

標準模塊和窗體的使用

一、實驗目的 1.理解標準模塊的建立和模塊級變量的定義和使用 2.掌握窗體的建立和窗體常用屬性、方法和事件

二、實驗環(huán)境

1．計算機

2．Visual Basic 6.0開發(fā)環(huán)境

三、實驗說明

1．熟練運用Visual Basic 6.0開發(fā)環(huán)境 2．熟悉建立VB應用程序的步驟 3．學會使用標準模塊

4．學會設計窗體界面實現(xiàn)一定的功能

四、實驗內(nèi)容和步驟

1.實驗內(nèi)容

（1）建立“Sub Main”過程，使用Inputbox函數(shù)輸入長方體的長、寬和高，計算長方體的體積，使用Msgbox函數(shù)輸出計算結果。

（2）設計一個窗體，通過2個文本框接收數(shù)據(jù)，1個文本框輸出數(shù)據(jù)，2個標簽分別顯示“＋”和“＝”，3個命令按鈕控制操作，實現(xiàn)加法器的功能，程序的運行結果如下圖所示：

2.實驗步驟

實驗內(nèi)容（1）操作步驟：

（1）打開計算機，在Visual Basic 6.0系統(tǒng)環(huán)境下，選擇“文件”菜單中的“新建工程”菜單選項，打開“新建工程”窗口；（2）選擇“工程”菜單中的“添加模塊”菜單選項，打開“添加模塊”窗口；

（3）在“添加模塊”窗口中，單擊“打開”按鈕，打開“代碼設計”窗口，輸入程序代碼；

（4）選擇“工程”菜單中的“工程屬性”菜單選項，打開“工程屬性”窗口；

（5）在“工程屬性”窗口中，單擊“確定”按鈕，確定“Sub Main”過程為當前啟動對象；

（6）運行程序觀察結果；（7）保存模塊文件和工程。實驗內(nèi)容（2）操作步驟：

（1）打開計算機，在Visual Basic系統(tǒng)環(huán)境下，選擇“文件”菜單中的“新建工程”菜單選項，打開“新建工程”窗口；

（2）在“新建工程”窗口按下“確定”按鈕打開“工程設計”窗口；（3）在“工程設計”窗口，首先設計窗口的屬性，然后打開“工具箱”窗口添加所需控件，設計該實驗的界面；

（4）選擇“視圖”菜單中的“代碼窗口”菜單選項，打開“代碼窗口”窗口，設計窗體單擊事件的事件代碼；（5）運行程序，觀察結果；（6）保存窗體，保存工程。

五、實驗報告要求1．整理實驗結果，填入相應表格中 2．小結實驗心得體會 3.回答思考題：

（1）窗體模塊與標準模塊有什么不同?（2）如果在窗體的事件過程中，要使用標準模塊中定義的變量，應如何定義該變量？

實驗七

基本內(nèi)部控件的使用

一、實驗目的

1.掌握基本內(nèi)部控件的屬性、方法和事件 2.掌握基本內(nèi)部控件的使用

二、實驗環(huán)境

1．計算機

2．Visual Basic 6.0開發(fā)環(huán)境

三、實驗說明

1．熟練運用Visual Basic 6.0開發(fā)環(huán)境 2．熟悉建立VB應用程序的步驟 3．學會使用基本內(nèi)部控件

四、實驗內(nèi)容和步驟

1.實驗內(nèi)容（1）設計一個窗體，通過1文本框輸出數(shù)據(jù)，3個命令按鈕控制文本框內(nèi)數(shù)據(jù)的操作，實現(xiàn)文本編輯器的功能，程序的運行結果如下圖所示：

（2）設計一個窗體，利用文本框輸出數(shù)據(jù)，窗體下面有一個電子時鐘，程序的運行結果如下圖所示：

2.實驗步驟

（1）打開計算機，在Visual Basic 6.0系統(tǒng)環(huán)境下，選擇“文件”菜單中的“新建工程”菜單選項，打開“新建工程”窗口；

（2）在“新建工程”窗口按下“確定”按鈕打開“工程設計”窗口；（3）在“工程設計”窗口，首先設計窗口的屬性，然后打開“工具箱”窗口添加所需控件，設計該實驗的界面；

（4）選擇“視圖”菜單中的“代碼窗口”菜單選項，打開“代碼窗口”窗口，設計命令按鈕控件的事件代碼；（5）運行程序，觀察結果；（6）保存窗體，保存工程。

五、實驗報告要求

1． 整理實驗結果，填入相應表格中 2． 小結實驗心得體會 3.回答思考題：

在一個窗體上，可以把多個命令按鈕的Default屬性設置為TRUE嗎？為什么？

實驗八

順序結構程序設計

一、實驗目的

1.掌握順序結構的執(zhí)行過程 2.掌握順序結構程序設計方法

二、實驗環(huán)境

1．計算機

2．Visual Basic 6.0開發(fā)環(huán)境

三、實驗說明

1．熟練運用Visual Basic 6.0開發(fā)環(huán)境 2．熟悉建立VB應用程序的步驟 3．學會編寫順序結構程序

四、實驗內(nèi)容和步驟

1.實驗內(nèi)容

（1）設計一窗體，通過3個文本框輸入長方體的長、寬和高，單擊“計算”按鈕計算長方體的體積和表面積，程序的運行結果如下圖所示：

（2）設計一窗體，在窗體中輸出一個由“*”組成的菱形。2.實驗步驟

（1）打開計算機，在Visual Basic 6.0系統(tǒng)環(huán)境下，選擇“文件”菜單中的“新建工程”菜單選項，打開“新建工程”窗口；

（2）在“新建工程”窗口按下“確定”按鈕打開“工程設計”窗口；（3）在“工程設計”窗口，首先設計窗口的屬性，然后打開“工具箱”窗口添加所需控件，設計該實驗的界面；

（4）選擇“視圖”菜單中的“代碼窗口”菜單選項，打開“代碼窗口”窗口，設計命令按鈕控件的事件代碼；（5）運行程序，觀察結果；（6）保存窗體，保存工程。

五、實驗報告要求1． 整理實驗結果，填入相應表格中 2． 小結實驗心得體會

實驗九

分支結構程序設計

一、實驗目的

1.掌握分支結構語句的執(zhí)行過程

2.掌握IF語句和SELECT CASE 語句的使用 3．掌握分支結構程序設計方法

二、實驗環(huán)境

1．計算機

2．Visual Basic 6.0開發(fā)環(huán)境

三、實驗說明

1．熟練運用Visual Basic 6.0開發(fā)環(huán)境 2．熟悉建立VB應用程序的步驟 3．學會編寫分支結構程序

四、實驗內(nèi)容和步驟

1.實驗內(nèi)容

（1）求解方程ax2+bx+c=0，通過三個文本框輸入a，b，c的值，程序的運行結果如下圖所示：

（2）通過文本框輸入x的值，求解以下分段函數(shù)的值，使用SELECT CASE 語句實現(xiàn)。

x?100?x?0.9x1000?x?2000???0.8x2000?x?3000?x?3000 Y＝?0.7x2.實驗步驟

（1）打開計算機，在Visual Basic 6.0系統(tǒng)環(huán)境下，選擇“文件”菜單中的“新建工程”菜單選項，打開“新建工程”窗口；

（2）在“新建工程”窗口按下“確定”按鈕打開“工程設計”窗口；（3）在“工程設計”窗口，首先設計窗口的屬性，然后打開“工具箱”窗口添加所需控件，設計該實驗的界面；

（4）選擇“視圖”菜單中的“代碼窗口”菜單選項，打開“代碼窗口”窗口，設計命令按鈕控件的事件代碼；（5）運行程序，觀察結果；（6）保存窗體，保存工程。

五、實驗報告要求1． 整理實驗結果，填入相應表格中 2． 小結實驗心得體會 3． 回答思考題：（1）有以下程序段：

Select Case Int(Aver / 10)Case 9 print “優(yōu)秀” Case 8 print “良好” Case Is > 5 print “中等” Case Is < 6 print “差” End Select 試問：當Aver=100時，程序的輸出結果？（2）在VB中，改變Select Case語句中Case項的順序，會影響程序的執(zhí)行結果嗎？

實驗

十一、實驗目的1．理解循環(huán)結構的執(zhí)行過程

循環(huán)結構程序設計

2．掌握FOR語句、WHILE語句和DO語句的使用 3．掌握循環(huán)結構程序設計方法

二、實驗環(huán)境

1．計算機

2．Visual Basic 6.0開發(fā)環(huán)境

三、實驗說明

1．熟練運用Visual Basic 6.0開發(fā)環(huán)境 2．熟悉建立VB應用程序的步驟 3．學會編寫循環(huán)結構程序

四、實驗內(nèi)容和步驟

1.實驗內(nèi)容

（1）求S的值。P＝1+（1+2）＋（1+2+3）＋（1+2+3+4）＋?+（1+2+3+4＋?N）（令N=50），程序的運行結果如下圖所示：

（2）設計一窗體,輸出1～100之間能被3整除的個數(shù)及它們的和，程序的運行結果如下圖所示：

2.實驗步驟（1）打開計算機，在Visual Basic 6.0系統(tǒng)環(huán)境下，選擇“文件”菜單中的“新建工程”菜單選項，打開“新建工程”窗口；

（2）在“新建工程”窗口按下“確定”按鈕打開“工程設計”窗口；（3）在“工程設計”窗口，首先設計窗口的屬性，然后打開“工具箱”窗口添加所需控件，設計該實驗的界面；

（4）選擇“視圖”菜單中的“代碼窗口”菜單選項，打開“代碼窗口”窗口，設計命令按鈕控件的事件代碼；（5）運行程序，觀察結果；（6）保存窗體，保存工程。

五、實驗報告要求

1． 整理實驗結果，填入相應表格中 2． 小結實驗心得體會

實驗十一

一維數(shù)組的應用

一、實驗目的

1．掌握一維數(shù)組的概念、定義、數(shù)組元素的引用和初始化。

2．學會用數(shù)組和程序基本控制結構實現(xiàn)數(shù)據(jù)的求和、求平均、求極值和排序等算法程序的設計

3．加深對循環(huán)控制結構的理解和使用

二、實驗環(huán)境

1．計算機

2．Visual Basic 6.0開發(fā)環(huán)境

三、實驗說明

1．熟練運用Visual Basic 6.0開發(fā)環(huán)境 2．熟悉建立VB應用程序的步驟

3．學會使用一維數(shù)組實現(xiàn)簡單的應用程序

四、實驗內(nèi)容和步驟

1.實驗內(nèi)容

產(chǎn)生10個隨機數(shù)，存入到數(shù)組中，編程實現(xiàn)以下內(nèi)容：（1）求數(shù)組所有元素的和及平均值；（2）輸出數(shù)組的最大值和最小值；

（3）對數(shù)組從小到大進行排序，并輸出排序后的數(shù)組元素。要求在窗體上顯示結果。2.實驗步驟

（1）打開計算機，在Visual Basic 6.0系統(tǒng)環(huán)境下，選擇“文件”菜單中的“新建工程”菜單選項，打開“新建工程”窗口；

（2）在“新建工程”窗口按下“確定”按鈕打開“工程設計”窗口；（3）在“工程設計”窗口，首先設計窗口的屬性，然后打開“工具箱”窗口添加所需控件，設計該實驗的界面；

（4）選擇“視圖”菜單中的“代碼窗口”菜單選項，打開“代碼窗口”窗口，設計命令按鈕控件的事件代碼；（5）運行程序，觀察結果；（6）保存窗體，保存工程。

五、實驗報告要求

1． 整理實驗結果，填入相應表格中 2． 小結實驗心得體會

實驗十二

二維數(shù)組的應用

一、實驗目的

1．掌握二維數(shù)組的概念、定義、數(shù)組元素的引用

2．學會用二維數(shù)組和程序基本控制結構實現(xiàn)矩陣運算的方法

二、實驗環(huán)境

1．計算機

2．Visual Basic 6.0開發(fā)環(huán)境

三、實驗說明

1．熟練運用Visual Basic 6.0開發(fā)環(huán)境 2．熟悉建立VB應用程序的步驟

3．學會使用二維數(shù)組實現(xiàn)簡單的矩陣運算

四、實驗內(nèi)容和步驟

1.實驗內(nèi)容

使用二維數(shù)組表示一個3行3列的方陣，編程實現(xiàn)以下內(nèi)容：（1）輸出方陣的轉置矩陣；（2）輸出方陣每行的最大值和最小值。要求在窗體上顯示結果。2.實驗步驟

（1）打開計算機，在Visual Basic 6.0系統(tǒng)環(huán)境下，選擇“文件”菜單中的“新建工程”菜單選項，打開“新建工程”窗口；

（2）在“新建工程”窗口按下“確定”按鈕打開“工程設計”窗口；（3）在“工程設計”窗口，首先設計窗口的屬性，然后打開“工具箱”窗口添加所需控件，設計該實驗的界面；

（4）選擇“視圖”菜單中的“代碼窗口”菜單選項，打開“代碼窗口”窗口，設計命令按鈕控件的事件代碼；（5）運行程序，觀察結果；（6）保存窗體，保存工程。

五、實驗報告要求1． 整理實驗結果，填入相應表格中 2． 小結實驗心得體會