1、廣東藥學(xué)院 VB練習(xí)一練習(xí)一一、單選題一個(gè)完整計(jì)算機(jī)系統(tǒng)應(yīng)包括_(1)_B_。(A)主機(jī)、鍵盤、和顯示器(B)硬件系統(tǒng)和軟件系統(tǒng)(C)主機(jī)和其他外部設(shè)備(D)系統(tǒng)軟件和應(yīng)用軟件打印機(jī)屬于計(jì)算機(jī)部件中的_(2)_A_。(A)輸出設(shè)備(B)輸入設(shè)備(C)存儲(chǔ)設(shè)備(D)緩沖設(shè)備下列表示存儲(chǔ)容量的數(shù)據(jù)中，_(3)_C_是最大的。(A)20480KB(B)1.44MB(C)1GB(D)4865723Byte在計(jì)算機(jī)內(nèi)部能夠直接執(zhí)行的程序語(yǔ)言是_C_(4)_。(A)數(shù)據(jù)庫(kù)語(yǔ)言(B)高級(jí)語(yǔ)言(C)機(jī)器語(yǔ)言(D)匯編語(yǔ)言下列敘述正確的是_(5)_C_。(A)程序設(shè)計(jì)就是編制程序(B)程序的測(cè)試必須由程序員自己

2、去完成(C)程序經(jīng)調(diào)試改錯(cuò)后還應(yīng)進(jìn)行再測(cè)試(D)程序經(jīng)調(diào)試改錯(cuò)后不必進(jìn)行再測(cè)試以下敘述中錯(cuò)誤的是_(6)_C_。(A)Visual Basic是事件驅(qū)動(dòng)型可視化編程工具(B)Visual Basic應(yīng)用程序不具有明顯的開(kāi)始和結(jié)束語(yǔ)句(C)Visual Basic工具箱中的所有控件都具有寬度（Width）和高度（Height）屬性(D)Visual Basic中控件的某些屬性只能在運(yùn)行時(shí)設(shè)置以下不屬于VB工作模式的是_(7)_A_模式。(A)編譯(B)設(shè)計(jì)(C)運(yùn)行(D)中斷以下語(yǔ)句的輸出結(jié)果是_(8)_C_。Print Format$(32548.5,“000,000.00”)(A)32548

3、.5(B)32,548.5(C)032,548.50(D)32,548.50若要使某可見(jiàn)控件獲得焦點(diǎn)，則可使用_(9)_B_方法來(lái)實(shí)現(xiàn)。(A)Refresh(B)SetFocus(C)Value(D)GotFocus在下列說(shuō)法中，正確的是_(10)C_。(A)通過(guò)適當(dāng)?shù)脑O(shè)置，可以在程序運(yùn)行期間，讓時(shí)鐘控件顯示在窗體上(B)在列表框中不能進(jìn)行多項(xiàng)選擇(C)VB系統(tǒng)不能在列表框中自動(dòng)實(shí)現(xiàn)將項(xiàng)目按字母順序從大到小排列(D)復(fù)選框的Value屬性值為布爾型執(zhí)行以下程序段，輸出的結(jié)果為_(kāi)(11)_B_。abbacddcbaFor i=6To2Step-2x=Mid(a,i,i):y=Left(a,i)z

4、=Right(a,i):z=UCase(X&Y&z)Next iPrint z(A)ABA(B)BBABBA(C)ABBABA(D)AABAAB控件在窗體上的位置是由_(12)B_屬性確定的。(A)Width和Height(B)Top和Left(C)Width和Left(D)Top和Width關(guān)于Name屬性，以下敘述中_(13)_A_是正確的。(A)窗體的Name屬性指定窗體的名稱，用于標(biāo)識(shí)一個(gè)窗體。(B)窗體的Name屬性用于設(shè)置顯示在窗體標(biāo)題欄的文本。(C)可以通過(guò)代碼在程序運(yùn)行中改變某個(gè)對(duì)象的Name屬性值。(D)對(duì)象的Name屬性值可以設(shè)置為空。下列名稱中_(14)_C_可以作為VB

5、的變量名。(A)mod(B)m-d(C)tempVal(D)left要求出變量x和y中較大的一個(gè)并保存在變量Max中，下面的程序段中_(15)D_是不正確的。(A)Max=IIf(xy,x,y)(B)If xy Then Max=x Else Max=y(C)Max=xIf y=x Then Max=y (D)If yx Then Max=yMax=x執(zhí)行以下語(yǔ)句后，a的值為_(kāi)(16)_C_Dim a As Integera=1Do Until a=100a=a+2Loop(A)102(B)100(C)溢出(D)101對(duì)于語(yǔ)句If a=b Then c=d的語(yǔ)法分析，_(17)_B_是正確的。

6、(A)a=b和c=d都是賦值語(yǔ)句(B)a=b是關(guān)系表達(dá)式，c=d是賦值語(yǔ)句(C)a=b和c=d都是關(guān)系表達(dá)式(D)a=b是賦值語(yǔ)句，c=d是關(guān)系表達(dá)式運(yùn)行下列程序段，單擊兩次命令按鈕，則第二次單擊時(shí)窗體中顯示的結(jié)果是_A_。Private Sub Command1_Click()Dim a As IntegerStatic b As Integera=a+5:b=b+5Print a,bEnd Sub(A)510(B)55(C)1010(D)00在系統(tǒng)默認(rèn)的情況下，Dim a(3,4,2To5)定義的數(shù)組共有_(19)_D_個(gè)元素。(A)36(B)48(C)60(D)80下面的子過(guò)程定義語(yǔ)句中

7、沒(méi)有語(yǔ)法和邏輯錯(cuò)誤的是_C_(20)_。(A)Sub S1(ByVal n%()(B)Sub S1(n As Integer)As Integer(C)Function S1(ByVal n As Integer)(D)Function S1%(ByVal S1As Integer)執(zhí)行了下面程序后，組合框中數(shù)據(jù)項(xiàng)的值是_(21)_B_。Private Sub Form_Click()For i=1to6Combo1.AddItem iNext iFor i=1to3Combo1.RemoveItem iNext iEnd Sub(A)156(B)135(C)456(D)246設(shè)窗體上有一個(gè)列

8、表框控件List1，且其中含有若干列表項(xiàng)。則以下能表示當(dāng)前被選中的列表項(xiàng)內(nèi)容的是_(22)_D_.(A)List1.List B）List1.ListIndex(C)List1.Index(D)List1.Text在窗體上畫一個(gè)名稱為Command1的命令按鈕和一個(gè)名稱為Text1的文本框，然后編寫如下事件過(guò)程：Private Sub Command1_Click()n=Val(Text1.Text)For i=2To nFor j=2To sqr(i)If i Mod j=0Then Exit ForNext jIf jSqr(i)Then Print iNext iEnd Sub該事件過(guò)程

9、的功能是_(23)_C_(A)輸出n以內(nèi)的奇數(shù)(B)輸出n以內(nèi)的偶數(shù)(C)輸出n以內(nèi)的素?cái)?shù)(D)輸出n以內(nèi)能被j整除的數(shù)如果要在菜單中添加一個(gè)分隔線，則應(yīng)將其標(biāo)題屬性設(shè)置為_(kāi)(24)_D_。(A)=(B)*(C)&(D)-以下關(guān)于文件的敘述中正確的是_(25)B_。(A)一個(gè)記錄中所包含的各元素的數(shù)據(jù)類型都是相同的(B)隨機(jī)文件中每個(gè)記錄的長(zhǎng)度是固定的(C)Open命令的作用是打開(kāi)一個(gè)已經(jīng)存在的文件(D)使用Input#語(yǔ)句可以從隨時(shí)機(jī)文件中讀取數(shù)據(jù)以下定義數(shù)組或給數(shù)組元素賦值的語(yǔ)句中，正確的是_(26)_A。(A)Dim a As Variant(B)Dim a(10)As Integera

10、=Array(1,2,3,4,5)a=Array(1,2,3,4,5)(C)Dim a%(10)(D)Dim a(3),b(3)As Integera(1)=ABCDEa(0)=0:a(1)=1:a(2)=2:b=a窗體中有一個(gè)命令按鈕，編寫如下程序，程序運(yùn)行后，輸出結(jié)果為_(kāi)(27)_D_。Private Sub test(p,m,n) p=p+1:m=m+1:n=n+1 Print“Sub:”;p;m;n End Sub Private Sub Command1_Click() a1=1:b1=2:c1=3Call test(a1,b1+3,(c1) Print“Main:”;a1;b1;c

11、1 End Sub(A)Sub:264Main:264(B)Sub:264Main:164(C)Sub:264Main:123(D)Sub:264Main:223以下語(yǔ)句用于打開(kāi)一個(gè)順序文件OpenC:MyFile.txtFor OutPut，但是該語(yǔ)句的一個(gè)重要錯(cuò)誤是沒(méi)有_(28)_B_。(A)指定打開(kāi)方式(B)指定文件號(hào)(C)指定打開(kāi)文件名(D)指定文件類型在窗體上畫一個(gè)名稱為L(zhǎng)abel1、標(biāo)題為“VisualBasic考試”的標(biāo)簽，兩個(gè)名稱分別為Command1和Command2、標(biāo)題分別為“開(kāi)始”和“停止”的命令按鈕，然后畫一個(gè)名稱為Timer1的計(jì)時(shí)器控件，并把其Interval屬性

12、設(shè)置為500。編寫如下程序：Private Sub Form_Load()Timer1.Enabled=FalseEnd SubPrivate Sub Command1_Click()Timer1.Enabled=True End Sub程序運(yùn)行后，單擊“開(kāi)始”按鈕，標(biāo)簽在窗體中移動(dòng)。對(duì)于這個(gè)程序，以下敘述中錯(cuò)誤的是_(29)_A_(A)標(biāo)簽的移動(dòng)方向?yàn)樽杂蚁蜃?B)單擊“停止”按鈕后再單擊“開(kāi)始”按鈕，標(biāo)簽從停止的位置繼續(xù)移動(dòng)(C)當(dāng)標(biāo)簽全部移出窗體后，將從窗體的另一端出現(xiàn)并重新移動(dòng)(D)標(biāo)簽按指定的時(shí)間時(shí)隔移動(dòng)設(shè)有如下程序，通過(guò)For 循環(huán)計(jì)算一個(gè)表達(dá)式的值，這個(gè)表達(dá)式是_(30)_C _

13、：Private Sub Command1_Click()Dim sum As Double,x As Double sum =0:n =0For i =1To 5x =n /i:n =n +1:sum =sum +xNext End Sub(A)1+1/2+2/3+3/4+4/5(B)1+1/2+2/3+3/4(C)1/2+2/3+3/4+4/5(D)1+1/2+1/3+1/4+1/5二、填空題Visual Basic 中有三種類型的模塊文件，即類模塊、標(biāo)準(zhǔn)模塊和_1_窗體_模塊。將數(shù)學(xué)式|33ab y 寫成VB 表達(dá)式，應(yīng)該是_2Sqr(y3+3/abs(a*b)_。賦值語(yǔ)句：a=123+

14、MID(123456,3,2)執(zhí)行后，a 變量中的值_3_157_。Visual Basic 提供的對(duì)數(shù)據(jù)文件的三種訪問(wèn)方式為順序訪問(wèn)方式、_隨機(jī)訪問(wèn)方式_4_和二進(jìn)制訪問(wèn)方式。執(zhí)行下列語(yǔ)句序列，顯示的結(jié)果是_5_False 或0_。a =2:b =3:c =4:d =5Private Sub Timer1_Timer()If Label1.Left2*b Or a=c And bc Or cd運(yùn)行下列程序，單擊命令按鈕，則Text1中顯示_6_5_，窗體中顯示_7_0_。Private Sub Command1_Click()Dim i As Integer,j As Integer,a(5

15、,4)As IntegerFor i=2To3For j=2To4a(i,j)=i+jNext jNext iText1.Text=a(3,2)Print a(3,1)End Sub如下圖，窗體上有兩個(gè)命令按扭C1,C2及一個(gè)文本框Text1，當(dāng)按下C1時(shí)，將C2的標(biāo)題與Text1中的內(nèi)容交換。Private Sub C1_Click()Dim a As StringForm1.Caption=交換后a=_8_Text1.TextText1.Text=_9_C2.CptionC2.Caption=aEnd Sub請(qǐng)完善以下判斷完數(shù)的程序。一個(gè)數(shù)如果恰好等于它的因子之和，這個(gè)數(shù)就被稱為“完數(shù)”。

16、一個(gè)數(shù)的因子是指除了該數(shù)本身以外能夠被其整除的數(shù)。例如6是一個(gè)完數(shù)，因?yàn)?=1+2+3。Private Sub CmdJudge_Click()C1C2Dim a()m =Val(Text1.Text)ReDim a(1)a(1)=1k =_10_1或a(1)j =1For i =2To m -1If m Mod i =0Then k =k +i 因數(shù)和j =j +1因數(shù)個(gè)數(shù)ReDim a(j)a(j)=_12_i_End If Next I(轉(zhuǎn)右)編寫程序。在窗體上顯示如下圖所示的“九九加法表”。15option_ExplicitPrivate Sub Form_Click()Dim i%,

17、j%Print +123456789For i =1To _16_9_Print i;For j =1To _17_I_If i +j =AAnd chmax Then max=A(i):x=iNext iLabel1.Caption=使用頻率最高的是&Chr(x+64)&，共出現(xiàn)&max&次。End Sub157練習(xí)一參考答案：一、選擇題12345678910B AC C C C A C B C20B B ACD C B A D C30B DCD B A D B A C二、填空題1、窗體2、3、4、隨機(jī)訪問(wèn)方式5、6、57、08、Text1.Text9、C2.Caption10、1或a(1)11、Preserve12、i13、k=m14、a(i)或a(UBound(a)15、Option16、917、I18、then19、i+j20、Print21、a()或a22、Ubound(b)或1023、n=n-1或n=10I24、For Append25、Print#1,s或Write#1,s三、編程題1、Function Gcd(Byval m As Integer,Byval n As Integer)As IntegerDim r As IntegerEnd Function2、Option Base1Private Sub Command1_C