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

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

FORk=1TO3

SELECTCASEk

CASE1

a=3

CASE2

a=2

CASE3

a=1

ENDSELECT

PRINTa;

NEXTk

PRINTk

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

PRINTM(2)五、編程填空題（下面VB程序，請正確填充下列程序的下劃線部分，使其完成所要求的功能，每空2分，共46分）1、設計一個窗體，其執(zhí)行屏幕如圖所示，上方是一個文本框，包含有“實驗文本”的值。下面有2個框架，分別用于修改文本框的字體和大小。以下實現(xiàn)上述功能的程序，請?zhí)羁誔rivatesub(1)_Load()=“實驗文本”=”字體”=”大小”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年后國民生產(chǎn)總值是今年的幾倍？FORI=1TO10（5）NEXTIPRINT“P=“;PEndSub3、以下程序的功能是利用函數(shù)計算輸出的值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、在窗體上畫一個名稱為Command1的命令按鈕和一個名稱為Text1的文本框。程序運行后，Command1為禁用(灰色)。當向文框中輸入任何字符時，命令按鈕Command1變?yōu)榭捎谩Ｕ垖⒊绦蜓a充完整。PrivateSubForm_Load()Command1.（1）=FalseEndSubPrivateSubText1_（2）()=（3）EndSub

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