VisualBasic程序設(shè)計(jì)基礎(chǔ)川版習(xí)題答案

1、VB習(xí)題答案（1-4）習(xí)題1一、選擇題1. 以下敘述中，錯(cuò)誤的是_。（A）一個(gè)Visual Basic 應(yīng)用程序可以含有多個(gè)標(biāo)準(zhǔn)模塊文件（B）一個(gè)visual Basic 工程可以含有多個(gè)窗體文件（C）標(biāo)準(zhǔn)模塊文件可以屬于某個(gè)指定的窗體文件（D）標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是.bas標(biāo)準(zhǔn)模塊文件（.bas）不屬于任何一個(gè)窗體文件。參考答案為C。2. 以下敘述中錯(cuò)誤的是_。（A）一個(gè)工程可以包括多種類型的文件（B）Visual Basic應(yīng)用程序既能以編譯方式執(zhí)行，也能以解釋方式執(zhí)行（C）程序運(yùn)行后，在內(nèi)存中只能駐留一個(gè)窗體（D）對(duì)于事件驅(qū)動(dòng)型應(yīng)用程序，每次運(yùn)行時(shí)的執(zhí)行順序可以不一樣內(nèi)存中可以駐留多個(gè)窗

2、體，當(dāng)前窗體只能有一個(gè)。參考答案為C。3. Visual Basic的窗體設(shè)計(jì)器主要是用來_。（A）建立用戶界面 （B）添加圖形、圖像、數(shù)據(jù)等控件（C）編寫程序源代碼 （D）設(shè)計(jì)窗體的布局參考答案為A。4. Visual Basic是一種結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)語言，它采用的是_驅(qū)動(dòng)方式。（A）鍵盤 （B）鼠標(biāo) （C）事件 （D）函數(shù)參考答案為C。5. Visual Basic程序設(shè)計(jì)語言屬于_。（A）面向過程的語言 （B）機(jī)器語言 （C）面向?qū)ο蟮恼Z言 （D）匯編語言參考答案為C。6. Visual Basic一共有設(shè)計(jì)、運(yùn)行和中斷三種模式，要使用調(diào)試工具應(yīng)該_。（A）進(jìn)入設(shè)計(jì)模式 （B）進(jìn)入運(yùn)行

3、模式 （C）進(jìn)入中斷模式 （D）不用進(jìn)入任何模式VB中三種模式分別為：設(shè)計(jì)模式下可以進(jìn)行界面設(shè)計(jì)和代碼的編寫；運(yùn)行模式下執(zhí)行代碼，接受用戶的操作；中斷模式下可以修改代碼，但不能改變界面，這個(gè)模式下通常進(jìn)行代碼調(diào)試，當(dāng)運(yùn)行出錯(cuò)時(shí)，默認(rèn)轉(zhuǎn)到該模式下進(jìn)行調(diào)試。參考答案為C。7. 假定一個(gè)Visual Basic應(yīng)用程序由一個(gè)窗體模塊和一個(gè)標(biāo)準(zhǔn)模塊構(gòu)成。為了保存該應(yīng)用程序，以下正確的操作是_。（A）只保存窗體模塊文件（B）分別保存窗體模塊、標(biāo)準(zhǔn)模塊和工程文件（C）只保存窗體模塊和標(biāo)準(zhǔn)模塊文件（D）只保存工程文件一個(gè)工程中可包含多個(gè)文件，當(dāng)打開一個(gè)工程文件時(shí)會(huì)自動(dòng)加載工程內(nèi)所有文件。對(duì)程序保存需分別保存

4、工程文件及窗體文件。參考答案為B。二、填空題1. Visual Basic 6.0分為3種版本，這3種版本是_、_和_。參考答案：學(xué)習(xí)版、專業(yè)版、企業(yè)版2. 應(yīng)用程序最終面向用戶的窗口是_，它對(duì)應(yīng)于應(yīng)用程序的運(yùn)行結(jié)果。參考答案：窗體設(shè)計(jì)器3. 如果打開了不需要的菜單或?qū)υ捒?，可以用_鍵關(guān)閉。參考答案：ESC三、簡(jiǎn)答題1. 簡(jiǎn)述Visual Basic語言的特點(diǎn)。參考答案：Visual Basic是Windows操作平臺(tái)下的可視化編程語言，它繼承和發(fā)展了BASIC語言的基本功能，具有簡(jiǎn)單易學(xué)、功能強(qiáng)大等特點(diǎn)。Visual Basic提供了可視化設(shè)計(jì)工具，以圖形用戶界面（GUI）為PC機(jī)用戶提供了

5、一個(gè)直觀的工作環(huán)境。支持面向?qū)ο蟮某绦蛟O(shè)計(jì)（OOP），采用事件驅(qū)動(dòng)方式，提供對(duì)象的鏈接與嵌入（OLE）和訪問數(shù)據(jù)庫等功能。2. Visual Basic 6.0的集成開發(fā)環(huán)境由哪些部分組成，各部分的主要功能是什么。參考答案：1. 標(biāo)題欄：用來顯示打開的工程名稱和系統(tǒng)的工作狀態(tài)。2. 菜單欄：菜單欄中包括“文件”、“編輯”、“視圖”、“工程”、“格式”、“調(diào)試”、“運(yùn)行”、“查詢”、“圖表”、“工具”、“外接程序”、“窗口”和“幫助”共有13個(gè)菜單項(xiàng)。這是一組下拉式菜單，提供了設(shè)計(jì)、編輯、編譯和調(diào)試應(yīng)用程序所需要的絕大部分功能和命令。3. 工具欄： Visual Basic 6.0提供了“編輯”

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

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

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

9、_Click() Text1.Text = "第一個(gè)Visual Basic程序"End SubPrivate Sub Command2_Click() EndEnd Sub（4）單擊工具欄上的啟動(dòng)按鈕，運(yùn)行該程序。單擊“開始”按鈕。習(xí)題2一、選擇題1. 下面可以正確定義2個(gè)整形變量和1個(gè)字符串變量的語句的是_。（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變量定義未指明數(shù)據(jù)類型，則為變體類型變量。A選項(xiàng)定義n為變體類型變量；B答案定義了1個(gè)整型變量和2個(gè)字符串變量；C選項(xiàng)的b變量也為變體類型變量，D選項(xiàng)滿足要求。參考答案為D。2. 設(shè)有如下語句：Dim a , b As Integer c = "Visual Basic" d = #7/20/2005 # 以下關(guān)于這段代碼的敘述中，錯(cuò)誤的是_。（A）a 被定義為Integer 類型變量 （B）b 被定義為Integer 類型變量（C）c 中的數(shù)據(jù)是字符串 （D）d 中的數(shù)據(jù)是日期類型VB中變體類型變量有三種情況，一是直接使用未經(jīng)定義的變量；第二是顯式的將變量

11、定義為變體類型，例 Dim m As Variant；第三種情況是定義變量但未指明該變量的數(shù)據(jù)類型，程序中對(duì)a變量的定義就屬第三種情況，故A選項(xiàng)錯(cuò)誤。變量c，d均是未定義的變量為變體類型，但分別存放的數(shù)據(jù)為字符串型和日期型。參考答案為A。3. 執(zhí)行以下程序后輸出的是_。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個(gè)函數(shù)調(diào)用，其中Mid 的三個(gè)參數(shù)分別是Righ(ch$,6)、Len(left

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

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

14、為D。5. 以下可以作為Visual Basic變量名的是_。（A）A#A （B）counstA （C）3A （D）?AA參考答案為B。6. 以下能從字符串”VisualBasic”中直接取出子字符串”Basi”的函數(shù)是_。（A）Left （B）Mid （C）String （D）Instr參考答案為B。7. 表達(dá)式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. 設(shè)有如下變量聲明Dim time1 As Date,為變量time1

15、正確賦值的表達(dá)式是_。（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. 表達(dá)式12000 + "129" & 200的值是_。（A）12329 （B）"12129200" （C） （D）"12329"參考答案為B11. 在窗體上畫兩個(gè)文本框，其名稱分別為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程序運(yùn)行后，如果在文本框Text1中輸入BeijingChina，則在文本框Text2中顯示的內(nèi)容是_。（A）BeijingChina （B）China （C）Beijing （D）BeijingC參考答案為B12. 在窗體上畫一個(gè)名稱為Comman

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

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

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的非負(fù)整數(shù)”的Visual Basic表達(dá)式是_。要描述該語句，X必須滿足大于等

20、于零，同時(shí)小于100，另還需體現(xiàn)整數(shù)特點(diǎn)，參考答案：X%<100 AND X%>=02. 窗體上有一個(gè)命令按鈕，事件代碼如下：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程序運(yùn)行后，單擊命令按鈕，輸出_。參考答案：-93. 以下語句的輸出結(jié)果是_。a% = 3.1425926Print a%參考答案：34. a

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

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

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

24、.1 Printx+1 ahi .ex3 j5h參考答案：正確的變量名：ahi，j5h4. 指出下列正確的Basic數(shù)字形式：-1.25 ±3.88 45.2468E-6 77.876D-5 5.6D0.123 89E D2585 10(2.7) 35參考答案：正確的數(shù)字形式：-1.25，45.2468E-6，77.876D-5，0.1235. 下列Basic表達(dá)式若有錯(cuò)誤，請(qǐng)說明錯(cuò)誤原因，并改正錯(cuò)誤： (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. 寫出下列數(shù)學(xué)式的Visual Basic表達(dá)式： (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表達(dá)式：(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)習(xí)題3一、選擇題1. 設(shè)在名稱為Myform的窗體上只有1個(gè)名稱為C1的命令按鈕,下面敘述中正確的是_。（A）窗體的Click事件過程的過程名是Myform_Click（B）命令按鈕的Click事件過程名是C1_Click（C）命令按鈕的Click事件過程的過程名是Command1_Click（D）上述3種過程名稱都是錯(cuò)誤的窗體事件過程名為“Form_事件名”，其他對(duì)象事件過程名為“對(duì)象名_事件名”，故窗體的Click事件過程名為Form_Click，命令按鈕的Click事件過程名為C1_Click。選項(xiàng)B正確。參考答案為B2

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

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

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

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

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

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

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

34、示_，SelStart屬性設(shè)置為1時(shí)表示_。6. 當(dāng)文本框得到焦點(diǎn)時(shí)觸發(fā)_事件，當(dāng)文本框失去焦點(diǎn)時(shí)觸發(fā)_事件。參考答案：GotFocus、LostFocus三、簡(jiǎn)答題下列語句是否有錯(cuò)？若有，請(qǐng)說明錯(cuò)誤原因，并改正錯(cuò)誤： 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. 設(shè)計(jì)一個(gè)窗體，在窗體上用標(biāo)簽控件顯示商品的名稱和單價(jià)，用文本框控件接收輸入的購買數(shù)量，當(dāng)單擊“購買”

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

36、;本；" & "計(jì)算器" & Text3.Text & "件。" & "金額：" & Sum MsgBox (Msg$)End Sub2. 編應(yīng)用程序，在窗體上顯示由如下“*”號(hào)構(gòu)成的三角形圖案。 * * * * * * * * * * * * * * * * * * * * * * * * * 參考答案：設(shè)計(jì)界面如圖，程序代碼如下：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 "顯示星號(hào)三角形,單擊窗體開始"End Sub3. 編寫程序，將攝氏溫度轉(zhuǎn)換為華氏溫度。二者之間的關(guān)系是：F = 32 + 1.8C其中F是華氏溫度，C是攝氏溫度。程序運(yùn)行后，彈出一個(gè)對(duì)話框用于接收輸入

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

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

40、 Sub執(zhí)行程序時(shí)，發(fā)現(xiàn)結(jié)果是錯(cuò)誤的，下面的修改方案中能夠得到正確結(jié)構(gòu)的是_。（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. 以下程序段的輸出結(jié)果是_。num =0While num<=2 num = num+1WendPrint num（A）2 （B）3 （C）4 （D）程序出錯(cuò)參考答案為B4. 設(shè)a="a"，b="b",c="c"

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

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

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程序運(yùn)行后，單擊命令按鈕，其結(jié)果為_。（A）把字符串“AAAA”添加到列表框中，但位置不能確定（B）把字符串“AAAA”添加到列表框的

44、最后（即“Item 3”的后面）（C）把列表框中原有的最后一項(xiàng)改為“AAAA”（D）把字符串“AAAA”插入到列表框的最前面（即“Item 1”的前面）參考答案為B9. 在窗體上畫一個(gè)名稱為L(zhǎng)ist1的列表框，一個(gè)名稱為L(zhǎng)abel1的標(biāo)簽，列表框中顯示若干個(gè)項(xiàng)目。當(dāng)單擊列表框中的某個(gè)項(xiàng)目時(shí)，在標(biāo)簽中顯示被選中項(xiàng)目的索引值。下列能正確實(shí)現(xiàn)上述操作的程序是_。（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. 設(shè)a=6，則執(zhí)行x=IIf(a>5, -1, 0)后，x的值為_。參考答案：-12. 下面程序段的執(zhí)行結(jié)果為_。x = Int(Rnd + 4)Select Case x Case 5 Print "優(yōu)秀" Case 4 Print "良好" Case 3

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

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

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. 寫出下列十進(jìn)制整數(shù)邏輯運(yùn)算的結(jié)果： (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的值。參考答案：設(shè)計(jì)界面如圖，程序代碼如下：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米以上。編寫程序，從鍵盤輸入一個(gè)人的數(shù)據(jù)時(shí)，判斷是否符合征兵的條件。參考答案：設(shè)計(jì)界面如圖：程序代碼如下：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. 編寫程序，計(jì)算下面表達(dá)式1+1×3+1×3×5+1×3×(2N+1)的值。參考答案：設(shè)計(jì)界面如圖：程序代碼如下：Private Sub Command1_Click() n = Val(InputBox("請(qǐng)輸入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