1、VB習題答案（1-4）習題1一、選擇題1. 以下敘述中，錯誤的是_。（A）一個Visual Basic 應用程序可以含有多個標準模塊文件（B）一個visual Basic 工程可以含有多個窗體文件（C）標準模塊文件可以屬于某個指定的窗體文件（D）標準模塊文件的擴展名是.bas標準模塊文件（.bas）不屬于任何一個窗體文件。參考答案為C。2. 以下敘述中錯誤的是_。（A）一個工程可以包括多種類型的文件（B）Visual Basic應用程序既能以編譯方式執行，也能以解釋方式執行（C）程序運行后，在內存中只能駐留一個窗體（D）對于事件驅動型應用程序，每次運行時的執行順序可以不一樣內存中可以駐留多個窗

2、體，當前窗體只能有一個。參考答案為C。3. Visual Basic的窗體設計器主要是用來_。（A）建立用戶界面 （B）添加圖形、圖像、數據等控件（C）編寫程序源代碼 （D）設計窗體的布局參考答案為A。4. Visual Basic是一種結構化高級程序設計語言，它采用的是_驅動方式。（A）鍵盤 （B）鼠標 （C）事件 （D）函數參考答案為C。5. Visual Basic程序設計語言屬于_。（A）面向過程的語言 （B）機器語言 （C）面向對象的語言 （D）匯編語言參考答案為C。6. Visual Basic一共有設計、運行和中斷三種模式，要使用調試工具應該_。（A）進入設計模式 （B）進入運行

3、模式 （C）進入中斷模式 （D）不用進入任何模式VB中三種模式分別為：設計模式下可以進行界面設計和代碼的編寫；運行模式下執行代碼，接受用戶的操作；中斷模式下可以修改代碼，但不能改變界面，這個模式下通常進行代碼調試，當運行出錯時，默認轉到該模式下進行調試。參考答案為C。7. 假定一個Visual Basic應用程序由一個窗體模塊和一個標準模塊構成。為了保存該應用程序，以下正確的操作是_。（A）只保存窗體模塊文件（B）分別保存窗體模塊、標準模塊和工程文件（C）只保存窗體模塊和標準模塊文件（D）只保存工程文件一個工程中可包含多個文件，當打開一個工程文件時會自動加載工程內所有文件。對程序保存需分別保存

4、工程文件及窗體文件。參考答案為B。二、填空題1. Visual Basic 6.0分為3種版本，這3種版本是_、_和_。參考答案：學習版、專業版、企業版2. 應用程序最終面向用戶的窗口是_，它對應于應用程序的運行結果。參考答案：窗體設計器3. 如果打開了不需要的菜單或對話框，可以用_鍵關閉。參考答案：ESC三、簡答題1. 簡述Visual Basic語言的特點。參考答案：Visual Basic是Windows操作平臺下的可視化編程語言，它繼承和發展了BASIC語言的基本功能，具有簡單易學、功能強大等特點。Visual Basic提供了可視化設計工具，以圖形用戶界面（GUI）為PC機用戶提供了

5、一個直觀的工作環境。支持面向對象的程序設計（OOP），采用事件驅動方式，提供對象的鏈接與嵌入（OLE）和訪問數據庫等功能。2. Visual Basic 6.0的集成開發環境由哪些部分組成，各部分的主要功能是什么。參考答案：1. 標題欄：用來顯示打開的工程名稱和系統的工作狀態。2. 菜單欄：菜單欄中包括“文件”、“編輯”、“視圖”、“工程”、“格式”、“調試”、“運行”、“查詢”、“圖表”、“工具”、“外接程序”、“窗口”和“幫助”共有13個菜單項。這是一組下拉式菜單，提供了設計、編輯、編譯和調試應用程序所需要的絕大部分功能和命令。3. 工具欄： Visual Basic 6.0提供了“編輯”

6、、“標準”、“窗體編輯器”和“調試”4種工具欄。工具欄上形象直觀的排列著一些最常用的命令按鈕，對應特定的常用操作命令。4. 控件箱：控件箱提供了一組控件。設計界面時，用戶可以用鼠標雙擊控件箱中的控件，在窗體中畫出該控件，或用鼠標單擊控件箱中的控件，然后在窗體中拖動鼠標畫出所需的控件。5. 窗體設計器：窗體設計器是應用程序最終面向用戶的窗口。各種控件、圖形、數據以及程序的運行結果都在窗體設計器窗體中顯示出來。6. 工程資源管理器：在工程資源管理器窗口中（圖1-2），列出了應用程序的工程以及工程中的窗體和模塊。7. 屬性窗口：屬性窗口主要用來設置Visual Basic窗體及各控件的屬性特征，屬性

7、窗口的主體部分分為左右兩列，左邊是控件的屬性名列表，右邊是控件的屬性值列表。8. 窗體布局窗口：窗體布局窗口用于觀察應用程序中各窗體在屏幕上的位置。可以在窗體布局窗口用鼠標拖動窗體小圖像的方法來改變窗體布局。3. 什么是對象的屬性、事件和方法。參考答案：屬性是一個對象的數據，用來表示對象的狀態。屬性具有屬性值，改變對象的屬性值就可以改變對象的狀態。對象常見的屬性有標題（Caption）、名稱（Name）、顏色（Color）、字體大?。‵ontsize）、是否可見（Visible）等。事件（Event）是能被對象識別的動作，例如Click（單擊），DblClick（雙擊），Load（裝入），Mo

8、useMove（移動鼠標），Change（改變）等。Visual Basic編程的核心就是為每一個要處理的事件編寫響應事件的程序代碼。方法（Method）即是具有完成某種功能的過程和函數，它決定了對象要執行的動作。4. 簡述編寫并運行Visual Basic程序的一般步驟。參考答案：（1）創建應用程序界面。（2）設置界面上各個對象的屬性（3）編寫事件驅動代碼（4）單擊工具欄上的啟動按鈕，運行該程序。四、編程題編寫程序，在窗體上顯示“第一個Visual Basic程序”。參考答案：（1）創建應用程序界面。（2）設置界面上各個對象的屬性（3）編寫事件驅動代碼Private Sub Command1

9、_Click() Text1.Text = "第一個Visual Basic程序"End SubPrivate Sub Command2_Click() EndEnd Sub（4）單擊工具欄上的啟動按鈕，運行該程序。單擊“開始”按鈕。習題2一、選擇題1. 下面可以正確定義2個整形變量和1個字符串變量的語句的是_。（A）Dim n , m AS Interger , s AS String（B）Dim a% , b$ , c AS String（C）Dim a AS Integer , b , c AS String（D）Dim x% , y AS Integer , z A

10、S String變量定義未指明數據類型，則為變體類型變量。A選項定義n為變體類型變量；B答案定義了1個整型變量和2個字符串變量；C選項的b變量也為變體類型變量，D選項滿足要求。參考答案為D。2. 設有如下語句：Dim a , b As Integer c = "Visual Basic" d = #7/20/2005 # 以下關于這段代碼的敘述中，錯誤的是_。（A）a 被定義為Integer 類型變量 （B）b 被定義為Integer 類型變量（C）c 中的數據是字符串 （D）d 中的數據是日期類型VB中變體類型變量有三種情況，一是直接使用未經定義的變量；第二是顯式的將變量

11、定義為變體類型，例 Dim m As Variant；第三種情況是定義變量但未指明該變量的數據類型，程序中對a變量的定義就屬第三種情況，故A選項錯誤。變量c，d均是未定義的變量為變體類型，但分別存放的數據為字符串型和日期型。參考答案為A。3. 執行以下程序后輸出的是_。Private Sub Command1_Click()Ch$=”AABCDEFGH”Print Mid(Right(ch$,6),Len(left(ch$,4),2)End Sub（A）CDEFGH （B）ABCD （C）FG （D）AB程序中有4個函數調用，其中Mid 的三個參數分別是Righ(ch$,6)、Len(left

12、(ch$,4)和2，而left(ch$,4)又是函數Len的參數，由這幾個字符串函數的功能知：函數Righ(ch$,6)的結果值為”CDEFGH”, left(ch$,4)值為”AABC”， Len(left(ch$,4)結果為4，所以輸出Mid(Right(ch$,6),Len(left(ch$,4),2)結果值為“FG”，C選項正確。參考答案為C。4. 設a = 4 , b = 3 , c = 2 , d = l，表達式 a > b+1 Or c < d And b Mod c 的值是_。（A）True （B）l （C）-l （D）0表達式計算按優先級由高到低順序計算，其中運算

13、符優先級高低為“算術運算符>字符運算符>關系運算符>邏輯運算符”，邏輯運算符中“Not>And>Or”，同時關系運算結果值為邏輯值；邏輯運算分兩種情況，（1）邏輯值參與邏輯運算結果為邏輯值，（2）數值數據參與邏輯運算則按二進制位進行邏輯運算。照此規則，本題先算數運算b Mod c（值為1）、b+1（值為4），再做關系運算a > b+1（值為False）、c < d（值為False）最后做邏輯運算c < d And b Mod c（值為0）及a > b+1 Or c < d And b Mod c（值為0），即整個表達式值為0。參考答案

14、為D。5. 以下可以作為Visual Basic變量名的是_。（A）A#A （B）counstA （C）3A （D）?AA參考答案為B。6. 以下能從字符串”VisualBasic”中直接取出子字符串”Basi”的函數是_。（A）Left （B）Mid （C）String （D）Instr參考答案為B。7. 表達式32*2+3 MOD 104的值是_。（A）18 （B）1 （C）19 （D）0參考答案為C。8. 下面的變量名合法的是_。（A）k_name （B）k ame （C）name （D）k-name參考答案為A。9. 設有如下變量聲明Dim time1 As Date,為變量time1

15、正確賦值的表達式是_。（A）time1 = #11:34:04# （B）time1 = Format(Time,"yy:mm:dd")（C）time1 = #"11:34:04"# （D）time1 = Format("hh:mm:ss",Time)參考答案為A。10. 表達式12000 + "129" & 200的值是_。（A）12329 （B）"12129200" （C） （D）"12329"參考答案為B11. 在窗體上畫兩個文本框，其名稱分別為Text1和Tex

16、t2，然后編寫如下程序：Private Sub Form_Load() Text1.Text = "" Text2.Text = "" Text1.SetFocusEnd SubPrivate Sub Text1_Change() Text2.Text = Mid(Text1.Text , 8)End Sub程序運行后，如果在文本框Text1中輸入BeijingChina，則在文本框Text2中顯示的內容是_。（A）BeijingChina （B）China （C）Beijing （D）BeijingC參考答案為B12. 在窗體上畫一個名稱為Comman

17、d1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click() a$ = "VisualBasic" Print String(3, a$)End Sub程序運行后，單擊命令按鈕，在窗體上顯示的內容是_。（A）VVV （B）Vis （C）sic （D）11參考答案為A13. 執行語句s = Len(Mid("VisualBasic", 1, 6)后，s的值是_。（A）"Visual" （B）"Basic" （C）6 （D）1114. 在窗體上畫一個文本框、一個標簽和一個命令按鈕，其名

18、稱分別為Text1、Label1和Command1，然后編寫如下事件過程：Private Sub Text1_Change() Label1.Caption = Right(Trim(Text1.Text), 3)End Sub程序運行后，在文本框中輸入“abcdef”，單擊命令按鈕，則在標簽中顯示的內容是_。（A）空 （B）abcdef （C）abc （D）def參考答案為D15. 設a=2，b=3，c=4，表達式Not a<=c Or 4*a=b2 And b<>a+c的值是_。（A）-1 （B）1 （C）True （D）False參考答案為D16. 執行以下程序段后，變

19、量c$的值為_。 a$ = "Visual Basic Programming" b$ = "Quick" c$ = b$ & UCase(Mid$(a$, 7, 6) & Right$(a$, 12)（A）Visual BASIC Programming （B）Quick Basic Programming（C）QUICK Basic Programming （D）Quick BASIC Programming參考答案為D二、填空題1. 描述“X是小于100的非負整數”的Visual Basic表達式是_。要描述該語句，X必須滿足大于等

20、于零，同時小于100，另還需體現整數特點，參考答案：X%<100 AND X%>=02. 窗體上有一個命令按鈕，事件代碼如下：Private Sub Command1_Click()A = "1"B = "2"A = Val(A) + Val(B)B = Val("12")If A <> B Then Print A - B Else Print B - AEnd Sub程序運行后，單擊命令按鈕，輸出_。參考答案：-93. 以下語句的輸出結果是_。a% = 3.1425926Print a%參考答案：34. a

21、$ = LCase("Hello")，a$的值是_，b$ = UCase("Hello")，b$的值是_。參考答案：hello、HELLO5. 表達式"12" + "34"的值是_，表達式"12" & "34"的值是_，表達式12 & 34的值是_，表達式12 + 34的值是_。參考答案：1234、1234、1234、466. 整形變量M中存放了一個兩位數，要將兩位數交換位置，例如24變成42，實現的表達式為_。參考答案：(M mod 10)*10 + M10

22、)7. 代數式|y| + e-3xln3x的Visual Basic表達式為_。參考答案：abs(y) + exp(-3 * x) * log(3 * x)三、簡答題1. Visual Basic定義了幾種數據類型，變量有哪幾種數據類型，常量有哪幾種數據類型。參考答案：Visual Basic基本數據類型：1. 字符串型（String）：字符串分為變長字符串和定長字符串兩種。2. 數值型：數值型數據分為整型數和浮點數兩類。3. 貨幣型（Currency）4. 變體型（Variant）5. 字節型（Byte）6. 布爾型（Boolean）7. 日期型（Date）8. 對象型（Object）Vis

23、ual Basic中包含兩種常量，即文字常量和符號常量。變量的基本數據類型：Byte（字節型），Boolean（布爾型），Integer（整型），Long（長整型），Single（單精度型），Double（雙精度型），Currency（貨幣型），Date（日期型），Object（對象型），String（變長字符串），String（定長字符串），Variant（變體型、數字），Variant（變體型、字符）2. 符號常量和變量有什么不同點?參考答案：符號常量一經定義，就不能在程序中的其他位置改變其值。變量的值在程序中可以改變。3. 指出下列正確的變量名：g(1-k) 6adhs *sss kL2

24、.1 Printx+1 ahi .ex3 j5h參考答案：正確的變量名：ahi，j5h4. 指出下列正確的Basic數字形式：-1.25 ±3.88 45.2468E-6 77.876D-5 5.6D0.123 89E D2585 10(2.7) 35參考答案：正確的數字形式：-1.25，45.2468E-6，77.876D-5，0.1235. 下列Basic表達式若有錯誤，請說明錯誤原因，并改正錯誤： (1) ts+cos(300) (2) (x+y)(25÷s)(3) (X1+X2)*(X1-3)-6*7 (4) (X÷-2)+sin(1.2+)參考答案：改正

25、：(1) ts+cos(30*3.141593/180)(2) (x+y)(25/s)(3) (X1+X2)*(X1-3)-6)*7(4) (X/(-2)+sin(1.2+3.141593)6. 寫出下列數學式的Visual Basic表達式： (1) sin(a)cos(b)+1.5 (2) (X1+4)5(e2-a) (3) 36(X1+)(X1÷3.3)-B (4) X-2+5.8sin(3.5)參考答案：Visual Basic表達式：(1) sin(a)*(cos(b)+1.5)(2) (X1+4)5*(exp(2)-a)(3) 36*(X1+3.141593)*(X1/3

26、.3)-B)(4) X2+5.8*sin(3.5*3.141593)習題3一、選擇題1. 設在名稱為Myform的窗體上只有1個名稱為C1的命令按鈕,下面敘述中正確的是_。（A）窗體的Click事件過程的過程名是Myform_Click（B）命令按鈕的Click事件過程名是C1_Click（C）命令按鈕的Click事件過程的過程名是Command1_Click（D）上述3種過程名稱都是錯誤的窗體事件過程名為“Form_事件名”，其他對象事件過程名為“對象名_事件名”，故窗體的Click事件過程名為Form_Click，命令按鈕的Click事件過程名為C1_Click。選項B正確。參考答案為B2

27、. 在Visual Basic工程中，可以作為啟動對象的程序是_。（A）任何窗體或標準模塊（B）任何窗體或過程（C）Sub Main過程或其他任何模塊（D）Sub Main過程或任何窗體參考答案為D3. 新建一個工程將其窗體的Name屬性設置為Myfrm，則默認的窗體文件名為_。（A）Form1.frm （B）Myfrm.frm （C）Form1.vbp （D）工程1.frm參考答案為B4. 將窗體的_屬性設置為False后，運行時窗體上的按鈕、文本框就不會對用戶的操作做出響應。（A）ControlBox （B）Visible （C）Enabled （D）BorderStyle參考答案為C5.

28、 以下說法正確的是_。（A）窗體文件的擴展名為 .vbp（B）一個窗體對應一個窗體文件（C）Visual Basic中的一個工程只包括一個窗體（D）Visual Basic中一個工程最多可以包含256個窗體文件參考答案為B6. 當運行程序時，系統自動執行啟動窗體的某個事件過程。這個事件過程是_。（A）Load （B）Click （C）Unload （D）GotFocus參考答案為A7. 無論何控件，都具有一個共同屬性。這個屬性是_。（A）Text （B）Font （C）Name （D）Caption參考答案為C8. Print方法可以在_對象上輸出數據（A）桌面 （B）窗體 （C）狀態欄 （D

29、）標題欄參考答案為B9. 以下能在窗體Form1的標題欄中顯示“VisualBasic窗體”的語句是_。（A）Form1.Name="VisualBasic窗體"（B）Form1.Title="VisualBasic窗體"（C）Form1.Caption="VisualBasic窗體"（C）Form1.Text="VisualBasic窗體”參考答案為C10. 語句Print Format$(12345,"0000,00.00")輸出結果為_。（A）12345.00 （B）12345 （C）012,345

30、.00 （D）123,4511. 對用MsgBox顯示的消息框，下面_是錯的。（A）可以有一個按鈕 （B）可以有兩個按鈕（C）可以有三個按鈕 （D）可以有四個按鈕參考答案為D12. 語句a=InputBox("Today","Tomorrow","Yesterday","Day before yesterday",5)將顯示一個對話框，在對話框的輸入區中顯示的信息是_。（A）Today （B）Tomorrow （C）Yesterday （D）Day before yesterday參考答案為C13. 設窗體上有一個

31、文本框，名稱為text1，程序運行后，要求該文本框不能接受鍵盤輸入，但能輸出信息，以下屬性設置正確的是_。（A）text1.maxlength = 0 （B）text1.Enabled = False （C）text1.visible = False （D）text1.Width = 0參考答案為B14. 在窗體上畫一個名稱為Timer1的計時器控件，要求每隔0.5秒發生一次計時器事件，則以下正確的屬性設置語句是_。（A）Timer1.InterVal=0.5 （B）Timer1.Interval=5（C）Timer1.Interval=50 （D）Timer1.Interval=500參考答

32、案為D15. 將文本框的_屬性設置為True時，文本框可以輸入或顯示多行文本，且會在輸入的內容超出文本框的寬度時自動換行。（A）Multiline （B）Scrollbars （C）Text （D）Enabled參考答案為A16. 當窗體得到焦點時觸發_。（A）Active （B）OnFocus （C）GotFocus （D）Initilize參考答案為C17. 在窗體上畫一個文本框，其名稱為Text1。為了在程序運行后Text1中的文本不可編輯，應當使用的語句_。（A）Text1.Clear （B）Text1.Locked=True（C）Text1.Visible=False （D）Text

33、1.Enabled=False參考答案為B二、填空題1. Visual Basic是一種面向對象的程序設計語言，構成對象的三要素是_、_、_。參考答案：屬性、事件、方法2. 在剛建立工程時，使窗體上的所有控件具有區別于默認值的相同的字體格式，應對_的_屬性進行設置。參考答案：Form窗體、Font3. 下述程序段在運行時的顯示結果是_。Dim x As SingleClsx=1.344+8Print Len(x)參考答案：44. 以下語句Print Int（12345.6789*100+0.5）/100的輸出結果是_。參考答案：12345.685. 當文本框的SelStart屬性設置為0時，表

34、示_，SelStart屬性設置為1時表示_。6. 當文本框得到焦點時觸發_事件，當文本框失去焦點時觸發_事件。參考答案：GotFocus、LostFocus三、簡答題下列語句是否有錯？若有，請說明錯誤原因，并改正錯誤： 1. Let = 17 2. T1$ = XYZ3. L*2 = K + E 4. 1A = 34 , 2A = 66參考答案：改正：1. Let x = 17 2. T1$ = “XYZ”3. L = (K + E)/2 4. A1 = 34 : A2 = 66四、編程題1. 設計一個窗體，在窗體上用標簽控件顯示商品的名稱和單價，用文本框控件接收輸入的購買數量，當單擊“購買”

35、按扭時，計算購買商品的總價格，并在彈出的消息框中顯示出購買明細和總價格。假定有以下三種商品： 鉛筆：每只1.50元 筆記本：每本5.20元計算器：每件80.00元參考答案：設計界面如圖： 程序代碼如下：Private Sub Command1_Click() Sum = 1.5 * Text1.Text + 5.2 * Text2.Text + 80 * Text3.Text Msg$ = "鉛筆" & Text1.Text & "只；" & "筆記本" & Text2.Text & "

36、;本；" & "計算器" & Text3.Text & "件。" & "金額：" & Sum MsgBox (Msg$)End Sub2. 編應用程序，在窗體上顯示由如下“*”號構成的三角形圖案。 * * * * * * * * * * * * * * * * * * * * * * * * * 參考答案：設計界面如圖，程序代碼如下：Private Sub Form_Click() Form1.Print Tab(15); "*" Form1.Print Tab(1

37、4); "*" Form1.Print Tab(13); "*" Form1.Print Tab(12); "*" Form1.Print Tab(11); "*"End SubPrivate Sub Form_Load() Form1.AutoRedraw = True Form1.Print "顯示星號三角形,單擊窗體開始"End Sub3. 編寫程序，將攝氏溫度轉換為華氏溫度。二者之間的關系是：F = 32 + 1.8C其中F是華氏溫度，C是攝氏溫度。程序運行后，彈出一個對話框用于接收輸入

38、的攝氏溫度值，確定輸入后在彈出的消息框中顯示轉換后的華氏溫度值。參考答案：設計界面如圖：程序代碼如下：Private Sub Command1_Click() C = Text1.Text Text2.Text = 32 + 1.8 * CEnd Sub4. 編寫程序，在文本框中輸入英文字符，單擊“大寫”按鈕把英文字符轉換為大寫，單擊“小寫”按鈕把英文字符轉換為小寫。參考答案：設計界面如圖程序代碼如下Private Sub Command1_Click() Text1.Text = UCase$(Text1.Text)End SubPrivate Sub Command2_Click() Te

39、xt1.Text = LCase$(Text1.Text)End Sub習題4一、選擇題1. 以下循環語句中在任何情況下都至少執行一次循環體的是_。（A）Do While <條件> （B）While <條件> 循環體 循環體 Loop Wend（C）Do （D）Do Until <條件> 循環體 循環體 Loop Until <條件> Loop參考答案為C2. 某人設計了如下程序用來計算并輸出7!（7的階乘）Private Sub Command1_Click()t=0For k=7 To 2 Step -1t=t*kNextPrint tEnd

40、 Sub執行程序時，發現結果是錯誤的，下面的修改方案中能夠得到正確結構的是_。（A）把t=0改為t=1（B）把For k = 7 To 2 Step -1改為For k =7 To 1 Step -1（C）把For k = 7 To 2 Stip-1改為Fork=1 To 7（D）把Next改為Next k參考答案為A3. 以下程序段的輸出結果是_。num =0While num<=2 num = num+1WendPrint num（A）2 （B）3 （C）4 （D）程序出錯參考答案為B4. 設a="a"，b="b",c="c"

41、;,d="d",執行語句x=IIf (a<b Or c>d),"A","B")后，x的值為_。（A）"a" （B）"b" （C）"B" （D）"A"參考答案為D5. 以下Case語句中錯誤的是_。（A）Case 0 To 10 （B）Case Is>10（C）Case Is>10 And Is<50 （D）Case 3,5,Is>10參考答案為C6. 設有以下循環結構：Do 循環體Loop While <條件>

42、;則下列敘述中錯誤的是_。（A）若“條件”是一個為0的常數，則一次也不執行循環體 （B）“條件”可以是關系表達式，邏輯表達式或常數 （C）循環體中可以使用Exit Do語句 （D）如果“條件”總是為True，則不停地執行循環體參考答案為A7. 設組合框Combo1中有3個項目，則以下能刪除最后一項的語句是_。（A）Combo1.RemoveItem Text （B）Combo1.RemoveItem 2（C）Combo1.RemoveItem 3 （D）Combo1.RemoveItem Combo1.Listcount參考答案為B8. 在窗體上畫一個列表框和一個命令按鈕，其名稱分別為List

43、1和Command1，然后編寫如下事件過程：Private Sub Form_Load() List1.AddItem "Item 1" List1.AddItem "Item 2" List1.AddItem "Item 3"End SubPrivate Sub Command1_Click() List1.List(List1.ListCount) = "AAAA"End Sub程序運行后，單擊命令按鈕，其結果為_。（A）把字符串“AAAA”添加到列表框中，但位置不能確定（B）把字符串“AAAA”添加到列表框的

44、最后（即“Item 3”的后面）（C）把列表框中原有的最后一項改為“AAAA”（D）把字符串“AAAA”插入到列表框的最前面（即“Item 1”的前面）參考答案為B9. 在窗體上畫一個名稱為List1的列表框，一個名稱為Label1的標簽，列表框中顯示若干個項目。當單擊列表框中的某個項目時，在標簽中顯示被選中項目的索引值。下列能正確實現上述操作的程序是_。（A）Private Sub List1_Click() （B）Private Sub List1_Click() Label1.Caption=List1.ListIndex Label1.Name=List1.ListIndex End

45、Sub End Sub（C）Private Sub List1_Click() （D）Private Sub List1_Click() Label1.Name=List1.Text Label1.Caption =List1.Text End Sub End Sub參考答案為A二、填空題1. 設a=6，則執行x=IIf(a>5, -1, 0)后，x的值為_。參考答案：-12. 下面程序段的執行結果為_。x = Int(Rnd + 4)Select Case x Case 5 Print "優秀" Case 4 Print "良好" Case 3

46、Print "通過" Case Else Print "不通過"End Select參考答案：良好3. 執行下面的程序段后，變量s的值為_。s = 5For i = 2.6 To 4.9 Step 0.6 s = s + 1 Next I參考答案：94. 下面的程序執行時，可以從鍵盤輸入一個正整數，然后把該數的每位數字按逆序輸出。例如：輸入7685，則輸出5867，輸入1000，則輸出0001。請填空。Private Sub Command1_Click() Dim x As Integer x=InputBox(“請輸入一個正整數”) While x&

47、gt;_ Print x Mod 10; x=x10 Wend Print_End Sub參考答案：10、x5. 只有將組合框的Style屬性設置為_時，才能觸發DbClick事件。參考答案：16. 獲得列表框List1中項目個數的語句是_。參考答案：List1.ListCount三、簡答題1. 寫出數學式|x|<2.5×10-2對應的Visual Basic表達式。參考答案：x<2.5e-2 and x>-2.5e-22. 邏輯運算符And、Or和Not的優先級最高的是哪一個。參考答案：Not3. 已知 W=10 X=9 Y=8 Z=7 ，求下列表達式的結果： (

48、1) W>X And Y<=Z OR X>Y (2) X>Z Or W=Y AND Y<X(3) Not (W>Y And X=Z) (4) Not (Y<>X Or W*3>Z)參考答案：(1) True (2) True (3) True (4) False4. 寫出下列十進制整數邏輯運算的結果： (1) X = 23 And 14 (2) X = 23 Or 14 (3) X = -1 And 19 (4) X = -1 Or 10 (5) X = Not -1參考答案：(1) 6 (2) 31 (3) 19 (4) 1 (5) 0四

49、、編程題1. 已知變量X和Y的值分別為5、6，編寫程序，交換變量X和Y的值。參考答案：設計界面如圖，程序代碼如下：Private Sub Form_Click() x = 5: y = 6 t = x: x = y: y = t Form1.Print "x=" x, "y=" yEnd SubPrivate Sub Form_Load() Form1.AutoRedraw = True Form1.Print "x = 5", "y = 6" Form1.Print "單擊窗體交換x,y的值"

50、End Sub2. 征兵的條件是：男性1820歲，1.65米以上；女性1618歲，1.60米以上。編寫程序，從鍵盤輸入一個人的數據時，判斷是否符合征兵的條件。參考答案：設計界面如圖：程序代碼如下：Private Sub Command1_Click() age = Val(Text1.Text) h = Val(Text2.Text) If Option1.Value = True Then If age >= 18 And age <= 20 And h >= 1.65 Then Label4.Caption = "合格" Else Label4.Cap

51、tion = "不合格" End If Else If age >= 16 And age <= 18 And h >= 1.6 Then Label4.Caption = "合格" Else Label4.Caption = "不合格" End If End If End Sub3. 編寫程序，計算下面表達式1+1×3+1×3×5+1×3×(2N+1)的值。參考答案：設計界面如圖：程序代碼如下：Private Sub Command1_Click() n = Val(InputBox("請輸入N值") Sum = 1 term = 1 For k = 3 To 2 * n + 1 Step 2 term = term * k Sum = Sum + term Next k Form1.Print "1+1×3+1×3×5+1×3×(2N+1)=" SumEnd SubPrivate Sub Form_Load() Form1.AutoRedraw = True F