欧美成人亚洲高清在线观看,久久无码中文字幕免费影院,手机看片aⅴ永久免费无码

第一篇：vb期末考試復習資料(經典總結版)

第一章 VISUAL BASIC的特點與版本

例1 與傳統的程序設計語言相比，Visual Basic最突出的特點是

A．結構化程序設計 B．程序開發環境

C．程序調試技術

D．事件驅動編程機制

【分析】傳統的程序設計語言是面向過程的，但一般都可以實現結構化程序設計，有的也提供了較完善的集成開發環境和程序調試技術，但它們基本上都沒有事件驅動編程機制。與這些語言相比，Visual Basic最突出的特點就是事件驅動編程機制。【答案】 D

例2下列成員中不屬于主窗口的是

A．最大化按鈕 B．狀態欄 C．系統菜單 D．工具欄

【分析】主窗口由標題欄、菜單欄和工具欄構成，其中標題欄上有系統菜單(左端)以及最小化、最大化和關閉按鈕。因此，最大化按鈕、系統菜單和工具欄都是主窗口中的成員，而主窗口中沒有狀態欄。

【答案】 B

例3在屬性窗口中，屬性列表可以按兩種順序排列，這兩種順序是______和______。

【分析】為了便于查找，屬性窗口對當前對象的屬性提供了兩種排列方式，一種是按字母表順序，另一種是按屬性的分類順序。【答案】按字母序或按分類序

按分類序或按字母序

例4 Visual Basic 6．0的集成開發環境有兩種方式，第一種方式是______，第二種方式是______。【分析】在默認情況下，Visual Basic 6．0集成開發環境為多文檔界面方式，即MDI方式，在這種方式下，窗體設計器窗口是固定的。使用“工具”菜單中的“選項”命令，可以把集成開發環境設置為單文檔界面方式，即SDI方式，在這種方式下，窗體設計器窗口是浮動的。【答案】多文檔界面或 MDI

單文檔界面或 SDI

第二章對象及其操作

例1為了通過屬性窗口把窗體的ControlBox屬性設置為True(或False)，下列正確的操作是 A．直接鍵入True(或False)B．利用對話框設置屬性值

C．選擇ControlBox，然后按回車鍵 D．雙擊ControlBox屬性條

【分析】 ControlBox屬性是一個邏輯值，其取值只有兩種，即True和False，一般可以通過選擇輸入，即單擊屬性條右端的箭頭，下拉顯示屬性值True和False，從中選擇所需要的值。在上面給出的答案中，前三個答案都不能實現所要求的操作，只有答案D才能實現。實際上，對于只有兩種可能取值(True或False、0或1)的屬性，都可以通過雙擊屬性條設置。【答案】 D

例2下列語句用來設置窗體Form1的屬性，其中在運行時不能正確操作的語句是

A． Form1.Captin = “Form Test”

B． Form1.Name = “FormTest”

C． Form1.MaxButton = False

D． Form1.MinButton = False 【分析】這4個語句用來在運行時設置窗體的屬性。其中Form1.Captin=“Form Test”用來設置窗體的標題，Form1.Name=“FormTest”用來設置窗體的名稱，Form1.MaxButton=False用來隱藏窗體的最大化按鈕，Form1.MinButton=False用來隱藏窗體的最小化按鈕。從語法格式上來看，似乎沒有什么問題，在輸入時也不會產生錯誤。但是，窗體的Name屬性是一個“只讀”屬性，在運行時不能改變，因此，程序運行后，當執行到Form1.Name=“FormTest”語句時將會出錯。【答案】 B

例3下列不能打開屬性窗口的操作是

A．執行“視圖”菜單中的“屬性窗口”命令 B．按F4鍵 C．按Ctrl+T鍵

D．單擊工具欄上的“屬性窗口”按鈕【分析】在上面選擇中，Ctrl+T鍵用來執行“工程”菜單中的“部件”命令，打開的是“部件”窗口，不是屬性窗口，其他3個選項都可以打開屬性窗口。【答案】 C

例4 為了對多個控件執行操作，必須選擇這些控件。下列不能選擇多個控件的操作是 A．按住Alt鍵，不要松開，然后單擊每個要選擇的控件 B．按住Shift鍵，不要松開，然后單擊每個要選擇的控件 C．按住Ctrl鍵，不要松開，然后單擊每個要選擇的控件

D．拖動鼠標畫出一個虛線矩形，使所選擇的控件位于這個矩形內

【分析】教程中介紹了選擇控件的兩種方法，即按住Shift鍵單擊每個要選擇的控件和拖動鼠標畫虛線矩形。除這兩種方法外，按住Ctrl鍵單擊每個要選擇的控件也可實現選擇控件的操作，但按住Alt鍵單擊每個要選擇的控件不能達到目的。【答案】 A

例5 為了在運行時把窗體Form1的標題(Caption屬性)設置為“Test Program”，應使用的語句為______。

【分析】窗體的Caption屬性用來設置窗體的標題，一般格式為： [窗體．]Caption[=字符串]其中的“窗體．”可以是Form1．，可以省略，也可以是關鍵字Me：而“字符串”就是要設置的窗體的標題。因此，本題有幾種不同的答案。【答案】

Form1.Caption = “Test Program” 或 Me.Caption = “Test Program” 或 Caption = “Test Program” 例6 當選擇了多個控件后，其中有一個控件是“基準控件”，設置“基準控件”的方法是

【分析】在一般情況下，如果選擇了窗體上的多個控件，則其中有一個控件自動成為“基準控件”。選擇方法不同，“自動基準控件”也不一樣。如果按住Ctrl或Shift鍵選擇多個控件，則最后單擊的控件為“基準控件”；如果用拖動鼠標的方法選擇控件，則最后畫到窗體上的控件是“基準控件”。如果想用其他某個控件作為“基準控件”，可以在選擇多個控件后，單擊該控件。【答案】選擇多個控件后，單擊其中的某個控件，即可把該控件設置為“基準控件”。

第三章 VB程序設計基礎

例1 在設計階段，當雙擊窗體上的某個控件時，所打開的窗口是 A．工程資源管理器窗口 B．工具箱窗口 C．代碼窗口

D．屬性窗口

【分析】 Visual Basic集成開發環境下的窗口(包括代碼窗口)基本上都可以通過執行“視圖”菜單中相應的菜單命令打開。在設計階段，如果單擊窗體上的某個控件，則只能打開代碼窗口。【答案】 C 例2 下列打開“代碼窗口”的操作中不正確的是 A．按F4鍵

B．單擊“工程資源管理器”窗口中“查看代碼”按鈕 C．雙擊已建立好的控件

D．執行“視圖”菜單中“代碼窗口”命令

【分析】在所給出的選擇中，按F4鍵可以打開屬性窗口，不可能用來打開代碼窗口，而其他3個選項都可以用來打開代碼窗口。【答案】 A 例3 下列正確的Visual Basic注釋語句是 A．Dim a(10)As Integer Rem這是一個VB程序 B．′這是一個VB程序

Private Sub Command1_Click()…

C．a=1:b=2:Rem這是一個VB程序:c=3 D． If Shift = 6 And Button = 2 Then

Print “BBBB” Rem 這是一個VB程序

End If 【分析】在使用注釋語句時，有以下“禁忌”：當注釋出現在一個語句行的后面時，只能用撇號作為注釋符，不能使用Rem；在復合語句行中，注釋必須是最后一個語句，不能放在復合語句行中；注釋語句不能放在續行符的后面。在所給出的選擇中，A、C、D都是不正確的。【答案】 B 例4 為了建立窗體的Click事件過程，即Form_Click，應先在代碼窗口的______欄中選擇Form，然后在______欄中選擇Click。

【分析】代碼窗口的頂部(標題欄的下面)分為左右兩欄，左邊一欄是“對象”欄，右邊一欄是“過程”欄。在“對象”欄的下拉列表中可以選擇窗體或控件的名稱，在“過程”欄中可以選擇事件的名稱。因此，為了建立事件過程Form_Click，應在“對象”欄中選擇Form，然后在“過程”欄中選擇Click。

【答案】第一個空：“對象” 或對象

第二個空：“過程” 或過程

例5 假定窗體的名稱為Form1，對該窗體編寫如下代碼： Private Sub Form_Load()

Form1.Caption = “AAAAA”

Me.Caption= “BBBBB”

Caption = “CCCCC” End Sub 程序運行后，窗體的標題是______。

【分析】 Form Load是程序運行后首先要執行的事件過程。在上面的事件過程中，有3個賦值語句，這3個語句都用來對對象賦值，即對對象的Caption屬性賦值，它們都可以設置窗體的標題。第一個語句把窗體的標題設置為“AAAAA”，執行第二個語句后，窗體的標題變為“BBBBB”，而執行第三個語句后，窗體的標題變為“CCCCC”。【答案】 CCCCC 例6 編寫程序，用來設置窗體的位置和大小。要求：程序運行后，窗體的初始位置為(3000,3000)，其初始寬度和高度均為5 000；單擊一次窗體后，窗體位置的X坐標和Y坐標各減少一半，其寬度和高度均減少到原來的一半。

【分析】窗體的位置由Top屬性和Left屬性來設置，寬度和高度分別由Width屬性和Height屬性來設置。窗體的初始屬性可以通過屬性窗口設置，也可以在Form_Load事件過程中設置；而單擊窗體后的屬性可以在Form_Click事件過程中設置。程序如下：

Private Sub Form_Load()

Top = 3000

Left = 3000

Width = 5000

Height = 5000 End Sub Private Sub Form_Click()

Form1.Top = Form1.Top / 2

Form1.Left = Form1.Left / 2

Form1.Width = Form1.Width / 2

Form1.Height = Form1.Height / 2 End Sub 窗體的初始位置和大小在Form_Load事件過程中設置，程序運行后，顯示窗體的初始位置和大小。單擊一次窗體后，其位置的X坐標、Y坐標及窗體的寬度、高度均減少到原來的一半。此后如果再單擊一次窗體，則仍減少一半。如果把Form_Click事件過程改為： Private Sub, Form_Click()

Form1.Top = 1500

Form1.Left = 1500

Form1.Width = 2500

Form1.Height = 2500 End Sub 則程序運行后，無論單擊多少次窗體，窗體的位置和大小都是原來的一半。該程序用到了窗體的4個屬性，即Top、Left、Width和Height。在設置這幾個屬性時，窗體名稱(Form1)可以有，也可以沒有，也可以換成關鍵字Me。

例7 在Visual Basic中，下列優先級最高的運算符是 A．* B．＼ C．＜ D．Not 【分析】 Visual Basic提供了3類運算符，即算術運算符、關系運算符和邏輯運算符。在3類運算符中，算術運算的優先級最高，其次是關系運算，最后是邏輯運算。在該例中，C和D分別為關系運算符和邏輯運算符，A和B是算術運算符，A和B的優先級比C和D高。而對于A和B來說，乘法(*)的優先級比整除(＼)的優先級高。因此，優先級最高的應當是乘法運算符(*)。【答案】 A 例8 以下關系表達式中，其值為False的是 A． “XYZ” ＜ “XYz” B． “VisualBasic” = “visualbasic” C． “the” ＜＞ “there” D． “Integer” ＞“Int” 【分析】該例通過關系表達式對字符串進行比較。在Visual Basic中，字符串數據按其ASCII碼值進行比較。在比較兩個字符串時，首先比較兩個字符串的第一個字符，其中ASCII碼值較大的字符所在的字符串大。如果第一個字符相同，則比較第二個??依次類推。在該例的4個選擇中，A、C、D的值均為True；B中的兩個字符串基本相同，但第一個字符串的第一個字母是大寫字母，而第二個字符串的第一個字母是小寫字母，第一個字符串小于第二個字符串，即兩個字符串不相等，因此“VisualBasic”=“visualbasic”的值為假，即False。【答案】 B

例9 下列正確的Visual Basic注釋語句是

A．Dim a(10)As Integer Rem這是一個VB程序 B．′這是一個VB程序

Private Sub Command1_Click()…

C．a=1:b=2:Rem這是一個VB程序:c=3 D． If Shift = 6 And Button = 2 Then

Print “BBBB” Rem 這是一個VB程序

End If 【分析】在使用注釋語句時，有以下“禁忌”：當注釋出現在一個語句行的后面時，只能用撇號作為注釋符，不能使用Rem；在復合語句行中，注釋必須是最后一個語句，不能放在復合語句行中；注釋語句不能放在續行符的后面。在所給出的選擇中，A、C、D都是不正確的。【答案】 B 例10 為了建立窗體的Click事件過程，即Form_Click，應先在代碼窗口的______欄中選擇Form，然后在______欄中選擇Click。

【答案】第一個空：“對象” 或對象

第二個空：“過程” 或過程

例11 假定窗體的名稱為Form1，對該窗體編寫如下代碼： Private Sub Form_Load()

Form1.Caption = “AAAAA”

Me.Caption= “BBBBB”

Caption = “CCCCC” End Sub 程序運行后，窗體的標題是______。

【分析】 Form Load是程序運行后首先要執行的事件過程。在上面的事件過程中，有3個賦值語句，這3個語句都用來對對象賦值，即對對象的Caption屬性賦值，它們都可以設置窗體的標題。第一個語句把窗體的標題設置為“AAAAA”，執行第二個語句后，窗體的標題變為“BBBBB”，而執行第三個語句后，窗體的標題變為“CCCCC”。【答案】 CCCCC 例12 編寫程序，用來設置窗體的位置和大小。要求：程序運行后，窗體的初始位置為(3000,3000)，其初始寬度和高度均為5 000；單擊一次窗體后，窗體位置的X坐標和Y坐標各減少一半，其寬度和高度均減少到原來的一半。

Private Sub Form_Load()

Top = 3000

Left = 3000

Width = 5000

Height = 5000 End Sub Private Sub Form_Click()

Form1.Top = Form1.Top / 2

Form1.Left = Form1.Left / 2

Form1.Width = Form1.Width / 2

Form1.Top = 1500

Form1.Left = 1500

Form1.Width = 2500

第四章數據的輸入與輸出例題分析

例1 在窗體上畫一個命令按鈕(名稱為Command1)，然后編寫如下事件過程： Private Sub Command1_Click()

a=4

b=5

c=6

Print a = b + c End Sub 程序運行后，單擊命令按鈕，其結果為

A．a=11 B．a=b+c

C．False D．出錯

【分析】Print方法具有計算和輸出兩種功能。當Print的輸出項是表達式時，將先計算表達式，然后輸出表達式的值。所計算和輸出的表達式可以是算術表達式，也可以關系表達式或邏輯表達式。該例中的a=b+c是一個關系表達式，其中a的值為4，b+c的值是11，Print a=b+c實際上執行的是

Print 4=11，顯然是一個“假”值。【答案】 C 注意，有人可能會認為本例的答案應當為D，這是不對的。例2 下列不正確的語句是 A． Print a = 10 + 20 B． Print “a =”;10 + 20 C． Print “a” = “10 + 20”

D． Print a =;10 + 20

【分析】Print方法的輸出項是一個表達式，包括算術表達式(字符串表達式)、關系表達式和邏輯表達式。在所給出的選擇中，A是用Print方法輸出一個關系表達式的值，比較兩個算術表達式的值是否相等；B是用Print輸出一個字符串和一個算術表達式的值，其中字符串照原樣輸出，然后計算并輸出算術表達式的值；C是用Print方法輸出一個關系表達式的值，比較兩個字符串是否相等，這幾個語句都是正確的，可以輸出正確的結果，而D會產生語法錯誤。【答案】 D 例3 在窗體上畫一個命令按鈕，然后編寫如下代碼： Private Sub Command1_Click()

a&=InputBox(“請輸入第一個數”)

b&=InputBox(“請輸入第二個數”)

Print b&+ a& End Sub

程序運行后，單擊命令按鈕，在兩個輸入對話框中先后輸入12345和54321，程序的輸出結果是 A．66666

B．54321 12345 C．1234554321

D．出錯

【分析】 InputBox函數的返回值是一個字符串，但由于a＆和b＆通過類型說明符被顯式地定義為長整型變量，因而在執行InputBox函數后，所返回的字符串值被轉換為長整型值，它實際上相當于執行一次類型轉換，即：

a&=CLng(InputBox(“請輸入第一個數”))b&=CLng(InputBox(“請輸入第二個數”))這樣，當執行Print方法時，將計算并輸出算術表達式b&+a&的值。【答案】 A 例4假定程序中有如下語句：

answer=MsgBox(“第一個字符串”，vbAbortRetryIgnore_

Or vbCritical_

Or vbDefaultButton3，_

“第二個字符串”)執行該語句后，將顯示一個信息框，此時如果按回車鍵，則answer的值為 A．“第二個字符串”

B．5 C．

3D．7 【分析】 MsgBox函數的返回值是一個整數，這個整數與所選擇的按鈕有關。本例的第二個參數由三部分組成，其中 vbAbortRetryIgnore 用來在信息框中顯示3個按鈕，分別為“終止”、“重試”和“忽略”；vbCritical用來在信息框中顯示Critical Message圖標；而vbDefaultButton3把信息框的第三個按鈕(即“忽略”)指定為默認按鈕。執行該語句后，在信息框中顯示3個按鈕，并把第三個按鈕作為默認按鈕，此時如果按回車鍵，則返回值是該按鈕所對應的值。由于“忽略”按鈕對應的值是5，因此變量answer的值為5。【答案】 B 例5 執行下列語句后，顯示輸入對話框，此時如果單擊“確定”按鈕，則變量strinput的內容是______。strinput=InputBox(“請輸入字符串”，“字符串對話框”，“字符串”)

【分析】在執行InputBox函數時，會產生一個輸入對話框，該函數有7個參數，前三個參數都是字符串。其中第一個參數用來在輸入對話框內顯示一個提示用戶輸入的字符串，第二個參數是對話框的標題，第三個參數是輸入的默認信息。也就是說，在執行InputBox函數后，如果用戶沒有輸入任何信息，則可用此默認字符串作為輸入值。如果不想用這個默認字符串作為輸入值，則可在輸入區直接鍵入數據，以取代默認值。在該例中，顯示對話框后直接單擊“確定”按鈕，因此第三個參數就是默認的輸入值。【答案】字符串例6 閱讀程序：

Private Sub Form_Click()msg1$=”繼續嗎?“ msg2$=”操作對話框“ r=MsgBox(msg1$，vbYesNo OrvbDefaultButton2，msg2$)End Sub 程序運行后，單擊窗體，將產生一個信息框。此時如果直接按回車鍵，則相當于用鼠標單擊信息框 6 中的______ 按鈕。

【分析】本例用MsgBox函數產生信息框，該函數的第一個參數在信息框內顯示，第二個參數分為兩部分，其中前一部分(即vbYesNo)用來在信息框中產生兩個按鈕，分別為“是”和“否”，后一部分(即vbDefaultButton2)把第二個按鈕(即“否”)設置為默認按鈕；第三個參數是信息框的標題。程序運行后，單擊窗體，所產生的信息框的標題為“操作對話框”，在信息框內顯示的內容是“繼續嗎?”，兩個按鈕分別是“是”和“否”，其中“否”是默認按鈕。此時如果按回車鍵，則與單擊“否”按鈕效果相同。

【答案】 “否” 或第二個例7 設有如下程序： Private Sub Form_Click()

a = 32548.56

Print Format(Int((a * 10 + 0.5))/10,”000,000.00“)End Sub 程序運行后，單擊窗體，輸出結果是______。

【分析】本例用Format函數對數值進行格式化輸出，要輸出的數值存放在變量a中。Format函數的第一個參數對變量a進行了舍入處理，保留一位小數，第二位小數四舍五入，其值為32548.6。Format函數的第二個參數是格式說明符，使用的說明符有“0”和“，”，保留兩位小數，該函數的返回值為032,548.60。

【答案】032,548.60 例8 編寫程序，計算圓的面積。【分析】圓面積的計算公式為：

S=πr2 其中r是要計算面積的圓的半徑，程序運行后從鍵盤上輸入。程序如下：

Private Sub Form_Click()

Const PI = 3.14159

Dim r As Single, S As Single

r=InputBox(”請輸入圓的半徑“，”輸入數據“，”50“)

S=PI*r*r

Print”S=“;Format(S，”###,###.##“)End Sub

程序運行后，單擊窗體，將顯示一個輸入對話框，在該對話框中輸入圓的半徑(默認為50)，然后單擊確定按鈕或按回車鍵，即可在窗體上輸出圓的面積。假定在對話框中輸入35，則單擊“確定”按鈕后，輸出結果為：S=3,848.45。

例9 從鍵盤上輸入小時、分和秒，把它轉換為秒數并輸出。

【分析】 1小時等于60分，1分鐘等于60秒。把小時數乘以60*60，把分鐘數乘以60，再加上秒數，就等于總秒數。設小時數為H，分鐘數為M，秒數為S，則H小時、M分、S秒的總秒數SS為：

SS=H*60*60+M*60+S 程序如下：

Private Sub Form_Click()

H=InputBox(”請輸入小時“，”小時“)

H=Val(H)

M=InputBox(”請輸入分“，”分“)

M=Val(M)

S=InputBox(”請輸入秒“，”秒“)

S=Val(S)

SS=S+M*60+H*60*60

PrintH;”小時“;M;”分“;S;”秒=“;SS;”秒“ End Sub

程序運行后，單擊窗體，將先后顯示3個輸入對話框，要求輸入小時、分和秒。假定分別輸入5、45和25，則輸出結果為： 5小時45分25秒=20725秒

第五章常用標準控件例題

例1 在窗體上畫兩個文本框(其名稱分別為Text1和Text2)和一個命令按鈕(其名稱為Command1)，然后編寫如下兩個事件過程： Private Sub Command1_Click()

Text1.Text = ”Computer Rank Examination“ End Sub Private Sub Text1_Change()

Text2.Text = UCase(Text 1.Text)End Sub 程序運行后，單擊命令按鈕，則在Text2文本框中顯示的內容是 A． Computer Rank Examination B． computer rank examination C． COMPUTER RANK EXAMINATION D．空字符串【分析】該例有兩個事件過程，一個是命令按鈕的Click事件過程，一個是文本框的Text1的Change事件過程，當單擊命令按鈕時，執行前一個事件過程，而當在文本框Text1中輸入信息時，將執行該文本框的Change事件過程。在命令按鈕事件過程中，為文本框Text1的Text屬性賦值，即在該文本框中顯示字符串“Computer Rank Examination”，在這種情況下，將觸發Text1文本框的Change事件，把文本框Text1中的所有字母轉換為大寫字母，并在文本框Text2中顯示出來。程序運行后，如果單擊命令按鈕，則將先后觸發命令按鈕的Click事件和文本框Text1的Change事件，分別在兩個文本框中顯示由兩個事件過程所指定的內容。【答案】 C 例2 在窗體上畫一個名稱為List1的列表框，一個名稱為Labell的標簽。列表框中顯示若干城市的名稱。當單擊列表框中的某個城市名時，在標簽中顯示選中城市的名稱。下列能正確實現上述功能的程序是

A．Private Sub List1_ Click()

Label1.Caption = List1.ListIndex

End Sub B．Private Sub List1_ Click()

Label1.Name = List1.ListIndex

End Sub C．Private Sub List1_Click()

Label 1.Name = List1.Text

End Sub D．Private Sub List1_Click()

Labe1 1.Caption = List1.Text

End Sub 【分析】所給出的4個選擇都是列表框的Click事件過程。當單擊列表框中的某一項時，將發生單擊事件，同時選擇一個列表項，這個列表項可以用列表框的Text屬性來表示。也就是說，List1．Text就是所選擇的項目。此外，為了在標簽中顯示所選擇的列表項，必須使用列表框的標題屬性，即Label1.Caption。因此，正確的語句應當是：

Label1.Caption=List1.Text

在Visual Basic中，不能在運行期間改變控件或窗體的名稱(Name屬性)，因此B和C兩個選擇都是錯誤的；而列表框的ListIndex屬性是所選擇的列表項的位置，即列表項的標題，不是列表項本身。

【答案】 D 例3 在窗體上畫一個文本框、一個標簽和一個命令按鈕，其名稱分別為Text1、Label1和Command1，然后編寫如下兩個事件過程： Private Sub Command1_Click()

a=InputBox(”請輸入一個字符串“)

Text1.Text = a End Sub

Private Sub Text1_Change()

Label1.Caption = UCase(Mid(Text1.Text, 8))End Sub 程序運行后，單擊命令按鈕，將顯示一個輸入對話框，如果在該對話框中輸入字符串“VisualBasic”，則在標簽中顯示的內容是

A．visual basic

B．VISUAL BASIC C．basic

D．BASIC 分析】該例包括兩個事件過程，其中命令按鈕事件過程通過輸入對話框來輸入一個字符串，并把這個字符串賦給文本框。而當改變文本框的內容時，將觸發文本框的Change事件。因此，在把輸入的字符串賦給文本框時，將執行文本框的Change事件過程，對標簽的Caption屬性賦值，該值是：首先取出文本框中第八個字符之后的全部字符，然后把它們轉換為大寫字母。由于文本框中的字符串為“Visual Basic”，第八個字符為“B”，它之后的字符為“Basic”，執行Ucase函數后，轉換為大寫，即“BASIC”。【答案】 D 例4 在窗體上畫兩個文本框(名稱分別為Text1和Text2)和一個命令按鈕(名稱為Command1)，然后編寫如下事件過程：

Private Sub Command1 Click()

Text1.Text=InputBox(”請輸入身高“)

Text2.Text=InputBox(”請輸入體重“)End Sub 程序運行后，如果單擊命令按鈕，將先后顯示兩個輸入對話框，在兩個輸入對話框中分別輸入1.78和75，則兩個文本框中顯示的內容分別為______和______。

【分析】在一般情況下，通過InputBox函數輸入的數據被賦給一個變量。在本例中，沒有使用變量，而是直接把輸入對話框中的值賦給文本框的Text屬性。因此，第一個文本框接收的是身高，第二個文本框接收的是體重。【答案】 1.78 75

例5 為了在運行時把“d:＼pic”文件夾下的圖形文件a.jpg裝入圖片框Picture1，所使用的語句為______。

分析】在運行期間，可以用LoadPicture函數把指定的圖形文件裝入窗體、圖片框或圖像框，它實際上是把圖形文件賦給對象的Picture屬性。一般格式為：

[對象.]Picture=LoadPicture(“文件名”)其中的“文件名”可以是多種格式的圖形文件，包括.bmp、.ico、.wmf、.emf、.jpg、.gif等，提供的“文件名”可以含有路徑。對于本例來說，“文件名”(包括路徑)是：d:＼pic＼a.jpg，“對象”是Picture1。【答案】Picture 1.Picture=LoadPicture(”d:＼pic＼a.jpg“)例6 在窗體上畫一個列表框、一個命令按鈕和一個標簽。程序運行后，在列表框中選擇一個項目，然后單擊命令按鈕，即可將所選擇的項目刪除，并在標簽中顯示列表框當前的項目數，運行情況如圖6-1所示。下面是實現上述功能的程序，請填空。Private Sub Form_Load()

List1.AddItem ”AAAAA“

List1.AddItem ”BBBBB“

List1.AddItem ”CCCCC“

List1.AddItem ”DDDDD“ End Sub Private Sub Command1_Click()

Dim L As Integer

L=______

If ind ＞= 0 Then

List1.RemoveItem______

Label1.Caption = ______

Else

MsgBox”請選擇要刪除的項目“

End If End Sub 【分析】本例提供的程序包括兩個事件過程，其中Form Load事件過程用來向列表框中添加項目，而Command1 Click事件過程刪除列表框中被選擇的項目，并在標簽中顯示列表框當前的項目數，需要填空的代碼在這個事件過程中。

為了刪除列表框中指定的項目，可以使用RemoveItem方法，其格式為：

列表框.RemoveItem索引值其中的“索引值”是項目的地址，列表框中的項目從0開始計數，被選擇的項目的索引值就是列表框的ListIndex屬性。為了刪除列表框中被選擇的項目，必須先確定該項目的索引值，即列表框的ListIndex屬性，然后就可以用RemoveItem方法將其刪除。本題中的第一個空是被選擇的項目的索引值，應為List1.ListIndex，并把它賦給變量L。第二個空是RemoveItem方法的參數，即“索引值”，由于該值已保存在變量L中，因此應填入L。第三個空是列表框中當前的項目數，它就是列表框的ListCount屬性。【答案】List1.ListIndex

List 1.ListCount 例7 在窗體上畫一個圖片框、一個垂直滾動條和一個命令按鈕(標題為“設置屬性”)，通過屬性窗口在圖片框中裝入一個圖形，圖片框的寬度與圖形的寬度相同，圖片框的高度任意。編寫適當的事件過程。程序運行后，如果單擊命令按鈕，則設置垂直滾動條的屬性如下：

Min

Max

2400

LargeChange

200

SmallChange

之后就可以通過移動滾動條上的滾動框來放大或縮小圖片框。

【分析】本例要求程序實現兩個方面的功能，其一是當單擊命令按鈕時設置滾動條的幾個屬性；其二是當移動滾動條的滾動框時擴大或縮小圖片框的高度。第一個功能可以通過下面的事件過程來實現：

Private Sub Command1_Click()

VScroll1.Min = 100

VScroll1.Max = 2400

VScroll1.LargeChange = 200

VScroll1.SmallChange = 20 End Sub 第二個功能可以用下面的事件過程來實現： Private Sub VScroll1_Change()

Picture 1.Height = VScroll 1.Value End Sub 例8 在窗體上畫兩個命令按鈕和一個標簽，把兩個命令按鈕的標題分別設置為“縮小”和“擴大”；把標簽的AutoSize屬性設置為True，標題設置為“計算機等級考試”。程序運行后，如果單擊第一個命令按鈕，則可使標簽中標題的字體大小縮小1.2倍；如果單擊第二個命令按鈕，則可使標簽中標題的字體大小擴大1.2倍。

【分析】命令按鈕和標簽的標題以及標簽的AutoSize屬性可以通過屬性窗口設置，也可以在運行期間設置。程序運行后，首先執行Form_Load事件過程，可以把設置標題和AutoSize屬性的代碼放在該事件過程中。根據題意，當單擊兩個命令按鈕時，分別使得標簽中的字體縮小或擴大1.2倍，而字體的大小可以通過標簽的FontSize屬性來設置。因此，如果想使標簽中的字體縮小1.2倍，則可執行下面的語句：

Label 1.FontSize=Label 1.FontSize／1.2 而如果想使標簽中的字體擴大1.2倍，則應執行的語句為：

Label1.FontSize = Label1.FontSize * 1.2程序如下：

Private Sub Form Load()

Label1.Caption=”計算機等級考試“

Command1.Caption=”縮小“

Command2.Caption=”擴大“

Label1.AutoSize=True

End Sub

Private Sub Command1_Click()

Label1.FontSize = Label1.FontSize / 1.2 End Sub Private Sub Command2_Click()

Label1.FontSize = Label1.FontSize * 1.2 End Sub

第六章 VB控制結構例題

例1 已知一個人出生的年、月、日分別存放在變量y0、m0、d0中，當前日期的年、月、日分別存放在變量y1、m1、d1中，這個人的實足年齡存放在變量age中。則以下可以正確計算實足年齡的程序段是

A．

B．

age = y1-y0

age = y1-y0 If m1 ＜ m0 Then

If m1 ＜ m0 Or d1＜d0 Then

age = age-1

age = age-1 ElseIf d1 ＜ d0 Then

End If

age = age-1 End If C．

D．

age = y1-y0

age = y1-y0 If m1 ＜ m0 Then

If m1 ＜ m0 Then

age = age-1

age = age-1 End If

End If If m1 = m0 And d1＜ d0 Then

If d1 ＜ d0 Then

age = age1 End If

End If 【分析】所謂實足年齡，指的是實際到達的年齡，即當前的年、月、日都分別大于或等于出生的年、月、日。例如一個人的出生日期是1964年8月23日，當前日期為2002年8月23日，則這個人的實足年齡就是38歲；如果當前日期為2002年7月或2002年8月22日，則這個人的實足年齡就是37歲。

這就是說，為了計算一個人的實足年齡，需要進行以下操作：

(1)計算出y1-y0，并把結果賦給age。

(2)如果m1＜m0，則實足年齡為age-1。

(3)否則，如果m1=m0但d1＜d0，則實足年齡為age-1。

(4)否則，如果m1=m0且d1＞=d0，則實足年齡為age。

可以看出，為了計算實足年齡，可以先計算age=y1-y0，如果m1＜m0，則不再考慮d1是否大于d0，實足年齡=age-1；如果m1=m0，則還要看d1是否大于等于d0，如果小于，則實足年齡=age-1，否則實足年齡=age。

根據上面的分析，答案A顯然是不正確的，因為在測試m1＜m0后，就沒有必要再測試d1是否大于d0。答案B和D類似，只單獨測試月或日，不能得到正確結果，只有答案C正確地描述了上面所分析的情況。【答案】 C 例2 在窗體上畫一個命令按鈕和一個文本框，然后編寫如下程序： Private Sub Command1_Click()

a= 10

t=”旅游景點：“_

&IIf(a＞3，”長城“，”“)_

&IIf(a＜8，”故宮“，”“)_

&IIf(a＜＞7，”頤和園“，”“)

Text1.Text = t End Sub 程序運行后，單擊命令按鈕，則在文本框中顯示的內容是 A．旅游景點：長城故宮 B．旅游景點：長城頤和園 C．旅游景點：頤和園 D．旅游景點：故宮【分析】 IIf函數有三個參數，其中第一個參數是一個Boolean值，如果該參數的值為True，則函數的返回值為第二個參數；如果第一個參數的返回值為False，則函數的返回值為第三個參數。該例中變量a的值為10，在第一個IIf函數中，第一個參數為True，其返回值為第二個參數，即“長城”；在第二個IIf函數中，第一個參數為False，其返回值為第三個參數，即空字符串；而在第三個IIf函數中，第一個參數為True，其返回值為第二個參數，即“頤和園”。變量t的值為： ”旅游景點：“&”長城“&”頤和園“ 【答案】 B 例3 假定有下面的程序段： For i = 1 To 3

For j = 1 To i

For k = j To 3

Print ”i = “;i, ”j = “;j, ”k = “;k

Next k

Next j Next i 這是一個三重循環程序，在這個程序中，外層、中層和內層循環的循環次數是 A．

3、6和14 B．

3、8和16 C．

3、4和1

2D．

3、9和18 【分析】在多重循環中，外層循環變化一次，內層循環從頭到尾執行一遍。該題是一個三重循環，而且中層循環變量的終值和內層循環變量的初值是隨上一層循環的循環變量的變化而變化的，因此需要逐層加以計算后累加出各層的循環次數。模擬計算機的計算過程，計算各層的循環次數如下：(1)外層循環：i=1 To 3，循環次數為3(2)中層循環：當i=1時，j=1 To 1，循環1次

當i=2時，j=1 To 2，循環2次

當i=3時，j=1 To 3，循環3次中層循環的循環次數為6(3)內層循環：當j=1時，k=1 To 3，循環3次

當j=1時，k=1 To 3，循環3次

當j=2時，k=2 To 3，循環2次

當j=1時，k=1 To 3，循環3次

當j=2時，k=2 To 3，循環2次

當j=3時，k=3 To 3，循環1次內層循環的循環次數為14 【答案】 A 例4 假定有以下當循環：

While Not條件

循環體

WEnd

則執行循環體的“條件”是

A．True

B．1

C．False

D．-1 【分析】在當循環中，只有當While后面的“條件”為True時才能進入循環，執行循環體。也就是說，在 While條件中，只有“條件”為True才能執行循環體。本題在“條件”前加了一個取反運算符Not，要想執行循環體，必須對“條件”本身求反，即“條件”必須為False。【答案】 C 例5 閱讀下面的程序： Private Sub Form_Click()

Dim m, n As Integer

m=InputBox(”請輸入M的值“)

m=Val(m)

m1=m

n=InputBox(”請輸入N的值“)

n=Val(n)

n1=n

Do Whilen＜＞0

remin = rn Mod n

m=n

n = remin

Loop

Print m1, n1, m End Sub 程序運行后，單擊窗體，在輸入對話框中分別輸入16和24，則程序在窗體上的輸出結果為 A．16 24 4 B．16 24 8 C．24 16 6 D．24 16 8 【分析】本題提供的是用“輾轉相除法”求兩個整數的最大公約數的程序。一般來說，假定有兩個整數m和n(m＞n)，把m作為被除數，n作為除數，相除后余數為r。如果r不等于0，則令m=n，n=r，再進行一次除法運算(以新的m作為被除數，n作為除數)，得到新的r。如果r仍不等于0，則重復上述過程，直到r=0為止，此時的n就是兩個數的最大公約數。

在本題的Do While-Loop循環中，通過輾轉相除求最大公約數，循環結束的條件是相除后余數為0，如果不為0，則一直“除”下去。這里用Mod運算符求余數，較大的整數作為被除數或者較小的整數作為被除數都可以得到正確結果，但整除的次數可能會不一樣。

例如，假定有兩個數24和16，先把24作為被除數，16作為除數，相除后余數為8。再把原來的除數16作為下一次的被除數，將上一次得到的余數8作為下一次的除數，相除后余數為0。此時最后一次的除數8就是所求的最大公約數。

在本題的輸入中，先輸入16，再輸入24，求出的最大公約數仍為8。

【答案】 B 例6 閱讀下面的程序： Private Sub Form_Click()

Dim Check, Counter

Check = True

Counter = 0

Do While Counter ＜ 20

Counter = Counter + 1

If Counter = 10 Then

Check = False

Exit Do

End If

Loop

Loop Until Check = False

Print Counter, Check End Sub 程序運行后，單擊窗體，輸出結果為 A．15 0

B．20-1 C．10 True

D．10 False 【分析】這是一個二重循環，內層和外層都是Do循環。在內層循環中，執行循環體的條件是Counter小于20，由于Counter的初值為0，因此執行循環體。在循環體中，每次循環Counter增1，達到10后，把Check變量設置為False，同時執行Exit Do，退出內層循環。外層循環執行的條件是，變量Check的值是True。如果Check為False，則退出外層循環，輸出結果，結束程序。由于在退出內層循環時，Check已被設置為False，因此退出內層循環后立即就可以退出外層循環。退出兩層循環后，Counter和Check的值沒有發生任何改變，與退出內層循環時相同，分別為10和False。【答案】 D 例7 在上面例題6的二重循環中，如果把外層循環中的Until關鍵字改為While，要求輸出結果相同，請填空。Do

Do While Counter＜ 20

Counter = Counter + 1

If Counter = 10 Then

Check = False

Exit Do

End If

Loop Loop While _____ 【分析】在Do-Loop循環中，Until關鍵字的含義是“直到條件變為真之前”執行循環體，而While關鍵字正好相反，是“當條件為真時”執行循環體。也就是說，這兩個關鍵字后面的條件是相反的，只要在條件前加上取反運算符Not，或者條件從False改為True，就可以用While替換Until，并且反之亦然。

【答案】 Not Check=False或Check=True 例8閱讀程序：

Private Sub Form_Click()

Dim i As Integer, sum As Integer

For i = 2 To 10

If i Mod 2 ＜＞ 0 Then

Print i

Else

sum = sum + i

End If

Next i

Print sum End Sub 程序運行后，單擊窗體，在窗體上的輸出結果是_____。

【分析】本題For循環的循環變量的初值為2，終值為10，步長為1。在循環體內，判斷循環變量的值是否為偶數，如果是，則將該值累加到變量sum，否則輸出循環變量的值。不難看出，運行該程序后，在循環體內輸出的是奇數，而累加的是偶數。在循環體外，輸出偶數的累加和。【答案】例9 閱讀程序：

Private Sub Form_Click()

Dim num As Integer, digit As Integer

num= InputBox(”“)

While num ＜＞ 0

digit =num Mod 10

num = num 10

Print digit

Wend End Sub 程序運行后，如果從鍵盤上輸入9876，則輸出結果為_____。

【分析】本題使用了當循環，循環執行的條件是num不等于0。在循環體內，先用Mod運算符求出輸入的數num的余數，接著用10對該數進行整除，把得到的商賦給num，最后輸出余數。然后對整除后的num重復上述過程，直到num為0，結束循環。

在循環內，digit存放的是num的個位數，而每次整除后，num都要去掉個位數，而輸出的也是個位數。例如，假定輸入的是9876，則循環的執行過程如下：

digit = 9876 Mod 10 = 6

num= 9876 10 = 987 14

Print digit

輸出6 由于num不等于0，重復上述過程：

digit = 987 Mod 10 = 7

num= 987 10 = 98

Print digit

輸出7 num不等于0，重復上述過程：

digit = 98 Mod 10 = 8

num= 98 10 = 9

Printdigit 輸出8 num不等于0，重復上述過程：

digit = 9 Mod 10 = 9

num=9 10=0

Print digit

輸出9 num等于0，結束循環。【答案】

例10 以下程序的功能是，從鍵盤上輸入若干學生的成績，統計并輸出最高分數和最低分數，當輸入負數時結束輸入，請填空。Private Sub Command1_Click()

Dim x As Single

Dim amax As Single, amin As Single

x=InputBox(”請輸入分數“)

amax = x

amin = x

Do While______

If x ＞ amax Then

amax = x

End If

If______Then

amin = x

End If

x=InputBox(”請輸入分數“)

Loop

Print amax, amin End Sub 【分析】本題需要填兩個空。第一個空是結束循環的條件。根據題目要求，在循環體內，需要反復地輸入每個學生的分數，只有當輸入負數時才結束輸入，即退出循環。也就是說，結束循環的條件就是輸入的數是負數，即小于0。【答案1】 x＞=0 或Not x＜0

由于本題要求輸出輸入的最高分數和最低分數，其中最高分數通過循環中的第一個條件語句來統計，放在變量amax中，類似地，最低分數通過循環中的第二個條件語句來統計，放在變量amin中。

【答案2】x＜amin 或 Not x＞=amin 例11 給定三角形的三條邊長，計算三角形的面積。編寫程序，首先判斷給出的三條邊能否構成三角形，如可以構成，則計算并輸出該三角形的面積，否則要求重新輸入。當輸入-1時結束程序。【分析】從幾何學可知，三角形的兩邊之和大于第三邊。因此，如果輸入的三角形的三條邊中兩邊之和小于或等于另一邊長，則不能構成三角形。在這種情況下，給出適當的信息，并要求重新輸入。如果能構成三角形，則輸出該三角形的面積。程序如下：

Private Sub Form_Click()

Dim a, b, c, s, t As Single

a=InputBox(”請輸入A邊的邊長“)

a=Val(a)

If a＜0 Then End

b=InputBox(”請輸入B邊的邊長“)

b=Val(b)

c=InputBox(”請輸入C邊的邊長“)

c=Val(c)

If a+b＜=c Or b+c＜=a Or c+a＜=b Then

MsgBox”所輸入的值不能構成三角形，請重新輸入“，”“

Exit Sub

End If

s=(a+b+c)/2

t = Sqr(s *(sb)*(s1)* 2 +j

Next j

Next i

For i=3 To 4

For j = 3 To 4

Print Arr(j, i);

Next j

Next i End Sub 程序運行后，單擊窗體，輸出結果是 A．5 7 6 8

B．6 8 7 9 C．7 9 8 10

D．8 10 8 11

【分析】本例主要測試二維數組的輸入輸出操作。由于程序的開頭有Option Base 1語句，因此所定義的Arr是一個4行4列的二維數組。在第一個二重For循環中，根據內層和外層循環變量的變化對數組的每個元素賦值，其計算公式為：(i-1)*2+j，其中i和j分別為外層和內層循環變量。用這個公式計算的數組Arr各元素的值如下： Arr(1,1)= 1 Arr(1,2)= 2 Arr(1,3)= 3 Arr(1,4)= 4 Arr(2,1)= 3 Arr(2,2)= 4 Arr(2,3)= 5 Arr(2,4)= 6 Arr(3,1)= 5 Arr(3,2)= 6 Arr(3,3)= 7 Arr(3,4)= 8 Arr(4,1)= 7 Arr(4,2)= 8 Arr(4,3)= 9 Arr(4,4)= 10 在第二個二重循環中，用Print方法輸出Arr數組4個元素的值，即Arr(3,3)、Arr(3,4)、Arr(4,3)和Arr(4,4)，從上面的賦值情況可以看出，這4個元素的值分別是7、8、9、10。【答案】C 例4 在窗體上畫一個文本框，然后編寫如下程序： Option Base 1 Private Sub Form_Click()Dim Arr(10)As Integer

For i = 6 To 10

Arr(i)= i-3

Next i

Text 1.Text = Str(Arr(6)+ Arr(Arr(6)+ Arr(10)))End Sub 程序運行后，單擊窗體，在文本框中顯示的內容是_____。

【分析】在該例中，定義了一個一維數組Arr，并為其開辟了10個元素的空間，然后通過For循環為該數組的后5個元素賦值。不難看出，數組Arr后5個元素的值分別為3、4、5、6、7。最后一個語句是為文本框的Text屬性賦值，這個值是Arr數組的兩個元素的和，其中第一個元素是Arr(6)，即3；第二個元素的下標是數組Arr第六個元素(3)和第十個元素(7)的和，即Arr(3+7)=Arr(10)，而該元素的值為7。因此

Arr(6)+Arr(Arr(6)+Arr(10))=3+Arr(10)=3+7=10 【答案】10 例5 以下程序的功能是，產生10個0～1 000的隨機整數，放入數組Arr中，然后輸出其中的最大值。請填空。Option Base 1 Private Sub Form_Click()

Dim Arr(10)As Integer

Dim Max As Integer

Randomize

For i= 1 To 10

Arr(i)= Int(Rnd * 1000)

Next i

Max=____

For i = 2 To 10

If____Then

Max = Arr(i)

End If

Next i

Print Max End Sub 【分析】該例用Int(Rnd*1000)產生0～1 000的隨機整數，通過一個For循環把這些整數放入數組Arr中。變量Max用來存放數組的最大值。為了求出數組的最大值，首先應把數組的第一個元素(即Arr(1))賦給變量Max，然后進入循環，把Max依次與數組中的其他各元素進行比較，如果某個元素比Max大，就把該元素的值賦給Max。循環結束后，變量Max中存放的就是數組的最大值。最后輸出Max的值。【答案】Arr(1)

Arr(i)＞Max 例6 以下程序的功能是，程序運行后，單擊命令按鈕，輸出結果為： 1 4 7 2 5 8 3 6 9 請填空。Private Sub Command1_Click()

Dim Arr(3,3)As Integer

For i= 1 To 3

Forj = 1 To 3

Arr(i,j)=_____

Print Arr(i,j);

Next j

Next i End Sub 【分析】該例輸出的是一個3行3列的二維數組，數組中的各元素通過外層循環變量i和內層循環變量j產生，i用來控制數組Arr的行的變化，而i用來控制數組的列的變化。每執行一次外層循環，產生并輸出數組的一行。第一次執行外層循環時，產生并輸出的一行為1 4 7，即內層循環變量為1時輸出1，內層循環變量為2時輸出4，內層循環變量為3時輸出7。因此，可以根據循環變量i和j的變化，用一個公式來產生和輸出指定的數組。【答案】i+(j-1)*3

或(i-1)+j*3-2

第八章函數與過程

例1 編寫如下通用過程：

Sub Proc(x As Single,y As Single)

t=x

x=t/y

y = t Mod y End Sub 在窗體上畫一個命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click()

Dim a As Single

Dim b As Single

a=5

b=4

Proc a, b

Print a, b End Sub 程序運行后，如果單擊命令按鈕，則輸出結果為 A．5

4B．1.25

1C．4 5 D．1.25 5 【分析】該例中的Proc過程有兩個參數，均為單精度類型；由于沒有By Val關鍵字，參數使用的是引用(即傳地址)方式。也就是說，實參a、b與形參x、y使用的是相同的地址。因此，由過程Proc計算出來的x、y的值實際上與實參a、b的值相同。在事件過程中，執行Proc a，b語句后，就把a(值為5)、b(值為4)的值分別傳送給過程Proc中的x、y，使得x=5，y=4。在過程中，首先把x的值賦給t，即t的值為5，然后執行： x=t／y=5／4=1.25 y=t mod y=5 Mod 4=1 【答案】 B 在上面的程序中，如果把過程Proc的參數改為傳值方式，結果會如何呢?在這種情況下，事件過程中的實參與通用過程中的形參沒有任何關系，輸出結果仍為5 4。例2 閱讀程序：

Function func(n As Integer)As Integer

Sum = 0

For i= 1 To n

Sum = Sum +(i + 1)* i

Next i

func = Sum End Function Private Sub Command1_Click()

Dim a As Integer

a=5

s = func(a)

Print s End Sub 程序運行后，單擊命令按鈕，輸出結果為 A．80 B．60 C．70 D．15 【分析】該例調用一個Function過程Func，該過程只有一個參數，類型為整型，返回值也為整型。過程的調用十分簡單，關鍵是要搞清楚過程func的功能。從循環 For i= 1 To n Sum = Sum +(i + 1)* i Next i 可以看出，該過程的功能是計算 1*2+2*3+3*4+…+(n+1)*n

在調用過程時，實參a的值為5，即上式中的n=5。因此返回的值為： 1*2+2*3+3*4+4*5+5*6=70 【答案】 C 例3 閱讀下面的程序：

Function Func(x As Integer, y As Integer)As Integer

Dim n As Integer

Do While n ＜= 4

x=x+y

n=n+1

Loop

Func = x End Function Private Sub Command1_Click()

Dim x As Integer, y As Integer

Dim n As Integer, z As Integer

x=1

y=1

For n = 1 To 6

z = Func(x, y)

Next n

Print z End Sub 程序運行后，單擊命令按鈕，輸出結果是 A．16 B．21 C．26 D．31 【分析】過程Func有兩個參數，使用的是引用方式，參數和返回值均為整型，在命令按鈕事件過程的For循環中調用Func過程，共循環6次，每次循環調用一次。兩個過程中使用的變量(包括參數)基本相同，但由于是局部變量，不會發生沖突。無論在事件過程還是通用過程中，y的值始終保持不變，總等于1。在Func過程中，Do-Loop循環共執行5次，通過變量n控制(從0到4)，每次都執行x=x+1，因此，每調用一次Func過程，都使得x=x+5，并把返回值賦給事件過程中的變量z。6次調用中，循環變量n及返回值z的結果如下：

2321

【答案】 D 例4 編寫如下通用過程：

Sub proc(By Val num As Long, ByRef ren As Long)

Dim k As Long

k=l

hum = Abs(num)

Do While num

k = k *(num Mod 10)

num= num 10

Loop

ren = k End Sub 在窗體上畫一個命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click()

Dim n As Long, r As Long

n=InputBox(”請輸入一個整數“)

n = CLng(n)

proc n, r

Print r End Sub 程序運行后，單擊命令按鈕，在輸入對話框中345，輸出結果是

【分析】過程proc有兩個參數，其中第一個參數使用的是傳值方式(帶有關鍵字By Val)，第二個參數使用的是引用方式(帶有關鍵字ByRef,可以省略)。該過程的功能是，通過取余(Mod)和整除(＼)運算符求出一個整數的各位數字，將這些數字相乘，并把乘積賦給參數ren。在事件過程中，用InputBox函數輸入一個數，然后調用過程proc，如果輸入的數是345，則結果為3*4*5=60。注意，調用語句 proc n,r有兩個實參，其中r用來存放過程的返回值。Function過程通常有一個返回值，Sub過程也可以有返回值，并且可以有多個返回值，這些返回值放在形參中。在這種情況下，存放返回值的形參必須使用傳地址方式，否則得不到正確結果。【答案】 60 例5 閱讀程序： Option Base 1 Dim arr2()As Integer Private Function FindMax(a()As Integer)As Integer

Dim Start As Integer

Dim Finish As Integer, i As Integer

Start = Lbound____

Finish = UBound____

Max =____

For i = Start To Finish

If a(i)＞ Max Then Max = ______

Next i

FindMax = Max End Function Private Sub Command1_Click()

Dim arr1

arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)

b = UBound(arr1)

ReDim arr2(___)As Integer

For i= 1 To b

arr2(i)= CInt(_____)

Next i

M = FindMax(arr2())

Print”最大值是：“;M End Sub 【分析】數組在事件過程中定義，由于使用了Array函數，必須把數組變量定義為變體類型，但是，過程FindMax中的形式參數是整型，因此必須把數組轉換為整型，否則在調用時將會產生“類型不匹配”錯誤。此外，用Array函數定義的數組不指定上界，只能通過UBound函數得到其上界。在窗體層定義了一個動態數組arr2，其上界在事件過程中給出并重新定義。因此，事件過程中的第一個空應為數組上界b，第二個空應為變體類型數組arr1(i)。在通用過程中，需要知道數組的上界和下界，分別存放在變量Start和Finish中，然后把數組的第一個元素放在變量Max中，并把該變量與數組中的每個元素相比較，如果數組元素大于該變量，則用該元素的值取代Max中的值。

【答案】事件過程中的兩個空分別應填入： b arr(i)通用過程中的4個空分別應填入：(a)(a)a(Start)或a(1)a(i)回該數組的最大值。請填空。

例6 用隨機數函數Rnd生成一個8行8列的數組(各元素值在100以內)，然后找出某個指定行內值最大的元素所在的列號。要求：查找指定行內值最大的元素所在列號的操作，通過一個過程來實現。【分析】求某一指定行中值最大的元素所在列號的Function過程代碼如下： Function Max(b()As Integer, row As Integer)

m = b(row, 1)

col = 1

For i = 2 To UBound(b, 2)

If b(row, i)＞ m Then

Let m = b(row, i)

col = i

End If

Next i

Max = col End Function 該過程有兩個參數，其中第一個參數是數組，第二個參數是數組中指定行的行號。在這個過程中，首先把指定行的第一列的值賦給一個變量，其列號為1，然后把該值與其后各列的值進行比較，如果比該值大，則用較大的值取代，同時記下其列號。編寫窗體的Click事件過程： Private Sub Form_Click()

Randomize

Dim A(1 To 8, 1 To 8)As Integer

Dim row As Integer

For i = 1 To 8

For j = 1 To 8

A(i, j)= Int(Rnd * 100)

Next j

Next i

Print”所生成的數組為：“

For i = 1 To 8

For j = 1 To 8

Print A(i, j);

Next j

Next i

row = InputBox(”請輸入指定的行號:“)

Loop Until row ＞= 1 And row ＜= 8

col = Max(A(), row)

Print”第“;row;”行中最大元素所在列號為:“;col End Sub

該過程首先用隨機數函數Rnd生成一個8行8列的數組，然后要求輸入一個行號，程序將輸出該行中最大值所在的列號。程序運行后，單擊窗體，在輸入對話框中輸入一個行號，程序將輸出該行中值最大的元素所在的列號。

第九章菜單與對話框

例1 Windows風格的對話框上通常沒有最大化按鈕和最小化按鈕，為使標題欄上的這兩個按鈕消失，而保留其他按鈕，設置窗體屬性時，正確的是

A． ControlBox=True、MaxButton=False、MinButton=True B． ControlBox=False、MaxButton=True、MinButton=True C． ControlBox=True、MaxButton=False、MinButton=False D． ControlBox=False、MaxButton=False、MinButton=False 【分析】 ControlBox、MaxButton和MinButton屬性都影響窗體標題欄上的按鈕，其中ControlBox為False，則標題欄上的所有按鈕消失，這顯然與題意不符，所以B．和D．肯定是錯誤的。MaxButton和MinButton屬性分別決定最大化按鈕和最小化按鈕是否顯示，只有當二者都為False時，這兩個按鈕才都不顯示。【答案】 C 例2 設通用對話框控件的名稱為CD1，希望在打開文件對話框中的“文件類型”列表中包含：所有文件、Word文檔和文本文件這3類文件，在程序中設置Filter屬性時正確的是 A．CD1.Filter=“所有文件|Word文檔|文本文件”

【分析】通用對話框的Filter屬性的值必須是字符型，在VB設計模式下，從屬性窗口輸入Filter的值時，可以直接輸入字符串，但在程序中為Filter屬性賦值時，必須添加字符串的定界符，所以C.一定是錯誤的。

Filter屬性中字符串的格式應該是“類型描述1|過濾器1|類型描述2|過濾器2|??”，其中“類型描述”是在打開或保存文件對話框的“文件類型”列表中顯示的一行文本，是向操作者表示的文件類型，操作系統并不能識別類型描述，操作系統可以識別的是它后面的“過濾器”，“過濾器”一般由通配符和文件的擴展名組成，是操作系統可以識別的與前面的“類型描述”匹配的文件類型。

對于答案A.，在對話框的“文件類型”列表中只顯示“所有文件”和“文本文件”兩行，操作系統把“Word文檔”理解為“所有文件”的文件類型(即“過濾器”)，事實上這種文件類型并不存在，因此對話框的文件列表中只有文件夾，而不會有任何其他文件。

答案D.中類型描述與過濾器的位置顛倒了，結果是在“文件類型”列表中顯示*.*、*.doc、*.txt這3行內容，而與它們對應的過濾器都是錯的，因此不管選擇哪種文件類型，對話框中都只顯示文件夾，而沒有任何文件名。

只有答案B.才符合Filter屬性要求的格式。【答案】 B 例3 在使用通用對話框控件時，如果同時設置了以下屬性：DefaultExt=“doc”，FileName=“c:filel.txt”，Filter=“應用程序|*.exe”，則顯示打開文件對話框時，在“文件類型”下拉列表中的默認文件類型是

A．應用程序(即*.exe)B．*.doc C．*.txt D．不確定。【分析】DefaultExt只在FileName中無擴展名部分時才有效，并且只影響FileName中的擴展名部分，與對話框中的默認文件類型無關，所以B.是錯誤的；FileName中的擴展名部分也不影響對話框中默認的文件類型，所以C.也是錯誤的；當沒有設置FilterIndex屬性時，Filter中的第一個文件類型就成為對話框的默認文件類型，它決定了在對話框的文件列表中顯示哪一類文件，所以正確答案應該是A．。

需要說明的是，由于FileName中含有文件擴展名部分，雖然對話框的默認文件類型是“應用程序”(*.exe)，但不會改變FileName中的擴展名，FileName中的內容仍然是“c:filel.txt”，除非在對話框中選擇了其他文件名。【答案】 A 例4 設計一個窗體Form1，其中，文本框的名稱為Text1。要求單擊“格式”按鈕，在彈出對話框中選定單選按鈕和復選框后，單擊“確定”按鈕，則可以對Form1的Text1文本框中的文字進行相應的設置，如果單擊“取消”按鈕，則在對話框中所做的設置無效。“格式”對話框中的3個單選按鈕的名稱依次是Op1、Op2、Op3，兩個復選框的名稱依次是Ch1、Ch2。填空完成下面的事件過程。“格式”按鈕的Click事件過程： Private Sub C1_Click()

[1] End Sub “格式”對話框(Form2窗體)中“確定”按鈕的Click事件過程： Private Sub Command1_Click()

If Op 1.Value Then

Form1.Text1.FontName =“宋體”

ElseIf Op2.Value Then

Form 1.Text 1.FontName =“黑體”

ElseIf Op3.Value Then

Form1.Text1.FontName =“隸書”

End If

If [2] Then

Form1.Text1.FontItalic = True

Else

Form1.Text1.FontItalic = False

End If

If [3] Then

Form1.Text1.FontUnderline = True

Else

Form1.Text1.FontUnderline = False

End If

Unload Form2 End Sub “格式”對話框中“取消”按鈕的Click事件過程： Private Sub Command2_Click()

Unload Form2 End Sub 【分析】根據題意，在單擊“格式”按鈕后，應該彈出Form2窗體，使用Show方法可以加載并顯示Form2窗體，如果使用Load方法只能加載Form2窗體，加載后還要用Show方法顯示該窗體。所以[1]處應填寫Form2.Show。

按照對話框的一般風格，單擊“確定”或“取消”按鈕都可以關閉對話框，但單擊“取消”按鈕將放棄在對話框中所做的選擇，所以修改Form1的文本框格式的程序應放在“確定”按鈕的Click事件過程中，判斷對話框中各種控件的Value屬性，來決定是否修改文本框的相關屬性。

在[2]所在的IF語句中，Then子句中把Text1的斜體屬性設置為True，而對話框中Ch1復選框的標題是“斜體”，說明選中這個復選框應執行第一個IF語句中的Then子句，所以[2]處應填寫Ch1.Value=1。同樣道理，在[3]處應填寫Ch2.Value=1。

【答案】 [1]Form2.Show或Form2.Load:Form2.Show

[2]Ch1.Value=1

[3]Ch2.Value=1 例5 設計一個名稱為Form1的窗體，含一個標題為“登錄”的命令按鈕，單擊此按鈕，則打開“登錄”對話框，正確口令為字符串“123456”，若單擊“確定”按鈕，則檢查口令，如果口令正確，則在Form1窗體上顯示“登錄成功”并關閉對話框，否則彈出錯誤提示。允許輸入3次口令，輸入口令的文本框的名稱為Text1，顯示輸入的次數的文本框的名稱為Text2，Text2不允許鍵盤輸入。如果3次輸入都是錯誤的，則再次輸入時，彈出提示，然后焦點定位到“退出”按鈕上。單擊“退出”按鈕則在Form1窗體上顯示“登錄失敗”并關閉對話框。對話框中“確定”按鈕的名稱為C1，“退出”按鈕的名稱為C2。編寫適當的事件過程實現本題的功能。【分析】(1)建立控件：創建Form1、Form2，并在Form2窗體上畫出兩個文本框、兩個命令按鈕和兩個標簽。

(2)設置屬性：根據題意，文本框Text1的PasswordChar屬性應設置為“*”；因Text2不允許鍵盤輸入，Text2的Locked屬性設置為True；Form2的標題設置為“登錄”，ControlBox屬性設置為False。

(3)編寫事件過程

Form1上“登錄”按鈕的Click事件過程：

Private Sub C1_Click()

Form2.Show

End Sub Form2中“確定”按鈕和“退出”按鈕的Click事件過程：

Private Sub C 1_Click()

Text2.Text = Val(Text2.Text)+ 1

If Text1.Text = ”123456“ Then

Form1.Print”登錄成功“

Unload Me

ElseIf Val(Text2.Text)＜3 Then

MsgBox”第“&Text2.Text&”次口令錯誤，請重新輸入“

Else

MsgBox Text2.Text&”次口令都錯誤，請退出“

Text1.Locked = True

End If

End Sub

Private Sub C2_Click()

Form1.Print”登錄失敗“

Unload Me

End Sub

在“確定”按鈕的Click事件過程中，每單擊此按鈕一次，Text2中的數加1，從而記錄輸入口令的次數。如果在Text1中輸入的是“123456”，表示口令正確，則在Form1上輸出“登錄成功”，然后卸載Form2如果口令錯誤，則要判斷Text2中的數是否小于3，如果小于3，就用MsgBox對話框給出提示，否則，把Text1鎖住(Locked=True)，不允許再次輸入口令。

當輸入口令3次都錯誤，不允許再次輸入，如果把輸入光標移到Text1上，應彈出圖12-5所示的對話框。可以在Text1獲得焦點時實現這一功能，所以編寫Text1的GotFocus事件過程如下： Private Sub Text1_GotFocus()

If Val(Text2.Text)＞= 3 Then

MsgBox”口令錯誤超過3次，請退出“

C2.SetFocus

End If End Sub

第十章多窗體例題分析

例1 下列操作中不能向工程中添加窗體的命令是 A．執行“工程”菜單中的添加窗體命令 B．單擊工具欄上的“添加窗體”

C．右擊窗體，在彈出的菜單中選擇“添加窗體”命令

D．右擊工程資源管理器，在彈出的菜單中選擇“添加”命令，然后在下一級菜單中選擇“添加窗體”命令

【分析】在建立VB應用程序時，自動創建一個窗體。在需要建立多窗體程序時，可以使用多種方式向工程文件中添加窗體。可以使用“工程”菜單或工具欄中相應的按鈕執行添加窗體的命令。另外，在工程資源管理器窗口中，單擊鼠標右鍵，彈出的快捷菜單中有“添加窗體”命令。答案A．、B．、D．對應上述三種情況。按答案C操作不能完成添加窗體的操作。【答案】 C 例2 當一個工程含有多個窗體時，其中的啟動窗體是 A．啟動Visual Basic時建立的窗體 B．第一個添加的窗體 C．最后一個添加的窗體

D．在“工程屬性”對話框中指定的窗體

【分析】對于多窗體程序，只有一個窗體為啟動窗體。如果沒有特別指定啟動窗體，則啟動窗體為創建VB程序時建立的第一個窗體。也可以通過“工程”菜單的“工程屬性”窗口指定啟動窗體。顯然，C不是正確答案。答案B中所提到的窗體是第一個添加的窗體，而不是建立工程文件時建立的第一個窗體。【答案】 D 例3 Visual Basic應用程序主要由____、____和______等三種模塊組成。【分析】本題要求掌握構成Visual Basic應用程序的構成和模塊類型。VB的工程文件主要包含三種類型的模塊：標準模塊、窗體模塊和類模塊。【答案】標準模塊窗體模塊類模塊

例4 為了顯示一個窗體，所使用的方法為____；而為了隱藏一個窗體，所使用的方法為_____。【分析】顯示窗體所使用的方法是Show，隱藏窗體所使用的方法是Hide方法。【答案】 Show Hide 例5 在工程中添加窗體的方法有三種，分別是____、______和_______。

【分析】創建VB的工程文件時，自動建立一個窗體。在設計多重窗體應用程序時，需要添加新的窗體。向現有的工程文件中添加窗體的方法有：在“工程資源管理器”窗口中單擊鼠標右鍵，在彈出的快捷菜單中選擇“添加窗體”命令；在“工程”菜單中選擇“添加窗體”命令；或在標準工具欄中單擊■按鈕(添加窗體按鈕)。上述三種方法都可以向工程文件中添加新的窗體。【答案】

在“工程資源管理器”窗口中執行“添加窗體”命令在“工程”菜單中選擇“添加窗體”命令在標準工具欄中單擊■按鈕

例6 啟動窗體在_____對話框中指定，為了打開該對話框，應執行_____菜單中的_______命令。【分析】一個VB的工程文件可以包含多個窗體文件及其他類型的文件。運行VB程序時的啟動窗體可以由設計者指定。指定啟動窗體的操作可以在“工程”菜單中的“工程屬性”窗口中進行。在“工程屬性”窗口中，對應于“啟動對象”的列表框中列出了當前工程文件中所有的窗體名稱，可以從中指定一個作為啟動窗體。缺省情況下，創建工程文件時建立的第一個窗體為啟動窗體。【答案】工程屬性工程

＜工程名＞屬性

例7 全局變量必須在_______模塊中定義，所使用的語句為________。

【分析】 VB提供了全局變量、模塊級變量和局部變量的定義和使用。全局變量的作用域是整個工程，可以在工程文件的每個模塊及每個過程中使用。全局變量必須在標準模塊的聲明部分聲明，并且只能使用Public或Global語句聲明。在標準模塊中用Private或Dim聲明的變量的作用域為該模塊，不能被工程文件中的其他模塊調用。【答案】標準模塊

Public或Global 例8 DoEvents語句的作用是_________。

【分析】在程序運行執行閑置循環過程中，程序的控制權被系統占用。若要獲得控制權，可以使用DoEvents語句。這樣用戶可以在獲得系統的控制權后進行其他操作。【答案】獲得系統的控制權

第二部分 Visual Basic 考點習題及解答

一、對象及其操作

（一）、選擇題

1決定一個窗體有無控制菜單的屬性是

(A)MinButton

(B)Caption

(C)MaxButton

(D)ControlBox 2要使一個文本框具有水平和垂直滾動條,則應先將其MultiLine屬性設置為True,然后再將 ScrollBar屬性設置為:(A)O

(B)1

(D)3 3要使文本框獲得輸入焦點,則應采用文本框控件的哪個方法?(A)GotFocus

(B)LostFocus(C)keypress

(D)SetFocus 4要想改變一個窗體的標題內容,則應設置以下哪個屬性的值?(A)Name

(B)FontName(C)Caption

(D)Text 5能夠改變窗體邊框線類型的屬性是

(A)Fontstyle

(B)Borderstyle(C)BackStyle

(D)Border 6能夠獲得一個文本框中被選取文本的內容的屬性是

(A)Text

(B)Length

(C)SelText

(D)SelStart 7要使標簽能夠顯示所需要的文本,則在程序中應設置其哪一屬性的值?(A)Caption

(B)Text

(C)Name

(D)Autosize 8要使標簽中顯示的文本靠右顯示,則應將其Alignment屬性設置為(A)O

(B)1

(D)3 9要把一個命令按鈕設置成無效,應設置其哪一屬性值?(A)Visible

(B)Enabled

(C)Default

(D)Cancel 10要使一個命令按鈕成為圖形命令按鈕,則應設置其哪一屬性值?(A)Picture

(B)Style

(C)DownPicture

(D)DisablePicture 11要使標簽所在處透明顯示背景,應把其Backstyle屬性設置為(A)O

(B)1

(C)True

(D)False 12為了在按下回車鍵時執行某個命令按鈕的事件過程,需要把該命令按鈕的一個性設置為True,這個屬性是:(A)Value

(B)Cancel

(C)Enabled

(D)Default

（二）、編程題

13在窗體上建立2個文本框(Name屬性值分別為Text1和Text2)和2個命令按鈕(Name屬性分別為Command1和Command2),程序運行時,在Text1中輸入文

本,單擊Commandl命令按鈕時,將Text1文本框中的值復制到Text2文本框中p 當單擊Command2命令按鈕時,退出程序。

14已知自由落體的位移公式為s=1/2gt2+v0t,其中v0為初始速度,g為重力加度, t為經歷的時間,編寫一程序,求位移量s。用2個文本框分別輸入初始速度和經歷的時間,單擊一個命令按鈕時,進行計算,并將運算結果在另一文本框顯示。

15輸入球體的半徑,然后計算并輸出球體的體積和表面積。已知球體的體積計算公式為v=4/3πr3,球的表面積公式為f=4πr2,此處的r為球體的半徑。

要求:程序用一個文本框輸入半徑r,單擊一個命令按鈕時,進行計算,并將運算結果即球的體積和表面積分別用2個文本框顯示出來。參考答案：

（一）、選擇題 D D

C A 8 B B B A

（二）、編程題

13分別編寫兩個命令按鈕Command1和Command2的Click事件過程代碼。程序代碼如下: Private Sub Command1-click()Text2.Text =Text1.Text End Sub Private Sub Command2-Clicko End End Sub 14在窗體上添加3個文本框,第一個文本框(名稱為Text1)用于輸入初始速度vo 值;第2個文本框(名稱為Text2)用于輸入經歷的時間,第3個文本框(名稱為 Text3)用于顯示計算的結果,即位移量。再向窗體中添加一個命令按鈕(名稱為 Commandl),編寫命令按鈕Command1的Click事件過程代碼。程序代碼如下: Private Sub Command1-Click()Dim v As Double,t As Double,s As Double 28 v=Val(Text1.Text)t =Val(Text2.Text)s =v*t+9.8*t*t/2 Text3.Text = s End Sub 15在窗體上添加3個文本框,第1個文本框(名稱為Text1)用于輸入球的半徑r值;第2個文本框(名稱為Text2)用于顯示計算出來的球體體積;第3個文本框(名稱為Text3)用于顯示計算出來的球體的表面積。再向窗體中添加一個命令按鈕(名稱為Command1),編寫命令按鈕Command1的Click事件過程代碼。程序代碼如 Private Sub Command1_Click()Dim r As Double r=Val(Text1.Text)Text2.Text =4*3.14*r*r*r/3 Text3.Text =4*3.14*r*r End Sub

二、數據類型及其運算

(一)、選擇題

1.下面給出的符號中,不能作為Visual Basic的變量名的是(A)abed(B)4A12(C)AA-123(D)BB% 2.下面給出的符號中,可以作為Visual Basic的變量名的是(A)abc-123(B)πR(C)Print(D)Beta 3下列可作為Visual Basic的常量的是

(A)π(B)1.O*E-3(C)-1E5(D)E-6 4.下列不可作為Visual Basic的常量的是

(A)1OE01(B)-l00.98#(C).0001(D)1.OE 5.按照Visual Basic的規定,下面作為字符串常量合法的是

(A)ABC$(B)“ABCπ”(C)“AB”$(D)‘abc123' 6.按照Visual Basic的規定,123#所表示的數據類型是

(A)整型(B)雙精度型(C)單精度型(D)長整型

7.下面給出的符號中,可以作為Visual Basic的變量名的是(A)PRINT(B)LET(C)%by(D)S# 8.下面給出的符號中,不可以作為Visual Basic的變量名的是(A)E*(B)e!(C)E#(D)e% 9.常量4.5123843D-5是一個以指數形式表示的合法的Visual Basic常量,下面與該數的值等價的是(A)0.000045123843(B)0.0045123843(C)0.00045123843(D)0.045123843 10.下面不可以作為Visual Basic常量的是

(A)”01-12-1999“(B)#1999-12-21#(C)True(D)π 11.下面能夠作為Visual Basic的表達式的是(A)4*sin(π)(B)b^2-4ac(C)[-b+sqr(dlt)]/(2*a*c)(D)exp(x)+ABS(Y)12.下面表達式中,其值為0的是

(A)4/5(B)5Mod 4(C)45(D)4Mod 5 13.在Visual Basic中,以下表達式的值與其他三個不同的是(A)Int(-3.5)+0.5(B)exp(-3.5)(C)SGN(一3.5)-2.5(D)-ABS(一3.5)14.在Visual Basic中,執行下面四個賦值語句時出現錯誤的是(A)x=SGN(O)(B)Y=sqr(O)(C)z=LOG(O)(D)x=SIN(O)15.下面不可以作為Visual Basic常量的是

(A)&61A&(B)&234(C)&O43&(D)&Habc& 16.設變量a=2,b=3,c=4,d=5,則表達式not a>b and b^2c-d 的值為

(A)True(B)False(C)-1（D）1(二)、填空題

17與數學表達式cos3(2π)相對應的Visual Basic表達式是_______________。18表達式Len(”xya“&123)的值是_______________。

19表達式Sgn(-9)十Val(”123.34+x“)的值為_______________。20表達式Int(-5.6)+Fix(-9.56)的值為_______________。

21表達式Mid(”Visual Basic學習教程“,8)& Trim(” 和C教程“)的值

為_______________。

22表達式Str(-5.23)&123的值為_______________。23表達式”ABC“>”Abc“的值為_______________。24表達式#2001-05-10#+31的值為_______________。

25表達式Abs(-34)+Sqr(100)*Int(-3.4)的值為_______________。26表達式Rtrim(Lcase(” Abcd123xyZ “))&Right 〈” mnopq“,3〉的值

為_______________。

27與數學表達式e-4+Log105對應的Visual Basic表達式是_______________。28與數學表達式1≤x≤100對應的Visual Basic表達式是_______________。

29設變量a是一個實數,能對a值的第4位小數進行四舍五入的表達式是_______________。30執行以下語句后,輸出結果是_______________。(下式中表示回車)a=”ABCDEFGHIJK“ Print Instr(a,”efg“) 31假定當前日期是2001年5月25日星期五,則執行以下語句后,輸出結果為: _______________、_______________、_______________、_______________。Print Day(now) Print Month(now) Print Year(now) Print Weekday(now) 32在6.0版的Visual Basic中,字符采用_______________的編碼方式，在這種編碼方案中,一個中文字符或一個西文字符均視為_______________，每個字符用_______________個字節編碼。33在Visual Basic中,字符串常量要用_______________括起來，日期/時間型常量要用_______________括起來。

34表達式Chr（65）的值為_______________,Asc（”B“）的值為_______________。35數學表達式sin36o,寫成Visual Basic的表達式為_______________。36表達式5*55/5的值是_______________。37表達式4+56*7/8mod9的值_______________。

38Print Format(Sqr(3),”$00###.000“)的值為_______________。39Print Format(-34.69358, ”000000,0.000“)的值為_______________。40Print Format(6723.4587,”+000000.000E+00“)的值為_______________。參考答案：

（一）、選擇題 B D

D 8 A

A D

D C B C 15 A A

（二）、填空題

cos(2*3.14)^3

round(a,4)18

0 19

122.34

25、5、2001、6 20

Unicode 編碼 1 2 21

BASIC學習教程和C教程

雙引號 # 22

-5.23123

A 66 23

False

Sin(3.14*36/180)24

2001-6-10

25 25

5 26

abcd123xyzopq

$00001.732 27

exp(-4)+log(5)/log(10)

-0,000,034.694 28

x>=1 and x<=10

+672345.870E-02

三、順序程序結構與數據輸入/輸出

（一）、選擇題

1下列不支持Print方法的是:(A)圖片框控件

(B)窗體

(C)打印機

(D)文本框控件 2設變量a和b的值分別為153和-45,則Debug.print a;b的輸出結果為:(輸出結果中的└┘表示一個空格符,下同)(A)└┘153└┘-45└┘(B)153└┘-45

(C)└┘153└┘└┘-45└┘(D)└┘153└┘└┘-45 3語句Print ”44+66=“;44+66的輸出結果為:(A)”44+66=“└┘110(B)44+66=└┘110(C)”44+66=“;└┘44+66(D)”44+66=“,└┘44+66 4下列語句中,不正確的打印語句是:d 32(A)Print a=3+5

(B)Print ”a=;3+5“(C)Print ”a=3+5“

(D)Print a=;3+5 5設有賦值語句Stt1=”abede“和Str2=”xyz“,則語句Print Str1;Str2的輸出結果為(A)abede└┘xyz

(B)abedexyz(C)└┘abede└┘xyz

(D)└┘abede└┘└┘xyz└┘ 6Print sgn(-6^2)+abs(int(-234.12))的輸出結果為:(A))-300

(B)300

(D)234 7Print sgn(一20)*sqr(3)

(B)False

(C)True

(D)0 8Print Format(abs(-3^2)+32.5,”$$####,##.000“)的輸出結果為:(A)$$41.5000

(B)$$41.5(C)$000041.5000

(D)$$000041.5000 9InputBox函數的返回值的類型是:(A)數值

(B)字符類型

(C)變體

(D)數值或字符串(視輸入的數據而定)10設計一個程序,在程序中添加一個名稱為Form1的窗體,添加窗體的Click事件過程代碼, Private sub Form-Click()Dim x As Single,y As Single xzInputBox(”輸人第一個數據“,”輸人數據“)y=InputBox(”輸人第二個數據“,”輸入數據“)Print x+y End Sub 程序運行時,單擊窗體,先后在兩個輸入對話框中輸入123和456,則程序的輸出結果為:(A)123456

(B)123

(D)456 11分別執行以下語句x=InputBox(”aaa“,”bbb“)和y=MsgBox(”ccc“,”ddd“)時的輸入對話框窗口和消息對話框的標題信息分別為:(A)aaa和ccc

(B)aaa和ddd

(C)bbb和ccc

(D)bbb和ddd

二、編程題

12編寫二個將攝氏溫度轉換成華氏溫度的程序,要求:攝氏溫度通過輸入對話框來輸入,結果在窗體上顯示。已知:由攝氏溫度求華氏溫度的計算公式為:F=9/5╳C+32,其中:C為攝氏溫度,F為華氏溫度。

13從鍵盤上輸入兩個數,編寫一程序,計算并輸出2個數的和及平均值。通過InputBox函數輸入數據,在窗體顯示和及平均值。

14編寫一個程序,計算半徑為15cm、高為30cm的圓柱體的體積,半徑和高通過

InputBox函數輸入,計算結果并將其打印到窗體中。參考答案：

（一）、選擇題 D A B D

B 8 A B C

（二）、編程題 12程序代碼如下： Private Sub Form-Click()Dim c As Single,f As Single C =Val(InputBox(“輸入攝氏溫度”,“輸入”))f=9*C /5十32 Print “華氏溫度為：”；Format(f,“.00”)End Sub

13程序代碼如下： Private Sub Form_Click()Dim x As Single,y As Single,s As Single,av As Single x=Val(InputBox(”輸入第一個數“,”輸入“)y=Val(InputBox(”輸入第一個數“,”輸入“)s =x +y av=s/2 Print “兩數之和為:”;s Print “兩數平均數為:”;av End Sub 14程序代碼如下：

C 34

Private Sub Form-Click()Dim r As Single,h As Single,v As Single r=Val(InputBox(”輸入圓柱體底面半徑“,”輸入“))h=Val(InputBox(”輸入圓柱體高“,”輸入“))v=3.14*r*r*h Print ”圓柱體體積為:“;Format(v,”.00”)End Sub

四、Visual Basic的常用標準控件

1設置復選框或單選按鈕的標題對齊方式的屬性是:(A)Align

(B)Style

(C)Sorted

(D)Alignment 2在程序代碼中將圖片文件mypic.jpg裝入圖片框Picturel的語句是:(A)Picture1.picture=”mypic.jpg“(B)Picture1.image=”mypic.jpg“(C)Picture1.picture=LoadPicture(”mypic.jpg“)(D)LoadPicture(”mypic.jpg“)3在程序代碼中清除圖片框Picture1中的圖形的正確語句是:

(A)Picture1.picture=”“

(B)Picture1.Picture=Loadpicture(”“)(C)Picture1.image=”“.(D)Picture1.picture=Null 4為了能在列表框中利用Ctrl和Shift鍵進行多個列表項的選擇,則應將列表框的Multiselect屬性設置為:(A)0

(B)1

(D)3 5如果只允許在列表框中每次只能選擇一個列表項時,則應將其Multiselect屬性設置為:(A)0

(B)1

(D)3 6要使列表框中的列表項顯示成復選框形式,則應將其Style屬性設置為:(A)0

(B)1

(C)True

(D)False 7在列表框中當前被選中的列表項的序號是由下列哪個屬性表示:(A)list

(B)Index

(C)Listindex

(D)Tabindex 8要清除列表框中所有的列表項時,應使用以下哪種方法:(A)Remove

(B)Clear

(C)Removeitem

(D)Move 35 9列表框中的列表項的數目可通過以下哪個屬性的值獲得:(A)Count

(B)Listcount

(C)ListIndex

(D)Index 10單擊滾動條的滾動箭頭時,產生的事件是:(A)Click

(B)Scroll

(C)Change

(D)Move 11要將一個組合框設置為簡單組合框(Simple Combo),則應將其Style屬性設置為:(A)0

(B)1

(D)3 12要使一個文本框具有垂直滾動條,則應:(A)將其Multiline設置為True,同時將Scrollbars屬性設置為0(B)將其Multiline設置為True,同時將Scrollbars屬性設置為1(C)將其Multiline設置為True,同時將Scrollbars屬性設置為2(D)將其Multiline設置為True,同時將Scrollbars屬性設置為3 13要使一個標簽透明且不具有邊框,則應:(A)將其Backstyle屬性設置為0 ,Border-Style屬性設置為0(B)將其Backstyle屬性設置為0 ,Border-Style屬性設置為1(C)將其Backstyle屬性設置為1 ,Border-Style屬性設置為0(D)將其Backstyle屬性設置為1 ,Border-Style屬性設置為1 14要使組合框設置成只能從中選擇而不能輸人數據的組合框(下拉式列表框),則應將其Style屬性設置為:(A)0

(B)1

(D)3 15以下不具有Picture屬性的對象是:(A)窗體

(B)圖片框

(C)圖像框

(D)文本框

16為使計時器控件每隔5秒鐘產生一個計時器事件(Timer事件),則應將其Interval屬性值設置為:(A)5

(B)500

(D)5000 17為使圖像框的大小自動適應圖像的大小,則應:(A)將其Autosize屬性值設置為True(B)將其Autosize屬性值設置為False(C)將其Stretch屬性值設置為True(D)將其Stretch屬性值設置為False 18若在Shape控件內以Fillstyle屬性所指定的圖案填充區域,而填充圖案的線條的顏色由Fillcolor屬性指定,非線條的區域由Backcolor屬性填充,則應:(A)將Shape控件的Fillstyle屬性設置為2至7間的某個值, BackStyle屬性設置為1(B)將Shape控件的Fillstyle屬性設置為0或1, BackStyle屬性設置為1

(C)將Shape控件的Fillstyle屬性設置為2至7間的某個值,BackStyle屬性設置為0(D)將Shape控件的Fillstyle屬性設置為0或1,BackStyle屬性設置為0 19要獲得當前驅動器應使用驅動器列表框的哪個屬性?(A)Path

(B)Drive

(C)Dir

(D)Pattern 20要使目錄列表框(名稱為Dir1)中的目錄隨著驅動器列表框(名稱為Drivel)中所選擇的當前驅動器的不同而同時發生變化,則應:(A)在Dirl中的Chnge事件中,書寫語句Dirl.Drive=Dive1.Drive(B)在Dir1中的Change事件中,書寫語句Dir1.Path=Drivel.Drive(C)在Drive1中的Change事件中,書寫語句Dir1.Path=Drivel.Drive(D)在Drivel中的Change事件中,書寫語句Dir.Drive=Drivel.Drive 21要獲得文件列表框中當前被選中的文件的文件名,則應使用哪個屬性?(A)Dir

(B)Path

(C)Drive

(D)Filename

（二）、編程題

22設計一個能將第1個列表框中被選擇的列表項,加入到另外1個列表框中的程序。要求:窗體中加入2個列表框(將它們的Multiselect屬性設置成0,即每次只能從列表框中選擇一項)、2個命令按鈕,即”確定“和”取消“。程序運行過程中,利用程序向第1個列表框中加入若干個列表項,當單擊”確定“按鈕時,則將第1個列表框中的已被選擇的列表項加入到第2個列表框中,并同時將它從第1個列表框中清除。當用戶單擊”取消“按鈕時,則可將第2個列表框中被選擇的列表項重新返回到第1個列表框中。

23自己制作一幅圖片,將其加入到圖片框中。

24在窗體中添加3個文本框、2個命令按鈕(”確定“和”退出)。程序運行過程中,當單擊“確定”按鈕時,能將第1個文本框中輸入的文本和第2個文本框中輸入的文本連接起來,放到第3個文本框中。當單擊“退出”按鈕時,結束程序的運行。參考答案：

（一）、選擇題 D C B C

B C 8 B

C B

C 15 D

D D A

（二）、編程題

22新建一個工程,向窗體中添加兩個列表框(名稱分別為List1和List2),再向窗體中加入兩個命令按鈕(名稱分別為Command1和COmmand2),該程序的功能是:

當單擊COInImnd1命令按鈕時,可將List1列表框中被選擇的列表項加入到List2 列表框中,同時將其從List1列表框中清除;當單擊Commana命令按鈕時,可將 List2列表框中被選擇的列表項重新加回到Listl列表框中,同時將其從List2列表框中清除。各事件過程代碼如下: Private Sub Commandl-Click()'將listl列表框中被選擇的列表項加人到list2列表框中 List2.AddItem List1.List(List1.ListIndex)ListL RemoveItem List1.ListIndex End Sub Private Sub Command2-Click()'將list2列表框中被選擇的列表項加人到listl列表框中 List1.AddItem List2.List(List2.ListIndex)List2.RemoveItem List2.ListIndex End Sub Private Sub Form-Load()‘窗體裝人時,向List1列表框中加入一些列表項 List1.AddItem“項目1” List1.AddItem“項目2” ListL AddItem“項目3” List1.AddItem“項目4” List1.AddItem“項目5” List1.AddItem“項目6” List1.AddItem“項目7” End Sub 23讀者可用“畫圖”或其他繪圖程序制作一幅圖,并保存到某個文件夾中。在Visual Basic集成開發環境中,向窗體中添加一個圖片框,利用下列方法之一進行設置: 方法1:在設計階段,利用屬性窗口,將圖片框的Picture屬性設置為自己所制作的圖片。

方法22在窗體的Form-Load()事件過程中,利用語句:圖片框名.Picture= 38 LoadPicture(“圖片文件名”)24新建一個工程,向窗體中添加3個文本框(名稱分別為Text1、Text2和Text3),再向窗體中添加兩個命令按鈕(名稱分別為Command1和Command2),該程序的作用是:當程序運行時,單擊Command1命令按鈕,可以將文本框Text1和Text2中的文本連接起來形成一個新的字符串,并將其顯示到Text3文本框中;當單擊 Command2命令按鈕時,退出程序。為此編寫命令按鈕Commandl和Command2 的Click事件過程。程序代碼如下: Private Sub Command1-click()Text3.Text =Text1.Text &Text2.Text End Sub Private Sub Command2-ClickO End i End Sub

五、選擇程序結構

（一）、選擇題

1設窗體的Click事件過程代碼如下: Private Sub Form-Click()Dim k As Integer,a As Integer k=1 If k<=1 Then a =2*k If k<=2 Then a =2*k十1 If k<=3Then

a =k Print k,a End Sub 則當程序運行時,在窗體上單擊鼠標時的輸出結果是:(A)1 2

(B)1

(D)3 2設窗體的Click事件過程代碼如下: Private Sub Form-Click()Dim x As Integer,y As Integer 39 x=-2 If Not x>0 Then x=y-3

Else y =x+3 Print x-y;g y-x End Sub 則當程序運行時,在窗體上單擊鼠標時的輸出結果是

(A)-3

(B)5

-8-5

(D)25

-25 3以下哪個程序段的執行結果為“OK”.(A)

(B)Dim y As Integer

Dim y As Integer

y=10

y=20

Select Case y

Select Case y Case 11 To 1

Case Is>20,Is<20 Print ”OK “

Print “OK” End Select

End Select

(C)

(D)Dim y As Integer

Dim y As Integer

y=6

y=10 Select Case y

Select Case y Case Is>6,1,2 to 5

Case 1,3,Is>6 Print ”OK”

Print “OK” End Select

End Select

（二）、編程題

4編寫一程序,輸入一個整數,判斷能否被3或5整除,如能整除就打印該數,否則不打印,請將程序代碼寫在窗體的Click事件過程中。

5輸入3條線段的長度,判斷這3條線段能否構成三角形,如能構成三角形則計算三角形的面積,如果不能構成三角形則打印出錯誤信息。請將程序代碼寫在窗體的Click事件過程中,輸入3條線段請用InputBox函數。

6輸入一個年份,判斷它是否為閏年。閏年的條件是:年號能被4整除但不能被100整除,或者能被400整除的年份。

7輸入3個數,要求按從小到大輸出。

8輸入一個0----99999之間的整數,判斷輸入的是幾位數。如:如果輸人586,則輸出結果為3。

9設計一個銷售彩電(3000元/臺)、冰箱(2500元/臺)、洗衣機(1000元/臺)的程序(商店送貨上門時需加收100元)。設計程序時,窗體中包括2個框架、3個選擇按鈕(用于選擇商品)、3個文本框(用于輸入商品的臺數)、2個單選按鈕(用于選擇送貨方式：自取或送貨)、1個命令按鈕(用于計算金額)和1個文本框(用于顯示總合額)參考答案：

（一）、選擇題 C A D

（二）、編程題

4將程序代碼寫在窗體的Click事件過程中。程序代碼如下: Private Sub Form-Click()Dim x As Integer x=Cint(Val(InputBox(”輸人一個整數“,”輸入“)))If x Mod 3=0 Or x Mod 5=0 Then Print x;”能被3或5整除“ End If End Sub 5任意三條邊能否構成三角形的條件是:三邊都必須大于零,同時任意兩邊之和必須大于第三邊。程序代碼如下：

Private Sub Form-Click()Dim a As Single,b As Single,C As Single,s As Single,area As Single a =Val(InputBox(”輸入第一條邊的長度“,”輸入“))b =Val(InputBox(”輸入第二條邊的長度“,”輸入“))C =Val(InputBox(”輸入第三條邊的長度“,”輸入“))If a >0 And b >0 And c >0 Then If a +b >c And b +c >a And a +c >b Then

s =(a+b +c)/2 area=Sqr(s*(s-a)*(s-b)*(s-c))Print ”a=“;a;”b=“;b;b;”c=“;c;”面積area=“;area;” ” Else 41 Print ”錯誤!任意兩邊之和需大于第三邊。“ End If Else print”錯誤!邊長需大于零。“ End If End Sub

6是閏年的條件是:年號能被4整除并且同時不能被100整除,或者年號能被400整除。程序代碼如下: Private Sub Form-Click()Dim y As Integer y=CInt(Val(InputBox(”輸入年號“,”輸人“)))If(y Mod 4=0 And y Mod 100<>0)Or(y Mod 400=0)Then Print y;”是閏年“ Else

Print y;”不是閏年“ End if End Sub 7程序代碼如下： Private Sub Form-Click()Dim a As Single,b As Single,C As Single,t As Single a =Val(InputBox(”輸入第一個數“,”輸入“))b =Val(InputBox(”輸人第二個數“,”輸入“))c =Val(InputBox(”輸入第三個數“,”輸入“))If a >b Then t=a : a =b: b =t If a >C Then t=a : a =c: c=t If b >c Then t =b: b =c: c =t Print ”從小到大的順序是:”;a;b;c End Sub 8程序代碼如下： Private Sub Form-Click()

Dim x As Long x=Val(InputBox(“輸人一個0~99999間的整數”,“輸人”))If x10=0 Then Print X;”是1位數“ ElseIf x100=0 Then Print x;”是2位數“ ElseIf x1000=O0Then Print x;”是3位數“ ElseIf x10000=0 Then Print x;”是4位數“ Else Print x;”是5位數“ End If End Sub 9新建一個工程,在窗體上添加2個框架(標題分別為”商品“和”取貨方式”),在第1個框架內添加3個選擇框和3個文本框,3個選擇框的名稱分別為Check1、check2、chck3,分別表示選擇購買彩電、冰箱和洗衣機;3個文本框的名稱分別為

Text1、Text2和TeE幣,分別表示3種商品需要購買的數量。在第2個框架內添加2個單選按鈕,名稱分別為Option1和Option2,分別表示“商店送貨”和“自取”。最后在窗體上添加一個命令按鈕和一個文本框,名稱分別為Command1和Text4,分別用于計算金額和顯示金額。程序代碼如下: Private Sub Commandl-Click()Dim sum As Single sum =0# If Check1.Value Then

sum =sum +3000*Val(Text1.Text)End If If Check2.Value Then sum =sum +2500*Val(Text2.Text)End If 43 If Check3.Value Then sum =sum +1000*Val(Text3.Text)End If If Option1.Value =True Then sum =sum +100 End If Text4.Text =sum End Sub

六、循環程序結構

（一）、選擇題

1對于下面結構的循環語句

Do Until條件

循環體 loop 正確的描述是:(A)如果“條件”是一個為0的常數,則不執行循環體(B)如果“條件”是一個為0的常數,則至少執行一次循環體(C)如果“條件”是一個不為0的常數,則至少執行一次循環體(D)不論條件是否為“真”,至少要執行一次循環體 2序運行時,在窗體上單擊左鍵,則輸出結果為: Private Sub Form-click()Dim m As Integer,n s Integer, j as integer, k As Integer n=0 For m=1 To 3 For j=1 Tom For k=j To3 n=n+1 Next k,j,m Print n 44

End Sub(A)6

(B)10

(D)21 3設有以下程序段： Dim i As Integer,j As Integer i=1 Do While i <4 i=i+l For j=5 To 1 Step-1 Print i*j Next j loop 則其中的語句Print i*j 的執行次數是:(A)15

(B)16

(D)18 4下面程序執行時,當在窗體上單擊左鍵時的輸出結果是: Private Sub Form-Click()Dim k As Integer,y As Integer y =3:k=5 For k =l To 5 Step-1 y =y+k Next k Print y;k End Sub(A)3 1

(B)3 5

（D）3 5下面程序執行時,當在窗體上單擊左鍵時的輸出結果是: Private Sub Form_Click()Dim x As Integer,a As Integer,y As Integer For x=l To 2 a =0 For y=l To x+1 a =a +1 Next y

Print a;Next x End Sub(A)1 1

(B)2 3

(D)1 2 6下面程序執行時,當在窗體上單擊左鍵時的輸出結果是: Private Sub Form_Click()Dim x As Integer,y As Integer,i As Integer x=2:y=3 For i=x To x+y x=x+2 Next i Print x End Sub(A)8

(B)9

7執行語句a=IIf(5>10,1,-1)后，變量a的值為：

(A)5

(B)10

8下面程序的執行結果為: Private Sub Form-Click()Dim k As Integer,n As Integer,m As Integer k=1:m=1:n=10 Do While k〈=n m=m*2 k=k +1 loop print m End Sub(A)20

(B)1

9設有以下循環 X=1 Do x=x十3

(D)11

(D)-1(D)200 46

Loop Until x>10 Print x 該程序段的輸出結果為:(A)1

(B)4

(D)13 10下面程序執行時,當在窗體上單擊左鍵時的輸出結果是: Private Sub Form_Click()Dim x As Integer,y As Integer x=1 For y=1 To 50 If x>=10 Then Exit For End If If x Mod 2=l Then x=x+5 Else x==x-3 End If Next y Print x End Sub(A)4(B)6(C)8(D)10 11下面程序執行時,當在窗體上單擊左鍵時的輸出結果是: Private Sub Form-Click()Dim i As Integer,j As Integer,s As Single For i=6 To 5 Step-1 s =0# For j=i To 4 Step-1 s =s +i*j Next j Next i Print s

End Sub(A)90

(B)45

(D)60 12下面程序執行時,當在窗體上單擊左鍵時的輸出結果是: Private Sub Form-Click()Dim k As Integer,c As String*l k=0: C=“A” Do Select Case C Case “A” k=k+l Case “B” k=k-1 Case “C” k=k+2 Case “D” Case “E” k=k*2 Case Else k=k/3 End Select c =Chr(Asc(c)+1)k=k+1 Loop While c<“F” Print k End Sub(A)2

(B)5

（二）、編程題

13編寫程序求:1!+2!+?+10!的值。

14編寫程序求:1-1/2+1/3-1/4+?+1/99-1/100的值。(D)13 48

15已知斐波那契數列的第1項與第2項的值分別為1和1,其后每一項都是其前面兩項的和,形如:1,1,2,3,5,8,?,寫一程序求出該數列的前20項及前20項的和。

16設1995年我國有12億3千萬人口,以年人口平均增長率為1%、1.5%和2%計算,從1995年起,經過幾年我國人口就會增長到16億。

17寫一程序將某個整數分解因式,如:24分解成1*2*2*2*3,一42分解成-1*2*3*7。18新建一個窗體,在窗體上加入4個文本框(設名稱為Text1、Text2、Text3和

Text4)和1個命令按鈕(設名稱為Commandl)。程序運行時,在文本框Textl中輸入1個字符串,單擊命令按鈕Command1時,程序能統計出輸入的字符串中數字字符個數、字母個數和其他字符的個數,并將統計出來的結果分別顯示到文本框Text2、Text3和Text4中。參考答案：

（一）、選擇題 B

A B C D

D B

（二）、編程題

13將程序代碼寫在窗體的Click事件過程中。程序代碼如下: Private Sub Form-Click()Dim s As Single,t As Single,i As Integer s =0# t=1 For i=l To 10 t==t*E s =s +t Next i Print “總和為:”;S End Sub 14將程序代碼寫在窗體的Click事件過程中。程序代碼如下: Private Sub Form-Click()Dim s As Single,i As Integer s =0# For i=1To 100

s =s +(-l)^(i-1)/i Next i Print “總和為:”;Format(s, “0.000000“)End Sub 15將程序代碼寫在窗體的Click事件過程中。程序代碼如下 Private Sub Form-Click()Dim s As Single,i As Integer Dim xl As Integer,x2 As Integer xl=1: X2=1 s =0# For i=1To 10 Print xl;x2;s =s +x1+x2 xl=xl+x2 x2=x1+x2 Next i Print Print ”前20項之和為:";s End Sub 16將程序代碼寫在窗體的Click事件過程中。程序代碼如下 Private Sub Form-Click()Dim t As Single,r As Single,n As Integer For r=0.0l To 0.02 Step 0.005 n=0 t=0 Do While t <16 n=n+l t=12.3*(1+r)^n Loop

第二篇：期末考試復習資料

期末考試復習資料

一、.辭職報告

1.標題：辭職報告、辭職信、辭職書

辭去XX工作的報告、關于辭去XX職務的報告

2.稱謂：尊敬的XX領導/XXX（職務）

XX公司人事部

XX黨委組織部

3.正文：一份完整的辭職報告正文部分包括以下5部分內容：（簡答題）

（1）提出申請辭職（一句話）

（2）感謝語

（3）辭職理由

（4）辭職時間

（5）結尾：重申辭職決心

二、工作計劃

1.工作計劃的文種：計劃書、設想、規劃、安排、方案、綱要、要點。

2.工作計劃的特點：預見性、針對性、約束性、可行性。P171

3.標題:P172

A 四要素標題：計劃制訂單位+適用期限+計劃性質+文種

例：XX學校2012年招生計劃

B 三要素標題：適用期限+計劃性質+文種

例：2011年第一學期班主任工作計劃

C兩要素標題：計劃性質+文種

例：速銷活動工作計劃

4.工作計劃前言部分有兩種寫法：（1）依據式開頭（2）概述式開頭 P172

5.工作計劃主體部分主要包括3部分內容：（簡答題）

（1）目標（做什么、做多少）

（2）措施（由誰做、何時做）

（3）步驟（怎么做）

三、感謝信

1.稱謂:尊敬的XX單位/組織

尊敬的XX先生/女士（填空）

2.正文：

開頭：概括說明對方感人事跡，表明謝意。

主體：（1）具體寫明感謝原因。

（2）贊揚精神品質。

（3）表明學習決心。（簡答）

結尾：3種寫法

（1）此致，敬禮

（2）致以，最崇高的敬意/最誠摯的謝意

（3）祝工作順利、身體健康（多選）

3.落款：與正文相隔一到兩行寫

四、借條（寫作題）

甲方XXX(身份證號碼)今借乙方XXX，人民幣______元整(大寫)（￥______.00）。借款期限為：年月日到年月日。

借款利息為： %(月利率)

違約責任：如果甲方不能按期歸還本息，違約金______元整

借款人(簽名并按手印)

XX年XX 月 XX日

五、系領帶有平結、雙環結、雙交叉結、溫莎結等多種方法。（填空）

六、個人簡歷

1.一份簡歷篇幅不宜超過兩頁紙內容。

2.個人簡歷用A4紙打印，兩頁紙的分單面打印。

3.個人簡歷上的聯系方式包括聯系電話、郵箱、郵編號碼、地址。（填空）

七、期中考試復習內容

期中考試復習資料

1.講話稿的特點：權威性、思想性、鼓動性

2.講話稿的分類：

按時間分類：開始時的講話（開幕詞、歡迎詞）

主體性的講話

結束時的講話（閉幕詞、歡送詞）

按性質分類：

1、部署動員型

2、總結表彰型

3、研究探討型

4、傳達貫徹型

5、紀念慶祝型

6、就職演說型

7、社交禮儀型

8、典禮儀式型例子：

A徐才厚在全軍深入學習貫徹“三個代表”重要思想經驗交流會上的講話（傳達貫徹型）

B胡錦濤在鄧小平同志誕辰100周年紀念大會上的講話（紀念慶祝型）C江澤民在全軍抗洪搶險慶功表彰大會上的講話（總結表彰型）

D陳毅任新四軍軍長時的就職講話（就職演說型）

E張天榮在民族宗教問題與國家安全研討會上的講話（研究探討型）

F劉家新在西安政院2004年秋季開學典禮上的講話（典禮儀式型）

G佛岡縣縣委書記在創先爭優活動動員部署會上的講話稿（部署動員型）

3.講話稿的標題包括單標題和雙標題兩種寫法。

4.講話稿單標題由講話人姓名、會議名稱和文種三部分組成。

5.講話稿標題的寫法

6.講話稿的稱謂（1）黨的會議：同志們（2）代表大會：各位代表

（3）學術會議：各位專家、學者（4）國際性會議：女士們、先生們

7.講話稿開頭的寫法：點題式、提示說明式、分析式、概括總結式、開門見山

式、祝賀慰問式、渲染氣氛式。

8.板塊式、自然式和提綱式三種

9.證明信標題一般寫“證明信”即可，也有的只寫“證明”。

證明信正文的最后結束語寫“特此證明”，而不需要寫祝愿類的話。凡個人出具的證明信應親筆簽名或蓋私章

凡單位、團體出具的證明信應蓋公章

10.證明信格式，復習作業（寫證明信）

11.勞動合同復習課堂筆記和練習題

第三篇：VB期末考試試卷及答案

VB期末考試試卷及答案

一·選擇題

1.Visual Basic是一種面向對象的程序設計語言，構成對象的三要素是（B）

A屬性、控件和方法

B屬性、事件和方法 C窗體、控件和過程 D控件、過程和模塊

2.所有控件都有一個共同的屬性，這個屬性是（C）

A text

B font

C name

D caption

3.下列敘述中錯誤的是（A）

A 工程文件擴展名是.vbg

B 標準模塊文件的擴展名是.bas

C 窗體模塊的擴展名是.frm

D 類模塊的擴展名是.cls

4.當要編寫一個新的Visual Basic程序時，所做的第一件事是（A）

A 新建一個工程

B 編寫代碼

C 設置屬性

D 添加Active X控件

5.下面控件中，沒有caption屬性的是（B）

A 框架

B 組合框

C 命令按鈕

D 復選按鈕

6.在文件框中輸入字符時，若只顯示某個字符，如（*），應設置屬性是（B）

A MultiLine

B PasswordChar

C Text

D selText

7.若要將窗體從內存中卸載出去，其實現的方法是（D）

A Show

B Hide

C Load

D UnLoad

8.下列關于過程敘述不正確的是（D）

A 過程的傳值調用是將實參的具體值傳值傳遞給形參

B 過程的傳址調用是將實參在內存的地址傳遞給形參

C 過程的傳值調用參數是單向傳遞的，過程的傳址調用參數是雙向傳遞的D 無論過程傳值調用還是傳地址調用，參數傳遞都是雙向的

9.某人創建1個工程，其中的窗體名為Form1，之后又添加了1個名為Form2的窗體，并希望程序執行時先顯示Form2窗體，那么，他需要做的工作是（C）

A 在Form1的Load事件過程中加入語句Load Form2

B 在Form2的Load事件過程中加入語句Form2.Show

C 在“過程屬性”對話框中把“啟動對象”設置為Form2

D 在Form2的TabIndex屬性設置為1，把Form1的TabIndex屬性設置為2

10.以下關于文件的敘述中，正確的是（B）

A 以Output方式打開一個不存在的文件時，系統將顯示出錯信息

B 以Append方式打開的文件，既可以進行讀操作，也可以進行寫操作

C 在隨機文件在，每個記錄的長度是固定的

D 無論是順序文件還是隨機文件，其打開的語句和打開的方式都是完全相同的 11.設a=6，b=8，c=10 則函數IIf(a

A 10

B 6

C 8

D 12

12.下面程序的執行結果為（B）

I=”1”

j=”2”

I=val(i)+val(j)

J=val(“12”)

If i<>j Then print i-j Else printj-i

A 9

B-9

C 12

D 0

13.下面程序的執行結果為（A）

Dim S(10)AS Integer

For i=0 to 10

S(I)=2*i

Next i

Print S(S(3))

A 12

B 6

C 0

D 4 二·程序填空題：

1.在窗體上畫一個命令按鈕（Command1）和一個標簽（Label1），為命令按鈕編寫以下事件，其功能是求數組中各元素之和，并將結果在標簽上顯示，請在指定位置填上正確代碼將程序補充完整。

Option Base 1

Private Sub Command1_Click()

Dim a(3,2)AS Integer

S =0

For i= 1 to 3

For j= 1 to 2

a(I,j)= i+j

s= 【1】

Next j Next i

【2】

End Sub

2.下面程序的功能是產生10個小于100（不含100）的隨機正整數，并統計其中

5的倍數所占比例，請在指定位置填上正確代碼將程序補充完整。

Private Sub Command1_Click()

Randomise

Dim a(10)As Integer

For j =1 to 10

a(i)=

【3】

【4】

Then k= k+1

Print a(j)

Next j

Print k /10

End Sub

3.以下程序運行后，在Text1中輸入任意字符串，單擊命令按鈕，將Text1中的字符串轉換為大寫，再將字符串逆置（如ABCD--DCBA），在Text2中顯示逆置后的字符串。請在指定位置填上正確代碼將程序補充完整。

Private Sub Command1_Click()

St = Ucase(Text1.text)

For i=

【5】

To 1 Step-1

S2= s2+Mid(s1, 【6】, 1)

Text2.text= s2

End Sub

4.Next i設有如下的循環，要求程序運行時執行3次循環，請在指定位置填上正確代碼將程序補充完整。

Dim x As Integer

X = 1

x = x+2

Print x

Loop Until

【7】

5.在窗體上畫一個組合框（Combo1）、一個列表框（List1）和一個命令按鈕（Command1）。下面程序的功能是在組合框中選擇一個大學名稱，單擊命令按鈕，則所選大學名稱將添加在列表框中，當組合框中沒有要選的大學名稱時，輸入一個名稱，則此大學名稱在添加列表框中的同時也會添加到組合框中，請在指定位置填上正確代碼將程序補充完整。

Private Sub Form_Load()

Combo1.AddItem”交通大學”

Combo1.AddItem”理工大學”

Combo1.AddItem”財經大學”

Combo1.AddItem”外貿大學”

End Sub

Private Sub Command1_Click()

【8】

Flag=Flase

For i=0 to

【9】

If Combo1.List(i)=Combo1.Text Then

flag=True : Eixt For

End If

Next i

If Not flag

Then

【10】

End Sub

6.下面程序的功能是對數組的元素值用選擇法按遞增順序排序，請在指定位置填上正確代碼將程序補充完整。

Private Sub Command1_Click()

Dim ia(),i%,max%,imax%.t%

Ia=Array(3,8,5,6,7,4,9)

For i =0 To 5 : imax = i

For j = i+1 To 6

If 【11】

Then

imax =j

Next j

T=ia(i)

【12】

ia(imax)=t

Next i

For i=0 To 6 : Print ia(i)

Next i

End Sub 7.窗體上有名稱為Command1的命令按鈕及名稱為Text1、能顯示多行文本的文本框。程序運行后，如果單擊命令按鈕，則可打開磁盤文件c:test.txt，并將文件中的內容（多行文本）顯示在文本框中。下面是實現此功能的程序，請在指定位置填上正確代碼將程序補充完整。

Private Sub Command1_Click()

Text1=””

Open”c:test.txt” For Input As #1

Do While Not

【13】

Line Input#1,S

Text1.text=Text1.text+

【14】

+chr(13)+chr(10)

Loop

【15】

End Sub

答案： 1.S+a(I,j)

2.Label1 0 = S

3.Int(Rnd*99)

4.a(i)mod 5=0

5.Len(S1)

6.i

7.x=7

8.List1.AddItem Combo1.text

9.3/ListCount

10.Combo1.AddItem Combo1.text

11.a(j)>imax

12.ia(i)=ia(imax)

13.Eof

14.S

15.Close #1

三·閱讀程序，在答題紙指定位置寫出程序運行結果。

1.以下程序運行后，單擊命令按鈕，寫出程序的運行結果。

Private Sub Command1_Click()

Dim n%,b,t

t =1 : b =1

: n =2

Do While n<=4

If b > 1 Then Exit Do

b = b*n : t = t+b

n = n+1

Loop

Print “t=”& t

End Sub 2.在窗體中添加一個命令按鈕Command1，并編寫如下程序：

Private Sub Command1_Click()

X =InputBox(x)

If x^2<=9 Then y= 1/x

If x^2>9 Then y= x^2+1

If(x^2)-7=9 Then y=x

Print “y=”&y

End Sub

程序運行后，在InputBox中輸入4，單擊命令按鈕，寫出程序的運行結果。3.窗體上畫一個命令按鈕，并編寫以下事件過程和子過程：

Private Sub Command1_Click()

Dim x As Integer, y As Integer

x =12 : y = 20

Call Value(x,y)

Print “x=”&x, “y=”&y

End Sub

Private Sub Value(ByVal m As Integer, n As Integer)

m=m*2

：

ｎ=n-5

End Sub

程序運行后，單擊命令按鈕，寫出程序的輸出結果。

4.窗體上畫一個命令按鈕和一個圖像框，并編寫以下事件過程：

Private Sub Command1_Click()

Dim a(3,3)

For m =1To3

For n= 1 To 3

If n = m Or n = 4 –m Then

a(m,n)=m+n

Else

a(m,n)=0

End If

Picture1.Print a(m,n)

Next n

Picture1.Print

Next m

End Sub

程序運行后，單擊命令按鈕，圖像框中顯示的內容是什么? 5.在窗體上畫一個列表框和一個命令按鈕Command1，然后編寫如下程序：

Private Sub Command1_Click()

List1.RemoveItem1

List1.RemoveItem2

End Sub

Private Sub Form_Load()

List1.AddItem”蘭州”

List1.AddItem”甘肅”

List1.AddItem”交通”

List1.AddItem”大學”

End Sub 程序運行后，單擊命令按鈕，寫出在列表框中顯示的結果。

答案： 1.3

2.4

3.12；15

4.2 0 4；0 4 0；4 0 6 5蘭州；大學

四·編寫程序：輸出（1,100）之間同時被5和7整除的數的個數及其它們的和。

答案：Private Sub Form1_Click()

Dim s%,c%

For i=1 to 100

If i Mod 5=0 And i Mod 7=0

Then

s = s+1

c = c +i

End If

Next i

Print s, c

End Sub

第四篇：大一VB期末考試試卷及答案

大一VB期末考試試卷及答案 1．在代碼中引用一個控件時，應使用控件的（b）屬性。A．Caption B．Name C．Text D．Index 2．設變量x = 4，y =-1，a = 7，b =-8,下面表達式（a）的值為“假”。A．x+a <= b-y B． x > 0 AND y < 0 C．a = b OR x>y D． x+y > a+b AND NOT(y < b)3．表達式Int(Rnd*71)+10產生的隨機整數范圍是（c）。A．（10，80）B．（10，81）C．[10，80] D．[10，81] 4．函數Sgn(3.1416)的返回值是（c）。

A．-1 B．0 C．1 D．以上都不對 5．67890屬于（d）類型數據。

A．整型 B．單精度浮點數 C．貨幣型 D．長整型 6．下列變量名中正確的是（d）。

A．3S B．Print C．Select My Name D．Select_1 7．下列賦值語句（a）是有效的。

A．sum = sum-sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0 8．以下的控件或方法具有輸入和輸出雙重功能的為（b）。

A．Print B．Textbox C．Optionbutton D．Checkbox 9．若要獲得列表框中被選中的列表項的內容，可以通過訪問（d）屬性來實現。A．Name B．ListIndex C．ListCount D．Text 10．下列代碼的運行結果為（b）。Private Sub command1_click()Dim m(10)

For k = 1 To 10 m(k)= 114 Case 3 Print “y=”;x ^ 3 + 100 End Select End Sub

2． Private Sub command1_click()Dim a, b, c, d, e As String a = “Zheng Zhou” b = “Zhong Yuan Gong Xue Yuan” c = a + “ ” + b d = Left(a, 1)+ Mid(a, 7, 1)e = Left(b, 1)+ Mid(b, 12, 1)Print c Print d;e End Sub

3．設有Sub過程：

Private Sub p1(x As Integer, ByVal y As Integer)x = 4 ：y = 5 ：z = 6 End Sub 則如下程序段的運行結果是: Private Sub Command1_Click()Dim x As Integer, y As Integer x = 1: y = 2: z = 3 Print x, y, z Call p1(x, y)Print x, y, z End Sub

4． Private Sub command1_click()k = 0 For i = 1 To 3 k = k + 1 a = i * i * k Print a;Next i End Sub

5． Private Sub command1_click()Dim a(5, 5)As Integer For i = 1 To 5 For j = 1 To 5 a(i, j)= i * 2 + j Print a(i, j);Next j Print Next i End Sub 6．設有Function過程: Private Function f1(b, a)a = a * a: b = b * b f1 = a-b End Function 則如下程序段的運行結果是什么？ Private Sub command1_click()a = 4: b = 3 a = f1(a, b)Print a End Sub 七．編程題（共30分）

注意：藝術類學生（環藝、裝潢、表演、服設）做第1、2、5、6小題；其他學生做第1、2、3、4 小題。

1．給出一個百分制的成績，要求輸出成績的相應等級。（7分）

90分以上為“A”，80～89分為“B”，70～79分為“C”，60～69分為“D”，60分以下為“E”。

2．求n!,n由鍵盤輸入。（7分）

3．產生20個 [0，99] 之間的隨機整數，并按從小到大的順序輸出。（8分）4．產生并輸出一個6×6的二維數組A：（8分）

（1）兩條對角線上元素的值為1，其余元素為小于30的隨機整數。（2）計算各行元素的平均值，輸出平均值最大和平均值最小的行號。

5．輸出1+2+??+100的和，并求出1～100 之間能被17整除的數據的個數（8分）6．從鍵盤輸入10個數，求出其中的最大數，最小數和平均值。（8分）

VB試題答案及評分標準

一、單項選擇題（每題1分，共10分）1．B 2．A 3．C 4．C 5．D 6．D 7．A 8．B 9．D 10．B

二、填空題（每空1分，共10分）1．n Mod 13=0 And n Mod 17=0

1、對象

3．LEFT(“Visual Basic 6.0”,6)4．6 5．False 6．Autosize 7．： 8．Option Explict 9．Const Dim

三、將下列數學表達式轉換成VB表達式（每題1分，共6分）

1、a^2+2*a*b+b^2

2、x^(1/3)*y^(1/4)

3、8*exp(x)*log(10)

4、2*sin(3.1416/4)*cos(3.1416/4)

5、(x+y+z)/sqr(x^2+y^2+z^2)

6、log(1+abs((a+b)/(a-b)))

四、判斷題（每題1分，共10分）1．× 2．√ 3．× 4．√ 5．× 6．√ 7．× 8．× 9．× 10．√

五、根據題意，將下列程序補充完整（每空1分，共10分）1．（1）int(rnd*91)+10（2）I<10 2．（1）i*j（2）next i 3．（1）int(sqr(x))或者x-1（2）flag=1 4．（1）dim f(15)as integer（2）f(I-1)+f(I-2)

六、寫出下面程序的輸出結果（每題4分，共24分）

1、y=65

2、Zheng Zhou Zhong Yuan Gong Xue Yuan 2分 ZZZG 2分 3．1 2 3 4 2 3 4．1 8 27 5．3 4 5 6 7 5 6 7 8 9 7 8 9 10 11 9 10 11 12 13 11 12 13 14 15 6．-7

七、編寫程序

1.private sub command1_click()dim x as integer,grade as string 1分 x=text1.text 1分 select case x 4分 case 90 to 100 grade=”A” case 80 to 89 grade=”B” case 70 to 79 grade=”C” case 60 to 69 grade=”D” case is<60 grade=”E” case else msgbox “請重新輸入”end select print “該學生成績為”+grade 1分 end sub 2．Private Sub command1_click()Dim n as integer,f as long 1分

n=text1.text 1 f=1 for I=1 to n 3 f=f*I next I text2.text=f 2 end sub

分分分

3． Private Sub Command1_Click()Dim a(1 To 20)As Integer ' 1分 Randomize For i = 1 To 20 2分 a(i)= Int(Rnd * 100)Print a(i);Next Print For i = 1 To 19 3分 For j = i + 1 To 20 If a(i)> a(j)Then t = a(i): a(i)= a(j): a(j)= t End If Next j Next i For i = 1 To 20 2分 Print a(i);Next i End Sub 4． Private Sub Command1_Click()Dim a(1 To 6, 1 To 6)As Integer ' 1分 Dim aver As Single Randomize For i = 1 To 6 3分

For j = 1 To 6 If i = j Or i + j = 7 Then a(i, j)= 1 Else a(i, j)= Int(Rnd * 30)End If Print a(i, j);Next j Print Next i Print Max = 0: Min = 30 4分 For i = 1 To 6 s = 0 For j = 1 To 6 s = s + a(i, j)Next j aver = s / 6 If aver > Max Then Max = aver: row_max = I If aver < Min Then Min = aver: row_min = i Next i Print row_max, row_min End Sub 5． Private Sub Command1_Click()Dim i As Integer, c As Integer Dim s As Integer For i = 1 To 100 4分 s = s + i If i Mod 17 = 0 Then c = c + 1 Next i Print “1+2+...+100=”;s 2 Print “能被17整數的數據有”;c;“個” 2分 End Sub 6． Private Sub Command1_Click()Dim x As Integer x = InputBox(“x=”)1分 Print x;Max = x: Min = x: s = x 2分 For i = 2 To 10 3分 x = InputBox(“x=”)：Print x;s = s + x If x > Max Then Max = x If x < Min Then Min = x Next i Print s / 10 1分 Print Max, Min 1分 End Sub 應該不是真的。

分

第五篇：比較文學期末考試復習資料

比較文學期末考試復習資料

名詞解釋5分×

3、填空2分×

12、簡答7分×

3、材料分析10分×

1、論述15分×2

1.真正最早使Comparative Literature進入比較文學學科理論的是波斯奈特，1886，他以此為書名出版了世界上第一部比較文學專著。（p5）

2.法國學派的四大代表人物：巴爾登斯伯格、梵·第根、卡雷、基亞。（p10）

3.教堂山會議：1958年，在美國北卡羅來納州教堂山舉行的國際比較文學協會第二屆年會，（會上韋勒克宣讀論文《比較文學的危機》），以韋勒克為代表的一些美國學者對法國學派的“定義”發起了大膽的挑戰。韋勒克指出“‘比較’文學和‘總體’文學之間的人為界限應當廢除，‘比較’文學已經成為一個確認的術語，指的是超越國別文學局限的文學研究。”（p12）

4.有人認為，是美國學派提出了比較文學的“比較”——平行研究。（p10）

5.比較文學中國學派的基本特色是跨文明研究。（p20）

6.蘇聯學者日爾蒙斯基提出了歷史類型學的觀點與方法。（p27）

7.中國內地第一部比較文學概論性著作盧康華、孫景堯的《比較文學導論》。（p27）

8.比較文學的定義：是以世界性眼光和胸懷來從事不同國家、不同文明和不同學科之間的跨越式文學比較研究。它主要研究各種跨越中文學的同源性、變異性、類同性、異質性和互補性，以實證性影響研究、文學變異研究、平行研究和總體文學研究為基本方法論，其目的在于以世界性眼光來總結文學規律和文學審美特性，加強世界文學的相互了解與整合，推動世界文學的發展。（p30）

9.比較文學的可比性（p31-p32）

（一）同源性，在法國學派的理論體系里，影響研究的對象是存在著事實聯系的不同國家的文學，其理論支柱是媒介學、流傳學和淵源學。它的研究目標是通過清理“影響”得以發生的“經過路線”，尋找兩種或多種文學間的同源性關系，同源性成為法國學派學科理論體系可比性的基礎。在線路的清理中，其源頭是相同的，影響研究的可比性就是同源性。

（二）變異性，同源的文學在不同國家、不同文明的傳播與交流中，在語言翻譯層面、文學形象層面、文學文本層面、文化層面產生了文化過濾、誤讀與“創造性叛逆”，產生了形象的變異魚接受的變異，甚至發生了“他國化”式的蛻變，這些都是變異學關注的要點，在這里，變異性成為可比性的核心內容。

（三）類同性，所指的是沒有任何關聯的不同國家的文學在風格、結構、內容、形式、流派、情節、技巧、手法、情調、形象、主題、思潮乃至文學規律等方面所表現出的相似和契合之處。平行研究的可比性就在于類同性與綜

（四）異質性與互補性的可比性，主要是從跨文明平行研究和總體研究的角度來說的。在跨文明的比較文學研究中，“異質性”是其可比性的根本特征。異質性的內容包括文明原生態、獨立性，只有明確意識到這種特征的存在，東西方對話才能得以進行，東西方文學才能實現互補。

10.比較文學的基本體征和四大研究領域：跨越性（跨國、跨學科、跨文明），實證性的文學影響研究、文學變異研究、平行研究、總體文學研究。（p33）

11.文學變異研究：一是語言層面的變異研究，二是民族國家形象變異研究，又稱為形象學，三是文學文本變異研究，四是文化變異研究，五是文學他國化研究。（p47、p96）

12.平行研究：是美國學派所提出和強調的比較文學學科理論。以可比性為前提，對沒有事實聯系的不同國家的作家、作品、文學現象進行比較研究，論述其異同，總結出文學發展帶有規律性的東西。而對文學與其他學科，包括藝術、哲學、歷史、宗教、自然科學等之間進行比較研究，從而揭示出人類知識體系的共通性及文學的獨特性，這也是平行研究。（p51、p159）

13.1827年，最早提出“世界文學”觀念的是歌德。（p57）

14.比較文學影響研究的基本特點是實證性。（p59）

15.史達爾夫人在《論文學》（1800）中，把歐洲文學區分為南方文學和北方文學兩種類型，認為文學與地理環境如氣候之間存在著密切關系。（p63）

16.流傳學的研究范圍及影響類型（p64-68）

研究范圍

1）接受者國家和作者對作為放送者的外國作者的認識。

2）接受者受到放送者哪些具體作品的影響及對放送者的評價。

3）接受者是否模仿放送者，模仿了哪些方面，如文體、風格、思想、情感、主題、背景等。

4）接受者是直接還是間接接受作品；是直接閱讀原文，還是通過譯文或評論了解作品；譯文在其影響的過程中所起到的作用。

5）文學界、出版界、讀者是怎樣接受這些作品的，他們的反應和情感是怎樣的。

6）作品的傳播情況如何，哪些階級受影響最廣。7）影響的程度是膚淺的還是深刻的。8）影響的時間是短暫的還是長久的。

9）是什么幫助人們接受影響并使影響成熟，是什么造成接受者對影響的選擇。

流傳學的影響類型 1)個體對個體的影響研究 2)個體對群體的影響研究 3)群體對個體的影響研究 4)群體對群體的影響研究從影響的方式和內容來看：

放送者特別的精神、人格、氣質的影響。更多的是通過著作來實現的，其一表現在整體上，如盧梭的作品風格影響了全世界，其二表現在個體上，如屠格涅夫對巴金的影響。

技巧的影響。指放送者在創作中所形成的文體或藝術形式的技巧性因素，對接受者所造成的影響，如魯迅接受了包括果戈里等俄國作家的藝術影響。茅盾接受了托爾斯泰的影響。

藝術形象的影響。指作品所塑造的形象的流傳。如歐洲不少文學作品中出現的唐璜形象。

主題或題材的影響。如歐洲文學中許多作家創作的主題和題材都源于古希臘神話。

框范的影響。所謂框范，指作品中展示的某種特定的空間或環境，經典文學作品中所描寫的風物、背景、社會環境等常常形成一種“框范”，對后世文學產生廣泛的影響，如拜倫的《海盜》與大仲馬的《基督山伯爵》以及雨果《悲慘世界》中的“出逃囚徒”。

理論思潮的影響。這種思潮，可以是哲學、政治、文學理論等多方面。如弗洛伊德的“心理學”對20世紀文學理論和創作產生的重大影響。

17.流傳學研究的模式和實例分析（p67）

1）直線式影響所謂直線式影響就是“一對一”的單線式的直接影響，指放送者對一個作家、一部作品、一種文學思潮、一國文學所產生的影響。是流傳學研究中最基本的模式。如冰心受泰戈爾的影響而創作的自由體小詩，大半都是直接或間接受泰戈爾《飛鳥集》的影響的，矛盾在創作中對托爾斯泰“史詩題材”藝術處理手段的借鑒，他承認《子夜》“尤其得益于托爾斯泰”。

2）輻射式影響

所謂輻射式影響就是“一對多”式的影響，即從一點出發指向多個終點的影響，他可以是一個作家、一部作品、一種文學思潮、一國文學等對群體（多個或多國的接受者）產生的影響，因而是以放送者在眾多接受者中的影響和接受情況為研究內容。包括個體對一國群體的影響和個體對多國的影響。如泰戈爾對五四時期中國作家產生了多層面的影響；阿拉伯民間故事集《一千零一夜》對東方文學和歐洲文學如《十日談》、《坎特伯雷故事集》等都產生了極其深遠的影響。

焦點式影響是“多對一”，即多個放送者對一個接受者的影響。如魯迅受到眾多俄國作家的影響，此外日本的小說、尼采的哲學、達爾文的進化論等，也對他的創作方法產生了不可低估的作用。

4）交叉式影響

由于接受主體的差異性和放送者的多質性，這兩者之間的流傳路線會出現交叉，其表現特點是：從流傳的方向和路線看，起點和終點之間并不總是單向流通，即作為起點的放送者同時又可能是接受者，因此它對終點的影響具有多質性。如蒙田及其散文在五四時期對我國影響甚大，但諳熟英、日語的中國作家不是直接閱讀法文原著，而是通過英國“小品文”和日本作家廚川白村來認識和接受蒙田的。因此，英日兩國成了他們接受法國蒙田的中介。這就形成了交叉影響，即英、日作家既是受蒙田影響的終點，又成為傳播蒙田作品的起點。

5）循環式影響

由于接受主體的差異性和放送者的多質性，這兩者之間的流傳路線也會形成一種循環。這種循環影響是從起點出發，達到終點，最后又回到起點。具體表現為兩種情況：一是同質文化圈的循環影響。例如法國的波德萊爾受美國愛倫坡的啟發，而愛倫坡有受到英國詩人柯勒律治的影響，而柯勒律治又吸取了德國諾瓦利斯的詩學養料。二是異質文化圈內的循環影響。例如中國元曲《趙氏孤兒》在歐洲的流傳，經歷了在法國的改變和再創造，最后又回到中國的流傳路線就是典型的循環式影響。

18.淵源學的定義（p74）

又稱源流學或源泉學，屬于影響研究的范疇。它是指以文學接受者為出發點，去探尋放送者的影響，也就是在比較文學視野中，揭示某一文學現象或作家的主題、題材、人物、情節、風格、語言等的外來因素，是一種對跨國影響淵源的實證性追溯和研究。

19.淵源學的研究方式（p77—84）

影響的方式來看：印象淵源，口傳淵源，筆述淵源。從影響放送者的角度：孤立淵源，集體淵源。

20.《摩羅詩力說》是中國第一篇系統介紹浪漫主義的論文。

21.媒介學的定義（p86）

與淵源學相對的一個與影響研究有關的術語，它是影響研究的重要組成部分，研究外國（一個國家）作品進入本國（另一個國家）的方式、途徑、手段及其背后的因果規律。

22.媒介的定義（p86）

處于兩個或兩個以上的文學中間起交流、影響與傳遞等中介作用的東西，也可以是把一國文學作品乃至文學思潮介紹傳播介紹給另一國的中間活動，它可能是個人，也可能是某個組織、在某種環境中起傳遞作用的人和事物。包括：

在媒介學研究中，個體媒介起著極其重要的作用。這種個體媒介者，常常是以個體對個體，或個體對群體的影響起到媒介者的作用。例如威廉斯接受勞倫斯的影響，盧梭接受理查遜的影響，海涅接受拜倫的影響，都是有代表性的個體媒介者。再如聞一多接受丁尼生的影響，聞一多通過丁尼生起到了中英詩歌媒介者的作用。個體對群體起到的媒介作用，如盧梭思想通過歌德、席勒、海涅在德國的傳播就是一例。

團體媒介

所謂團體，主要是指一些趣味相投、傾向一致的作家、翻譯家的聯合，如沙龍、文學社團等。中國的五四運動以后，出現了很多文學團體，譯介了很多西方文學作品。如由郭沫若、郁達夫、張資平等組織的“創造社”，出版《創造社叢書》，刊載郭沫若翻譯的《少年維特之煩惱》和鄭伯奇翻譯的《魯森堡之一夜》等。

俄蘇近代批判現實主義作家群對魯迅的影響，正是一種文藝思潮為媒介而產生的團體影響。

團體的媒介很多時候表現在流派的影響上，例如，西方的象征派詩歌，是歐美文學中出現最早、影響最大的派別，它影響了中國現代文學史上的一大群詩人，如艾青、李金發、徐志摩、戴望舒、郭沫若等，都不同程度的通過某種媒介吸收了自己所需的營養。

文字資料媒介

文字資料媒介是最重要的一種媒介。許多被湮沒遺忘的作品，可以在報章雜志找到評論的線索。比較文學工作者要廣泛查閱那些對傳播起過重要作用的期刊、報紙，尤其重要的是重要的、具有代表性的外國文學期刊。如莫爾根和霍爾費爾德的《英國期刊中的德國文學》就是典型的文字資料媒介研究的例子。

作家對外國語言文字的掌握與了解也是一個重要的媒介學研究內容，例如胡適提倡白話文，就和胡適與外來語言文字的接觸有關。

23.媒介學中的譯者與翻譯（p92）

直譯和轉譯是翻譯領域的常見現象，許多外國作品都經過一種或幾種語言的轉譯才為國人所知。對同一作品不同譯本的比較，包括同時代與不同時代的比較，可以發現由于時代演進、興趣的變化以及語言的發展，一個外國作品在傳播過程的變化會給人們留下不同的印象。

譯者也是媒介者，譯者對原作的選擇、改變和增刪，既體現譯者對原作的興趣和欣賞程度，也體現了譯者對媒介作品的理解與評價。

24.文化過濾（p97-98）

引起文學變異的第一大要素是文化過濾。葉維廉提出了“文化模子說”。

定義：研究跨異質文明下的文學文本事實上的把握與接受方式，它是促成文學文本發生變異的關鍵。文化過濾指文學交流中接受者的不同的文化背景和文化傳統對交流信息的選擇、改造、移植、滲透的作用。也是一種文化對另一種文化發生影響時，由于接受方的創造性接受而形成的對影響的反作用。25.文化過濾的作用機制（p99-103）

天天版權所有現實語境、傳統文化的過濾作用。接受者所處的現實語境和具備的傳統文化決定著該歷史階段的人的思想、行為和價值選擇。比如在西方現代主義諸流派中，中國現代作家偏愛象征主義文學而相對冷淡未來主義文學，這一“迎”一“拒”就是由于中國現代作家個體或作家群體的文化過濾起了作用，即象征主義文學“應和”了中國古典文學中的“比興”與“象征”，這種“應和”表面上是中國的一種創新，但是潛在的卻是中國傳統審美意識的一種表現。語言差異的過濾作用。文學交流首先是語言交流，文化過濾作用首先受制于語言。具體而言有兩個方面，語言既是“器”，又是文化，文學翻譯的過程就是文化過濾的過程。如中國的“道”在西方語境中的傳播。

接受者個體文化心理結構對外來文學接受的“文化過濾”。在跨文化文學的交流中，作為“文字流傳物”的作品必須首先與特定的讀者或譯者遭遇，也就是說，首先起作用的是讀者或譯者個體的主觀需要。比如在西方浪漫主義觸發下所形成的中國現代浪漫主義作家群體，在整體上都把追求個性解放和自由視為其基本的思想基調。但是在不同作家身上卻因個性特質的差異而有著不同的表現。

26.文學誤讀（p104-105）

“誤讀”概念由美國文藝理論家哈羅德·布魯姆在其所著的額《影響的焦慮》（1975）中論詩時提出的。

“誤讀”時“文化過濾過程中諸多因素合力的產物。

首先是接受者或者閱讀者的主體性因素。就是研究主體按照自身的文化傳統、思維方式、自己所熟悉的一切去解讀另一文化系統的文學現象，從而產生理解上的錯位，按我所需地加以切割、加工，讀出研究對象所沒有的意義。

其次，從理解的歷史性來看，一部作品進入另一種文化語言之中，不僅存在地域上的差異，也意味著歷史時空的錯位，錯位所導致的偏見，必然對傳入的文學發生誤讀性影響。

最后，文學誤讀與創新。（舉例略）

27.譯介學的定義（p111）

是比較文學變異學中研究語言層面的變異的分支學科，它關注的是跨語際翻譯過程中發生的種種語言變異現象，并探討產生這些變異的社會、歷史以及文化根源。

28.形象學的定義（p121-124）

比較文學的形象學并不完全等同于一般意義上的形象研究，它是對一部作品、一種文學中異國形象的研究。在這里，形象是作家及集體對作為他者的異國或異民族的想象物。

形象不一定是人物形象，也可以是器物、景物，還可以是詞匯、觀念。

綜合性層面：巴柔認為，他者形象是“在文學化，同時也是社會化過程中所得到的關于一國看法的總和”。這說明，形象學中的形象，是在文學和文化互動關系中生成的形象，要全面、深入地理解和闡釋他者的形象，就不能不將其置于被擴展了的社會、歷史、文化等領域去考察，這一擴大的“新的視域要求研究者不僅考慮到文學文本，其生產及傳播條件，且要考慮到人們寫作、思想、生活所使用的一切文化材料”。

29.形象學的研究范圍和內容（p125-129）

比較文學形象學的研究內容主要圍繞注視者、他者以及注視者與他者的關系展開。

注視者是當代形象學研究的重點。先見、身份、時間等因素構成了注視者構建他者形象的基礎，決定著他者形象的生成方式和呈現狀態。

先見。注視者存在于歷史與傳統之中，歷史與傳統先于注視者而存在，是注視者不能不接受的東西。因而，既沒有超出傳統之外的注視者，也沒有與傳統無涉的他者形象。例如，十八世紀以后西方文學中的中國形象，大體就立足于西方對中國的曲解這一傳統。

身份。任何人都是以一定身份與他人和社會進行交往的。注視者在注視和建構他者形象時，也總是以一定的身份出現的。

時間。時間是一個開放系統，它無所不包，無所不納。注視者作為自然生命是無法否棄時間的。從某種程度來說，他者形象時更深層次地浸潤在時間中的東西。注視者對他者注視、觀看得越久，他者形象表層的東西就會日愈剝蝕，而注視著體現在歷史文化中的個體反思精神就會愈為強勁，他者整體化，多維化的東西就會在這種反思中日益凸顯。老舍作品中的英國人形象就很好地說明了時間對注視者建構他者形象的這種影響。

他者通常指代某些個人或群體為了強化自身身份而定義出來的另一個人或另一個群體。巴柔認為：“所有的形象都源于一種自我意識，他是對一個與他相比的我，一個與彼處相比的此在意義。”像異國肖像、異國地理環境、異國人等，都可以納入比較文學形象學他者研究范圍。

異國肖像。在國際交流中，異國繪畫、瓷器、掛毯乃至園林等常常比口語或文字形式所表達的民俗意義更有情趣、更加生動活潑，而且這些肖像形式還能將表情達意和饋贈、供奉、裝飾等功能融為一體，從而對注視者及其本國文化產生重要影響。

異國地理環境。在比較文學形象學中，研究者關注的則是異國地理環境對異國人生理特征、生產活動和生產方式的制約作用。

異國人。人種的差異構成了多元文化的基石。注視者與他者的關系。

狂熱。“一個作家或團體把異國現實看作絕對優于注視者文化，又有本土文化的東西”，“與提高異國身份相對應的，就是對本土文化的否定和貶抑”。這時候，注視者建構的異國形象已完全被理想化，具有天堂般的幻想色彩。

憎惡。在這種關系形態下，“與優越的本土文化相比，異國現實被視為是落后的”。在憎惡的心理的驅使下，注視者在極力丑化、妖魔化他者形象時，也建構了一種凌駕于他者之上的無比美好的本土文化幻象。如《一千零一夜》中，波斯人被稱為“拜火教徒”“偽信者”“卡菲爾”。他們面目猙獰，丑態百出。這些波斯人形象的背后，潛藏在作為征服者的阿拉伯人對信仰多神教的被征服的波斯人的鄙視和厭惡，在這種對波斯人形象陰暗面的夸大中彰顯的時阿拉伯人的優越感。

親善。在這種關系狀態下，“異國文化現實被視為正面的，它來到一個注視者文化中，在其中占有一席之地，而注視者是接受者文化，他自身也被視為正面的”。他與“狂熱”要求的對他者文化的完全順應以及和“憎惡”要求的對他者粗暴的同化不同，它認為他者處于與注視者相比既不更高也不更低的地位，二者構成一種相互尊重，平等對話、交流的關系。

30.形象學的研究方法與前景（p130）

主要分為：文本外部研究和文本內部研究。

（一）文本外部研究

屬于一種文學社會學研究，它具有明顯的跨學科特性。比較文學形象學外部研究的內容包括：

社會集體想象物。指涉的作家創作的那個年代整個社會對于異國的看法，這一“研究代表了形象學的歷史層面”。他是在本文之外展開的，要求研究者對文學形象進行一種擴展了的社會文化語境研究。

作家。作家異國知識的來源，不僅影響著他者形象表現的形態，而且影響形象的性質。作家不同的經歷和觀看方式以及視角會直接影響到他者形象制作的效果。作家創作是不同的情感和精神狀態，同樣也會影響他塑造他者形象的存在方式和性質。如同樣作為他者形象的日本女子，徐志摩《沙揚娜拉》中的日本女子就比郁達夫《沉淪》中的日本女子可親可近，這與他二人的地位與心態的差異有很大關系。

異國形象與真實的異國的關系。他者形象的真實性程度，并不能決定這一形象的審美價值。考察他者形象與他者現實之間的關系重點在于注視者一方的文化模式上，重點在對這種文化模式的產生、發展、傳播與影響的探尋上。例如作為理解席勒《杜蘭朵》的歷史背景應該是歐洲思想史，而不是歷史上的中國。

（二）文本內部研究

比較文學形象學研究的基石仍在文本內部，它不能放棄對文本內部的研究。主要在三個方面：

詞匯。詞匯是構成他者形象的最基本的單位。在文本中這些詞匯構成一個詞匯場，這些此會場共同生成概念的、情感的詞庫構建了一個他者的形象。

套話：不同文本中反復出現的、具有深刻的文化隱喻意義的約定俗成的詞匯。是對一種文化的概括，是一種文化標志的縮影。作為他者定義的載體，套話是陳述集體知識的一個最小單位。套話的制作方式主要分為兩種，一種是表語和主語部分的混淆，一種是自然屬性與文化屬性的混淆。如“乾隆很開明”“老毛子”

等級關系。總體看，表現在我（敘述者、本土文化）與他者（人物、被描述文化）的兩組關系的對立上。具體來看，則可以從時空和人物體系等方面進行研究。

久久99精品久久久久久琪琪,久久人人爽人人爽人人片亞洲,熟妇人妻无码中文字幕,亚洲精品无码久久久久久久

vb期末考試復習資料(經典總結版)

第一篇：vb期末考試復習資料(經典總結版)

第二篇：期末考試復習資料

第三篇：VB期末考試試卷及答案

第四篇：大一VB期末考試試卷及答案

第五篇：比較文學期末考試復習資料

相關范文推薦

民間文學期末考試復習資料

人文地理學期末考試復習資料

《行政管理學》期末考試復習資料

職業規劃期末考試復習資料

兒童文學期末考試復習資料

審計學期末考試復習資料

《刑事訴訟法》期末考試復習資料

美學期末考試復習資料