CEAC程序設(shè)計(jì)助理工程師（VB語言程序設(shè)計(jì)）模擬題20210406您的姓名：[填空題]*_________________________________1.在VisualBasic6.0中規(guī)定工程文件的擴(kuò)展名是（）。[單選題]*vbp(正確答案)forfrmbas2.VisualBasic是一種面向（）的程序設(shè)計(jì)語言。[單選題]*用戶事件程序?qū)ο?正確答案)3.如何使一個(gè)標(biāo)簽或按鈕控件在運(yùn)行時(shí)不可用（）。[單選題]*把它的Visible屬性設(shè)置成False把它的Visible屬性設(shè)置成True把它的Enabled屬性設(shè)置成False(正確答案)把它的Enabled屬性設(shè)置成True4.VisualBasic6.0中規(guī)定窗體文件的擴(kuò)展名是（）。[單選題]*forfrm(正確答案)vbpbas5.若要將某命令按鈕設(shè)置為默認(rèn)命令按鈕。則應(yīng)設(shè)置為True的屬性是（）。[單選題]*ValueCancelDefault(正確答案)Enabled6.控件的字體可在屬性窗口的（）屬性中調(diào)整？[單選題]*Font(正確答案)ColorTextCaption7.在文本框上顯示文本的屬性是（）。[單選題]*ValueText(正確答案)PrintEnabled8.在VB中，記錄對(duì)象數(shù)據(jù)的是（）。[單選題]*方法事件屬性(正確答案)語句9.設(shè)有語句：a=InputBox("請(qǐng)輸入數(shù)值:","輸入示例","100")程序執(zhí)行后,若從鍵盤上輸入數(shù)值20并按回車鍵,則變量a的值是（）。[單選題]*字符串"20"(正確答案)字符串"120"默認(rèn)值100數(shù)值12010.下列控件中可用于接受用戶輸入文本，又可用于顯示文本的是（）。[單選題]*Label控件TextBox控件(正確答案)Timer控件CommandButton控件11.InputBox函數(shù)返回值的類型為（）。[單選題]*字符串(正確答案)數(shù)值變體數(shù)值或字符串（視輸入的數(shù)據(jù)而定）12.只能用來顯示字符信息的控件是（）。[單選題]*文本框標(biāo)簽框(正確答案)圖片框圖像框13.下列可作為VisualBasic變量名的是（）。[單選題]*A%A4A?xyStemp(正確答案)14.語句PRINT"25*4"的輸出結(jié)果是（）。[單選題]*25*4(正確答案)"100"100出現(xiàn)錯(cuò)誤信息15.下列哪個(gè)符號(hào)不能作為VB中的變量名（）。[單選題]*timeflypass4min4maxR[8](正確答案)16.語句DimxAsInteger作用是:將x定義為（）變量。[單選題]*單精度型整型(正確答案)布爾型字符型17.在窗體內(nèi)聲明的變量是（）。[單選題]*局部變量模塊變量(正確答案)公共變量任意變量18.定義常量需要用到的關(guān)鍵字是（）。[單選題]*Const(正確答案)DimPrivatePublic19.在VB中,用Boolean來表示的數(shù)據(jù)類型是（）。[單選題]*長(zhǎng)整型字符型布爾型(正確答案)單精度型20.表達(dá)式2*3^2+2*8/2+3^2的值為（）。[單選題]*273135(正確答案)4221.如果要處理3.1415類數(shù)據(jù)，使用的變量類型應(yīng)該是（）。[單選題]*Single(正確答案)LongIntegerString22.數(shù)學(xué)表達(dá)式X^2+3XY對(duì)應(yīng)的VB算術(shù)表達(dá)式是（）。[單選題]*X*2+3X*YX*X+3XYX*X+3*X*Y(正確答案)X*X+3*XY23.在VB語言中，求余運(yùn)算符是（）。[單選題]*％MOD(正確答案)*/24.判斷兩個(gè)邏輯關(guān)系任一滿足的邏輯運(yùn)算是（）。[單選題]*Or(正確答案)AndNotOk25.表達(dá)式4+5\6*7/8Mod9的值是（）。[單選題]*45(正確答案)6726.選拔身高T超過1.7米且體重W小于60公斤的人，表示該條件的布爾表達(dá)式為（）。[單選題]*T>=1.7AndW<=60T<=1.7OrW>=60T>1.7AndW<60(正確答案)T>=1.7OrW<627.VB中下列邏輯表達(dá)式書寫正確的是（）。[單選題]*a>banda>c(正確答案)a>b>ca≤ba≠12228.設(shè)x=4,y=8,z=7，表達(dá)式x<yAnd(Noty>z)Orz<x的值是（）。[單選題]*1-1TRUEFALSE(正確答案)29.Sqr(81)+Fix(3.6)的值是（）。[單選題]*12(正確答案)78930.把字符串“123”轉(zhuǎn)換為數(shù)值123時(shí)應(yīng)該使用的函數(shù)是（）。[單選題]*StrVal(正確答案)LenLog31.表達(dá)式Abs（-3）+int(3.14)的值為（）。[單選題]*56(正確答案)0.146.1432.Int(Rnd*100)表示的是（）范圍內(nèi)的一個(gè)整數(shù)。[單選題]*[0,100][1,99][0,99](正確答案)[1,100]33.Len(“Friend”)的值是（）。[單選題]*6(正確答案)78934.Int(-3.14)的值是（）。[單選題]*-3-3.14-4(正確答案)3.1435.Right（“banana”,4）的值是（）。[單選題]*babanananana(正確答案)ban36.表達(dá)式Mid(“Hello”,2,3)的值是（）。[單選題]*“l(fā)l”“l(fā)lo”“ell”(正確答案)“ello”37.語句if3*4>=10thena=1elsea=2執(zhí)行后，a的值為（）。[單選題]*12101(正確答案)238.語句Ifx=1Theny=1,下列說法正確的是（）。[單選題]*x=1和y=1均為賦值語句x=1和y=1均為關(guān)系表達(dá)式x=1為關(guān)系表達(dá)式，y=1為賦值語句(正確答案)x=1為賦值語句，y=1為關(guān)系表達(dá)39.下面程序段中，（）不是把兩個(gè)數(shù)中的大值賦給變量Ｍax。[單選題]*Max=IIf(x>y,x,y)Ifx>yThenMax=xElseMax=yMax=x：Ify>=xThenMax=yIfy>=xThenMax=yMax=x(正確答案)40.在Select判斷結(jié)構(gòu)中，下面的表述中不正確的是（）。[單選題]*Case1Casea>5(正確答案)Case3To6Caseis<1041.由"Fori=1To16Step3"決定的循環(huán)結(jié)構(gòu)被執(zhí)行（）次。[單選題]*456(正確答案)742.Dima(5,5)AsLong定義的數(shù)組元素的個(gè)數(shù)是（）。[單選題]*10112536(正確答案)43.用于清空數(shù)組數(shù)據(jù)的關(guān)鍵字是（）。[單選題]*Erase(正確答案)LboundUboundRedim44.下列關(guān)于dowhile…loop和do…loopwhile循環(huán)執(zhí)行循環(huán)體次數(shù)的描述正確的是（）。[單選題]*dowhile…loop循環(huán)和do…loopwhile循環(huán)至少都執(zhí)行一次dowhile…loop循環(huán)可能不執(zhí)行，do…loopwhile循環(huán)至少執(zhí)行一次(正確答案)dowhile…loop循環(huán)至少執(zhí)行一次，do…loopwhile循環(huán)可能不執(zhí)行dowhile…loop循環(huán)和do…loopwhile循環(huán)可能都不執(zhí)行45.For-Next語句屬于程序基本結(jié)構(gòu)中的（）。[單選題]*順序結(jié)構(gòu)循環(huán)結(jié)構(gòu)(正確答案)分支結(jié)構(gòu)選擇結(jié)構(gòu)46.下列關(guān)于ExitFor的說法，正確的是（）。[單選題]*它可以退出任何類型的循環(huán)一個(gè)循環(huán)只能有一個(gè)ExitFor每個(gè)循環(huán)必須有ExitForExitFor本身是無條件退出循環(huán)(正確答案)47.在VisualBasic代碼窗口中,將某一條語句加以注釋和說明時(shí),應(yīng)在語句前加（）[單選題]*,:'(正確答案)?48.為了將一個(gè)語句寫在多行上所使用的行續(xù)接符是：（）。[單選題]*&_(正確答案)'：49.在一個(gè)語句內(nèi)寫多條語句時(shí),每個(gè)語句之間分隔符號(hào)是（）。[單選題]*,；:(正確答案)'50.Function過程的定義，不必須有的是（）。[單選題]*過程的名稱虛參(正確答案)EndFunction給過程賦值51.下列過程調(diào)用語句中，被調(diào)用的過程一定是Sub子過程的語句是（）。[單選題]*Pro1(x)PrintPro2(x)x=Pro3(x)CallPro4(x)(正確答案)52.Sub過程與Function過程最根本的區(qū)別是（）。[單選題]*Sub過程可以用Call語句直接使用過程名調(diào)用，而Function過程不可以Function過程可以有形參，Sub過程不可以Sub過程不能返回值，而Function過程能返回值(正確答案)兩種過程參數(shù)的傳遞方式不同53.當(dāng)拖動(dòng)滾動(dòng)條中的滾動(dòng)塊時(shí)，將觸發(fā)滾動(dòng)條的事件是（）。[單選題]*MoveSetFocusScrollChange(正確答案)54.列表項(xiàng)選擇后得到的選中索引是指（）。[單選題]*ValueListValueIndexListIndex(正確答案)55.定時(shí)器定時(shí)工作所觸發(fā)的事件是（）。[單選題]*Click()Change()Timer()(正確答案)Load()56.在圖片框中加載圖形(c:\666.jpg)的方法是（）。[單選題]*Loadpicture("c:\666.jpg")(正確答案)Loadpicture()print("c:\666.jpg")cls57.以下關(guān)于VB列表框的敘述中（）是錯(cuò)誤的。[單選題]*可通過屬性“Item”，返回列表框中的項(xiàng)目(正確答案)可通過屬性“Text”，得到當(dāng)前列表項(xiàng)中的內(nèi)容可通過屬性“ListIndex”返回當(dāng)前選中的列表項(xiàng)的索引可通過屬性“ListCount”返回列表框中項(xiàng)目的數(shù)目58.為了隱藏一個(gè)窗體，所使用的方法為（）。[單選題]*LoadShowHide(正確答案)UnLoad59.為了把焦點(diǎn)移到某個(gè)指定控件，所使用的方法是（）。[單選題]*GetFocusVisibleRefreshSetFocus(正確答案)60.如果窗體被遮擋，通過調(diào)用（）方法，可以將其顯示。[單選題]*HideShow(正確答案)Unloadload61.VB窗體設(shè)計(jì)器的主要功能是（）。[單選題]*建立用戶界面(正確答案)畫圖編輯文字編寫程序代碼62.VB窗體設(shè)計(jì)器的主要功能是（）。[單選題]*建立用戶界面(正確答案)畫圖編輯文字編寫程序代碼63.當(dāng)一個(gè)工程有多個(gè)窗體時(shí)，其中的啟動(dòng)窗體是（）。[單選題]*第一個(gè)添加的窗體最后一個(gè)添加的窗體啟動(dòng)VB時(shí)建立的窗體在工程屬性對(duì)話框中指定的窗體(正確答案)64.窗體沒有（）屬性。[單選題]*CaptionText(正確答案)PictureTop65.以下哪種屬性或者方法可以重新定義VB坐標(biāo)系？（）[單選題]*ScaleMode屬性Scale方法(正確答案)DrawWidth和DrawStyle屬性BorderWidth和BorderStyle屬性66.在設(shè)計(jì)階段，當(dāng)雙擊窗體上的某個(gè)控件時(shí)，所打開的窗口是（）。[單選題]*工程資源管理器窗口工具箱窗口代碼窗口(正確答案)屬性窗口67.使用Line方法時(shí)，參數(shù)B和F可以組合使用，下列組合中（）是不允許的。[單選題]*不使用B和FBB和FF(正確答案)68.指令Circle（2000，3000），2000，QBColor，－3.14/2，－3.14將繪制以下哪種圖形？（）[單選題]*圓橢圓扇形(正確答案)圓弧69.在VisualBasic中,以下選項(xiàng)中表示單擊事件的是（）。[單選題]*KeyUpClick(正確答案)ActivateLoad70.執(zhí)行命令Line（200，200）－step（500，500）后，CurrentX＝（）。[單選題]*200500700(正確答案)30071.PrivateSubCommand1_Click()

a=3

b=1

Fori=1To3

f=a+b

a=b

b=f

Nexti

Printf

EndSub

以上程序段運(yùn)行后，f的結(jié)果為。[填空題]*_________________________________(答案：9)72.PublicSubfun(a()AsInteger,xAsInteger)

Fori=1To5

x=x+a(i)

Next

EndSub

在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕,然后編寫如下事件過程:

PrivateSubCommand1_Click()

Dimarr(5)AsInteger,nAsInteger

Fori=1To5

arr(i)=2*i

Next

funarr,n

Text1.Text=Str(n)

EndSub

程序運(yùn)行后,單擊命令按鈕,則在文本框中顯示的內(nèi)容是。[填空題]*_________________________________(答案：30)73.閱讀下列程序段

OptionExplicit

PrivateSubCommand1_Click()

Dimstr1AsString

Dimstr2AsString

str1="ABCDEFG"

MySubstr1,str2

Printstr2

EndSub

PrivateSubMySub(ByValaAsString,bAsString)

DimcAsString

DimiAsInteger

Fori=Len(a)To1Step-1

c=c+Mid(a,i,1)

Next

b=c

EndSub

程序運(yùn)行后，“print”語句的輸出結(jié)果是。

[填空題]*_________________________________(答案：GFEDCBA)74.在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：

PrivateSubCommand1_Click()

x=Int(Rnd)+6

Ifx^2>25Theny=x^2+5

x=Int(Rnd)+4

Ifx^2<25Theny=x^2

x=Int(Rnd)+5

Ifx^2=25Theny=x^2-5

Printy

EndSub

程序運(yùn)行后，單擊命令按鈕，其輸出結(jié)果為。[填空題]*_________________________________(答案：20)75.閱讀下列程序段

PrivateSubCommand1_Click()

DimiAsInteger

DimkAsInteger

k=0

Fori=0To10

k=k+1

i=i+k

Next

Printk;i

EndSub

請(qǐng)問其循環(huán)體共執(zhí)行了次

，i的值是

。[填空題]*_________________________________(答案：414)76.閱讀下列程序段

PrivateSubCommand2_Click()

Fori=1To3

x=1

Forj=1To3

x=3+j

Fork=1To3

x=x+3

Nextk

Nextj

Nexti

Printx

EndSub

運(yùn)行程序后，單擊命令按鈕，輸出結(jié)果是。

[填空題]*_________________________________(答案：15)77.閱讀下列程序段

Dima(3,3)AsInteger

Form=1To3

Forn=1To3

a(m,n)=(m-1)*3+n

Nextn

Nextm

Form=2To3

Forn=1To2

Printa(m,n);

Nextn

Nextm

程序運(yùn)行后，顯示結(jié)果為：。[填空題]*_________________________________(答案：4578)78.PrivateSubCommand1_Click()

DimiAsInteger

DimxAsInteger

i=1

x=2

Do

i=i+1

x=x+i

LoopUntili>=7

Printi,x

EndSub

單擊命令按鈕后，i和x的值分別是。[填空題]*_________________________________(答案：729)79.假定有如下的Sub過程：

SubS(xAsSingle,yAsSingle)

t=x

x=t+x

y=t-y

EndSub

PrivateSubCommand2_Click()

DimaAsSingle,bAsSingle

a=6

b=4

CallS(a,b)

Printa,b

EndSub

程序運(yùn)行后，單擊命令按鈕輸出結(jié)果為。[填空題]*_________________________________(答案：122)80.閱讀下列程序段

PrivateSubCommand3_Click()

Printpl(3,6)

EndSub

PublicFunctionpl(xAsSingle,nAsInteger)AsSingle

Ifn=0Then

pl=1

Else

IfnMod2=1Then

pl=x*x+n

Else

pl=x*x-n

EndIf

EndIf

EndFunction

程序運(yùn)行后，單擊該命令按鈕，屏幕上顯示的結(jié)果是。[填空題]*_________________________________(答案：3)81.編制程序?qū)崿F(xiàn)：在窗體上，單擊按鈕1，在文本框中動(dòng)態(tài)顯示當(dāng)前時(shí)間；單擊按鈕2，則停止動(dòng)態(tài)顯示；單擊按鈕3，清除文本框內(nèi)容。提示：可用定時(shí)器控制時(shí)間，用系統(tǒng)函數(shù)Now顯示時(shí)間（如Text1.Text=Now）。[填空題]*_________________________________答案解析：1.PrivateSubCommand1_Click()

Timer1.Interval=5

Timer1.Enabled=True

EndSub

PrivateSubCommand2_Click()

Timer1.Enabled=False

EndSub

PrivateSubCommand3_Click()

Timer1.Enabled=False

Text1.Text=""

EndSub

PrivateSubTimer1_Timer()

Text1.Text=Now

EndSub82.編制程序：求出100-200之間所有可以被3整除的數(shù)的總和，將結(jié)果用消息框顯示輸出。[填空題]*_________________________________答案解析：2.PrivateSubCommand1_Click()

Dimi,sAsInteger

Fori=100To200

IfiMod3=0Thens=s+i

Nexti

MsgBox("100-200之間所有可以被3整除的數(shù)的總和為："&Str(s))

EndSub83.編一程序用于判斷一正整數(shù)是否為素?cái)?shù)。（提示：只能被1和本身整除的正整數(shù)稱為素?cái)?shù)。為了判斷一個(gè)數(shù)n是不是素?cái)?shù)，可以將n被2到sqr(n)之間的所有整數(shù)除，如果都除不盡，則n就是素?cái)?shù)，否則n是非素?cái)?shù)。）[填空題]*_________________________________答案解析：3.PrivateSubCommand4_Click()

Dimn,k,i,tempAsInteger

n=InputBox("請(qǐng)輸入一個(gè)正整數(shù)")

k=Int(Sqr(n))

i=2

temp=0

DoWhilei<=kAndtemp=0

IfnModi=0Then

temp=1

Else

i=i+1

EndIf

Loop

Iftemp=0Then