程序設(shè)計基礎(chǔ)復(fù)習(xí)題一

判斷題（錯）事件過程由某個用戶事件或系統(tǒng)事件觸發(fā)執(zhí)行，但不能被其他過程調(diào)用。（錯）若X＝2,Y＝5，則表達式Y(jié)－2>XANDX＋2＞Y的結(jié)果為：True。（錯）常量是指在程序運行過程中其值可以改變的那些量。（錯，timer沒有）VB工具箱中的所有控件都具有寬度（Width）和高度（Height）屬性。（錯）定義變量：Dimmax,minasSingle,則max和min的數(shù)據(jù)類型均為Single。（對）如果創(chuàng)建的菜單項的標題是一個減號“-”，則該菜單項顯示為一條分隔線。（錯）標準模塊文件的擴展名是“*.VBP”。（錯，都不能）定時器控件可以響應(yīng)Click事件，但不能響應(yīng)DbClick事件。（錯）在默認情況下，數(shù)組下標下界的缺省值為1。（對）在使用字體對話框時，需要對其Flags屬性先進行相應(yīng)設(shè)置。單選題在VisualBasic中，表示鼠標單擊事件的是C。A）ActivateB）DoubleClickC）ClickD）MouseDown用于設(shè)置計時器時間間隔的屬性是A。A）IntervalB）NameC）LeftD）Top函數(shù)Int(10*Rnd)是在D范圍內(nèi)的整數(shù)。

A）[1，10] B）[1，10] C)[0，9) D）[0，9]Selectcase語句結(jié)構(gòu)的結(jié)尾應(yīng)使用D。A）EndB）EndCaseC）EndSubD）EndSelect改變了容器的坐標系后，該容器的A屬性值不會改變。

A）leftB）scaleleftC）scaletopD）scalewidth執(zhí)行下列語句后，列表框中各表項順序為DList1.Clear Fori=1to4:List1.AddItemi-1,0：NextiA）B）C）D）輸入對話框InputBox的返回值的類型是A。A）字符串B）整數(shù)C）浮點數(shù)D）長整數(shù)將焦點主動設(shè)置到指定的控件或窗體上，應(yīng)采用B方法。A）SetDateB）SetFocusC）SetTextD）GetData有如下程序段：

DimIAsInteger,SAsInteger

S=1

FORI=1TO8STEP2

S=S*I

NEXTI

PRINT“S=“;S

運行結(jié)果為B

A）S=9B）S=105C）S=1D）S=16利用以下___D____語句，可以輸出日期和時間信息。A）PrintDateB）PrintMonthC）PrintTimeD）PrintNow一只漂亮的酒杯被摔碎了，則漂亮，酒杯，摔是___D____。

A）對象，屬性，事件B）對象，屬性，方法

C）屬性，對象，方法D）屬性，對象，事件將通用對話框以“打開文件對話框”方式打開，則選以下

A

方法。A)ShowOpen B）ShowColor C）ShowSave D）ShowFont執(zhí)行語句“Line(100,100)-(150,200),vbBlue,B”,在窗體上繪制出一個矩形，那么該矩形的面積=A。A）5000B）10000C）15000D）20000如何使一個標簽或按鈕控件在運行時不可用___C____。

A）把它的Visible屬性設(shè)置成FalseB）把它的Visible屬性設(shè)置成True

C）把它的Enabled屬性設(shè)置成FalseD）把它的Enabled屬性設(shè)置成True下列C表達式的結(jié)果為"1234556789"。A）Trim("12345"+"56789")B）Ltrim("12345")+Rtrim("56789")C）Rtrim("12345")&("56789") D）Ltrim("12345")&Rtrim("56789")將圖形框（PictureBox）控件的AutoSize屬性設(shè)置為True后，則對于圖形框而言，____B____。

A）圖形框中的圖片自動改變大小適應(yīng)圖形框

B）圖形框自動改變大小適應(yīng)其中的圖形

C）如果圖片的大小比圖形框大，則圖形框自動裁剪圖象以適應(yīng)圖形框的大小。

D）如果圖片的大小比圖形框小，則圖形框大小不發(fā)生變化。要獲得當(dāng)前驅(qū)動器應(yīng)使用驅(qū)動器列表框的哪個屬性B。

A）PathB）DriveC）DirD）Pattern以下關(guān)于函數(shù)過程的敘述中，正確的是____A____。A）函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系

B）在函數(shù)過程中，過程的返回值可以有多個

C）數(shù)組作為函數(shù)過程的參數(shù)時，既能以傳值方式傳遞，也能以傳址方式傳遞

D）如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型單擊滾動條的滾動箭頭時，產(chǎn)生的事件是___C____。A）ClickB）ScrollC）ChangeD）Move以下能返回文件長度的函數(shù)是__B___。A）BOFB）LOFC）LEND）EOF程序填空題【程序填空1】在C盤當(dāng)前文件夾下已存在名為Data.txt的文件，利用文本框（Text1）輸入若干英文單詞。要求每輸入一個單詞后，按下回車鍵將文本框中的單詞寫入文件，然后清除文本框的內(nèi)容以便輸入下一個單詞。當(dāng)在文本框中輸入的單詞是“END”時，則表示結(jié)束輸入（對于單詞“END”不論大小寫都視為結(jié)束），最后將文件關(guān)閉。PrivateSubForm_Load() （31）Text1.Text=""EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenIf（32）="END"ThenClose#EndElse（33）Text1.Text=""EndIfEndIfEndSubOpen"C:\Data.txt"ForOutputAs#１

UCase(Text1.Text)Write#1,Text1【程序填空2】程序運行后如下圖所示，Label1的Caption顯示為"字體定時變大"，影響字體大小的屬性每隔0.5秒增加1，數(shù)值在[8，72]之間變化。OptionExplicitPrivateSubForm_Load()Timer1.Enabled=True（34）Label1.Caption="字體定時變大"EndSubPrivateSubTimer1_Timer()StaticiAsIntegerIfi<7Ori>=72Theni=7i=i+1（35）EndSub Timer1.Interval=500

Label1.FontSize=i 【程序填空3】已知五個數(shù)存放在數(shù)組中，用冒泡法對該數(shù)組進行遞減排序（冒泡法：一旦發(fā)現(xiàn)數(shù)組中兩個數(shù)逆序馬上交換這兩個數(shù)）。PrivateSubCommand1_Click()Dima(1To5)AsIntegerDimn%,i%，j%,t%a(1)=53:a(2)=34:a(3)=45:a(4)=89:a(5)=23Fori=1To4（確保第i輪循環(huán)后，a(i)位置上存放第i大的數(shù)）Forj=5Toi+1St