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

2022-2022學(xué)年上學(xué)期高職班VB作業(yè)練習(xí)五一、單選選擇題（在每小題的四個(gè)備選答案中，選出一個(gè)正確的答案，并將正確答案的序號(hào)填在答題卡的括號(hào)內(nèi)。每小題4分，共120分）6、在VB中，可以在常量的后面加上類(lèi)型說(shuō)明符顯示地指明常量的類(lèi)型，下列()符號(hào)是雙精度浮點(diǎn)型常量的類(lèi)型說(shuō)明符。A、&B、！C、#D、$12、VB語(yǔ)言屬于（）A、機(jī)器語(yǔ)言B、匯編語(yǔ)言C、高級(jí)語(yǔ)言D、自然語(yǔ)言二、填空題（每個(gè)空格3分，共60分,請(qǐng)將正確答案填在答題卡上）4、在VB中，標(biāo)簽控件顯示的內(nèi)容由其(4)屬性決定。5、（5）是指在VB程序所有模塊中均有效的變量。6、VisualBasic三種工作模式是設(shè)計(jì)模式、運(yùn)行模式和(6)模式。7、在VB中，布爾型數(shù)據(jù)是一個(gè)邏輯值，它只取兩種值，即True或(7)。8、工程文件的擴(kuò)展名為(8)，每個(gè)工程對(duì)應(yīng)一個(gè)工程文件。9、在VB中，(9)函數(shù)可以產(chǎn)生一個(gè)對(duì)話框，這個(gè)對(duì)話框作為輸入數(shù)據(jù)的界面，等待用戶輸入數(shù)據(jù)，并返回所輸入的內(nèi)容。10、Ax2+Bx+SIN60的VB表達(dá)式為(10)。11、VB語(yǔ)句PRINT“11”＞“2”的結(jié)果為12、VB表達(dá)式10MOD7\2的結(jié)果為(12)。13、由Static語(yǔ)句定義的變量稱(chēng)為(13)變量。四、閱讀分析題（下面是VB程序，將程序運(yùn)行后的正確結(jié)果填在答題卡上，每題5分，共40分）1、PrivateSubCommandl_Click()DimdAsDateD=#10／28／2022#PrintYear(d)EndSub上面程序運(yùn)行后，單擊Commandl命令按鈕，輸出結(jié)果是。2、B%=10A=8：B=4：C=6D=A*B%–CPRINT“D=”；D則程序輸出的結(jié)果是。3、x=7：y=9IFx＞yTHENPRINT“MAX=”；xELSEIFy＞xTHENPRINT“MAX=”；yENDIF則程序輸出的結(jié)果是。4、PrivateSubCommand1_Click()DimaAsIntegerA=16PrintSqr(a)EndSub上面程序運(yùn)行后，單擊Commandl命令按鈕，輸出結(jié)果是。5、PrivateSubCommand1_Click()DimxAsIntegerDimIAsInteger,jAsInteger,kAsIntegerx=368i=xMod10J=(x＼10)Modl0k=x＼100x=i*100+J*10+kPrintxEndSub上面程序運(yùn)行后，單擊Commandl命令按鈕，輸出結(jié)果是．6、有如下一組程序語(yǔ)句

FORk=1TO3

SELECTCASEk

CASE1

a=3

CASE2

a=2

CASE3

a=1

ENDSELECT

PRINTa;

NEXTk

PRINTk

運(yùn)行時(shí)的輸出結(jié)果是______。7、DIMA(10)ASINTEGERFORI=1TO10A(I)=INEXTIPRINTA(I)則輸出結(jié)果為。8、下列程序運(yùn)行時(shí)輸出的結(jié)果是:（3）DIMMM=ARRAY（1，2，3，4，5，6）

PRINTM(2)五、編程填空題（下面VB程序，請(qǐng)正確填充下列程序的下劃線部分，使其完成所要求的功能，每空2分，共46分）1、設(shè)計(jì)一個(gè)窗體，其執(zhí)行屏幕如圖所示，上方是一個(gè)文本框，包含有“實(shí)驗(yàn)文本”的值。下面有2個(gè)框架，分別用于修改文本框的字體和大小。以下實(shí)現(xiàn)上述功能的程序，請(qǐng)?zhí)羁誔rivatesub(1)_Load()=“實(shí)驗(yàn)文本”=”字體”=”大小”O(jiān)ption1(0).caption=”宋體”(2).caption="楷體_GB2312"0ption2(0).caption=10option2(1).caption=16EndsubPrivateSuboption1_click(indexasinteger)If(3)=0then(4)Else="楷體_GB2312"”ENDIFEndsubPrivateSuboption2_click(indexasinteger)IfINDEX=1=1then(5)Else=10ENDIFEndsub（密封線內(nèi)不要答題答題一律不給分）………………（密封線內(nèi)不要答題答題一律不給分）………………密………………封………………線………………PrivateSubCommand1_C1ick()N=0’P=1DOWHILEP（1）P=P*（2）（3）LOOPPRINT“N=”;N（4）’10年后國(guó)民生產(chǎn)總值是今年的幾倍？FORI=1TO10（5）NEXTIPRINT“P=“;PEndSub3、以下程序的功能是利用函數(shù)計(jì)算輸出的值PrivateSubForm_Click()S=0N=INPUTBOX(“輸入N”)FOR(1)S=S+INEXTIP=(2)PRINT“P=”;PENDSUBFUNCTIOMF(N)SUM=0FORI=1TON(3)（密封線內(nèi)不要答題答題一律不給分）………………（密封線內(nèi)不要答題答題一律不給分）………………密………………封………………線………………(4)ENDFUNCTION4、在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕和一個(gè)名稱(chēng)為T(mén)ext1的文本框。程序運(yùn)行后，Command1為禁用(灰色)。當(dāng)向文框中輸入任何字符時(shí)，命令按鈕Command1變?yōu)榭捎?。?qǐng)將程序補(bǔ)充完整。PrivateSubForm_Load()Command1.（1）=FalseEndSubPrivateSubText1_（2）()=（3）EndSub

5、計(jì)算總成績(jī)程序界面如圖：在窗體上建立3個(gè)文本框和3個(gè)標(biāo)簽框，一個(gè)命令框。輸入完語(yǔ)文成績(jī)和數(shù)和數(shù)學(xué)成績(jī)，單擊計(jì)算總成績(jī)命令按鈕，則計(jì)算機(jī)將最后總成績(jī)顯示在總成績(jī)文本框中，以下實(shí)現(xiàn)上述功能的程序，請(qǐng)?zhí)羁?，假設(shè)總成績(jī)、語(yǔ)文成績(jī)、數(shù)學(xué)成績(jī)文本框?qū)ο蠓謩e為T(mén)ext1、Text2、Text3PrivateSubCommand1_Click()DimSumAsIntegerSum=（1）（2）EndSub6、輸入職工的年終考核得分，然后將考核得分轉(zhuǎn)換為考核等級(jí)。轉(zhuǎn)換規(guī)則如下：90分以上為“優(yōu)”，60~89分為“合格”，其它為“不合格”。PrivateSubCommand1_Click()DimkASIntegerk=InputBox("請(qǐng)輸入職工的年終考核得分:")SelectCasekCaseIs>=90Print"優(yōu)"Cas