一、判斷題（錯(cuò)）任何控件都有一個(gè)Caption屬性。（對(duì)）對(duì)于事件驅(qū)動(dòng)型應(yīng)用程序，每次運(yùn)行時(shí)的執(zhí)行順序可以不一樣。（錯(cuò)）用以下語(yǔ)句定義：Dimmax,minasSingle,則max和min的數(shù)據(jù)類型均為Single。（對(duì)）通用對(duì)話框不能真正實(shí)現(xiàn)文件打開(kāi)、文件存儲(chǔ)、設(shè)置顏色、字體設(shè)置、打印等操作，如果想要實(shí)現(xiàn)這些功能則需要編程實(shí)現(xiàn)。（對(duì)）用Scale方法改變了窗體坐標(biāo)系后，窗體的Left、Top屬性值不變。（對(duì)）在某列表框中一共有5個(gè)選項(xiàng)，而當(dāng)選中第三項(xiàng)時(shí)，這時(shí)列表框的ListIndex屬性為2。（錯(cuò)，標(biāo)準(zhǔn)模塊文件格式為.bas）VB中工程文件是指與該工程有關(guān)的全部文件和對(duì)象，其擴(kuò)展名是.vbp；窗體文件包括窗體及其控件的正文描述，其擴(kuò)展名是.frm；標(biāo)準(zhǔn)模塊文件是可選的，其擴(kuò)展名是.cls。。（錯(cuò)，Clear方法）用Cls方法可以清除組合框中的所有表項(xiàng)。Frame控件可以作為其他控件的容器。（錯(cuò)）VisualBasic工具箱中的所有控件都具有寬度（Width）和高度（Height）屬性。二、單選題P的值為－3時(shí)，－P^2的值是___B_____。

A、9B、–9C、6D、-6以下程序段的執(zhí)行結(jié)果為_(kāi)____A_______。

A=0:B=1

Do

A=A+B

B=B+1

LoopWhileA<10

PrintA;B

A、105B、ABC、01D、1030設(shè)置列表框中列表數(shù)量的屬性是__B____。

A、ListB、ListCountC、ListIndexD、Columns要獲得當(dāng)前驅(qū)動(dòng)器應(yīng)使用驅(qū)動(dòng)器列表框的哪個(gè)屬性__B__。

A、PathB、DriveC、DirD、Pattern以下Case語(yǔ)句中錯(cuò)誤的是___C_____。

A、Case0To10B、CaseIs>10

C、CaseIs>10AndIs<50D、Case3,5,7,Is>10執(zhí)行語(yǔ)句s=Len(Mid("VisualBasic",0,5))后，s的值是___D_____。

A、VisualB、BasicC、6D、表達(dá)式有錯(cuò)以下關(guān)于函數(shù)過(guò)程的敘述中，正確的是___A_____。

A、函數(shù)過(guò)程形參的類型與函數(shù)返回值的類型沒(méi)有關(guān)系

B、在函數(shù)過(guò)程中，過(guò)程的返回值可以有多個(gè)

C、當(dāng)數(shù)組作為函數(shù)過(guò)程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以傳址方式傳遞

D、如果不指明函數(shù)過(guò)程參數(shù)的類型，則該參數(shù)沒(méi)有數(shù)據(jù)類型在窗體上畫(huà)一個(gè)名稱為T(mén)xtA的文本框,然后編寫(xiě)如下的事件過(guò)程：PrivateSubTxtＡ_KeyPress(keyasciiasinteger)

…………

EndSub

若焦點(diǎn)位于文本框中,則能夠觸發(fā)KeyPress事件的操作是____D____。

A、單擊鼠標(biāo)B、按下鍵盤(pán)上的“A”鍵

C、鼠標(biāo)滑過(guò)文本框D、按下鍵盤(pán)上的任意鍵執(zhí)行行下面的事件過(guò)程，在窗體顯示的內(nèi)容是___B_____。

PrivateSubCommand1_Click()

DimaAsVariant

a=Array(12,23,34,45,56)

Fori=1To3

PrintTrim(a(i));

NextI

EndSub

A、122334B、233445C、122334D、233445將圖形框（PictureBox）控件的AutoSize屬性設(shè)置為T(mén)rue后，則對(duì)于圖形框而言，____B____。

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

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

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

D、如果圖片的大小比圖形框小，則圖形框大小不發(fā)生變化。在圖形框控件picture1上坐標(biāo)(100,100)和(500,500)之間畫(huà)一條紅色直線，寫(xiě)作__C__。

A、Line(100,100)-(500,500)vbRed

B、Line(100,100)-(500,500)RGB(0,255,0)

C、picture1.Line(100,100)-(500,500)RGB(255,0,0)

D、picture1.Line(100,100)-(500,500)Red下列賦值語(yǔ)句中，___C_____是錯(cuò)誤的。

A、x=x+1B、x=x+yC、x+y=xD、x=4>6單擊滾動(dòng)條的滾動(dòng)箭頭時(shí)，產(chǎn)生的事件是____C______。

A、ClickB、ScrollC、ChangeD、Move在程序運(yùn)行期間可以用____D______函數(shù)把圖形裝入窗體、圖片或圖象框。

A、AutosizeB、StretchC、PictureD、LoadPicture在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：

PrivateSubCommand1_Click()

DimnumAsInteger

num=1

DoUntilnum>6

Printnum;

num=num+2.4

Loop

EndSub

程序運(yùn)行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是____B______。

A、13.45.8B、135C、147D、無(wú)數(shù)據(jù)輸出___C____對(duì)象具有Clear方法。

A、窗體B、復(fù)選框C、列表框D、圖片框設(shè)a=16，b=7，c=1，則表達(dá)式a\3+2=bAndc=91Mod3的結(jié)果_____A_____。

A、TrueB、FalseC、1D、出錯(cuò)信息設(shè)有如下通用過(guò)程：

PublicSubFun(a(),ByValxAsInteger)

Fori=1To5

x=x+a(i)

Next

EndSub

在窗體上畫(huà)一個(gè)名稱為T(mén)ext1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下的事件過(guò)程：

PrivateSubCommand1_Click()

Dimarr(5)AsVariant

DimnasInteger

Fori=1To5

arr(i)=i

Next

n=10

CallFun(arr(),n)

Text1.Text=n

EndSub

程序運(yùn)行后，單擊命令按鈕，則在文本框中顯示的內(nèi)容是A

A、10 B、15 C、25 D、24窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：

PrivateSubCommand1_Click()

DimnumAsInteger

Fornum=1To6Step3

Printnum;

Nextnum

Printnum

EndSub

程序運(yùn)行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是____C______。

A、144B、135C、147D、無(wú)數(shù)據(jù)輸出以下___A____方式打開(kāi)的文件只能讀不能寫(xiě)。

A、InputB、Output C、Append D、Random三、程序填空程序1．在C盤(pán)當(dāng)前文件夾下建立一個(gè)名為Data.txt的順序文件，要求用文本框輸入若干英文單詞，每次按下回車鍵時(shí)將文本框中的內(nèi)容寫(xiě)入文件，并清除文本框的內(nèi)容，直到文本框輸入END為止，最后關(guān)閉文件。PrivateSubForm_Load() （31）Text1.Text=""EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenIf（32）="END"Then（33）EndElse（34）Text1.Text=""EndIfEndIfEndSubOpen"C:\Data.txt"ForOutputAs#１

UCase(Text1.Text)Close#1Write#1,Text1程序2．下面程序的作用是利用隨機(jī)函數(shù)產(chǎn)生100個(gè)隨機(jī)整數(shù),范圍在[20，120]之間（包含20和120），打印其中為5或7的倍數(shù)的數(shù)，求出它們的總和并打印。請(qǐng)將下列程序補(bǔ)充完整。PrivateSubCommand1_Click()SUM=0Fori=1To100X=Int（（35））If（36）ThenSUM=SUM+X（37）EndIfNextiPrint"SUM=";SUMEndSubInt(Rnd*101+20)XMod5=0OrXMod7=0PrintX;程序3．單擊窗體后，用輸入對(duì)話框輸入x、n，然后按下式計(jì)算結(jié)果。要求：將計(jì)算結(jié)果以標(biāo)簽控件顯示，且標(biāo)簽控件每秒隨機(jī)變換一次顏色。S＝OptionExplicitPrivateSubForm_Load()Timer1.Interval=1000Timer1.Enabled=TrueEndSubPrivateSubForm_Click()DimxAsSingle,nAsInteger,iAsInteger,tAsSingle（38）s=0x=InputBox("x=")n=InputBox("n=")（39）fori=（40）t=t*x/is=s+tNexti（41）EndSubPrivateSubTimer1_Timer()Label1.BackColor=RGB(Rnd*255,Rnd*255,Rnd*255)EndSubDimsAsSinglet=12Ton+1Label1.Caption=s程序4．設(shè)計(jì)一個(gè)程序，用于從文本框Text1輸入課程名稱，單擊按鈕，添加到列表框（List1）中顯示出來(lái)。具體要求：?jiǎn)螕簟癈ommand1”按鈕，若文本框Text1.Text中不是空格串，并且列表中也沒(méi)有，則將該課程添加列表框中，然后清除文本框Text1的內(nèi)容，再將焦點(diǎn)返回到文本框Text1，以便再次在文本框Text1輸入內(nèi)容，繼續(xù)添加。PrivateSubCommand1_Click()DimIAsIntegerDimAddFlagAsBoolean（42）If（43）ThenFor