2017vb模擬題1

1、2017Vb模擬題1【HNC的上考試系統(tǒng)v9.6本套軟件使用權(quán)屬于：鄭州大學考試課程：VB-程序設(shè)計-練習考試時間：90分鐘考場：第一考場考試日期：2017.04.10剩余時間：88:09保存交卷退出幫助本卷共有2道大題：一、單項選擇題（50道小題，共50分）1、與傳統(tǒng)的程序設(shè)計語言相比較，VisualBasic最突出的特點是。（1分）A、結(jié)構(gòu)化的程序設(shè)計R數(shù)據(jù)處理C、面向?qū)ο蟮目梢暬幊蘎中文支持2、任何控件都具有的屬性是o（1分）A、Picture豈BCaptionr_r_一C、NameDAutoSize3、保存一個VisualBasic應(yīng)用程序，正確的是。（1分）A、只保存工程文件（.v

2、bp）亡R只保存窗體文件（.frm）C、只保存標準*II塊文件（.bas）E：R分別保存窗體文件和工程文件4、處于設(shè)計狀態(tài)時，在窗體上雙擊鼠標，則系統(tǒng)在代碼窗口顯示的事件過程模板是。（1分）A、LoadRClickC、DblClick/D.MouseDown5、啟動VisualBasic后，VB為用戶建立的第一個窗體是（1分）A、FormRFormlC、窗體1D.窗體6、程序如下：i0:s0:Do:ii+2:si+s:LoopUntil4,執(zhí)行后s的值是（1分）A、1011C、12D.157、表示年齡（age）在20歲和30歲之間的表達式是（1分）IA、age=20Andage=200rage

3、=30C、age=30D.age=308、文本框中的ScrollBars屬性已設(shè)置為3-Both,但卻沒有水平和垂直滾動條的效果，原因可能是（1分）A、文本框中沒有內(nèi)容R文本框的MultiLine屬性為FalseA、Text1.Text+Text2.Text=Text3.Text一C、Label1.Caption=4567C、文本框的MaxLength屬性為0文本框的Locked屬性是True9、決定窗體標題欄顯示內(nèi)容的屬性是。（1分）A、TextNameC、CaptionBackStyle10、找出兩個數(shù)中較大的數(shù)的程序段，錯誤的是。（1分）A、IFxyThenmax=xElsemax=ym

4、ax=IIF(xyx,y)C、IFxyThenmax=xmax=ymax=x:IfxyThenmax=y11、若要選擇Text對象的Text1_KeyPress事件，可以。（1分）r，一,A、在屬性窗口中選擇在工程資源管理器窗口中選擇C、在代碼設(shè)計窗口中利用對象列表框、過程列表框選擇在窗體設(shè)計窗口中雙擊Text1對象12、在下列語句中，正確的是(1分)Command1.Name=cmdokx=InputBox(pleaseinput)。（1分）L3R值的列表，例如Casea,b,cC、To表達式，例如Case1to1014、下列關(guān)于窗體的Name屬性的敘述，正確的是。11分）A、它的值在程序運

5、行中可以重新改寫C、它是指窗體的名稱，在程序中用來標識一個窗體對象R它的值可以為空15、在Form_Load（）中，如果想用Print方法將計算結(jié)果顯示在窗體上，則必須保證窗體的屬性彳I為True。（1分）BApperanceCC、AutoRedrawDMoveable16、如果對文本框Text1設(shè)置了PasswordChar=$”，且程序運行時向文本框中輸入“abcd”，則文本框中顯示的是。（1分）A、1個“$”QR4個“$”C、不顯示內(nèi)容R*17、VisualBasic的編程機制是。11分）13、SelectCase語句中的“表達式列表”不能是A、變量名的列表，例如Casex,y,zRIs

6、關(guān)系表達式，例如CaseIs1DX顯示出錯信息(1分)歡迎您！，表達方式中省略了對象的(1分)(1分)A、10A2C、100.022、語句Printint(-23.4)=;Int(-23.4)的輸出結(jié)果為(1分)A、Int(-23.4)=-23.4C、Int(-23.4)=-2323、啟動VisualBasic后，VB為用戶新建立的第一個工程的名字是A、窗體1C、窗體24、Cls方法可以清除窗體或圖片框中的o(1分)A、在設(shè)計階段使用Picture設(shè)置的背景位圖一二C、在運行階段產(chǎn)生的圖形和文字25、窗體上有一個標簽Label1和一個命名按鈕Command1的命令為。11分)EJB100R10

7、E+01/B(-23.4)=23.4dRInt(-23.4)=-24(1分)CR工程JR工程1CR在設(shè)計階段放置的控件CR以上全部內(nèi)容(f)移動一定距離。在Command1_Click()中能完成這個功能當程序運行時每單擊一次命令按鈕，標簽就向右26、27、A、Labell.LeftC、Label1.Move100100執(zhí)行語句PrintFormat（32548.5,#,#0.00）,輸出結(jié)果是A、32548.5C、032,548.50PrintDateDiff（m,#1/28/2004#,#1/31/2004#）的輸出結(jié)果是A、OC、-128、執(zhí)行語句：PrintFormat（32548.5

8、,000,000.00）,輸出結(jié)果是A、32548.5一C、032,548.5029、下列表達式中，表小X和Y之中有一個是奇數(shù)的表達式是（1分）BLabell.LeftLabell.Left100LD.Label1.MoveLabel1.Left+100（1分）B32,548.5R32,548.50（1分）（1分）32,548.532,548.50AXMod21AndYMod2B、XMod21OrYMod2D、(XMod21AndYMod20)And(XMod20AndYMod(XMod21AndYMod20)Or(XMod20AndYMid1)1)30、表達式Turbo+CTrue+Basi

9、c的值是(1分)A、TrueFalseC、NullD.出錯信息31、程序段Print-15;:Print-16,輸出的結(jié)果是(1分)A、-15-16-31C、-15-16D.出錯32、以下聲明語句中，錯誤的是(1分)A、Constvarl=123Constvar2=ABCC、Publicconst=計算機等級考試D.Staticvar3asInteger33、Single（單精度）型數(shù)據(jù)占個字節(jié)。（1分）口B434、35、C、8已知下列程序段：aA、TrueC、433:b4:Printba,輸出的結(jié)果是在下列邏輯表達式中，邏輯值為真”的是（1分）（1分）False顯示出錯信息A、Not（12）

10、Not（3+42Or如果將布爾常量值A(chǔ)、OC、True執(zhí)行程序段:DimA、232C、132.321And32True賦給一個整型變量，則整型變量的值為axsAsInteger:axs%=232:axs（1分）D.False132.32:Printaxs%;axs,輸出的結(jié)果是（1分）132032132.32R132132D.顯示出錯信息38、語句Print4+56*7/8Mod9的值是。（1分）A、4R5C、639、變體型變量未賦值時，它的值為。(1分)空C、Null40、執(zhí)行語句age=InputBox(請輸入數(shù)值,年齡輸入框,38”),如果從鍵盤上輸入數(shù)值20并按回車鍵，則下列敘述中，不

11、正確的敘述是。1A變量Age的值是數(shù)值數(shù)據(jù)201R對話框標題欄中顯示的是年齡輸入框C、對話框的,默認值是38R對話框的提示文字為請輸入數(shù)值”41、在VB中，以10為底的x的常用對數(shù)表達式是o(1分)A、Log(X)口BLog10(X)C、Log(X)/Log(e)L/口Log(X)/Log(10)42、執(zhí)行程序段：m$=ABC:n$=abc:k$=LCase$(m$):j$=UCase$(n$):PrintAsc(k$+j$),輸出的結(jié)果是。(1分)（1分）A、abcabcRABCABC21C、6543、表達式Val（.123E2CD）的值是。（1分）r rA、.123D97B12.3C、O.

12、123E2CD44、下列符號常量的聲明中，是不合法的。（1分）r.,一.A、ConstaAsSingle=1.1r_.C、ConstaAsDouble=Sin（1）45、下列符號中，屬于VisualBasic合法變量名的是。（1分）rA、x23C、ENDConstDConstB8xyX8B46、 設(shè)有變體變量x,執(zhí)行語句：x=InputBox（輸入數(shù)值,0,示例）后，如果從鍵盤上輸入A、變量x的值是數(shù)值10aAsIntegera=OK1210并按回車鍵，則下列敘述中正確的是B在InputBox對話框標題欄中顯示的是示例（1分）47、48、49、C、0是默認值方法Print等級;考試，輸出的結(jié)果

13、是A、等級考試C、等級考試InStr(VisualA、15Basic程序設(shè)計簡明教程中關(guān)于可視化界面的設(shè)計下面關(guān)系運算中，輸出結(jié)果為“True”的是。（1分）A、1+212D.變量x的值是字符串“10D.等級;考試設(shè)計）的函數(shù)值為。（1分）C1&21217471+21&23350、設(shè)有變量聲明：DimTestDateAsDate,為變量TestDate正確賦值的表達方式是(1分)A、TestDate#1/1/2002#BTestDate#1/1/2002#C、TestDateDate(1/1/2002)D.TestDateFormat(m/d/yy,1/l/2002)、程序應(yīng)用題(8道小題，共

14、50分)1、*下面程序用來輸出如下圖案，請?zhí)羁誔rivateSubCommand1_Click()Dimi%,j%Fori=5To1Step-1ForNextPrintNextEndSub(4分)2、*使用InputBox函數(shù)接收一批字符，將其中的數(shù)字字符進行累加并輸出累加和PrivateSubForm_Click()ABCDEABCDABCABPrintChr(+64);ToDimsAsString,iAsIntegers=InputBox(請輸入一個帶數(shù)字的字符串)1i=0Sum=DoWhilei=0AndMid(s,i,1)=9ThenSum=Sum+Mid(s,i,1)EndIfi=i

15、+1LoopPrintSumEndSub2(4分)3、*刪除已知數(shù)組a中的某個元素。PrivateSubCommand1_Click()Dima()AsVariant,nAsInteger,KeyAsIntegera=Array(1,6,8,3,5,9,10,2,7,4)n=UBound(a)Key=InputBox(請輸入要刪除的數(shù))Fori=0TonIfi=n+1ThenMsgBox(找不到此數(shù))Forj=i+1Tona(j-1)=a(j)Nextjn=n-1ReDimPreservea(n)Fori=0TonPrinta(i);Nexti:PrintEndSub(4分)4、*三個學生的四

16、門課（政治、數(shù)學、英語、計算機）成績（均在和最高平均成績。IfKey=a(i)NextiThenExitForExitSub70分以上）隨即生成存放在二維數(shù)組R（3,4）中，計算每個學生的平均成績（存放在數(shù)組S中）PrivateSubForm_Click()DimR(1To3,1To4)AsIntegerDimS(1To3)AsIntegerDimi%,j%,max%,k%k為最高成績學生序號Fori=1To3S(i)=0Forj=1To4R(i,j)=Int(30*Rnd+70)PrintTab(j-1)*5);R(i,j);S(i)=S(i)+R(i,j)NextjS(i)=S(i)/4P

17、rintNextimax=0Fori=1To3Print學生&i;平均成績：&S(i)IfmaxS(i)Thenmax=S(i)k=iEndIfNextiPrint最高平均成績k=;k,max=;maxEndSub3(6分)5、*下面程序計算1!+3!+5!+.+9!的值，請將其補充完整。*程序代碼如下：DimntAsSinglePrivateSubaa(ByValnAsSingle)DimiAsIntegernt=1Fori=1Tonnt=nt*iNextiEndSubPrivateSubForm_Click()DimsumAsSingle,nAsIntegersum=0=1To9Step2

18、Fornaa()ntsum=sum+NextnPrintsumEndSub(6分)6、*編寫一個登錄的程序，如圖所示。*運行過程：點擊確定按鈕時判斷密碼是否為“Gong”，如果是則使用msgbox顯示“歡迎你！”，如果不是則清空密碼輸入框，焦點重新定位到密碼輸入框。PrivateSubForm_Load()Text2.PasswordChar=*Text2.Text=Text1=EndSubPrivateSubCommand1_Click()DimIAsIntegerIfText2.Text=G0ngThenMsgBox登錄成功ElseText2.Text=Text2.SetFocusEndIfEndSub3【附圖5