第一篇：第14章 附加練習題

1.王強作為ABC會計師事務所外勤工作小組中負責貨幣資金審計的外勤工作人員，在對恒潤公司2007年度財務報表進行審計時，王強對恒潤公司的庫存現(xiàn)金執(zhí)行了監(jiān)盤程序，恒潤公司在總部和營業(yè)部均設有出納部門。

為順利監(jiān)盤庫存現(xiàn)金，王強在監(jiān)盤前一天與恒潤公司會計主管進行了溝通，要求其通知恒潤公司出納人員做好監(jiān)盤準備。

考慮到出納日常工作安排，注冊會計師對總部和營業(yè)部庫存現(xiàn)金的監(jiān)盤時間要求必須分別定在上午下班時和下午上班前。

監(jiān)盤時，出納把現(xiàn)金放入保險柜并貼上之前準備好的封條，并將已辦妥現(xiàn)金收付手續(xù)的交易登入現(xiàn)金日記賬，結出現(xiàn)金日記賬余額；

然后，王強及恒潤公司會計主管與相關出納當場盤點現(xiàn)金，由王強盤點一部分營業(yè)部門的現(xiàn)金其余的由恒潤公司出納盤點，對盤點中出現(xiàn)的白條當場由出納及會計主管解釋后作為現(xiàn)金數(shù)額計入現(xiàn)金余額，王強將盤點結果與現(xiàn)金日記賬核對后填寫“庫存現(xiàn)金監(jiān)盤表”并結出余額，并在盤點表中簽字后形成審計工作底稿。

要求：請指出上述庫存現(xiàn)金監(jiān)盤工作中有哪些不當之處，并提出改進建議。

【參考答案】

（1）提前通知恒潤公司會計主管人員做好監(jiān)盤準備的做法不當。M注冊會計師應當實施突擊性的檢查。

（2）盤點的時間不當。一般最好選擇在上午上班前或下午下班時進行庫存現(xiàn)金 的監(jiān)盤。

（3）沒有同時監(jiān)盤總部和營業(yè)部庫存現(xiàn)金的做法不當。王強注冊會計師應組織同時監(jiān)盤總部和營業(yè)部的庫存現(xiàn)金，若不能同時監(jiān)盤，則應對各營業(yè)部門庫存現(xiàn)金貼上封條。

（4）王強盤點營業(yè)部庫存現(xiàn)金不當，應由恒潤公司出納親自盤點庫存現(xiàn)金。（5）對盤點中的白條不應由出納及會計主管解釋后作為現(xiàn)金處理，應要求做出必要的調整或者在“庫存現(xiàn)金余額盤點表”中注明。

（6）“庫存現(xiàn)金監(jiān)盤表”簽字人員不當，“庫存現(xiàn)金監(jiān)盤表”應由公司相關人員和 3 注冊會計師共同簽字。

第二篇：VB程序設計練習題附加答案

《VB程序設計》綜合復習資料

三、簡答題

1、代碼窗口主要包括哪幾部分？

2、在工程資源管理器窗口中，主要列出了哪三類文件？

3、窗體布局窗口的主要用途是什么？

4、VB的基本特點是什么？

5、怎樣理解可視化設計？

6、怎要理解事件驅動編程？

C．設置文本框的焦點 D．改變文本框的內(nèi)容

2、應用程序設計完成后，應將程序保存，保存的過程是（d）

A．只保存窗體文件即可 B．只保存工程文件即可

C．先保存工程文件，之后保存窗體文件

D．先保存窗體文件（或標準模塊文件），之后還要保存工程文件

3、VB應用程序的運行模式是（c）

A．解釋運行模式 B．編譯運行模式

C．兩者都有

D．匯編模式

4、任何控件都具有的屬性是（a）

A．TEXT B．CAPTION

C．NAME

D．FORECOLOR

5、決定控件上文字的字體、字形、大小及效果的屬性是（D）

A．TEXT B．CAPTION

C．NAME

D．FONT

6、在窗體上建立了多個控件，如TEXT、LABEL1、COMMAND1，若要使程序一運行焦點就定位在COMMAND1控件上，應將COMMAND1控件的（B）設置為0 A．INDEX B．TABINDEX

C．TABSTOP

D．ENABLED

7、運行時，當用戶向文本框輸入新的內(nèi)容，或在程序代碼中對文本框的TEXT屬性進行賦值從而改變了文本框的TEXT屬性值時，將觸發(fā)文本框的（A）事件

A．CLICK B．DBLCLICK

C．GOTFOCUS

D．CHANGE

8、在運行時，按TAB鍵跳過了一個可以獲得焦點的控件（如文本框），則可能是因為（B）

A．該控件的TABSTOP屬性值為TRUE

B．該控件的TABINDEX屬性值為FALSE C．該控件的ENABLED屬性值為TRUE

D．該控件的ENABLED屬性值為FALSE

9、為了防止用戶隨意將光標置于控件上，應（A）

A．將控件的TABINDEX屬性設置為0 B．將控件的TABSTOP屬性設置為TRUE C．將控件的TABSTOP屬性設置為FALSE D．將控件的ENABLED屬性設置為FALSE

10、若要使標簽控件顯示時，不覆蓋其背景內(nèi)容，應設置標簽控件的（D）屬性

A．BACKCOLOR C．FORECOLOR

B．BORDERSTYLE D．BACKSTYLE

11、如果要在文本框中輸入字符時，只顯示某個字符，如星號（*），運行時，在文本框中輸入的字符仍然顯示出來，而不顯示星號，原因可能是（B）

A．文本框的MULTILINE屬性值為TRUE B．文本框的LOCKED屬性值為TRUE C．文本框的MULTILINE屬性值為FALSE D．文本框的LOCKED屬性為FALSE

12、在運行階段，要在文本框TEXT1獲得焦點時選中文本框中所有內(nèi)容，對應的事件過程是（B）

A．Private Sub Text1_GotFocus()Text1.SelStart=0 Text1.Sellength=Len(Text1.Text)End Sub B．Private Sub Text1_LostFocus()Text1.SelStart=0 Text1.Sellength=Len(Text1.Text)End Sub C．Private Sub Text1_Change()Text1.SelStart=0 Text1.Sellength=Len(Text1.Text)End Sub D．Private Sub Text1_SetFocus()Text1.SelStart=0 Text1.Sellength=Len(Text1.Text)End Sub

13、Visual Basic繼承了Basic語言簡單易用的語法特點，同時支持面向對象的編程機制，其中構成其控件（對象）的三要素是（D）

A．屬性、事件、事件過程

C．屬性、過程、方法

B．控件、窗體、事件 D．屬性、事件、方法

14、決定標簽（Label）顯示的屬性是（C）

A．Text

B．Name

C．Caption

D．Alignment

15、命令按鈕的標題文字由（B）屬性來設置。

A．Text

B．Caption

C．Name

D．(名稱)

16、若要設置文本的顯示顏色，則可用（A）屬性來實現(xiàn)。

A．BackColor

B．Forecolor

C．FillColor

D．Backstyle

17、在運行時，若要調用某命令鈕的Click事件過程，則可設置該命令鈕對象的（）屬性為Ture來實現(xiàn)。

A．Enabled

B．Value

C．Default

D．Cancel

18、在運行時，若要獲得用戶在文本框中所選擇的文本，可通過訪問（）屬性來實現(xiàn)。

A．SelStart B．SelLenght

C．Text

D．SelText

三、簡答題

1、事件驅動的含意是什么？舉例說明。

2、交互式開發(fā)方法和傳統(tǒng)的應用程序開發(fā)過程有什么不同？

3、文本框在什么情況下使用？

4、什么是工程？

5、結構化程序設計的三種基本結構是什么？

6、對象的三要素是什么？并分別進行簡單的解釋。

7、為什么要生成可執(zhí)行文件和制作安裝盤？

8、使用變量前先聲明有什么好處？

9、如何使用幫助功能？

10、結構化程序設計的特點是什么？

11、為了把焦點移到某個指定的控件，在代碼中應使用的方法是什么？

12、啟動Visua Basic后，只創(chuàng)建了一個窗體，若此時保存，需要保存幾個文件？各是什么文件？先保存的是哪一個？

13、為了防止文本框中的信息運行后被用戶修改，應設置什么屬性？

1、一般可以使用__________關鍵字聲明常量。

2、______類型也稱變體類型，是一種通用的、可變的數(shù)據(jù)類型，它可表示或存儲任何一種數(shù)據(jù)類型。

3、變量的聲明分為兩種方法：__________和____________。

4、在VB中，用___________________語句設定數(shù)組的下界，用_____________和__________________語句分別返回數(shù)組的上、下界。

5、在代碼模塊中加入Option Explicit的目的是_____________________。

6、function aa(a1 as date,optional a2 as boolean)as single，寫出optional命令的作用__________________。

7、在VB中，我們用一個簡單的______語句就能實現(xiàn)退出程序。

8、生成消息框的命令是____________，生成輸入框的命令是____________。

9、通用對話框（commondialog）屬activex控件，它可以顯示多個標準對話框，包括打開/另存為、字體、打印等對話框，若要顯示所有文件，則應設置其屬性filter=____________，若要使它顯示為打印對話框，則應使用什么方法____________。

10、從字符串中任意位置截取字符的函數(shù)是__________。

11、語句For j = 3 To 20 Step 3 使循環(huán)體執(zhí)行了______次。

12、對于正在使用的動態(tài)數(shù)組Arraya()，要增加一個單元，但不能破壞數(shù)組內(nèi)的數(shù)據(jù)，則應使用語句__________________________________。

13、在Visual Basic中聲明靜態(tài)變量的關鍵字是_________________。

14、表達式10 Mod 6 4的值為______。

15、表達式chr(Asc(“a”)+ 5)的值為_________。

16、VB中使用注釋有2種方法，即________和________。

17、VB中的數(shù)據(jù)以四種形式存儲：常量、_________、_________和記錄。

18、為了在VB中存儲一個4行5列的二維矩陣，需要定義一個整型的數(shù)組，請把數(shù)組定義語句補充完整：Dim Juzhen(_

_)as Integer。

19、控件數(shù)組由一組相同類型的控件組成，這些控件共用一個相同的控件名，但是每個控件都有一個唯一的下標來區(qū)分，我們使用屬性__

__來設置下標。

20、在過程調用中，實現(xiàn)調用過程的實參和被調用過程的形參之間的數(shù)據(jù)傳遞有兩種方式：按值傳遞和__

__。

21、為了保證程序中必須對變量的強制性定義，需要在代碼模塊的聲明部分加入______________語句。

22、分析For……Next循環(huán)結構的實例：For i = 5 To 30 Step 2 中，循環(huán)體一共執(zhí)行了______次。

23、表達式Mid(“UniversityOfPetroleum”, 8, 4)的值為_________。

24、常量分為普通常量和__________常量。

25、要將大寫字母轉換為小寫字母，可使用____________函數(shù)。

26、不管焦點在哪個控件上，按__________鍵相當于按了取消按鈕。

27、執(zhí)行“工程”菜單下的__________命令，可選擇并添加ActiveX控件。

28、__________是程序中VB停止執(zhí)行的地方。

29、邏輯常量為True或__________。

30、使用了__________________的聲明后，當程序中使用未經(jīng)聲明的變量時，程序運行時會報錯。

31、要將小寫字母轉換為大寫字母，可使用____________函數(shù)。

32、自字符串N1位開始向右取N2個字符，要使用_________________函數(shù)。

33、日期常量表示時，用符號__________將日期型數(shù)據(jù)括起來。

34、局部變量只能在__________中聲明和使用。

35、模塊級變量的聲明關鍵字是Dim或__________。

36、函數(shù)Abs(x)的功能是__________。

37、表達式3/6*5的值是__________。

二、選擇題

1、以下哪個是合法的變量（）

A．right B．a(chǎn)bc@123

C．123_abc

D．a(chǎn)b123c

2、下列說法錯誤的是（）

A．在同一模塊不同過程中的變量可以同名

B．不同模塊中定義的全局變量不可以同名

C．引用另一模塊中的全局變量時，必須在變量名前加模塊名 D．同一模塊中不同級的變量可以同名

3、把MsgBox的返回值轉換為數(shù)值應該使用的函數(shù)是（）

A．Log

B．Str

C．Len

D．Val

4、語句DIM AA(3,4,5)中定義的數(shù)組有（）個元素

A．12

B．60

C．120

D．345

5、下面程序運行后輸出的結果是（）

A$=“CHINA”

B$=STRING$(3,A$)

PRINT B$

END A．CHI

B．CCC

C．INA

D．AAA

6、以下語句的輸出結果是（）

Print Format$(32548.5, “000,000.00”)A．32548.5

B．325,485.00

C．032,548,50

D．32,548,50

7、以下敘述中錯誤的是（）

A．如果過程被定義為Static類型，則該過程中的局部變量都是Static類型 B．Sub過程中不能嵌套定義Sub過程 C．Sub過程中可以嵌套調用Sub過程

D．事件過程可以像通用過程一樣由用戶定義過程名

8、Visual Basic提供的On Error Resume next錯誤陷阱語句表示（）

A．當發(fā)生錯誤時，使程序轉跳到語句標號為0的程序塊 B．當發(fā)生錯誤時，不使用錯誤處理程序塊 C．當發(fā)生錯誤時，忽略錯誤行，繼續(xù)執(zhí)行下一語句 D．當發(fā)生錯誤時，終止本過程執(zhí)行，繼續(xù)執(zhí)行下一過程

9、在Visual Basic中，若要將控制權交給操作系統(tǒng)則通過（）的語句。

A．End

B．Exit Do

C．Exit Sub

D．DoEvents

10、在Visual Basic 中語句的續(xù)行號采用（）

A．空格與下劃線

B．下劃線與空格

C．空格與短線

D．短線與空格

11、假定有以下程序段：

For i=1 to 3

For j=5 to 1 Step –1 Print i*j Next j,i 則語句Print i*j的執(zhí)行次數(shù)是（）A．15

B．.16

C．17

D．18

12、從鍵盤上輸入兩個字符串，分別保存在變量str1、str2中。確定

18、下列語句中正確的是（）

A．txt1.text+txt2.text=txt3.text B．command1.name=cmdok C．12label.caption=1234

D．a(chǎn)=inputbox(“hello”)

19、假設變量BOOLVAR是一個布爾型變量，則下面正確的賦值語句是（）

A．BOOLVAR=?TRUE? C．BOOLVAR=#TRUE#

B．BOOLVAR=.TRUE D．BOOLVAR=3<4

20、以下（）程序段可以實施X、Y變量值的變換（）

A．Y=X：X=Y B．Z=X：Y=Z：X=Y C．Z=X：X=Y：Y=Z D．Z=X：W=Y：Y=Z：X=Y

21、語句PRINT “SGN(-26)=”；SGN(-26)的輸出結果為（）

A．SGN(-26)=26 C．SGN(-26)= +1 B．SGN(-26)=-26 D．SGN(-26)=-1

22、讀下面程序段，判斷變量Str2的取值是（）

Dim Str1, Str2 as String Str1=“University” Str2=STRING$(3,Str1)A．Uni C．ity B．UUU D．yyy

23、VB支持自定義數(shù)據(jù)類型，在某程序中我們定義了如下類型：

Student string As String As Integer Type 針對上述定義，如下幾項用法正確的是（）

A．Student.name=“張三”

B．Dim s As Student s.name＝“張紅”

C．Dim s As Type Student

D．Dim s As Type

s.name=“張三”

s.name=“張三”

24、一個工程中包含兩個名稱分別為Form1、Form2的窗體，一個名稱為mdlFunc的標準模塊。假定在Form1、Form2和mdlFunc中分別建立了自定義過程，其定義格式為：

Form1中定義的過程： Private Sub frmfunction1()End Sub Form2中定義的過程： Public Sub frmfunction2()End Sub mdlFunc中定義的過程： Public Sub mdlFunction()End Sub 在調用上述過程的程序中，如果不指明窗體或模塊的名稱，則以下敘述中正確的是（）A．上述三個過程都可以在工程中的任何窗體或模塊中直接被調用 B．只有mdlFunction過程能夠被工程中各個窗體或模塊直接被調用

C．frmfunction1只能在form1中調用，而frmfunction2 則可以在所有模塊或窗體中被直接調用

D．上述三個過程都只能在各自被定義的模塊中直接調用

25、VB中Do……Loop結構既可以構成當型循環(huán)，也可以構成直到型循環(huán)，根據(jù)下面的代碼：

Dim i,n as Integer n = 20 i = 1 Do

Print i;

i = i + 2

Loop Until i >20 判斷循環(huán)結構的類型和循環(huán)體的執(zhí)行次數(shù)，正確的選項是（）A．當型循環(huán)，20次

C．當型循環(huán)，10次

B．直到型循環(huán)，10次 D．直到型循環(huán)，20次

26、在程序中，使用InputBox函數(shù)可以接受用戶的輸入，如果要把它的返回值轉換為數(shù)值型的數(shù)據(jù)，應該使用的函數(shù)是（）

A．Val

B．Len C．Str

D．Log

27、動態(tài)數(shù)組因為在程序運行前無法確定數(shù)組的大小，所以經(jīng)常根據(jù)程序的運行情況，對數(shù)組進行重新定義，以下關于VB中動態(tài)數(shù)組的敘述中不正確的是（）

A．可以用ReDim語句重新定義動態(tài)數(shù)組，并且可以進行多次重定義 B．首次用Dim進行動態(tài)數(shù)組聲明的時候，必須指明它的類型和上下界 C．Preserve為ReDim語句的可選參數(shù)，用于保留動態(tài)數(shù)組原來的內(nèi)容 D．當對動態(tài)數(shù)組使用Erase語句進行釋放操作時，將釋放其內(nèi)存

28、VB中的控件也叫做部件或組件，主要包括三類，以下哪一項不屬于VB控件的分類（）

A．控件

B．可插入對象

D．ActiveX控件 C．ADO控件

29、表達式4+5 6 * 7 / 8 Mod 9 的值是（）

A．4 B．5 C．6

D．7

30、可以同時刪除字符串前導和尾部空白的函數(shù)是（）

A．Ltrim B．Rtrim

C．Trim

D．Mid

三、簡答題

1、全局變量聲明有哪些限制？

2、字符串是否可以自動轉換為數(shù)字類型？

3、用Format函數(shù)格式化后的字符格式在不同區(qū)域環(huán)境下的輸出是否相同？為什么？

4、在InputBox函數(shù)中，哪一個參數(shù)是必需的？

5、在MsgBox函數(shù)中哪一個參數(shù)是必須的？

6、在什么情況下使用過程？

7、為什么要進行程序調試？

8、調試程序有哪些手段？

9、用語句Dim A(-3 To 5)As Integer定義的數(shù)組的元素個數(shù)是多少？

10、設有如下的Visual Basic表達式：5*x^2-3*x-2*Sin(a)/3，與它對應的數(shù)學式是什么？

11、數(shù)學式(2x?a)(3y?b)對應的VB表達式是什么？

12、表達式2>3 And 4<=5 Or 4>4的值是什么？

13、怎樣在程序中設置斷點？

14、在什么情況下可以設置斷點？

15、程序出錯的類型有哪幾種？

16、在同一模塊、不同過程中聲明的相同變量名，兩者是否表示同一個變量？為什么？

17、什么情況下會出現(xiàn)“數(shù)組下標越界錯誤”？

18、逐語句和逐過程有什么區(qū)別？

19、表達式2.75 * 2 3.45的值是什么？

20、在程序設計中為什么盡量不用GoTo語句？

四、讀程序題

1、分析以下程序，寫出運行結果。

Private Sub Form_Click()

score = Int(Rnd * 10)+ 80

Select Case score

Case Is < 60

A$ = “F”

Case 60 To 69

A$ = “D”

Case 70 To 79

A$ = “C”

Case 80 To 89

A$ = “B”

Case Else

A$ = “A”

End Select

Print A$

End Sub

2、讀下面的程序，分析其功能，寫出運行結果。

在窗體上有一個命令按鈕，名稱為Command1。然后編寫如下程序：

Private Sub Command1_Click()For I = 1 To 4 For J = 0 To I Print Chr$(65 + I);Next J Print Next I End Sub 程序運行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是什么？

3、閱讀下面的程序，分析并寫出其功能。

Sub insert(a()As Single,ByVal x As Single)Dim m as integer,n as integer n=1 Do While n<20 And x>a(n)n=n+1 Loop For m=20-1 To n Step –1 a(m+1)=a(m)Next m

a(n)=x End Sub

4、分析以下程序，寫出運行結果。

Sub subP(b()As Integer)For i =1 To 4 b(i)=2*i Next i End Sub

Private Sub Commandl_Click()Dim a(1 To 4)As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 subP a()For i =1 To 4 Print a(i)Next i End Sub 運行上面的程序，單擊命令按鈕，輸出結果是什么？

5、分析以下程序，寫出運行結果。

Sub sele()Dim n as Integer i=21:n=3 Do While i>n

i=i－n

Loop Print i End Sub

6、分析以下程序，寫出運行結果。

Sub selectPrint()Dim a as Integer Dim b as Integer Dim c as Integer a=2:b=5:c=2 If(a>=b)and(a>=c)or(b>c)Then

Print a a=a+2 Else Print b EndIf Print a;b;c End Sub

7、分析以下程序，寫出運行結果。

Sub swap()Dim x as Integer Dim y as Integer Dim z as Integer x=1:y=2:z=0 Print x;y;z x=x+y x=x*z Print x,y,z

End Sub

8、分析以下程序，寫出運行結果。

Sub selectPrint()Dim a as Integer Dim b as Integer Dim c as Integer a=3:b=3:c=2 If(a>=b)and(a>c)Then Print a Print a,b,c End Sub

五、編程題

1、輸入一年號，判斷它是否是閏年。界面如下圖所示，包括兩個標簽、一個文本框和一個命令按鈕。提示：如果此年號能被400整除或者不能被400除盡，也不能被100除盡，但能被4整除，則它是閏年；否則，不是閏年。

2、輸入兩個正整數(shù)m、n，求m和n的最大公約數(shù)。要求建立如下圖所示的窗體，其中主要的控件包括：兩個標簽（Lable1、Lable2）、兩個文本框（Text1、Text2）和一個按鈕（Command1）。

3、輸入某學生成績（百分制），若是100≥成績≥90輸出優(yōu)秀；若是90＞成績≥80輸出良好；若是80＞成績≥70輸出中等；若是70＞成績≥60輸出及格；若是60＞成績≥0，輸出不及格；若是其他數(shù)則輸出error信息。

4、在窗體中顯示從9號字型到16號字型。

5、在有序序列中插入一個數(shù)，使插入后的數(shù)列仍然有序（設按由小到大排列）。

6、編程實現(xiàn)二維數(shù)組轉置。

7、隨機輸入10個100以內(nèi)的整型數(shù)，計算其和及平均值。

8、找出所有的水仙花數(shù)。水仙花數(shù)是個三位數(shù)，它的各位數(shù)字的立方和等于這個三位數(shù)本身。例如371＝33+73+13，則371是水仙花數(shù)。

9、從鍵盤輸入一個大于2的正整數(shù)，判斷該數(shù)是否是素數(shù)。

10、求二維數(shù)組中的最小值及其所在行號、列號。

11、求一元二次方程ax2+bx+c=0的根（包括實根和復根）。

12、輸入一個正整數(shù)n，計算出n!并輸出。

13、Faibonacci數(shù)列為0，1，1，2，3，5，8，13 ?，計算并輸出 Print List1.______________ End Sub（2）單擊列表框某一項時立即將該項打印在窗體上：

Private Sub List1_Click()Print_______________ End Sub（3）按下命令按鈕Command1時在窗體上刪除 Label1.Caption = Hscroll1.__________________ End Sub

14、列表框（ListBox）用于列出可供選擇的項目的列表，用戶可以選擇一個或多個項目。它具有幾個非常重要的數(shù)組屬性，其中__

__屬性存放了列表框中所有項目的值。

15、菜單項一般由標題、訪問鍵、快捷鍵和復選標志等構成，通過對相應的屬性進行設置可以改變這些項目的狀態(tài)，其中與復選標志相對應的屬性是__

__。

16、keydown與keypress事件各有其參數(shù)，若需獲得用戶按下 “a” 還是 “A” 需用____________事件。

17、控件________組合了文本框和列表框的功能，是VB中一種功能非常強大的選擇類控件。

18、若需要將窗體Form2以模態(tài)窗口的形式顯示出來，可通過執(zhí)行代碼_________________來實現(xiàn)。

19、菜單中的分隔條是一種菜單控件，不響應__________事件，不能被選中。

二、選擇題

1、當程序運行時，在窗體上單擊鼠標，以下哪個事件是窗體不會接收到（）A．MouseDown B．MouseUp

C．Load

D．Click

2、窗體Form1的Name屬性是Frm1，它的單擊事件過程名是（）

A．Form1_Click

B．Form_Click

C．Frm1_Click

D．Me_Click

3、用于設置通用對話框控件顯示文件類型的屬性是（）

A．Filter

B．Path

C．Partern

D．FoleName

4、用于從內(nèi)存刪除窗體的命令是（）

A．Move

B．Hide

C．Unload

D．Delete

5、用于返回窗體可用區(qū)域寬度的屬性是（）

A．ScaleWidth

B．ScaleLeft

C．ScaleHeight

D．ScaleTop

6、下列關于屬性設置的敘述錯誤的是：（）

A．一個控件具有什么屬性是VB預先設計好的，用戶不能改變 B．一個控件具有什么屬性是VB預先設計好的，用戶可以改變 C．一個控件的屬性即可以在屬性窗口中設置，也可以用程序代碼設置

D．一個控件的屬性在屬性窗口中設置，還可以利用程序代碼為其設置新值

7、下列說法正確的是（）

A．對象屬性只能在“屬性窗口”中設置 B．一個新的工程可以在“工程窗口”中建立 C．必須先建立一個工程，才能開始設計應用程序 D．只能在“代碼窗口”中編寫程序代碼

8、下列關于窗體上控件的基本操作錯誤的是（）

A．按下一次DEL鍵只能刪除一個控件 B．按下一次DEL鍵可以同時刪除多個控件

C．按住SHIFT鍵，然后單擊每個要選擇的控件，可以同時選中多個控件 D．按住ALT鍵，然后單擊每個要選擇的控件，可以同時選中多個控件

9、下列關于設置控件屬性的敘述正確的是（）

A．用戶必須設置屬性值

B．所有的屬性值都可以由用戶隨意設定 C．屬性值不必一一重新設置 D．不同控件的屬性項都完全一樣

10、不可以通過下列（）操作將焦點賦給對象

A．運行時使用TAB鍵

B．在代碼中用CALL語句調用 D．用訪問鍵或用鼠標單擊選擇對象 C．在代碼中用SETFOCUS方法

11、要在FORM_LOAD事件過程中使用PRINT方法在窗體上輸出一定的內(nèi)容，應（）

A．設置窗體的VISIBLE屬性

C．調用窗體的SHOW方法

B．設置窗體的CAPTION D．設置窗體ENABLED屬性

12、下面（）對象無CAPTION屬性

A．FORM B．COMMANDBUTTON

C．TEXTBOX

D．LABEL

13、通用對話框控件和文件列表框控件中，都能根據(jù)文件的類型對要顯示的文件進行篩選過濾，后者使用（）屬性進行該項設置。

A．Pattern B．Path

C．Filter

D．FileName

14、對于復選框控件chkBoy，如果在程序中設置它為選中狀態(tài)，下面語句正確的是（）

A．chkBoy.Checked = true

C．chkBoy.Selected = true

B．chkBoy.Value = true D．chkBoy.Value = 1

15、計時器（Timer）控件用于每隔一段時間自動觸發(fā)一次Timer事件，可以有規(guī)律地重復執(zhí)行一段程序，它用于設置兩次事件時間間隔的屬性是（）

A．Interval

B．SmallChange D．Max

C．LargeChange

16、以下關于VB中窗體（Form）的說法中，不正確的描述為（）

A．執(zhí)行Unload Form語句后，窗體Form消失，但仍在內(nèi)存中

B．當窗體的Enabled屬性為False時，通過鼠標和鍵盤對窗體的操作都被禁止 C．窗體的Height、width屬性用于設置窗體的高和寬 D．窗體的load事件在加載窗體時發(fā)生

17、關于滾動條控件，下面說法錯誤的是（）

A．點擊滾動條的箭頭，可以改變它的value值，從而引發(fā)Change事件 B．拖動滾動框，可以觸發(fā)Scroll事件

C．通常，水平滾動條的值從左向右遞增，垂直滾動條的值自上而下遞增 D．拖動滾動框，可以觸發(fā)Change事件，而且是連續(xù)觸發(fā)的

18、在窗體上放置一個命令按鈕，名稱為Command1。單擊命令按鈕時，執(zhí)行如下事件過程：

PriVate Sub Command1_C1ick()a$=“software and hardware” b$＝Right(a$,8)c$=Mid(a$,1,8)Msgbox a$,b$,c$,1 End Sub 則在彈出的信息框的標題欄中顯示的信息是（）A．softWare and hardware C．hardwafe

B．software D．出現(xiàn)錯誤

19、在多重窗體程序設計中，關鍵的問題是要解決不同窗體之間的銜接和窗體的顯示、關閉等問題，以下關于窗體的相關語句和方法的敘述中，錯誤的是（）

A．Load語句用于加載指定窗體，即在內(nèi)存中創(chuàng)建該窗體 B．Show方法兼具Load語句的功能，可以將窗體顯示出來 C．Hide方法用于將窗體隱藏起來

D．Unload語句用來釋放窗體，但窗體并沒從內(nèi)存中消

20、滾動條控件的屬性中，表示取值范圍最大值的屬性是（）

A．Max C．Min

B．LargeChange

D．Value

21、程序中如果需要檢測和控制鼠標的位置和狀態(tài)的改變，就需要使用鼠標事件，其中下面哪個選項用于表示拖動事件（）

A．DragDrop C．MouseUp

B．MouseDown D．MouseMove

22、為了使用通用對話框進行打開文件的操作，應將通用對話框的Action屬性設定為（）。

A．0

B．1

C．2

D．3

三、簡答題

1、什么是單選按鈕？什么是復選框？在使用上有什么不同？

2、滾動條的change事件和scroll事件有什么不同？

3、快捷鍵和訪問鍵有什么區(qū)別？

4、在程序運行期間，如果拖動滾動條上的滾動塊（即滑塊），則觸發(fā)滾動條的什么事件？

5、假定有一個菜單項，名為MenuItem，為了在運行時使該菜單項失效（變灰），應使用什么語句？

6、為了暫時關閉計時器（即時鐘控件），應把該計時器的什么屬性設置為False？

7、單選按鈕和復選框（即檢查框）各用于什么情況？

8、如何為一個菜單項設置熱鍵和快捷鍵？

9、菜單的形式有哪兩種？

10、在KeyPress事件中，如何取消用戶剛輸入的字符？

11、框架的作用是什么？

12、如果要計時器每秒鐘發(fā)生4個Timer事件，則Interval屬性值應設多少？

13、在一個窗體的程序代碼中能否訪問另一個窗體上控件的屬性？若不行則請說明理由；若行則請說明如何訪問。

14、如何在框架中建立控件？

15、組合框有哪幾種類型？

四、讀程序題

1、對窗體編寫如下代碼：

Option Base 1 Private Sub Form_KeyPress(KeyAscii As Integer)a = Array(237,126,87,48,498)m1 = a(1)m2 = 1 If KeyAscii = 13 Then For i =2 To 5 If a(i)>ml Then m1 =a(j)m2 =i End If Next i End If Print m1 Print m2 End Sub 程序運行后，按回車鍵，輸出結果是什么？

2、閱讀下面的程序，寫出執(zhí)行結果。

Private Sub Form_load()

Form1.show d = 0 For a = 1 To 2 For b = 1 To a For c = b To 5 d = d + 1 Next c Next b Next a Print d End Sub

五、編程題

1、在窗體上有一個文本框控件，名稱為TxtTime；一個計時器控件，名稱為Timer1，要求每一秒在文本框中顯示一次當前的時間，請編程實現(xiàn)。

2、在Text1中輸入任一英文字母，在Text2中顯示該英文字母及其ASCII碼值。要求在文本框Text2中顯示出所有輸入的英文字母及其ASCII碼值，如下圖所示。

Text1

Command1 Text2

3、編寫一個程序，能夠實現(xiàn)任意個整數(shù)的排序。

4、編程實現(xiàn)以下功能：用戶首先分別在兩個文本框中輸入兩個數(shù)，然后在具有“加、減、乘、除”等四個菜單項的“計算”菜單中單擊某一項，即可在標簽中顯示出相應的結果或者錯誤提示。

5、編程實現(xiàn)任意兩個數(shù)的“加、減、乘、除”。

6、編寫一個程序，能夠求任意個正整數(shù)的最大值和最小值。

7、編程求任意兩個正整數(shù)的最大公約數(shù)。

六、程序分析填空題

1、建立一個如圖所示的簡單編輯器。用戶在文本框（text1）中輸入正文后，選中某些文本時可進行“剪切”、“復制”和“粘貼”操作。假設在窗體聲明部分定義了一個變量str1，用于保存復制和剪切的內(nèi)容，請把剪切按鈕(btnCut)的Click事件補充完整。

程序運行界面：

Private Sub btnCut_Click()

?請補充

End Sub

2、計算1 + 2 + 3 + …… + 100的和并輸出。請把下面用Do While ……Loop循環(huán)結構實現(xiàn)這一功能的代碼補充完整。

Private Sub Form_Load()Dim sum,count as Integer ?請補充

Do while count <=100

?請補充

Loop Text1.Text = sum End Sub

3、列表框控件（ListBox）支持多項選擇，這項功能在對用戶的興趣愛好進行調查的時候顯得非常好用，在下圖所示的界面中列表框List1用于列出愛好選項，供用戶進行多項選擇。

請把下列代碼補充完整，能夠取得用戶的所選愛好選項： Private Sub Command1_Click()

Dim i As Integer

Dim s As String

s = txtname.Text & “愛好”

For i = 0 To List1.ListCount-1

?請補充

Next

Label3.Caption = s End Sub

4、要求利用計時器Timer1，在窗體Form1上每隔1秒鐘打印一個1到10的隨機整數(shù)，請把下列代碼補充完整：

Private Sub Form_Load()

Show

?請補充

End Sub Private Sub Timer1_Timer()?請補充

End Sub

5、請說明PRINT #和WRITE #語句的區(qū)別

6、EOF函數(shù)的功能是什么？

四、編程題

1、實現(xiàn)二進制方式文件的復制。

2、如下圖所示，實現(xiàn)一個簡單的文件管理器。

件

C．雙擊工具箱中的控件圖標，所畫控件的大小和位置是固定的

D．不使用工具箱中的控件工具，不可以在窗體上畫出圖形對象，但可以寫入文字字符

2、當一個對象（如窗體或圖片框）被移動或改變大小之后，或當一個覆蓋該窗體被移開之后，如果要保持該所畫圖形的完整性，可以選擇觸發(fā)（）事件來完成圖形的重畫工作

A．Paint B．Load

C．Click

D．Active

三、簡答題

1、在什么情況下使用Image控件而不使用PictureBox控件？

2、在程序運行時怎樣在圖形框中裝入和刪除圖形？

3、顏色函數(shù)主要有哪些？

四、編程題

1、如下圖顯示當前目錄下的圖片文件列表，并能夠預覽選定的圖片。

第三篇：附加協(xié)議

重慶市獨門沖餐飲經(jīng)營管理有限責任公司附加協(xié)議

甲方：重慶市獨門沖餐飲經(jīng)營管理有限責任公司

乙方：

乙方已詳細了解甲方的服務、產(chǎn)品、支持、現(xiàn)經(jīng)營狀況，并完全認同甲方的經(jīng)營理念，自愿申請加入獨門沖特色烤魚館特許“經(jīng)營體系”，并接受甲方的管理。

雙方在原合同的基礎上達成如下補充協(xié)議：

1.乙方合同為每三年一簽，在合同約定期間如沒違反相關合同約定，在續(xù)約時甲方將不再收取

任何費用。

2.乙方店面籌備及開業(yè)期間甲方將安排支持人員到現(xiàn)場協(xié)助開業(yè)，費用為每人每天100元，并

承擔支持人員往返硬臥費用，及在當?shù)厥乘蕖?/p>

3.甲乙雙方合作期間，甲方承諾一年內(nèi)不在乙方加盟區(qū)域發(fā)展第二家“獨門沖烤魚”店，如經(jīng)

過甲方審核，改地區(qū)不能達到開設第二家店的條件，乙方將享有該地區(qū)獨家經(jīng)營權。

4.原則上甲方要求乙方每月定購核心底料，具體經(jīng)營過程中，乙方可根據(jù)生意情況適當調整定

購時間。

本附加協(xié)議為原合同補充部分，與原合同具備同等法律效應。

本附加協(xié)議一式兩份，雙方各執(zhí)一份。

甲方：重慶市獨門沖餐飲經(jīng)營管理有限責任公司乙方：

代表：代表：

日期：2010 年月日日期：2010 年月日

第四篇：附加協(xié)議

附加協(xié)議

甲方：李玉紅、楊康

乙方：李憲禮、李秀敏

甲乙雙方就河南富盈祥房地產(chǎn)開發(fā)有限公司股權轉讓達成附加協(xié)議如下：

一、甲方不負責工程設計建設管理，不負責房屋銷售。

二、甲方負責夏邑怡和新苑房屋銷售回款，直到雙方債權債務結清為止。

三、債務結清后，甲方歸還乙方河南富盈祥房地產(chǎn)開發(fā)有限公司全部股權。

甲方：

乙方：

2014年8月18日

第五篇：附加協(xié)議書

附加協(xié)議書

甲方：恒泰家居廣場

乙方：

為了減輕乙方大額廣告投資壓力，保護品牌經(jīng)營的穩(wěn)定性，經(jīng)甲乙雙方協(xié)商，本著互惠互利的原則，就有關乙方投資廣告費用，甲方部分折價分期補償及以后經(jīng)營一事，達成如下協(xié)議：

一、甲方對乙方的經(jīng)營品種、品牌按公司要求標準審核確認后，將甲乙雙方認可的廣告費用，以協(xié)議期內(nèi)返點的形式對乙方實施廣告贊助，贊助開始執(zhí)行，乙方再撤出攤位時均應按原正式協(xié)議辦理相關手續(xù)。

二、甲乙廣告補償協(xié)議有效期（計費期）為自年月日至年月日止共月。乙方三個月交費一次應在每季首月10號前按時向甲方足額預交當季銷

售提成（含水費、基礎照明費、衛(wèi)生費及部分廣告費）為萬仟佰拾圓 ￥元，甲方將在下次交費期內(nèi)以現(xiàn)金形式返還乙方廣告費元，但原則上應有實際廣告費媒體及收據(jù)且不超過當季交費額的5%——10%，特殊情況在合同期內(nèi)可累計支付但不得超過本期廣告總支出的50%，本期計劃返還廣告費總額元。如協(xié)議期內(nèi)補償不完，續(xù)簽合同后品牌不變?nèi)匀挥行А２焕m(xù)簽合同，不再補償。如合同期內(nèi)未做廣告或廣告少致使計劃返還費用未用完，視為自動放棄，不得返還現(xiàn)金。如乙方違約甲方有權終止協(xié)議或不再贊助廣告費。

三、乙方現(xiàn)經(jīng)營主導品牌為，主導品牌為。主導品牌原則不再審批更改，非改不可，務必經(jīng)甲方審批后實施，但其廣告費乙方自理，甲方不再補償，攤位轉讓須經(jīng)甲方辦理手續(xù)，否則按乙方違約對待。

四、乙方協(xié)議期內(nèi)違約或終止協(xié)議，其廣告費贊助自然終止，乙方協(xié)議期滿，符合條件續(xù)簽協(xié)議，甲乙雙方另行協(xié)商。

五、本協(xié)議與原協(xié)議一并執(zhí)行，且有同等法律效力。

補充說明：

甲方：恒泰國際家居廣場乙方：

代理人：代理人：

年月日