VB語言程序設計試題庫.doc

VB程序設計一、判斷題1. 同一Form窗體中的各控件可以相互重疊，其顯示的上下層次的次序不可以調整。（ X ）2. 一個對象的若能識別多個事件，我們只能對其中一個事件編程（ O ）3. 單選按鈕與復選框對象的Value屬性類型不同，且只能取值True和False。（ ）4. 事件過程由某個用戶事件或系統(tǒng)事件觸發(fā)執(zhí)行，它不能被其他過程調用。（ O ）5. 圖片框的Move方法不僅可以移動圖片框，而且還可以改變該圖片框的大小，同時也會改變該圖片框有關屬性的值。（ ）6. “A=B=C”是一個合法的Visual Basic語句。（ O ）7. 當在一個簡單組合框的文本框中輸入一個它的列表框中沒有的條目時，組合框會自動把這一條目添加到它的列表框中。（ O ）8. Visual Basic程序的運行可以從 Main（）過程啟動，也可以從某個窗體啟動。（ ）9. 在圖片框中放置的控件既可以在該圖片框內移動，也可以移出該圖片框外。（O ）10. 對于文件系統(tǒng)控件，當驅動器控件Drivel中的驅動器符改變時，文件夾列表控件Dir1中顯示的文件夾也作相應的改變，可以在Drive1中的Change事件中使用如下命令。Dir1. Path Drive1. Drive（ ）11. 滾動條控件可作為用戶輸入數據的一種方法。（ ）12. 單選按鈕控件和復選框控件都具有Value屬性，它們的作用完全相同。（ O ）13. 靜態(tài)變量是一種局部變量，當原過程再次被執(zhí)行時，靜態(tài)變量的初值是上一次過程調用后的值。（ ）14. Visual Basic提供的幾種標準坐標系統(tǒng)的原點都是在繪圖區(qū)域的左上角，如果要把坐標原點放在其他位置，則需使用自定義坐標系統(tǒng)。（ ）15注釋語句REM可自成一語句。（ ）16. 用鼠標選中某菜單控件時，觸發(fā)Click事件；而用鍵盤選中該菜單控件時，觸發(fā) KeyPress（ O）17. 組合框兼有文本框和列表框兩者的功能，用戶可以通過鍵人文本或選擇列表中的項目來進行選擇。（ ）18. 當定時器控件的Interval屬性值設置為0時，會連續(xù)不斷地激發(fā)Timer事件。（O ）19執(zhí)行程序 x=0:for I=2 to 10 step 2:x=x+10:next I后x的值為0。（ ）2.句“FontName=宋體 ”與“Form1.FontName=宋體 ”的作用完全相同，無一例外。（ O）21局變量只能在窗體的通用區(qū)內用Public或global定義。（ O ）22. 在盤驅動器列表框Drivel的Change事件過程中，代碼Dirl. PathDrivel . Drive的作用是：當Drivel的驅動器改變時，Dirl的目錄列表隨不同驅動器作相應改變。（ ）23直到型循環(huán)至少能執(zhí)行一次循環(huán)體。（ ）24. Variant是一種特殊的數據類型，Variant類型變量可以存儲除定長字符串數據及自定義類型外的所有系統(tǒng)定義類型的數據。Variant類型變量還可具有Empty、Error和Null等特殊值。（ ）25. 如果一個菜單項的 Visible屬性為False，則它的子菜單也不會顯示。（ ）26.運行程序后在同一窗體上不可能同時選中兩個單選鈕。（ O ）27. 窗體的 Enabled屬性值為 False時，該窗體上的按鈕、文本框等控件就不會對用戶的操作做出反應。（ ）28定時器的interval屬性值為0時，不會發(fā)生timer事件。（ ） 29. 框架控件和形狀控件都不能響應用戶的鼠標的單擊事件。（ O ）30. 在一個窗體的代碼中不能使用Unload語句來卸載本窗體，即一個窗體只能由其他窗體卸載。（ O ）31移動圖片框時,以該圖片框為載體的各控件的Left 和 Top屬性值不變。（ ）二單選題32. 組合框的Change（ ）事件在下列那種情況下發(fā)生？( C )A、在程序改變控件的大小時發(fā)生 B、用戶在下拉列表中改變選項時發(fā)生C、用戶在編輯文本區(qū)內容時發(fā)生 D、當程序改變組合框的Style屬性時發(fā)生33. 為了使標簽框的中的文字能自動折行，必須同時設置下面 兩個屬性為True。（ D ）A、Caption和AutoSize B、AutoSize和Aligment C、Visible 和Enable D、AutoSize 和WordWarp34.如果希望文件列表框只顯示可執(zhí)行文件，應該修改（ B ）屬性。A、Pattern B、Filter C、Path D、FileName35.為了使某個命令按鈕處于不可用狀態(tài)，應該設置該命令按鈕的 屬性。（ B ）A、Default B、Enabled C、Cancel D、TabIndex36.通用對話框控件的返回值FileName表示所選擇文件的（ B ） 。A、路徑名 B、全名 C、文件主名 D、文件擴展名37.關于單選按鈕和復選框，下列說法正確的是：( C )A、單選按鈕和復選框的Value屬性值可能是0或1B、同一窗體上的單選按鈕只能有一個處于選中狀態(tài)C、復選框不支持DblClick事件D、單選按鈕選中狀態(tài)的改變只能由用戶進行，而不能由程序設置38.下列控件中哪個控件沒有Change事件( D ) A、滾動條 B、目錄列表框 C、標簽 D、單選按鈕39.菜單項顯示分隔線是通過設置（ A ）屬性來實現的。A、Caption B、Visible C、Checked D、Enabled 40.運行時組合框控件Comb1中所選擇的表項，可以表示為（ C ）。A、Comb1.Text B、Comb1.List C、Comb1.ListIndex D、Comb1.ListCount41.要使Shape控件以實心方式填充，應該設置其（ B ）屬性。A、FillColor B、FillStyle C、BackStyle D、Shape42.向文本框中輸入一個字符，下列 事件不會發(fā)生。（ C ）A、Change B、KeyPress C、GotFocus D、KeyDown43.下面關于框架、復選框和單選鈕的敘述，正確的是 。（ B ）A、框架沒有Caption屬性，而復選框和單選鈕都有Caption屬性 B、一個框架中的復選框有可以多個被選中C、一個窗體中單選鈕有且只有一個可以被選中A、 可以把窗體中已存在的單選鈕拖到框架中，成為框架中的一員44.用戶在窗體上單擊時，將先后觸發(fā)該窗體的( D )A、MouseDown事件、Click事件、MouseMove事件、MouseUp事件B、Click事件、MouseDown事件 、MouseUp事件、MouseMove事件C、MouseDown事件、Click事件、MouseUp事件 、MouseMove事件D、MouseDown事件 、MouseUp事件、 Click事件、 MouseMove事件45.下面 方法不屬于列表框和組合框。（ A ） A、Cls B、AddItem C、GetFocus D、RemoveItem46.在圖片框控件Picture1上坐標(x,y)處畫一個綠色點，寫作( D ) 。 A、Pset(x,y),Rgb(0,255,0) B、Picture1.Pset(x,y),Green C、Pset(x,y),vbGreen D、Picture1.Pset(x,y),vbGreen 47.下面關于滾動條和計時器控件的敘述，其中錯誤的是 。（ B ）A、當滾動條的Value值改變時，發(fā)生Change事件B、當拖動滾動條時，釋放鼠標時發(fā)生Scroll事件C、計時器控件在運行時是不可見的D、計時器和滾動條控件都有Enable屬性48.單擊滾動條兩端的任一個滾動箭頭，將觸發(fā)該滾動條的 ( C ) 事件。A、Scroll B、KeyDown C、Change D、Dragover49.設置某子菜單項的Caption（標題）屬性為“畫圖（&D）”，ShortCut（快捷鍵）屬性為“Ctrl+L”。啟動工程時，下面 不會觸發(fā)該子菜單的Click事件。（ D ）A、打開主菜單，按D鍵 B、直接按Ctrl+L 鍵C、用鼠標單擊該子菜單項 D、打開主菜單，按Alt+D50.要改變控件的寬度，應修改該控件的 ( C ) 屬性。A、Top B、Left C、Width D、Height51.順序文件有三種打開方式，下面 種不是。（ A ）A、Random B、Input C、Output D、Append 52( C ) 對象不能作為控件的容器。A、Form B、PictureBox C、Shape D、Frame 53. 將命令按鈕Command1設置為不可見，應修改命令按鈕的 ( A ) 屬性。A、Visible B、Value C、Caption D、Enabled54下列數據類型中，占用內存最小的是( B ) 。A、Boolean B、Byte C、Integer D、Single55. ( D ) 對象具有Clear方法。A、圖片框 B、窗體 C、復選框 D、列表框56一個對象可以執(zhí)行的動作和可被對象識別的動作分別稱為( B ) 。A、事件、方法 B、方法、事件 C、屬性、方法 D、過程、事件57已知A、B、C中C最小，則判斷 A、B、C可否構成三角形 3條邊長的邏輯表達式是( B )。A、A=B And B=C And C0 B、ACB And BCA And C0C、(AB=C Or AC=C) And C0 D、ABC And ABC And C058.將通用 對話框CommonDialog1的類型設置成“另存為”對話框，可調用該控件的的 （ B ） 方法。A、ShowOpen B、ShowSave C、ShowColor D、ShowFont59下面( C )是日期型常量。A、“12/19/99” B、12/19/99 C、#12/19/99# D、12199960. 重新定義圖片框控件的坐標系統(tǒng)，可采用該圖片框的 （ A ） 方法。A、Scale B、ScaleX C、ScaleY D、SetFocus 61_D_ 對象不具有Caption屬性。DA、Label B、Option C、Form D、Timer62Integer類型的變量可存的最大整數是( D ) 。A、255 B、256 C、32768 D、3276763要改變控件的寬度，應修改該控件的( C )屬性。A、Top B、Left C、Width D、Height64.對于窗體級變量，以下說法錯誤的有： （ B ） A、所在窗體的各子程序都可以訪問 B、其他窗體的子程序不能訪問 C、所在窗體的子程序能訪問用Private定義的窗體級變量 D、一定要在所在窗體的通用區(qū)內定義65在窗體Forml的Click事件過程中有以下語句：（ C ）“Label1. Caption”“Visual Basic”若本語句執(zhí)行之前，標簽控件的Caption屬性為默認值，則標簽控件的Name屬性和Caption屬性在執(zhí)行本語句之前的值分別為 。 A、“Label” 、 “Label” B、“Labei1” 、 “Visual Basic” C、“Label1” 、 “Label1” D、Caption 、 “Label”66. 下面關于變量的作用域和生存周期的描述正確的是( C )A、全局變量可在窗體的通用區(qū)內定義 B、窗體級變量與靜態(tài)變量具有相同的作用域和生存周期C、同一過程中用“ Dim ”定義的局部變量和用“ Static ”定義的局部變量具有相同的作用域D、同一過程中用“ Dim ”定義的局部變量和用“ Static ”定義的局部變量具有相同的生存周期67一個菜單項是不是一個分隔條，由( B ) 屬性決定。A、Name（名稱） B、Caption CEnabled D、Visible68.Integer類型的變量可存的最大整數是 。（ D ） A、255 B、256 C、32768 D、3276769下面( B )對象在運行時一定不可見。A、Line B、Timer C、Text D、Option70 形狀控件所顯示的圖形不可能是( D )。A、圓 B、橢圓 C、圓角正方形 D、等邊三角形 71以下( A )方式打開的文件只能讀不能寫。A、Input B、Output C、Random D、Append72. 對象不具有Caption屬性。（ D ）A、Label B、Option C、Form D、Timer73由 For k35 TO 0 Step 3： Next k 循環(huán)語句控制的循環(huán)次數是( A ) A、0 B、12 C、-11 D、-1074.以下( A )方式打開的文件只能讀不能寫。A、Input B、Output C、Random D、Append75.由 For k35 TO 0 Step 3： Next k 循環(huán)語句控制的循環(huán)次數是( A )A、0 B、12 C、-11 D、-1076.想要改變控件在窗體中的左右位置，可以修改該控件的( B )屬性。A、Top B、Left C、Width D、Right77.要在文件列表框中顯示不同類型的文件可以通過設置( A )屬性A、Pattern B、Path C、Filename D、ListIndex78.窗體的DrawWidth屬性值設置為大于1時，下列( C )屬性會失去作用A、Backcolor B、FillStyle C、Drawstyle D、Fillcolor79如果在圖片框上使用繪圖方法繪制一個圓，則圖片框的( A )屬性不會對該圓的外觀產生影響。A、Backcolor B、ForeColor C、DrawWidth D、Drawstyle80. 菜單編輯器中呈現以下狀態(tài)，程序運行后下列( D )操作無法執(zhí)行“復制”功能A、 打開“編輯”菜單后按下“C”B、直接按下 Ctrl+C C、鼠標單擊“復制”菜單項D、 “ Alt+E ”“ Alt+C ” 三填空題81VB的字符串運算符有 _+_ 和 & 兩種,其中運算符兩邊的表達式類型必須為字符型的運算符是_&_ 。82. 設x=6,y=4,z=7,下面表達式的值是true _xy and yx-z or xz 83. 設n是一個自然數，那么求n的位數L的表達式可以是L= _ len(str(n)-1_。例如：若n=12345，則L=584. 在打開某窗體時，初始化該窗體中的各控件，應選用load事件。85滾動條的當前值用 _ value _表示。 86. 設x為大于零的實數，則大于x的最小奇數的Visual Basic表達式是(Int(x)+1)2)*2+l（或（Fix(x)+1）2）*2+1）。87. 在代碼設計中，為了給某控件的BackColor屬性賦一個顏色值，可以有三種方法獲得顏色，它們分別是QBColor()函數、顏色常數和_ RGB( ) 函數_。88. a1和a2之中有且只有一個與a3的值相等，相應的Visual Basic邏輯表達式是a1=a3 Xor a2=a3（或a1=a3 And aa3 Or a1a3 And a2=a3） 。89. 以圖片框Picture1的中心為圓心，以1000為半徑在Picture1上畫一個圓的方法是 _ picture1.circle (picture1.width/2,picture1.height/2),1000_ 。90. 設init的初值為10 ，則由下列循環(huán)語句控制的循環(huán)次數是 6 。Do While init =5Init=init-1Loop91. 窗體的 Enabled屬性值為_ False _時，該窗體上的按鈕、文本框等控件就不會對用戶的操作做出反應。92. 在Visual Basic中，變量從它的作用范圍來看?？煞譃槿肿兞?、模塊級變量和局部變量3種。93Visual Basic提供了對文件的三種存取方式,分別是 _ Input _ 、_ output _ 和 _ Append _ 。 94. 8語句Picture1.Circle(800,1000),500的含義是以圖片框Picture1中的（800，1000）為圓心，以500為半徑畫一個圓。95.用Visual Basic開發(fā)應用程序的三步曲是：_界面設計_、_屬性設置_和_代碼設計_。 96在VB中,若要產生一消息框,則可用函數_ msgbox _ 來實現。 97.已知n為一個三位正整數，寫出求n中十位數的Visual Basic表達式_(n10) mod 10_。98若要獲得用戶在驅動器列表控件中所選擇的驅動器,可通過訪問該對象的_ Drive _ 屬性來實現。99. 表達式（4.82）*7 Mod 3.14的運行結果是_2_。100. 目錄列表框（DirListBox）中，當前文件夾對應項目的ListIndex屬性值為_ -1 _。101利用Line方法可以畫 _直線_ 、_矩形_ 和 _實心矩形_ 。102Visual Basic的菜單可分為 _下拉式_ 菜單和 _彈出式_ 菜單兩種。 103.在Visual Basic中，_文件列表框_和 _通用對對話框_控件具有Filename屬性。104在VB中,用于產生輸入對話框的函數是_ Inputbox _，其返回值類型為_字符型_ ，若要利用該函數接收數值型的數據，則可利用_ Val _ 函數對其返回值進行轉換而得到。 105.用PictureBox和Image控件裝載圖形圖像時，為了使圖形圖像與所在的控件大小相等，可以改變106.形狀的Shape屬性可以取_6_個值，分別代表各種不同的形狀。 107.如果在圖片框上使用繪圖方法繪制一個圓，則圖片框的_ Backcolor _屬性不會對該圓的外觀產生影響。PictureBox的_ stretch _ 屬性和Image的_ autosize _ 屬性。108 求與之積除以的余數，用 VB表達式為 _mod(a*b)/c) _ 。109. Visual Basic常見控件中可以作為其他控件容器的控件有_框架_ 和_圖片框_ 。110Visual Basic的菜單可在_菜單編輯器_中設計完成。若要使某項菜單在運行時不可見,可設置該菜單對象的_Visible _ 屬性為False來實現；若要使某項菜單在運行時失效,則應設置菜單項對象_ Enabled _屬性為False。111. 在代碼設計中，為了使定時器Timer1能處于關閉狀態(tài)，使系統(tǒng)不響應它的Timer()事件，可以設置Timer1.Enabled=False 或_ timer1.Interval=0_。112. 表達式Chr(Asc(“R”)- Asc(“A”) +Asc(“a”)的值是_ r _。113Print Mid$(Str$(-1234),3，2)的結果為_23_ 。程序閱讀題四、閱讀下列程序，寫出運行結果。1、 程序1Private Sub Command1_Click()Dim x As Integer, s As Integerx = Val(InputBox(請輸入一個正整數=)If x ia = a + xx = x + 3LoopEnd Sub寫出程序運行時連續(xù)3次單擊Command1后，a1.dat文件的最終結果。程序閱讀題答案 ：1. s=5s=10s=402. w=3 k=2w=4 k=4w=5 k=6w=6 k=83. LHFDB 4. y=5 a=5y=15 a=10y=30 a=15 五.程序填空題仔細閱讀下列各小題的程序說明和相應的程序，在每小題提供的若干可選答案中，挑選一個正確答案。1. 【程序說明】本程序求3100之間的所有素數（質數）并統(tǒng)計個數，同時將這些素數從小到大依次寫入順序文件 e：dataout.txt，素數的個數顯示在窗體Form1上。【程序】Private Sub Command1_Click()Dim count As Integer, flag As BooleanDim ti As Integer, t2 As Integer（1）count = 0For ti = 3 To 100flag = TrueFor t2 = 2 To Int(Sqr(t1)If （2） Then flag FalseNext t2（3）count = count + 1Write #1, t1End IfNext t1（4） Close #1End Sub（1）A、Open e:dataout.txt For Output As #1B、Open e:dataout.txt For Input As #1C、Open e:dataout.txt For Output As #2 D、Open e:dataout.txt For Output As #1(2) A、t2t1=0 B、t1 Mod t2=0 C、t1t2=0 D、t2 Mod t1=0（3）A、If flag Then B、If t2t1 ThenC、If t1t2 Then D、If t2int(sqr(t1) Then(4) A、 Forml.Print素數個數： ; count B、 Print #l 素數個數：;CountC、 Form1.Print素數個數：； count D、 Form1.Print素數個數： Count2. 程序說明由輸入對話框輸入n（設n為大于零且小于30的自然數），計算下列表達式并在標簽框Label1上顯示。/(*2)+1/(2*3)+1/(3*4)+1/(n*(n+1)【程序】Private Sub Form_Click()Dim n As Integer, sum As Double, k As IntegerDo （5）n = Val(InputBox(n=, 請重輸)Loopsum = 0（6）Dok = k + 1sum= （7）Loop Until k = nLabel1.Caption = Sum + Str(sum)End Sub(5) A、While n=30 B、While n=30C、Until n0 Or n =0 and n Len(Str1)/2 D、Until m A And （5） ) Or (Ch a And Ch z) ThenSt2 = St2 + ChEnd IfNext iText1.Text = （6） End Sub3. 下面的程序完成以下功能：窗體上有兩個命令按鈕“產生”（Command1）和“排序”（Command2）。單擊“產生”按鈕時，隨機產生10個1，20范圍內的整數放在數組A中，并在窗體上輸出。單擊“排序”按鈕時，用選擇法排序這10個數并輸出。Dim A(10) As IntegerPrivate Sub Command1_Click()Dim i As IntegerRandomizePrint 排序前的數列：For i = 1 To 10A(i) = （7） Print Str(A(i) + ;Next iPrintEnd SubPrivate Sub Command2_Click()Dim i, j, Min, Temp As IntegerPrintPrint 選擇排序后的數列：For i = 1 To 9Min = A(i)For j = （8） To 10If A(j) Min ThenTemp = A(j)A(j) = （9） Min = TempEnd IfNext jA(i) = Min（10） For i = 1 To 10Print Str(A(i) + ;Next iPrintEnd Sub程序填空題答案 ：(1) n*Jc(n-1) (2) result (3) string (4) len(str) (5) ch=0. 00000001八、1. 分別寫出下面兩段程序執(zhí)行三次后的結果。Private Sub Form_Click()Dim i As IntegerStatic j As Integerj = j + 1i = i + 1Print i=; Str(i), j=; Str(j)End SubDim i, j As IntegerPrivate Sub Form_Click()j = j + 1i = i + 1Print i=; Str(i), j=; Str(j)End Sub參考答案：1左:右:I=1j=1I=1j=1I=1j=2I=2j=2I=1j=3I=3j=3九. 寫出下面程序執(zhí)行后的結果（其中在Form_Click()事件中調用了子過程Proc）。Private Sub Form_Click()Dim x, y As IntegerDim u, v As Integerx = 1y = 2u = 3Proc x, yu = u + x + yPrint x=; Str(x), y=; Str(y), u=; Str(u)End Sub Private Sub Proc(ByVal a As Integer, ByRef b As Integer)Dim u As Integera = a + 1b = b + 1u = u + a + bPrint a=; Str(a), b=; Str(b), u=; Str(u)End Sub程序閱讀題答案： 2a=2b=3u=5x=1y=3y=5十用輸入對話框輸入x，根據下式計算對應的y，并在窗體上輸出y的值。注：程序寫在命令按鈕Commandl的Click事件中。答案程序如下： Private Sub Command1_Click() Dim x As Single x = Val(InputBox(x=, 請輸入數據) Select Case x Cas