202022學(xué)年上學(xué)期高職班VB作業(yè)練習(xí)六

2022-2022學(xué)年上學(xué)期高職班VB作業(yè)練習(xí)六一、選擇題（30*4分=120分）20.在VisualBasic設(shè)計(jì)界面中不能隱藏的窗口是()。A.工程窗口B.屬性窗口C.立即窗口D.窗體窗口21.以下可以構(gòu)成語(yǔ)句的一項(xiàng)是(

)

。A.對(duì)象名.屬性B.對(duì)象名.方法名C.對(duì)象名.事件名D.對(duì)象名.函數(shù)名22.以下不是VisualBasic的特點(diǎn)的選項(xiàng)是(

)

。A.可視編程B.算法設(shè)計(jì)C.事件驅(qū)動(dòng)D.面向?qū)ο?3.在VisualBasic中通過(guò)屬性來(lái)設(shè)置字體的大小(

)

。24.確定一個(gè)窗體在屏幕上的位置的屬性是________。A、Width或Height

B、Width和HeightC、Top或Left

D、Top和Left25.要使標(biāo)簽中的文本靠右顯示，則應(yīng)將其Alignment屬性設(shè)置為

。

26.表達(dá)式8/3Mod8\2值為（

）

A、1

B、2

C、3

D、027.下列語(yǔ)句中正確的是

。"123"表達(dá)式Int(Rnd(x)*3+1)產(chǎn)生區(qū)間（

）內(nèi)的隨機(jī)整數(shù)

A、[1，4]

B、(1，4)

C、（2，3）D、[1，3]29.語(yǔ)句X=X+1的正確含義是

。A.變量X的值與X+1的值相等

B.將變量X的值存到X+1中去C.將變量X的值加1后賦給變量X

D.變量X的值為130.表達(dá)式XAndY>X+1是()A、算術(shù)表達(dá)式

B、非法表達(dá)式

C、邏輯表達(dá)式

D、關(guān)系表達(dá)式二、填空題（20*4分=80分）16.只能通過(guò)屬性窗口設(shè)置的屬性稱(chēng)為

____(2)_______。中應(yīng)用程序的開(kāi)發(fā)主要是在___(3)_____設(shè)計(jì)器上完成的。18.在VB中，要將窗體Form1從內(nèi)存中卸載，應(yīng)該使用語(yǔ)句

(4)

。19.寫(xiě)出代數(shù)式所對(duì)應(yīng)的VB表達(dá)式

(5)

。表達(dá)式-2^2+2^-2+/2對(duì)應(yīng)的值為_(kāi)___(6)_____三、程序閱讀（4*10分）1、下面程序的運(yùn)行結(jié)果為_(kāi)__(1)____。PrivateSubCommand1_Click()DimaAsIntegera=2Fori=1To3PrintF(a)；NextiEndSubPrivateFunction

F(aAsInteger)b=0Staticcb=b+1c=c+1f=a+b+cEndFunction2、下列程序輸出結(jié)果為

(2)

。PrivateSubCommand1_Click()Dima(1To4)AsIntegera(1)=5:a(2)=6:a(3)=7:a(4)=8Pa()Fori=1To4Printa(i)，NextiEndSubPrivateSubP(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSub3、下列程序輸出結(jié)果為

(3)

。PrivateSubCommand1_Click()a%=10b%=5Changea,bPrinta,bEndSubPrivateSubChange(ByValaAsInteger,bAsInteger)Tmp=aa=bb=tmpEndSub4、下述程序的運(yùn)行結(jié)果是

(4)

。PrivateSubCommand1_Click()a=b=Callfun(a,b)Printa,bEndSubPrivateSubfun(x,y)x=y*yy=y+xEndSub5、下列VB程序是用來(lái)計(jì)算S=1!+2!+3!+........+n!的程序，請(qǐng)將程序補(bǔ)充完整。（說(shuō)明：N!=1*2*3*4*......*N）Private

SubForm_ClickN=Inputbox(“請(qǐng)輸入N”)S=0FOR

I=1

TO

___(5)_________(6)________S=S+TNEXT

IPRINT

“S=”；SENDSUB

fact(N，T)

T=___(7)___FOR

J=1

TO

____(8)__

(9)

NEXT

J___(10)______四、程序填空（4*10分）1、已建立了一個(gè)工程，該工程包括兩個(gè)窗體，其名稱(chēng)（Name屬性）分別為Form1和Form2，啟動(dòng)窗體為Form1。在Form1畫(huà)一個(gè)命令按鈕Command1，程序運(yùn)行后，要求當(dāng)單擊該命令按鈕時(shí)，F(xiàn)orm1窗體消失，顯示窗體Form2，請(qǐng)?jiān)冢?）和（2）處將程序補(bǔ)充完整。PrivateSubCommand1_Click()（1）

Form1Form2.

（2）

EndSub

2、數(shù)據(jù)過(guò)濾程序：從左邊文本框輸入任意文本，如果是數(shù)字字符，則顯示在右邊文本框中。運(yùn)行結(jié)果如下圖（文本框開(kāi)始時(shí)為空）。

（1）設(shè)置對(duì)象屬性

（2）編寫(xiě)代碼對(duì)名屬性名PrivateSub_____(3)______

If____(4)_______Then______(5)_________

End

IfEndSub屬性值Form1Caption數(shù)據(jù)過(guò)濾Label1Caption輸入數(shù)據(jù)：Label2Caption過(guò)濾后的數(shù)據(jù)：Text1Text

Text2Text

3、下面的程序是用選擇交換法將10個(gè)數(shù)排為升序（例如輸入：1、20、7、35，輸出1、7、20、35），請(qǐng)?jiān)?/p>

（6）

、（7）、（8）

、（9）

、（10）處將程序補(bǔ)充完整。PrivateSubCommand1_Click()Dima(10)AsInteger排序前排序后112077203535

Fori=1To10

a(i)=Val(InputBox("Enter"&i))

Printa(i);NextiPrintFori=____(6)___

k=i

Forj=____(7)______

If_____(8)_____Then___(9)_____