第一篇：VB上機(jī)實(shí)習(xí)第五、六章

165

6.2.1題目

一、選擇題

1.以下敘述中，錯(cuò)誤的是（）。

A.雙擊鼠標(biāo)可以觸發(fā)DbiClick事件

B.窗體或控件的事件名稱可以由編程人員確定

C.移動(dòng)鼠標(biāo)時(shí)會(huì)觸發(fā)MouseMove事件

D.控件的名稱可由編程人員確定

2.程序運(yùn)行后，先將焦點(diǎn)移到文本框中，按A鍵，然后單擊窗體，則在窗體上顯示的內(nèi)容是（）。

A．MouseDownB。MouseUpC。LoadD。Click

3.窗體的MouseDown事件過(guò)程如下：

From_MouseDown（button As Integer，shift，xAs Single，y As Single）

其中有4個(gè)參數(shù)，正確的描述是（）。

A． 通過(guò)button參數(shù)可判定當(dāng)前按下的是哪一個(gè)鼠標(biāo)按鍵

B． Shoft參數(shù)只能用來(lái)確定是否按下Shift鍵

C． Shift參數(shù)只能用來(lái)確定是否按下Alt鍵與Ctel鍵

D． 參數(shù)x、y是用來(lái)設(shè)置鼠標(biāo)當(dāng)前位置的坐標(biāo)

4.當(dāng)用戶按下并釋放一個(gè)鍵后觸發(fā)KeyPress、KeyUp和KeyDown事件，這3個(gè)事件的發(fā)生順序是（）

A．KeyPress、KeyUp、KeyDown

B．KeyDown、KeyUp、KeyPress

C．KeyPress、KeyDown、KeyUp

D．KeyDown、KeyPress、KeyUp

5.設(shè)窗體的KeyPreview屬性為True，并且有下列程序。當(dāng)焦點(diǎn)在窗體上的文本框上時(shí)，按下X鍵，文本框接收到的字符是（）。

Private Sub From_keyDown（keycode AS Integer，Shift As Integer）

Keycode=keycode+1

End Sub

A.XB.YC.空格D.沒(méi)有接收到字符

6.下列關(guān)于鍵盤事件的說(shuō)法中，正確的是（）。

A.按下鍵盤上的任意一個(gè)鍵和數(shù)字鍵盤的1鍵的keycode碼相同

B.大鍵盤上的1鍵和數(shù)字鍵盤的1鍵的keycode碼相同

C.keyDown和KeyUp事件過(guò)程中都有keyascii參數(shù)

D.大鍵盤上的4鍵的上檔字符是“￥”，當(dāng)同時(shí)按下Shift鍵和大鍵盤上的4鍵時(shí)，Key-Press事件過(guò)程中的keyascii參數(shù)值是“$”的ASCII值。

7.在KeyDown或KeyUp事件過(guò)程中，能用來(lái)檢查Ctrl和F3鍵是否同時(shí)被按下的表達(dá)式是（）。

A.（button=vbCtrlMask）And(keycode=vbKeyF3)

B.Keycode=vbKeyControl+vbKeyF3

C.(keycode=vbKeyF3)And(shift And vbCtrlMask)

D.(shift And VBCtrlMask)And(keycode And vbKeyF3)

1.2.3.4.5.6.7.在執(zhí)行KeyPress事件過(guò)程時(shí)，keyascii是所按鍵____ 值。對(duì)于有上檔字符和下檔字符的鍵，當(dāng)執(zhí)行KeyPress事件過(guò)程中，keycode是____ 字符的____ 值在KeyDown和KeyUp事件過(guò)程中，當(dāng)參數(shù)shift的值為_(kāi)___，____，____，時(shí)，分別代表____，____，____ 鍵 在MouseDown和KeyUp事件過(guò)程中，當(dāng)參數(shù)shift值為_(kāi)___，____，____，時(shí)，分別代表鼠標(biāo)的____，____，____，鍵 當(dāng)用戶單擊鼠標(biāo)右鍵時(shí)，MouseDown,MouseUp和MouseMove事件過(guò)程中的button參數(shù)值為_(kāi)___當(dāng)用戶同時(shí)按下Ctrl和Shift鍵時(shí)，單擊鼠標(biāo)，MouseDown,MouseUp和MouseMove事件過(guò)程中的shift參數(shù)為_(kāi)___，如果要在程序運(yùn)行期間改變鼠標(biāo)的形狀必須先將MousePointer設(shè)置為vbCustom,然后在程序中用LoadPicture函數(shù)將需要的圖標(biāo)文件《。Ico》或指針文件《.cur》裝入____ 屬性中。7.只要將MousePointer屬性設(shè)置為_(kāi)_____，鼠標(biāo)指針就會(huì)恢復(fù)原樣。

1．在菜單中放置分隔欄的方法是將該菜單項(xiàng)的Caption設(shè)為()

A．連字符(-)B．下劃線(__)

C．連接符(&)D．兩個(gè)連續(xù)的下劃線(_ _)

2．以下陳述中正確的是()(多選)

A．分隔欄可以出現(xiàn)在頂級(jí)菜單項(xiàng)中

B．頂級(jí)菜單項(xiàng)的Checked屬性不能為True

C．對(duì)同一個(gè)菜單項(xiàng)，為其指定訪問(wèn)鍵后，就不能再為其指定快捷鍵

D．菜單項(xiàng)的Enabled屬性設(shè)為False后，它會(huì)被灰化顯示

3．菜單項(xiàng)數(shù)組必須滿足()(多選)

A．Name屬性值可以不同 B．有相同的行首縮進(jìn)

C．所有元素在菜單中可以不連續(xù) D．各元素必有惟一索引值

4．為了響應(yīng)工具欄上的多個(gè)按鈕的單擊事件，可以通過(guò)按鈕的()屬性識(shí)別是由哪個(gè)按鈕引發(fā)。

A．Button B．Key C．Index D．B 和C均可

5．在使用菜單編輯器創(chuàng)建菜單時(shí)，可在菜單名稱中某字母前插入()符號(hào)，那么在運(yùn)行程序時(shí)按Alt鍵和該字母鍵就可以打開(kāi)該命令菜單。

A．下劃線 B．& C．$ D．@

6．如果要在兩個(gè)菜單命令項(xiàng)之間加一條分隔線，可在標(biāo)題文本框中鍵入()。

A．– B．+ C．& D．#

7．在用菜單編輯器設(shè)計(jì)菜單時(shí)，必須輸入的項(xiàng)是()。

A．快捷鍵 B．標(biāo)題 C．索引 D．名稱

8．菜單控件僅支持以下()事件。

A．Click B．MouseDown C．KeyPress D．Load

9．在使用彈出菜單時(shí)，下面說(shuō)法不正確的情況是()。

A．只能同時(shí)顯示一個(gè)彈出菜單

B．使用PopupMenu 方法來(lái)顯示彈出菜單

C．在設(shè)計(jì)時(shí)，應(yīng)該將彈出菜單的頂層菜單項(xiàng)的Visible屬性設(shè)為False

D．在顯示彈出菜單以后，將執(zhí)行以后的代碼

10．下列不能打開(kāi)菜單編輯器的操作是()。

A．按Ctrl+E

B．單擊工具欄中的“菜單編輯器”按鈕

C．執(zhí)行“工具”菜單中的“菜單編輯器”命令

D．按Shift + Alt + M

11．假定有一個(gè)菜單項(xiàng)，名為MenuItem，為了在運(yùn)行時(shí)使該菜單項(xiàng)失效(變灰)，應(yīng)使用的語(yǔ)句為()。

A．MenuItem.Enabled=False B．MenuItem.Enabled=True

C．MenuItem.Visible=True D．Menultem.Visible=False

12．以下關(guān)于菜單編輯器中“索引”項(xiàng)的敘述中，錯(cuò)誤的是()。

A．“索引”確定了菜單項(xiàng)顯示的順序

B．“索引”是控件數(shù)組的下標(biāo)

C．使用“索引”時(shí),可有一組菜單項(xiàng)具有相同的“名字”

D．使用“索引”后,在單擊菜單項(xiàng)的事件過(guò)程中可以通過(guò)“索引”引用菜單項(xiàng)

13．用戶通過(guò)設(shè)置菜單項(xiàng)的()屬性值為False來(lái)使該菜單項(xiàng)不可見(jiàn)。

A．Hide B．Checked C．Visible D．Enabled

14．下列關(guān)于菜單的說(shuō)法中，錯(cuò)誤的是()。

A．每個(gè)菜單項(xiàng)都是一個(gè)控件，與其他控件一樣也有其屬性和事件

B．除了Click事件之外，菜單項(xiàng)不可以響應(yīng)其他事件

C．菜單項(xiàng)的索引號(hào)可以不連續(xù)

D．菜單項(xiàng)的索引號(hào)必須從1開(kāi)始

17．以下有關(guān)由多個(gè)窗體和標(biāo)準(zhǔn)模塊組成的應(yīng)用程序設(shè)計(jì)方法的敘述中，錯(cuò)誤的是()。

A．在缺省情況下，設(shè)計(jì)時(shí)的第一個(gè)窗體被指定為啟動(dòng)窗體

B．通過(guò)人為設(shè)置，可指定任一窗體為啟動(dòng)窗體

C．通過(guò)人為設(shè)置，可指定標(biāo)準(zhǔn)模塊中的Main()過(guò)程為啟動(dòng)過(guò)程

D．通過(guò)人為設(shè)置，可指定窗體模塊中的Main()過(guò)程為啟動(dòng)過(guò)程

18．以下陳述中正確的是()。(多選)

A．一個(gè)應(yīng)用程序中只能有一個(gè)MDI父窗體

B．MDI父窗體上可以放置任意控件

C．可以用Print方法在MDI父窗體上顯示信息

D．一個(gè)MDI子窗體最小化后，其圖標(biāo)顯示在MDI父窗體中

19．要在工程中創(chuàng)建一個(gè)MDI父窗體只要()。(多選)

A．在菜單中選擇“工程”—“添加MDI窗體”

B．在工具欄的添加按鈕的下拉菜單中選擇“MDI窗體”

C．新建一個(gè)窗體，其將MDIChild屬性設(shè)為True

D．新建一個(gè)窗體，其將MDIChild屬性設(shè)為False

20．要使MDI子窗體在加載時(shí)就自動(dòng)顯示出來(lái)，應(yīng)()。

A．將Scrollbars屬性設(shè)為True

B．將Scrollbars屬性設(shè)為False

C．將AutoShowChildren屬性設(shè)為True

D．將AutoShowChildren屬性設(shè)為False

21．使用MDI窗體時(shí)，對(duì)于下面的說(shuō)法選擇正確的選項(xiàng)()。

A．能在MDI窗體中打開(kāi)多個(gè)文檔界面

B．子窗體是模式窗口

C．子窗體的和父窗體能夠同時(shí)顯示自己的菜單

D．如果子窗體的BorderStyle屬性為vbFixedToolWindow,其大小將不能改變

22．多窗體程序由多個(gè)窗體組成。在缺省情況下，VB在執(zhí)行應(yīng)用程序時(shí)，總是把()指定為啟動(dòng)窗口。

A．不包含任何控件的窗口 B．設(shè)計(jì)時(shí)的第一個(gè)窗體

C．命名為Frm1的窗體 D．包含控件最多的窗體

23．要使自定義的對(duì)話框Form1退出，可以在該對(duì)話框的“退出”按鈕的Click事件過(guò)程中使用以下()中的一個(gè)語(yǔ)句。(多選)

A．Form1.Unload B．UnloadForm1

C．Form1.Hide D．Unload Me

24．MDI窗體的QueryUnload事件將在()時(shí)候被觸發(fā)。(多選)

A．在代碼中使用Unload語(yǔ)句

B．當(dāng)前Windows操作結(jié)束

C．利用Windows任務(wù)管理器關(guān)閉應(yīng)用程序

D．MDI窗體正在關(guān)閉

E．窗體的所有者正在關(guān)閉

F．雙擊窗體圖標(biāo)或選擇控制菜單中的“關(guān)閉”命令

二、填空題

1．菜單編輯器的“標(biāo)題”選項(xiàng)對(duì)應(yīng)于菜單控件的____________屬性。

菜單編輯器的“名稱”選項(xiàng)對(duì)應(yīng)于菜單控件的____________屬性。

菜單編輯器的“可見(jiàn)”選項(xiàng)對(duì)應(yīng)于菜單控件的____________屬性。

菜單編輯器的“索引”選項(xiàng)對(duì)應(yīng)于菜單控件的____________屬性。

菜單編輯器的“復(fù)選”選項(xiàng)對(duì)應(yīng)于菜單控件的____________屬性。

菜單編輯器的“有效”選項(xiàng)對(duì)應(yīng)于菜單控件的____________屬性。

2．菜單分為_(kāi)_____菜單和______菜單，菜單總與__________相關(guān)聯(lián)，設(shè)計(jì)菜單需要在______中設(shè)計(jì)。

3．不可以給______級(jí)菜單設(shè)置快捷鍵。

4．菜單中的分隔條是一種菜單控件，但不響應(yīng)__________事件，也不能被選中。

5．為顯示彈出式菜單，可以使用__________方法。

6．如果菜單標(biāo)題的某個(gè)字母前輸入一個(gè)“&”符號(hào)，那么該字母就成了熱鍵字母；如果在建立菜單時(shí)在標(biāo)題文本框中輸入一個(gè)“______”，那么顯示時(shí)形成一個(gè)分隔符。

7．如果把菜單項(xiàng)的______屬性設(shè)置為True，則該菜單項(xiàng)成為一個(gè)選項(xiàng)。

8．不管是在窗口頂部菜單條上顯示的菜單，還是隱藏的菜單，都可以用______方法把它們作為菜單在程序運(yùn)行期間顯示出來(lái)。

9．菜單設(shè)計(jì)中每一個(gè)菜單項(xiàng)是一個(gè)控件，這些控件都只有一個(gè)______事件。

10．為了能夠通過(guò)鍵盤訪問(wèn)主菜單項(xiàng)，可在菜單編輯器的“標(biāo)題”選項(xiàng)中的某字母前插入_______符號(hào)。運(yùn)行時(shí)，該字母會(huì)帶有下劃線，按Alt鍵和該字母就可以訪問(wèn)相應(yīng)的主菜單項(xiàng)。

11．彈出式菜單在___________中設(shè)計(jì)，且一定要使其______級(jí)菜單不可見(jiàn)。

12．要使用工具欄控件設(shè)計(jì)工具欄，應(yīng)先在“部件”對(duì)話框中選擇__________，然后從工具箱中選__________控件。

13．設(shè)置工具欄控件的__________屬性可以改變工具欄在窗體上的位置。

14．要給工具欄按鈕添加圖像，應(yīng)首先在__________控件中添加所需要的圖像，然后在工具欄的屬性頁(yè)中選擇與該控件相關(guān)聯(lián)。

15．運(yùn)行時(shí)，要使工具欄ToolBar1中索引值為5的按鈕無(wú)效，應(yīng)使用語(yǔ)句：________________________________。

16．要使工具欄控件的某按鈕呈菜單的式樣，可以在其屬性頁(yè)中設(shè)置其______選項(xiàng)為5-tbrDropDown。

17．要使用狀態(tài)欄控件設(shè)計(jì)狀態(tài)欄，應(yīng)首先在“部件”對(duì)話框中選擇________________，然后從工具箱中選擇__________控件。

18．狀態(tài)欄由多個(gè)“窗格”對(duì)象組成，“窗格”對(duì)象的特征是通過(guò)狀態(tài)欄的_____屬性決定的。

19．要在運(yùn)行時(shí)給狀態(tài)StstusBar1的第二個(gè)窗格添加一幅圖片，該圖片由文件“c:windowsglass.ico”指定，應(yīng)使用語(yǔ)句：______________________________。

20．SDI指__________界面，MDI指__________界面。

21．要將某窗體定義為一個(gè)MDI子窗體，需要將其__________屬性設(shè)置為True

22．在一個(gè)MDI應(yīng)用程序中，可以含有________、_______、______這3類窗體。

23．一個(gè)應(yīng)用程序最多可以有__________個(gè)MDI父窗體。

24．在運(yùn)行時(shí)，MDI父窗體中的子窗體最小化時(shí)，其圖標(biāo)將顯示在_________中。

第二篇：長(zhǎng)江大學(xué)VB上機(jī)實(shí)習(xí)報(bào)告

計(jì)算機(jī)上機(jī)實(shí)習(xí)報(bào)告

學(xué)院：石油工程學(xué)院 班級(jí)：儲(chǔ)運(yùn)11204 姓名：魏亞榮

學(xué)號(hào)：XXXXXXX 班內(nèi)序號(hào)：XX 指導(dǎo)教師：XXX

第 1 頁(yè)

計(jì)算機(jī)上機(jī)實(shí)習(xí)報(bào)告

目錄

一.系統(tǒng)名稱----------------------------3 二.實(shí)習(xí)目的----------------------------3 三.系統(tǒng)功能概要----------------------3 四.系統(tǒng)設(shè)計(jì)分析----------------------3 五．窗體設(shè)計(jì)與程序代碼------------5 六．心得體會(huì)---------------------------16

第頁(yè)

計(jì)算機(jī)上機(jī)實(shí)習(xí)報(bào)告

一、系統(tǒng)名稱----班級(jí)學(xué)生成績(jī)管理系統(tǒng)

二、實(shí)習(xí)目的：

綜合應(yīng)用所學(xué)理論知識(shí)，聯(lián)系實(shí)際開(kāi)發(fā)一個(gè)具備簡(jiǎn)易功能的班級(jí)學(xué)生成績(jī)管理系統(tǒng)。熟悉程序編寫與調(diào)試，熟悉數(shù)據(jù)文件的創(chuàng)建、打開(kāi)、讀寫、關(guān)閉等相關(guān)操作，同時(shí)讓我們熟悉VB 6.0的開(kāi)發(fā)環(huán)境,掌握基本的編程方法,熟悉用VB語(yǔ)言完成一個(gè)應(yīng)用程序的設(shè)計(jì)過(guò)程,掌握有關(guān)編輯和調(diào)試程序的方法和技巧。

三、系統(tǒng)功能概要

1、用記事本新建一個(gè)文本文件，將本班的M名學(xué)生的有關(guān)信息及本學(xué)期的N門考試課的成績(jī)（要求用假想分?jǐn)?shù)，并要求將自己的每門課的放在第一列）輸入到這個(gè)文件中,建議按如下形式存放(注：20≤M≤50、5≤N≤8，下文以M=10,N=5為例): 序號(hào)

姓名

幸運(yùn)日

出生日期

英語(yǔ)

VB 數(shù)學(xué)

體育

專業(yè)課

作者自己

1992.12.19 99

98

10

張某

1993.08.06 77

80

5

李某

1994.11.16 89

99

3

王某

1993.06.04 56

43

2

劉某

1994.01.05 82

85

1

孫某

1994.01.15 45

66

4

趙某

1992.01.05 82

56

6

陳某

1993.12.25 86

66

9

周某

1666.12.23 56

65

8

錢某

1994.03.03 56

56

2、將本學(xué)期的N門課程及其學(xué)分(16學(xué)時(shí)為1個(gè)學(xué)分)輸入到另一個(gè)數(shù)據(jù)文件（文件類型同上題）中，建議如下列形式存放：

編號(hào)

課程名稱

課程學(xué)分

英語(yǔ)

5.0 2

vb程序設(shè)計(jì)

3

數(shù)學(xué)

4.5 4

體育

3.0 5

專業(yè)課

10.0 1）找出“出生日”與幸運(yùn)日相同的人，并打印出其信息（每行輸出一個(gè)人信息）2）統(tǒng)計(jì)出分別擁有幸運(yùn)數(shù)字1，2,3,4,5,6,7,8,9,0的人數(shù) 3）能查出任何一個(gè)你感興趣的人的信息 4）可新添加一個(gè)人的信息 5）和刪除一個(gè)人的信息

第頁(yè)

計(jì)算機(jī)上機(jī)實(shí)習(xí)報(bào)告

6）可以對(duì)某個(gè)人的幸運(yùn)數(shù)字進(jìn)行修改，只改變其幸運(yùn)數(shù)字，其他信息不變

7）根據(jù)以上兩文件內(nèi)容分別計(jì)算每個(gè)學(xué)生N門課的加權(quán)平均分（保留2位小數(shù)，4舍5入）,按平均分排列名次，平均分相同則名次并列，如第1、2、2、4、5、5、7…名。用VB創(chuàng)建一個(gè)數(shù)據(jù)文件，存放班級(jí)的成績(jī)表，建議按以下形式存放。

學(xué)號(hào)

姓名

英語(yǔ)

vb程序設(shè)計(jì)

數(shù)學(xué)

平均成績(jī)

名次

張某

80.5

2

李某

78.2

3

王某

88.8

4

趙某

68.5

8）分別統(tǒng)計(jì)全班每門課的平均分，并計(jì)算各分?jǐn)?shù)段（60分以下；60～69；70～79；80～89；90分以上）的學(xué)生人數(shù)。用VB創(chuàng)建一個(gè)新的數(shù)據(jù)文件，在該文件中存放數(shù)據(jù)的格式如下：

范圍.英語(yǔ)

VB

.>=90

.80-89

...............................9）打印每名學(xué)生成績(jī)條（并將結(jié)果存放到用VB創(chuàng)建的一個(gè)新的數(shù)據(jù)文件中）。

10）打印所有存在不及格課程學(xué)生的名單（含學(xué)號(hào)、不及格課程名稱、課程的學(xué)分及成績(jī)）。11）打印優(yōu)等生名單（學(xué)號(hào)、Ｎ門課成績(jī)、平均分名次）優(yōu)等生條件：

a)平均分 ? 90分

b)名次在本班位于前三名

c)平均分?85分，并且有二門課的成績(jī)都 ? 95分

選做內(nèi)容：打印每門課成績(jī)分布圖

說(shuō)

明：所有輸出結(jié)果應(yīng)寫入用VB創(chuàng)建的文件中，格式要整齊，并有適當(dāng)?shù)奈淖终f(shuō)明。實(shí)習(xí)報(bào)告要求：應(yīng)包括分析設(shè)計(jì)與說(shuō)明、部分過(guò)程（函數(shù)）的源程序清單、程序調(diào)試過(guò)程中遇到的問(wèn)題及解決方法，有待改善或改進(jìn)的意見(jiàn)，對(duì)本次實(shí)習(xí)的意見(jiàn)與建議、收獲等。其中原始數(shù)據(jù)及程序運(yùn)行的結(jié)果應(yīng)作為附錄附于實(shí)習(xí)報(bào)告之后。

四、系統(tǒng)設(shè)計(jì)分析：

1、該成績(jī)管理系統(tǒng)中要同時(shí)表示學(xué)生的學(xué)號(hào)、姓名、成績(jī)等一些信息，及課程、課程學(xué)分等一些信息，由于每項(xiàng)信息的意義不同，數(shù)據(jù)類型也不同，但還要同時(shí)作為一個(gè)整體來(lái)描敘和處理，因此需要通過(guò)用戶自定義來(lái)解決。所以在編程之前新建一個(gè)標(biāo)準(zhǔn)模塊用來(lái)定義自定義類型。

2、為了便于后面執(zhí)行求加權(quán)平均分、排名等命令，在Form1發(fā)生Load事件時(shí)應(yīng)將學(xué)生信息和課程信息讀取并放到兩個(gè)數(shù)組中，由于這兩個(gè)數(shù)組在該管理系統(tǒng)的全程序都要用到，因此應(yīng)定義為全局類型。如是在標(biāo)準(zhǔn)模塊中定義兩個(gè)數(shù)組。

3、由于原始數(shù)據(jù)文件中相鄰的兩列之間空格的長(zhǎng)短不一，因此在調(diào)用Split函數(shù)之前應(yīng)窗體通用模塊中自定義一個(gè)space1函數(shù)將原始數(shù)據(jù)文件中相鄰的兩列之間空格數(shù)變?yōu)橄嗤?/p>

4、在編寫程序時(shí)，由于該系統(tǒng)的程序代碼較多，因此在編寫時(shí)要合理。

5、在打印成績(jī)條、不及格名單、優(yōu)等生等信息時(shí)，應(yīng)邊用write語(yǔ)句分別將數(shù)據(jù)存入一個(gè)新的文件中。

第頁(yè)

計(jì)算機(jī)上機(jī)實(shí)習(xí)報(bào)告

6、實(shí)習(xí)必須按著老師的嚴(yán)格要求完成所有的實(shí)習(xí)任務(wù)，并整理成文件打印。

五．窗體設(shè)計(jì)與程序代碼

1.此次窗體設(shè)計(jì)使用了11個(gè)命令按鈕分別對(duì)應(yīng)不同的系統(tǒng)功能要求，具體界面如下

2.程序代碼

⑴統(tǒng)計(jì)“出生日”與幸運(yùn)日相同的人

Dim stu()As student, n%, kc()As kecheng, x% Private Sub Command1_Click()Cls For i = 1 To UBound(stu())

If Right(stu(i).birthday, 2)= stu(i).luckyday Then

Print stu(i).num;stu(i).name;stu(i).luckyday;stu(i).birthday;

For j = 1 To 5

Print stu(i).score(j);

Next j

Print

End If Next i End Sub

第頁(yè)

計(jì)算機(jī)上機(jī)實(shí)習(xí)報(bào)告

⑵統(tǒng)計(jì)不及格學(xué)生的名單

Private Sub Command10_Click()Cls Print “序號(hào)”;Spc(3);“姓名”;Spc(3);“成績(jī)”;Spc(3);“學(xué)分”;Spc(3);“課程”;For i = 1 To UBound(stu())

For j = 1 To 5

If stu(i).score(j)< 60 Then

Print Tab(0);stu(i).num;Spc(3);stu(i).name;Spc(2);stu(i).score(j);Spc(3);kc(j).xf;Spc(3);kc(j).km;

End If

Next j Next i End Sub

⑶打印優(yōu)等生名單

Private Sub Command11_Click()Cls Print “學(xué)號(hào)”“英語(yǔ)”;Space(3);“VB”;Space(3);“數(shù)學(xué)”;Space(3);“體育”;Space(3);“專業(yè)課”;Space(3);“排名”

第頁(yè)

計(jì)算機(jī)上機(jī)實(shí)習(xí)報(bào)告

Dim zxf%, i%, j%, k% For i = 1 To UBound(kc())

zxf = zxf + kc(i).xf Next i For j = 1 To UBound(stu())

For k = 1 To 5

stu(j).average = stu(j).average + stu(j).score(k)* kc(k).xf / zxf

stu(j).average = Format(stu(j).average, “0.00”)

Next k Next j For m = 1 To UBound(stu())

stu(m).rank = 1

For n = 1 To UBound(stu())

If stu(m).average < stu(n).average Then

stu(m).rank = stu(m).rank + 1

End If

Next n Next m For i = 1 To UBound(stu())

k = 0

For j = 1 To 5

If stu(i).score(j)>= 95 Then

k = k + 1

End If

Next j

If stu(i).average >= 90 Or stu(i).rank <= 3 Or(stu(i).average >= 85 And k >= 2)Then

Print stu(i).num;Space(3);stu(i).name;

For m = 1 To 5

Print stu(i).score(m);Spc(4);

Next m

Print stu(i).rank

End If Next i End Sub

第頁(yè)

計(jì)算機(jī)上機(jī)實(shí)習(xí)報(bào)告

⑷統(tǒng)計(jì)各幸運(yùn)數(shù)字的人數(shù) Private Sub Command2_Click()Cls For i = 0 To 9

Dim luckypeople%

For j = 1 To UBound(stu())

If Val(stu(j).luckyday)= i Then

luckypeople = luckypeople + 1

End If

Next j

Print “幸運(yùn)數(shù)字為” & i;“的人數(shù)為:” & luckypeople

luckypeople = 0 Next i End Sub ⑸查詢信息

Private Sub Command3_Click()Cls Dim rm As String, i%, j% rm = InputBox(“請(qǐng)輸入你想要查詢的同學(xué)的姓名”)For i = 1 To UBound(stu())

If Trim(stu(i).name)= rm Then

Print stu(i).num;stu(i).name;stu(i).luckyday;stu(i).birthday;

For j = 1 To 5

Print stu(i).score(j);

Next j

End If Next i End Sub

第頁(yè)

計(jì)算機(jī)上機(jī)實(shí)習(xí)報(bào)告

⑹添加信息

Private Sub Command4_Click()Cls Dim xinxuesheng As String xinxuesheng = InputBox(“請(qǐng)依次按照序號(hào)，姓名，幸運(yùn)日，出生日期，英語(yǔ)，vb，數(shù)學(xué)，體育，專業(yè)課的順序輸入新同學(xué)的信息，中間用空格隔開(kāi)”)Open “e:vb作業(yè)1.txt” For Append As #1 Print #1, xinxuesheng Print Close #1 Do While InStr(Trim(xinxuesheng), “ ”)<> 0

xinxuesheng = Replace(Trim(xinxuesheng), “ ”, “ ”)Loop a = Split(xinxuesheng, “ ”)n = n + 1 ReDim Preserve stu(n)stu(n).num = a(0)stu(n).name = a(1)stu(n).luckyday = a(2)stu(n).birthday = a(3)For i = 1 To 5

stu(n).score(i)= a(3 + i)Next i For i = 1 To UBound(stu())

Print stu(i).num;stu(i).name;stu(i).luckyday;stu(i).birthday;

For j = 1 To 5

Print stu(i).score(j);

Next j

Print Next i

第頁(yè)

計(jì)算機(jī)上機(jī)實(shí)習(xí)報(bào)告

End Sub

⑺刪除信息

Private Sub Command5_Click()Cls Dim rm As String rm = InputBox(“請(qǐng)輸入你要?jiǎng)h除的同學(xué)的姓名”)For i = 1 To n

If Trim(stu(i).name)= rm Then

Exit For

End If Next i

For j = i To n1)For i = 1 To UBound(stu())

Print stu(i).num;stu(i).name;stu(i).luckyday;stu(i).birthday;

For j = 1 To 5

Print stu(i).score(j);

Next j

Print

第 頁(yè)

計(jì)算機(jī)上機(jī)實(shí)習(xí)報(bào)告

Next i End Sub

⑻修改幸運(yùn)數(shù)字

Private Sub Command6_Click()Cls Dim rm As String, shuzi As String, i%, j% rm = InputBox(“請(qǐng)輸入你要修改的同學(xué)的姓名”)shuzi = InputBox(“請(qǐng)輸入你要修改后的幸運(yùn)數(shù)字”)For i = 1 To UBound(stu())

If Trim(stu(i).name)= rm Then

stu(i).luckyday = shuzi

Print stu(i).num;stu(i).name;stu(i).luckyday;stu(i).birthday;

For j = 1 To 5

Print stu(i).score(j);

Next j

End If Next i End Sub

第 頁(yè)

計(jì)算機(jī)上機(jī)實(shí)習(xí)報(bào)告

⑼計(jì)算每個(gè)學(xué)生的平均分 Private Sub Command7_Click()Cls Dim zxf%, i%, j%, k% For i = 1 To UBound(kc())

zxf = zxf + kc(i).xf Next i For j = 1 To UBound(stu())

For k = 1 To 5

stu(j).average = stu(j).average + stu(j).score(k)* kc(k).xf / zxf

stu(j).average = Format(stu(j).average, “0.00”)

Next k Next j For m = 1 To UBound(stu())

stu(m).rank = 1

For n = 1 To UBound(stu())

If stu(m).average < stu(n).average Then

stu(m).rank = stu(m).rank + 1

End If

Next n Next m Open “e:成績(jī)單.txt” For Append As #3 Print #3, “序號(hào)”;Space(3);“姓名”;Space(3);“幸運(yùn)日”;Space(3);“出生日期”;Space(4);“數(shù)學(xué)”;Space(4);“英語(yǔ)”;Space(4);“vb”;Space(4);“物理”;Space(3);“專業(yè)課”;Space(3);“平均分”;Space(3);“排名” For i = 1 To UBound(stu())

Print #3，Print #3, stu(i).num;Space(3);stu(i).name;Space(3);stu(i).luckyday;Space(3);stu(i).birthday;Space(3);

For j = 1 To 5

第 頁(yè)

計(jì)算機(jī)上機(jī)實(shí)習(xí)報(bào)告

Print #3, stu(i).score(j);Space(3);

Next j

Print #3, stu(i).average;Space(3);stu(i).rank;Next i Close #3 End Sub

⑽統(tǒng)計(jì)成績(jī)分布

Private Sub Command8_Click()Cls Dim i%, j%, bsix%, ss%, se%, en%, anine%, a(1 To 25)As Integer, b(1 To 5)As Integer, c(1 To 5)As Integer, d(1 To 5)As Integer, e(1 To 5)As Integer, o(1 To 5)As Integer, p(1 To 5)As Integer, q(1 To 5)As Integer, r(1 To 5)As Integer, s(1 To 5)As Integer For i = 1 To 5

kc(i).zf = 0

For j = 1 To UBound(stu())

kc(i).zf = kc(i).zf + stu(j).score(i)

Next j

kc(i).average = kc(i).zf / UBound(stu())

kc(i).average = Format(kc(i).average, “0.00”)

Print kc(i).average Next i Open “e:成績(jī)分布.txt” For Append As #4 Print #4, “范圍”;Space(8);“數(shù)學(xué)”;Space(3);“英語(yǔ)”;Space(3);“vb”;Space(3);“物理”;Space(3);“專業(yè)課”

第 頁(yè)

計(jì)算機(jī)上機(jī)實(shí)習(xí)報(bào)告

For i = 1 To 5

For j = 1 To UBound(stu())

If stu(j).score(i)>= 90 Then

o(i)= o(i)+ 1

ElseIf stu(j).score(i)>= 80 Then

p(i)= p(i)+ 1

ElseIf stu(j).score(i)>= 70 Then

q(i)= q(i)+ 1

ElseIf stu(j).score(i)>= 60 Then

r(i)= r(i)+ 1

Else

s(i)= s(i)+ 1

End If

Next j Next i Print #4, “>=90”;Spc(8);For i = 1 To 5

Print #4, o(i);Spc(4);Next i Print #4, Print #4, “>=80”;Spc(8);For i = 1 To 5

Print #4, p(i);Spc(4);Next i Print #4, Print #4, “>=70”;Spc(8);For i = 1 To 5

Print #4, q(i);Spc(4);Next i Print #4, Print #4, “>=60”;Spc(8);For i = 1 To 5

Print #4, r(i);Spc(4);Next i Print #4, Print #4, “其他”;Spc(8);For i = 1 To 5

Print #4, s(i);Spc(4);Next i Print #4, Close #4 End Sub

第 頁(yè)

計(jì)算機(jī)上機(jī)實(shí)習(xí)報(bào)告

⑾打印學(xué)生成績(jī)條

Private Sub Command9_Click()Dim stu(1 To 20)As String Open “e:成績(jī)單.txt” For Input As #5 For i = 1 To 20 Line Input #5, stu(i): Print stu(i)Next i Close #5 End Sub

⑿文本信息的輸入

Private Sub Form_Load()Dim str1 As String, a()As String, i%, str2 As String, b()As String Open “e:學(xué)生信息.txt” For Input As #1 Line Input #1, str1 Print str1

第 頁(yè)

計(jì)算機(jī)上機(jī)實(shí)習(xí)報(bào)告

Do While Not EOF(1)

Line Input #1, str1

Do While InStr(Trim(str1), “ ”)<> 0

str1 = Replace(Trim(str1), “ ”, “ ”)

Loop

a = Split(str1, “ ”)

n = n + 1

ReDim Preserve stu(n)

stu(n).num = a(0)

stu(n).name = a(1)

stu(n).luckyday = a(2)

stu(n).birthday = a(3)

For i = 1 To 5

stu(n).score(i)= a(3 + i)

Next i

Cls Loop Close #1 Open “e:學(xué)分.txt” For Input As #2 Line Input #2, str2 Print str2 Do While Not EOF(2)

Line Input #2, str2

Do While InStr(Trim(str2), “ ”)<> 0

str2 = Replace(Trim(str2), “ ”, “ ”)

Loop

b = Split(str2, “ ”)

x = x + 1

ReDim Preserve kc(x)

kc(x).bh = Val(b(0))

kc(x).km = b(1)

kc(x).xf = b(2)Loop Close #2 Cls End Sub

六．心得體會(huì)

1.通過(guò)這次上機(jī)實(shí)習(xí)，我受益匪淺，不僅更加熟悉VB的操作和運(yùn)行環(huán)境，同時(shí)將課堂上所學(xué)的知識(shí)進(jìn)行了系統(tǒng)化的整

第 頁(yè)

計(jì)算機(jī)上機(jī)實(shí)習(xí)報(bào)告

理與疏導(dǎo)；

2.在此次上機(jī)實(shí)習(xí)中，我切身體會(huì)到了編程對(duì)我們現(xiàn)代生活的重要性，編程能大大地方便我們?nèi)粘５纳睿刮覀兩暇W(wǎng)，工作更快捷，一個(gè)人就能干許多人的事情，大大地節(jié)約了人力，這將使計(jì)算機(jī)的應(yīng)用更加普遍和普及，使社會(huì)的生產(chǎn)效率越來(lái)越高。

第 頁(yè)

第三篇：vb上機(jī)心得體會(huì)

心得體會(huì)：

剛開(kāi)始學(xué)習(xí)vb的時(shí)候，我就覺(jué)得大一的計(jì)算機(jī)基礎(chǔ)根本不值一提，難度相去甚遠(yuǎn)。我問(wèn)過(guò)很多以前的同學(xué)，他們都說(shuō)vb是編程語(yǔ)言中最簡(jiǎn)單的，但是在這次上機(jī)實(shí)習(xí)過(guò)程中，我發(fā)現(xiàn)要完成學(xué)生成績(jī)管理系統(tǒng)實(shí)在有很大難度。平時(shí)看課本的時(shí)候，覺(jué)得還能夠理解，看得懂，然而“紙上得來(lái)終覺(jué)淺”，一旦自己調(diào)試程序，總會(huì)犯很多錯(cuò)誤，如前面說(shuō)的“文件未找到”“下標(biāo)越界”等等，都是平時(shí)沒(méi)有機(jī)會(huì)解決和一些曾經(jīng)被自己忽視的問(wèn)題。有時(shí)候，為了找到代碼中錯(cuò)誤或不符合要求的地方，我不得不一遍又一遍地仔細(xì)檢查程序，甚至標(biāo)點(diǎn)符號(hào)都不能放過(guò)。細(xì)節(jié)決定成敗，一個(gè)小小的分號(hào)也會(huì)起著扭轉(zhuǎn)乾坤的作用。

在實(shí)習(xí)之前，我妄想從網(wǎng)站上下載一個(gè)或者請(qǐng)論壇上的好友幫忙，后來(lái)我發(fā)現(xiàn)這條路走不通，他們從來(lái)都不給別人提供實(shí)質(zhì)性的幫助，只是象征性地說(shuō)：“不會(huì)問(wèn)老師。”于是我打消了這個(gè)念頭，開(kāi)始自己動(dòng)手做。

當(dāng)我無(wú)數(shù)次調(diào)試總算讀出文件的時(shí)候，那種高興勁可想而知。我慢慢覺(jué)得，其實(shí)自己調(diào)試程序蠻有意思的。既彌補(bǔ)了在vb學(xué)習(xí)中的漏洞，還學(xué)到了新內(nèi)容，積累了一定的實(shí)戰(zhàn)經(jīng)驗(yàn)，對(duì)以后的期末考試和等級(jí)考試起到了相當(dāng)大的促進(jìn)作用。

實(shí)習(xí)過(guò)程中，多虧指導(dǎo)老師幫助我找出錯(cuò)誤的地方。如果不是他們的細(xì)心講解，我很難完成這次實(shí)習(xí)任務(wù)。當(dāng)然，我在編程方面還有很大不足，今后我定會(huì)加倍努力，為等級(jí)考試的順利通過(guò)打下牢固的基礎(chǔ)。

第四篇：第五、六章測(cè)試題

1.MP3格式的聲音文件，音質(zhì)是最好的，現(xiàn)在商店都有出售MP3播放器。（A）

A．錯(cuò) B．對(duì)

2.在對(duì)圖像進(jìn)行羽化時(shí)，羽化的值越小，朦朧的范圍越寬。（A）A．錯(cuò) B．對(duì)

3.多媒體技術(shù)中的媒體通常是指?jìng)鬟f信息的載體，如數(shù)字、文字、聲音、圖形和圖像等。（B）

A．錯(cuò) B．對(duì)

4.當(dāng)今圖片已成為人們表達(dá)思想和情感的重要方式之一。（B）

A．錯(cuò) B．對(duì)

5.Media Player軟件，既能播放視頻又能播放聲音文件。（B）

A．錯(cuò) B．對(duì)

6.下來(lái)哪個(gè)圖片格式在拉伸的時(shí)候清晰度不會(huì)改變（C）

A BMP B JPG C WMF D PSD

7.李明買了一款MP3播放器，并從電腦中拷貝了一些他常聽(tīng)的音樂(lè)歌曲，有rm．mp3．wav等格式，結(jié)果有些歌曲在電腦里播放好好的，但在MP3中卻不能播放，你認(rèn)為可能是什么原因？（B）

A．傳到MP3前必須對(duì)音頻文件進(jìn)行格式轉(zhuǎn)換 B．MP3播放器不支持某些音頻文件格式

C．MP3播放器不支持除MP3格式外的其化音頻文件 D．以上都對(duì)

8.下列特征中屬于多媒體技術(shù)的關(guān)鍵特征的是：（C）

A．?dāng)?shù)字性 B．多樣性 C．交互性 D．實(shí)時(shí)性

9.下列格式的文件不屬于圖片的是（B）。

A．BMP B．WAV C．GIF D．PSD

10.可以直接使用計(jì)算機(jī)鍵盤上的（C）鍵從屏幕上截取圖片。

A、Ctrl + Shift B、Alt + Shift C、PrintScreen D、Insert

11.下面都是音頻文件格式的是（C）。

A、MP3、MOV B、MP3、WAV C、MIDI、MOV D、MP3、SWF

12.能對(duì)視頻進(jìn)行編輯的軟件是（C）。

A、Windows Media Player B、GoldWave C、會(huì)聲會(huì)影 D、RealPlayer

13.可以實(shí)現(xiàn)對(duì)聲音進(jìn)行刪除、裁剪、混合和添加特效的聲音編輯軟件是（D）。

A、PhotoShop B、會(huì)聲會(huì)影 C、千千靜聽(tīng) D、GoldWave

14.下列不屬于視頻文件的格式的是：（C）

A..rm B..mpeg C..jpg D..avi

15.Windows所用的標(biāo)準(zhǔn)音頻文件擴(kuò)展名為：（A）

A.WAV B.VOC C.MID D.MOD

16.以下不是由Windows自帶的畫圖工具保存的文件格式的是（A）

A.*.PSD B.*.GIF C.*.JPG D.*.BMP 17.紙張上的圖片，可以選擇___________完成素材的采集。（A）

A.數(shù)碼相機(jī) B.打印機(jī) C.投影儀 D.電子白板

18.圖片文件有多種格式，下面正確的說(shuō)法是：（D）。

A.BMP格式文件是經(jīng)過(guò)壓縮的

B.相同內(nèi)容圖片，BMP比JPG文件小 C.用GIF格式描述照片效果最佳 D.BMP格式文件屬于位圖文件

19.下面說(shuō)法不正確的是：（C）。

A.動(dòng)畫利用了“視覺(jué)暫留” B.GIF文件一般是動(dòng)畫 C.JPG文件一般是動(dòng)畫 D.SWF文件一般是動(dòng)畫

20.下面的應(yīng)用軟件中，專門用來(lái)瀏覽圖片的是：（D）。

A.Flash B.Word C.我形我速 D.ACDSee

21.聲音和視頻都可以通過(guò)從網(wǎng)上下載這樣的途徑來(lái)獲得。（B）

A．錯(cuò) B．對(duì)

22.關(guān)于位圖與矢量圖，下面正確的說(shuō)法是（B）。

A、位圖放大后不易失真

B、矢量圖放大后不易失真

C、要減小文件長(zhǎng)度，可用位圖

D、矢量圖是由像素排列組合成的

23.王老師從學(xué)校的圖書(shū)館中借到了自已需要的的錄像帶，他想將其中的視頻資料放到電腦的課件中，那么王老師必需對(duì)錄像帶中的視頻信息進(jìn)行（D）。

A.壓縮處理

B.解壓縮處理

C.模擬化處理

D.數(shù)字化處理

24.你用Windows 附件中的“畫圖”程序繪制了一副彩色的畫，分別用BMP格式和JPEG格式保存，則這兩個(gè)文件的大小是（A）

A.BMP格式大 B.JPEG格式大 C.一樣大 D.不能確定

25.《夜宴》是馮小剛的第一部古裝電影，這部電影不可能的文件格式是（D）

A.夜宴.avi B.夜宴.rmvb C.夜宴.mpg D.夜宴.jpg

26.以下說(shuō)法正確的是（D）

A.矢量圖放大后易失真 B.位圖放大后不易失真

C.矢量圖是像素排列組合成的圖像

D.位圖放大后會(huì)產(chǎn)生“邊緣鋸齒”和“馬賽克”現(xiàn)象。

27.MP3是一種沒(méi)有壓縮過(guò)得視頻文件格式。（A）

A．錯(cuò) B．對(duì)

28.動(dòng)畫就是利用“視覺(jué)暫留”原理，通過(guò)一系列相關(guān)聯(lián)的畫面，讓視覺(jué)形成連續(xù)變化的感覺(jué)。（B）

A．錯(cuò) B．對(duì)

29.獲取音頻文件除網(wǎng)上下載，還可以用錄音軟件在計(jì)算機(jī)中錄制。（B）

A．錯(cuò) B．對(duì)

30.張穎同學(xué)正制作多媒體作品，他想從VCD中截取一個(gè)片斷作為素材，他應(yīng)該使用以下的哪個(gè)軟件（B）

A．windows Media player B．會(huì)聲會(huì)影 C．photoshop D．word

31.獲取圖片的途徑包括：①用數(shù)碼相機(jī)拍攝②用掃描儀掃描③從網(wǎng)上下載④購(gòu)買素材光盤（D）。

A、①②

B、③④

C、①②③

D、①②③④

32.下面都是圖片處理軟件的是（D）。

A、ACDSee、Word B、ACDSee、PowerPoint C、畫圖軟件、Gif Animator D、我形我速、Photoshop

33.根據(jù)信息表示方式的不同，圖片通常有位圖與矢量圖兩種表現(xiàn)形式，下面說(shuō)法不正確的是（D）。

A.當(dāng)放大圖像的時(shí)候，位圖會(huì)產(chǎn)生模糊和鋸齒

B.當(dāng)放大圖像的時(shí)候，矢量圖像“飽經(jīng)風(fēng)霜”卻依舊“面不改色” C.位圖能較好的表現(xiàn)色彩濃度與層次 D.矢量圖主要用于照片或復(fù)雜圖像

34.請(qǐng)根據(jù)多媒體的特性判斷以下哪個(gè)屬于多媒體的范疇?（A）

A.交互式視頻游戲

B.漫畫

C.彩色畫報(bào)

D.彩色電視

35.調(diào)整圖片的色彩，可以通過(guò)調(diào)整圖片的亮度、對(duì)比度、飽和度等來(lái)美化圖片。（A）

A．錯(cuò) B．對(duì)

36.ACDSee軟件是著名的圖片瀏覽軟件，但缺點(diǎn)是不能修改圖片。（A）A．錯(cuò) B．對(duì)

37.以下不屬于文字處理軟件的是（A）。

A、GoldWave B、記事本 C、wps D、word

38.關(guān)于動(dòng)畫，下列不正確的說(shuō)法是（B）。

A.動(dòng)畫利用“視覺(jué)暫留”原理 B.制作動(dòng)畫離不開(kāi)計(jì)算機(jī)

C.GIF與SWF都為動(dòng)畫文件格式 D.利用GIF Animator軟件能制作動(dòng)畫

39.GoldWave軟件是一款很好的音頻編輯軟件，在聲音處理過(guò)程中，還可以做一些特殊效果的處理，例如回聲.變聲等。以下（A）選項(xiàng)不是該軟件所特有的功能。

A.在聲音中插入一段視頻 B.反向播放 C.淡入淡出 D.減噪

40.下文件格式中，（D）文件格式是視頻格式。

A.JPG B.MP3 C.WAV D.AVI

41.下面（D）方式可以獲取聲音素材。

A、網(wǎng)上下載

B、用數(shù)碼錄音筆錄制

C、從CD中讀取曲目，提取保存到計(jì)算機(jī)中 D、以上方法都可以獲取聲音素材

42.小明想用多種方法獲取聲音文件，下面哪些方法才是正確獲取的：（B）①?gòu)墓獗P上獲取 ②從網(wǎng)上下載

③通過(guò)掃描儀掃描獲取 ④使用數(shù)碼相機(jī)拍攝 ⑤用錄音設(shè)備錄制

⑥用軟件制作MIDI文件

A.①②③④

B.①②⑤⑥

C.③④⑤⑥

D.②③⑤⑥

43.隨著全球計(jì)算機(jī)軟件業(yè)的蓬勃發(fā)展，計(jì)算機(jī)軟件功能也越來(lái)越豐富，下列哪些軟件既能播放音樂(lè)文件，又能播放視頻文件（A）

①Windows media player ②winamp ③realplayer ④千千靜聽(tīng) ⑤暴風(fēng)影音 ⑥QQ影音 A.①③⑤⑥ B.①②③⑤ C.①③④⑤⑥ D.①②③④⑥

44.多媒體技術(shù)的主要特性有（C）。

(1)多樣性(2)集成性(3)交互性(4)可擴(kuò)充性 A.(1)B.(1)、(2)C.(1)、(2)、(3)

D.全部

45.不屬于RGB色彩模式中三種基本顏色的是（B）。

A、紅色 B、黃色 C、綠色 D、藍(lán)色

46.小明想以“我的校園”為主題制作一個(gè)電子相冊(cè)，他可以通過(guò)哪些途徑獲取圖片（A）①通過(guò)數(shù)碼相機(jī)獲取 ②通過(guò)掃描儀獲取 ③從屏幕截圖 ④從網(wǎng)上下載 ⑤ 購(gòu)買素材光盤 A ①②③④⑤

B ①②④

C ①③④

D ②③⑤

47.張軍同學(xué)用麥克風(fēng)錄制了一段WAV格式的音樂(lè)，由于文件容量太大，不方便儲(chǔ)存，在正常播放音樂(lè)的前提下，要把文件容量變小，張軍使用的最好辦法是（B）

A．應(yīng)用壓縮軟件，使音樂(lè)容量變小

B．應(yīng)用音頻工具軟件將文件轉(zhuǎn)換成MP3格式 C．應(yīng)用音樂(lè)編輯軟件剪掉其中一部分 D．應(yīng)用音頻編輯工具將音樂(lè)的音量變小

48.矢量圖形和位圖圖形相比，矢量圖形的優(yōu)點(diǎn)是（A）

A．變形．放縮不影響圖形顯示質(zhì)量 B．色彩豐富

C．圖像所占空間大

D．易制作色彩變化多的圖像

49.以下哪個(gè)操作不屬于圖片處理的基本方法（D）。

A、調(diào)整圖片的色彩 B、圖片的旋轉(zhuǎn)和裁剪 C、圖片的羽化和合成 D、圖片文件的改名

50.下面全是視頻格式的是：（A）。

A、AVI MOV MPG B、RM MPG WAV C、MIDI MOV AVI D、MP3 RM AVI

51.欲截取計(jì)算機(jī)屏幕上的畫面，最簡(jiǎn)便的方法是（B）。

A、使用數(shù)碼相機(jī)拍攝

B、利用

鍵 C、使用掃描儀掃描

D、安裝“屏幕截圖軟件”后截取

52.下面都是處理圖片的軟件是（B）。

A.畫圖窗口和Word B.畫圖窗口和Photoshop C.畫圖窗口和RealPlay D.我形我速和PowerPoint

53.以下文件類型中，（A）是音頻格式。

(1)WAV(2)MP3(3)BMP(4)JPG A．(1)和(2)B．(1)和(3)C．(2)和(4)D．(2)和(3)

54.在學(xué)校的文藝匯演中，張敏班上要排練一出英語(yǔ)劇，文娛委員讓她幫忙從已有的mpg視頻文件中中截取一個(gè)片段，操作步驟正確的是（C）

①在所需要截取片段的起止位置分別單擊“開(kāi)始”按鈕和“結(jié)束”按鈕 ②將該文件的縮略圖拖動(dòng)到故事板，單擊“播放”按鈕

③單擊“保存修整后的視頻”按鈕，提取素材，生成新的視頻文件 ④啟動(dòng)“會(huì)聲會(huì)影”，單擊“加載視頻”按鈕，在視頻素材目錄中打開(kāi)mpg視頻文件

A.①②③④

B.②①③④

C.④②①③

D.④①②③

55.下列文件都屬于圖片格式的（A）

A．BMP，JPG，PSD，WMF B．FLA，SWF，JPG，PSD C．RM，RMVB，MOV，MPEG D．WAV，BMP，JPG，GIF

56.下面哪個(gè)方式無(wú)法獲取視頻素材（C）

A．從網(wǎng)上下載

B．用數(shù)碼攝像機(jī)攝錄

C．從MIDI或WAV文件中截取 D．利用工具軟件采集屏幕動(dòng)態(tài)信息

57.如果你在上網(wǎng)上發(fā)現(xiàn)網(wǎng)頁(yè)中有一張你非常喜歡的圖片，你想把它存到計(jì)算機(jī)中，應(yīng)執(zhí)行怎樣的操作最為方便。（D）

A.選擇菜單項(xiàng)”編緝----復(fù)制”即可

B.選擇菜單項(xiàng)”文件”----“另存為”保存全部網(wǎng)頁(yè) C.利用屏截圖;然后在畫圖軟件中截取所需圖片保存

D.選項(xiàng)中待保存的圖片,點(diǎn)擊鼠標(biāo)右鍵，在彈出的菜單中選擇“圖片另存為”命令。

58.學(xué)校要開(kāi)一個(gè)“好習(xí)慣伴我行”的主題班會(huì)，現(xiàn)在有一部相關(guān)的VCD短片，只需要其中的一個(gè)視頻片段，利用以下（B）軟件能把所要片段截取出來(lái)。

A.PowerPoint B.超級(jí)解霸 C.畫圖 D.ACDSee

59.常用的圖片處理軟件有哪些？（D）

①Word ②ACDSee ③我形我速 ④Photoshop ⑤ 會(huì)聲會(huì)影 A ①④⑤

B ①②③

C ②③⑤

D ②③④

第五篇：VB上機(jī)試題及答案

上機(jī)操作練習(xí)題

1．某數(shù)組有20個(gè)元素，其值為隨機(jī)產(chǎn)生的兩位整數(shù)?，F(xiàn)要求將前10個(gè)元素與后10個(gè)元素對(duì)換。即第1個(gè)元素與第20個(gè)元素互換，第2個(gè)數(shù)與第19個(gè)元素互換，…，第10個(gè)元素與第11個(gè)元素互換。在窗體上輸出數(shù)組原來(lái)各元素的值與對(duì)換后各元素的值。

Option explicit Dim a(1 to 20)as integer, I as integer, j as integer, t as integer Private Sub Form_Load()Show Print “原始數(shù)組是：” Randomize For i = 1 To 20

a(i)= Int(Rnd * 90)+ 10

Print a(i);If i Mod 10 = 0 Then Print Next i Print Print “現(xiàn)在數(shù)組是：” For i = 1 To 10

j = 211

a(k)= a(k + 1)

Next k

ReDim Preserve a(UBound(a)1 End If i = i + 1 Loop While(i <= UBound(a))If flag = False Then MsgBox n & “不在該數(shù)組中” Else Print “刪除” & n & “后的數(shù)組是:” For i = 0 To UBound(a)Print a(i);Next i End If End Sub 3．?dāng)?shù)組a中存放著升序排列的數(shù)據(jù)，使用array賦值，將inputbox輸入的新數(shù)插入到數(shù)組中，插入后數(shù)組仍有序。

注意：要求利用動(dòng)態(tài)數(shù)組，能夠?qū)崿F(xiàn)多次插入 Private Sub Form_Load()Show n = 8: ReDim a(n)a = Array(5, 15, 23, 52, 68, 88, 90, 99)n = n + 1: ReDim Preserve a(n)m = InputBox(“請(qǐng)輸入要插入的數(shù)據(jù):”)For i = 1 To n1)Next k a(k)= m For i = 1 To n

Print a(i);Next i Print End Sub 4．6個(gè)評(píng)委為4位歌手打分，分?jǐn)?shù)介于1-100之間。去掉一個(gè)最高分，一個(gè)最低分，求出每位選手的最后得分。將4位歌手得分從高到低排列輸出，同時(shí)輸出該選手的編號(hào)。

如：

歌手3 95分 歌手 1 87分 歌手 4 80分 歌手 2 70分

/ 19

Option Base 1

Private Type geshou

xuhao As String

fenshu(6)As Integer

score As Integer

pingjun As Integer End Type Dim singer(1 To 4)As geshou Private Sub Command1_Click()For i = 1 To 4 For j = 1 To 6

singer(i).fenshu(j)= Int(Rnd * 100)

singer(i).xuhao = “歌手” & i Next Next Call paixu End Sub

Private Sub paixu()Dim p As geshou For i = 1 To 4

For j = 1 To 5

For k = j To 6

If singer(i).fenshu(j)> singer(i).fenshu(k)Then

t = singer(i).fenshu(j)

singer(i).fenshu(j)= singer(i).fenshu(k)

singer(i).fenshu(k)= t

End If

Next

Next Next For i = 1 To 4 For j = 2 To 5

singer(i).score = singer(i).score + singer(i).fenshu(j)Next singer(i).pingjun = singer(i).score / 4 Next

For i = 1 To 3 For j = i To 4

If singer(i).score < singer(j).score Then

p = singer(i): singer(i)= singer(j): singer(j)= p

End If Next

/ 19

Next For i = 1 To 4 Print singer(i).xuhao & “得分：” & singer(i).pingjun Next End Sub Private Sub Form_Load()End Sub 10個(gè)評(píng)委給10個(gè)選手打分 Private Sub Form_Load()Show n = UBound(b)For i = 1 To 10

For j = 1 To 10

a(i, j)= Val(InputBox(“請(qǐng)第” & j & “位評(píng)委給第” & i & “位選手打分：”))Next j Next i For i = 1 To 10

max = a(i, 1): sum = 0

min = a(i, 1): ave = 0

For j = 1 To 10

If a(i, j)> max Then max = a(i, j)

If a(i, j)< min Then min = a(i, j)

sum = sum + a(i, j)

Next j

ave =(summin)/(n1

For j = i + 1 To n

If b(i)< b(j)Then

t = b(i): b(i)= b(j): b(j)= t

End If

Next j Next i Print “選手的得分由高到低為：” For i = 1 To 10

Print b(i);Next i End Sub 5．編寫函數(shù)求一元二次方程ax2+bx+c=0的解。

注意：要求考慮方程有兩相等實(shí)根、兩不等實(shí)根和兩個(gè)虛根的情況。Dim a As Single, b As Single, c As Single Dim s As Single a = InputBox(“請(qǐng)輸入a”)

/ 19

b = InputBox(“請(qǐng)輸入b”)c = InputBox(“請(qǐng)輸入c”)s = b ^ 2Sqr(s))/ 2 * a End If End Sub 6.任意輸入一組字符，統(tǒng)計(jì)出大寫字母多少個(gè)，小寫字母多少個(gè)，數(shù)字多少個(gè)？要求用過(guò)程實(shí)現(xiàn)。

Call tongji(a, n, m, o)Print “數(shù)字：” & n & Chr(13)& “小寫：” & m & Chr(13)& “大寫：” & o End Sub Private Sub tongji(a As String, n As Integer, m As Integer, p As Integer)For i = 1 To Len(a)If Asc(Mid(a, i, 1))> 47 And Asc(Mid(a, i, 1))< 58 Then

n = n + 1 ElseIf Asc(Mid(a, i, 1))> 96 And Asc(Mid(a, i, 1))< 123 Then

m = m + 1 ElseIf Asc(Mid(a, i, 1))> 64 And Asc(Mid(a, i, 1))< 91 Then

p = p + 1 End If Next End Sub 7．隨機(jī)產(chǎn)生一個(gè)5*5的矩陣，將主對(duì)角線和次對(duì)角線元素都置為1，并求出矩陣的四周元素之和，顯示在列表框中。

Option Base 1 Private Sub Form_Load()Dim a(5, 5)As Integer Dim s As Integer For i = 1 To 5 For j = 1 To 5

If i = j Or i = 6Asc(Mid(s1, i, 1))+ 64)ElseIf Asc(Mid(s1, i, 1))< 123 And Asc(Mid(s1, i, 1))> 96 Then convert = convert & Chr(1235: g = e

For j = 1 To n

If j > i Then

a(i, j)= 0

Else

If i = j Then

a(i, j)= 1

Else

a(i, j)= a(i1, ji + 1);String(2 *(i1)/ 2 To 1 Step(-1)

c = c + 1

s = Chr(64 + ii + c + 1);String(2 *(j1)/ 2 Else

x = x / 2 End If i = i + 1 Loop

ReDim Preserve a(UBound(a))If y < 0 Then For i = 1 To UBound(a)convert = convert & a(i)Next convert = “-” & convert Else For i = 1 To UBound(a)

/ 19

convert = convert & a(i)Next End If

End Function Private Sub Command1_Click()Dim y As Integer Text1.Text = “" y = InputBox(”請(qǐng)輸入十進(jìn)制數(shù)字“)Text1.Text = convert(y)

End Sub

Private Sub Form_Load()

End Sub 14．輸入一個(gè)整數(shù)N，產(chǎn)生N個(gè)隨機(jī)數(shù)（范圍1—10*N），然后采用任何2種算法實(shí)現(xiàn)由小到大的排序。將排序前后的數(shù)據(jù)顯示出來(lái)。

Option Base 1 Private Sub Command1_Click()Dim a()As Integer, n As Integer n = InputBox(”請(qǐng)輸入數(shù)列項(xiàng)數(shù)“)ReDim a(n)For i = 1 To n

a(i)= Int(Rnd * 10 * n + 1)

Print a(i);Next Print ReDim Preserve a(n)For i = 1 To n1 For j = 1 To n2)+ fact(n2 s = s1 + s2: t = s2: s2 = s: s1 = t Next End Function

Private Sub Command2_Click()n = InputBox(”請(qǐng)輸入n“)Print s(n)End Sub 17.編寫2個(gè)函數(shù)，分別采用遞歸法和遞推法求斐波納契數(shù)列的第n個(gè)月的兔子數(shù)，n使用inputbox輸入，調(diào)用函數(shù)的結(jié)果在窗體上顯示。Private Sub Command1_Click()List1.Clear Dim i As Integer For i = Val(Text1.Text)To Val(Text2.Text)If isprime(i)= True Then

List1.AddItem(i)

c = c + 1

If i Mod 10 = 9 Then

/ 19

List1.Selected(c1 If n Mod i = 0 Then

isprime = False

Exit For End If Next End Function 18 Dim sum As Long Private Sub Command1_Click()

Dim i As Integer, j As Integer, a(40)As Long

a(1)= 1

a(2)= 1

For i = 3 To 40

a(i)= a(i2)

Next i

sum = 0

For j = 1 To 40

sum = sum + a(j)

Next j End Sub

Private Sub Command2_Click()

Open ”out18.txt“ For Output As #1

Print #1, ”數(shù)列1，1，2，3，5，8…的前四十項(xiàng)的之和是：“

Print #1, sum

Close #1 End Sub 1.百錢買百雞

Option Explicit

Private Sub Command1_Click()Dim a As Integer, b As Integer For a = 1 To 34

For b = 1 To 20

If 3 * a + 5 * b +(100b)/ 3 = 100 Then

/ 19

Print a;

Print b;

Print 100b

End If

Next b Next a End Sub 2.分錢作業(yè)

Private Sub Command1_Click()Dim a As Single,b as single,c as single a = Text1.Text b = Fix(a / 100)Print ”100元：“;Print b c = ab * 50

b = Fix(c / 20)Print ”20元：“;Print b c = c0.05 * b b = Fix((c + 0.005)/ 0.02)Print ”0.02元：“;Print b c = c1

If a(i)= a(j)Then

GoTo aaa

End If

Next j

Next i For i = 1 To 10

Print a(i);Next i Print End Sub

Private Sub Command2_Click()Dim i As Integer, j As Integer, t As Integer For i = 1 To 9

For j = 1 + i To 10

If a(i)> a(j)Then

t = a(j)

a(j)= a(i)

a(i)= t

End If

Next j Next i For i = 1 To 10

Print a(i);Next i Print

End Sub

Private Sub Command3_Click()Dim i As Integer, j As Integer, t As Integer For i = 1 To 9

For j = 1 To 10c)> 10 ^(-5)i =(a + b)/ 2

If i ^ 2c = 0 Then

Exit Do

Else

a = i

End If Loop MsgBox(i)End Sub 7.閏年

Option Explicit

Private Sub 計(jì)算_Click()Dim i As Integer i = InputBox(”請(qǐng)輸入一個(gè)年份“)If i Mod 4 = 0 And i Mod 400 = 0 Then

If i Mod 100 <> 0 Then

MsgBox ”NOT“

Else

MsgBox ”YES“

End If Else

MsgBox ”NOT“ End If

End Sub 8.三角

Option Explicit Private Sub Command1_Click()

/ 19

Dim a As Single Dim b As Single Dim c As Single Dim p As Single Dim s As Single

a = Text1.Text b = Text2.Text c = Text3.Text

p =(a + b + c)/ 2

s = Sqr((pb)* p +(p1

If n Mod i = 0 Then

MsgBox ”NOT“

Exit For

End If Next i If i = n Then

MsgBox ”YES“ End If End Sub

Private Sub Command2_Click()

Dim a As Boolean, n As Double, i As Double a = False n = InputBox(”請(qǐng)輸入一個(gè)數(shù)：“)For i = 2 To n-1

If n Mod i = 0 Then

a = True

Exit For

End If Next i If a = True Then

/ 19

MsgBox ”NOT“ Else

MsgBox ”YES“ End If End Sub

Private Sub Command3_Click()Dim n As Double, i As Double n = InputBox(”請(qǐng)輸入一個(gè)數(shù)：“)i = 2 Do While i < n

If n Mod i = 0 Then

MsgBox ”NOT“

Exit Do

End If i = i + 1 Loop If i = n Then

MsgBox ”YES“ End If End Sub

Private Sub Command4_Click()Dim n As Double, i As Double, sushu As Boolean n = InputBox(”請(qǐng)輸入一個(gè)數(shù)：“)i = 2 sushu = True Do While i < n And sushu = True

If n Mod i = 0 Then

sushu = False

End If i = i + 1 Loop If sushu = True Then

MsgBox ”YES“ Else

MsgBox ”NOT" End If End Sub

/ 19