【文章內(nèi)容簡介】 iek事件。1同一條記錄中的各數(shù)據(jù)具有相同的類型。1使用Data控件可以直接顯示數(shù)據(jù)庫中的數(shù)據(jù)。1ImageList 是一個圖像容器控件，可用作工具欄的圖像庫。1當(dāng)用戶單擊工具欄按鈕時，將觸發(fā)工具欄按鈕的ButtonClick事件。1在VB的工程資源管理器中，如果從工程中移除已經(jīng)保存過的文件，該文件仍然被物理刪除（真正刪除）。1如果列表框的ListConut的屬性為10，則列表框最后一項(xiàng)的ListIndex值為10。1要是某個命令按鈕不起作用，應(yīng)將該按鈕的Enabeld屬性設(shè)置為False。1使用數(shù)組定義語句：Dim D$（10），則數(shù)組D中各元素的值為空。1如果在一行中輸入多條語句，各語句之間用使用 ；分隔。在代碼窗口中輸入某行代碼并按回車鍵之后，如果代碼變成紅色，說明該行代碼有語法錯誤。 四、讀程序題，寫出程序運(yùn)行結(jié)果 Private Sub Form_Click()Static SUM As IntegerI = 1Do While I=10SUM = SUM + II = I + 1LoopPrint SUMEnd Sub 運(yùn)行程序，第一次單擊窗體： 第二次單擊窗體： Private Sub Form_Click()Print *。 Tab(6)。 2, Tab(15)。 5PrintFor I = 15 To 16Print I。For j = 2 To 6 Step 3 Print Tab(3 * j)。 j * I。Next jPrintNext IEnd Sub 程序運(yùn)行結(jié)果： 五、編程題（一）窗體中有圖片框(Picture1)和計(jì)時器(Timer1)兩個控件，運(yùn)行程序時，將圖片加載到圖片框中，然后圖片框以每2秒鐘一次的速度向窗體的右下腳移動，每次向左、向右移動100twip（20分之一像素）。請?zhí)羁眨? Private Sub Form_load( ) （1） =loadPicture(“c:\pic\”) （2） .Interval=200 End Sub Private Sub Timer1_Timer( ) Static x , y As Integer x=x+100 y=y+100 （3） End Sub （二）有一個單擊按鈕過程，其作用是產(chǎn)生50個60～100的隨機(jī)數(shù)，統(tǒng)計(jì)其中被6整除余2的個數(shù)，并將這些數(shù)輸出。請?zhí)羁眨? Private Sub Command1_Click() Dim x As Integer, N% Dim Counter As Integer (1) Timer For N=1 To 50 X=Rnd()* (2) If (3) =2 Then Print x Counter= (4) (5) Next N Print Counter End Sub《VB程序設(shè)計(jì)與應(yīng)用》參考答案一、填空題12345答案可視化設(shè)計(jì)事件驅(qū)動編程窗體（form）控件集合題號678910答案特殊子程序雙精度動作Print選中題號1112131415答案高度（Height）寬度(Width)中央工程1題號1617181920答案0空FalsePictureCls二、選擇題12345答案CABCA題號678910答案DDABB題號1112131415答案DAAAD題號1617181920答案CACCB三、判斷題12345678910答案ХХХ√Х√√√√Х11121314151617181920答案√Х√√ХХ√ХХ√四、程序閱讀題：（一） （10分） 1 、 55 110 （二）、 （10分） * 2 515 30 75 16 32 80五、編程題 （20分）（一） Timer1 x ,y (二) Randomize Rnd()*41+60 x Mod 6 Counter＋1 5 End If 一、單項(xiàng)選擇題（共10分）1．在代碼中引用一個控件時，應(yīng)使用控件的（B）屬性。 A．Caption B．Name C．Text D．Index2．設(shè)變量x = 4，y = 1，a = 7，b = 8,下面表達(dá)式（A）的值為“假”。 A．x+a = by B． x 0 AND y 0C．a(chǎn) = b OR xy D． x+y a+b AND NOT (y b)3．表達(dá)式Int(Rnd*71)+10產(chǎn)生的隨機(jī)整數(shù)范圍是（C ）。 A．（10，80） B．（10，81） C．[10，80] D．[10，81]4．函數(shù)Sgn()的返回值是（C ）。 A．1 B．0 C．1 D．以上都不對5．67890屬于（ D ）類型數(shù)據(jù)。 A．整型 B．單精度浮點(diǎn)數(shù) C．貨幣型 D．長整型6．下列變量名中正確的是（D）。A．3S B．Print C．Select My Name D．Select_17．下列賦值語句（ A ）是有效的。A．sum = sum sum B．x+2 = x + 2 C．x + y = sum D．last = y / 08．以下的控件或方法具有輸入和輸出雙重功能的為（B）。A．Print B．Textbox C．Optionbutton D．Checkbox9．若要獲得列表框中被選中的列表項(xiàng)的內(nèi)容，可以通過訪問（D）屬性來實(shí)現(xiàn)。 A．Name B．ListIndex C．ListCount D．Text10．下列代碼的運(yùn)行結(jié)果為（B ）。Private Sub mand1_click()Dim m(10) For k = 1 To 10m(k) = 11 kNext kx = 5Print m(2 + m(x))End SubA．2 B．3 C．4 D．5 二、填空題（10分）1．寫出整數(shù)n能同時被13和17整除的Basic表達(dá)n Mod 13=0 And n Mod 17=0式 。2．代碼窗口中有兩個下拉列表框：左側(cè)是(對象)列表框，右側(cè)是過程列表框。3．寫出在字符串 ”Visual Basic ” 中截取 ”Visual” 的Basic表達(dá)式LEFT(“Visual Basic ”,6)。4．函數(shù)Len(“abcdef”)的返回值是(6) 。5．設(shè)a = 2，b = 5，c = 2，d = 100，則a b = c AND a b = d的值為False 。三、將下列數(shù)學(xué)表達(dá)式轉(zhuǎn)換為VB表達(dá)式。（6分）1．a(chǎn)2+2ab+b2 ： a^2+2*a*b+b^22．8exln10 ：8*exp(x)*log(10) 3．2sin(450)cos(450) ：2*sin()*cos()6．在VB中，用戶定義常量使用 Const 語句，聲明變量使用 Dim語句。1．在VB ， A 。A) 工程文件B) 窗體文件C) 類模塊文件D) 標(biāo)準(zhǔn)模塊文件2．在VB ，用鼠標(biāo)雙擊窗體上的某個對象后，打開的窗口是 A 。A) 代碼窗口B) 窗體設(shè)計(jì)窗口C) 屬性窗口D) 工程資源管理器窗口3．設(shè)有變量定義語句Dim a%，則變量a的數(shù)據(jù)類型是 A 。 A) 整型B) 單精度類型C) 雙精度類型D) 字符串類型4．下列表達(dá)式中，值為False的是 D 。A) ABabcB) ABC = UCase(abc)C) ABCDabcD) Mid(ABCD,3,1)=Left(ABCD,3)5．函數(shù)InStr(ABCDEF, CD)的值是 B 。A) 2B) 3C) True D) CDEF 6．下列程序運(yùn)行后，單擊窗體，輸出結(jié)果是 C 。Private Sub Form_Click()Dim a As Integer, b As Integera = 3b = 5Print a + b。 a amp。 bEnd SubA) 8 8B) 35 35C) 8 35D) 35 87．下列程序運(yùn)行后，單擊窗體，輸出結(jié)果是 B 。Private Sub Form_Click() a = 3: b = 7 a = a + b : b = a – b : a = a b Print a。 bEnd SubA) 4 3B) 7 3C) 3 7D) 10 7 8．下面程序段所表示的數(shù)學(xué)關(guān)系式是 C 。 If (a b) Then If d = c Then x = 1 Else x = 2 End IfA) B) C) D) 9．下列程序運(yùn)行后，單擊窗體，輸出結(jié)果是 C 。Private Sub Form_Click() s = 0: k = 1 Do s = s + k: k = k + 1 Loop Until k = 5 Print sEnd SubA) 15B) 10C) 1D) 010．下列程序段的輸出結(jié)果是 B 。For k = 4 To 2 Step 2 m = k Next k Print m。 k。A) 2 2B) 2 0C) 2 1D) 0 0 11．用下面的語句定義數(shù)組，則數(shù)組中的元素個數(shù)是 D 個。Option Base 1 Dim A(1 To 2，5) As Integer A) 5B) 10C) 15D) 2012．下面程序段的輸出結(jié)果是 C 。Dim a(4) As Integer, s As IntegerFor k = 1 To 4 a(k) = 2 * kNext k For k = 1 To 4 Step 2 s = s + a(k) Print s。 Next kA) 8B) 20C) 2 8D) 2 6 12 2013．設(shè)有如下的用戶自定義類型Private Type Stu name As String * 10 age As IntegerEnd Type則以下正確引用該類型成員的代碼是 B 。A) =zhangB) Dim s As Stu = zhangC) Dim s As Type Stu = zhangD) Dim s As Type = zhang14．用“ B ”關(guān)鍵字聲明的變量稱為全局變量。A) PrivateB) PublicC) DimD) Static15．在窗體上放置一個文本框，程序運(yùn)行后，在文本框中輸入abc，但顯示的卻是***，可能的原因是該文本框的 D 屬性值已經(jīng)被設(shè)置為*。A) FontB) TextC) NameD) PasswordChar16．在VB ，Print是對象的 B 。A) 屬性B) 方法C) 事件D) 名稱17．在VB ，要判斷復(fù)選框是否為選中狀態(tài)，使用的屬性是 D 。 A) CaptionB) CheckedC) SelectedD) Value18．設(shè)列表框List1中共有3個列表項(xiàng)，如右圖所示。則下列語句中，能夠刪除最后一個列表項(xiàng)的是 A 。A) 2B) 項(xiàng)目CC) List1. ListcountD) List1. ListIndex19．組合框分為下拉式組合框、簡單組合框和下拉式