VisualBasic程序設(shè)計(jì)（吉林醫(yī)藥學(xué)院）知到章節(jié)測(cè)試答案智慧樹(shù)2023年最新第一章測(cè)試以下關(guān)于VB語(yǔ)言的說(shuō)法中，正確的是（

）。

參考答案:

VB是一種面向?qū)ο蟮恼Z(yǔ)言在VisualBasic環(huán)境下，當(dāng)寫(xiě)一個(gè)新的VisualBasic程序時(shí)，所做的第一件事是（

）。

參考答案:

新建一個(gè)工程以下可以構(gòu)成語(yǔ)句的是（

）。

參考答案:

對(duì)象名.方法名（

）是由VisualBasic提供的一種專(zhuān)門(mén)的子程序，由對(duì)象本身所具有，反映該對(duì)象功能的內(nèi)部函數(shù)或過(guò)程。

參考答案:

方法下列不是VisualBasic文件的是（

）。

參考答案:

*.txt下列不能打開(kāi)工具箱窗口的操作是()。

參考答案:

按Alt+F8鍵下列可以打開(kāi)立即窗口的操作是()。

參考答案:

Ctrl+GVisualBasic6.0集成環(huán)境的主窗口中不包括()。

參考答案:

狀態(tài)欄

在Visual

Basic中，不能關(guān)閉的窗口是()。

參考答案:

工程窗口

VisualBasic是一種面向?qū)ο蟮目梢暬绦蛟O(shè)計(jì)語(yǔ)言，采取了()的編程機(jī)制。

參考答案:

事件驅(qū)動(dòng)第二章測(cè)試下列符號(hào)常量的聲明中，（

）是不合法的。

參考答案:

ConstaAsInteger=“12”表達(dá)式“Turbo”+“c”>“Ture”+“Basic”的值是（

）。

參考答案:

False執(zhí)行下列語(yǔ)句后，V的值是（

）。A=“56789”

V=Val（Mid（A，3，2））

參考答案:

78表達(dá)式4+56*7/8Mod4的值是（

）。

參考答案:

5下列符號(hào)（

）是VisualBasic中合法的變量名。

參考答案:

x23在一行內(nèi)寫(xiě)多條語(yǔ)句時(shí)，每個(gè)語(yǔ)句之間用（

）來(lái)分隔。

參考答案:

：

在VB中，用Single來(lái)表示的數(shù)據(jù)類(lèi)型是（

）。

參考答案:

單精度型

下列程序段的運(yùn)行結(jié)果是（

）。DimAAsInteger,BAsIntegerA=15B=4Print4+AB

參考答案:

7

三種邏輯運(yùn)算符號(hào)優(yōu)先次序?yàn)椋?/p>

）。

參考答案:

NOT、AND、OR

數(shù)學(xué)式3abc(d+e)改寫(xiě)為VB表達(dá)式為（

）。

參考答案:

3abc(d+e)第三章測(cè)試結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)不包括（）。

參考答案:

倒序結(jié)構(gòu)下面四個(gè)語(yǔ)句中，能打印顯示20*30字樣的是（

）。

參考答案:

**Print“20*30”**關(guān)于MsgBox函數(shù)，以下說(shuō)法不正確的是（

）。

參考答案:

MsgBox函數(shù)的返回值是一個(gè)字符串，這個(gè)字符串與所選擇的命令按鈕有關(guān)語(yǔ)句Ifx=1Theny=1,下列說(shuō)法正確的是(

)。

參考答案:

x=1為關(guān)系表達(dá)式,y=1為賦值語(yǔ)句下面程序段執(zhí)行結(jié)果為(

)。

x=5

:y=-6Ifnotx>0Then

x=y–3

Else

y=x+3EndIfPrint

x-y;

y-x

參考答案:

-3

3編寫(xiě)如下事件過(guò)程:

PrivateSubForm_Click()

score=Int(Rnd*10)+80

SelectCasescore

CaseIs<

60

a$="F"

Case60To69

a$=“D”

Case70To79

a$="C"

Case80To89

a$=“B”

CaseElse

a$="A"

EndSelect

Printa$

EndSub

程序運(yùn)行后,單擊窗體,則窗體上顯示的內(nèi)容是()。

參考答案:

B循環(huán)結(jié)構(gòu)ForI%=-1to–17

Step–2共執(zhí)行()次。

參考答案:

9下列程序段的執(zhí)行結(jié)果為()。a=0:b=1Do

a=a+b

b=b+1LoopWhileaPrinta;b

參考答案:

10

5有如下程序,運(yùn)行后輸出的結(jié)果是()。j=0:n=0DoWhile

n

j=(j+1)*(j+2)

n=n+1LoopPrintj;n

參考答案:

182

3下列的程序段執(zhí)行后,x的值為()。x=0Fori=1To10

Forj=iTo10

x=x+1

NextjNexti

參考答案:

55第四章測(cè)試以下關(guān)于靜態(tài)數(shù)組的描述正確的是（

）。

參考答案:

靜態(tài)數(shù)組的大小是固定的，可以有不同類(lèi)型的數(shù)組元素執(zhí)行下面程序段后，輸出的結(jié)果為（

）。

Dimm(5)AsInteger

s=0

Fori=0To5

m(i)=5

Nexti

Forj=0To5

s=s+m(j)

Nextj

Prints

參考答案:

30下面程序：PrivateSubForm_Click()

Dima(100)AsInteger

Fori=1To10

j=i*i

a(j)=j

Nexti

Printa(25)EndSub運(yùn)行后，單擊窗體，則輸出的結(jié)果是（

）。

參考答案:

25有如下語(yǔ)句：OptionBase1PrivateSubCommand1_Click()

DimA(2,-1To1)AsInteger

……EndSub?以上語(yǔ)句所定義的數(shù)組A為（

）維數(shù)組，共有（

）個(gè)元素，第一維下標(biāo)從（

）到（

），第二維下標(biāo)從（

）到（

）。

參考答案:

2,6,1,2,-1,1有如下程序：

Constn=-5

Constm=6

Dima(nTom)AsInteger

Fori=LBound(a,1)ToUBound(a,1)

a(i)=i

Nexti

Printa(LBound(a,1));a(UBound(a,1))運(yùn)行后輸出的結(jié)果為（

）。

參考答案:

-5

6

下面關(guān)于控件數(shù)組與一般控件的敘述中正確的是（

）。

參考答案:

控件數(shù)組一定有1個(gè)以上同類(lèi)型的控件組成，而一般控件只有一個(gè)控件如果要對(duì)已經(jīng)聲明的數(shù)組重新定義大小，并保留原有數(shù)據(jù)，可以使用語(yǔ)句（

）。

參考答案:

ReDimPreserve下列程序的輸出結(jié)果為（

）。

Private

Sub

Command1_Click()

Dim

a

ReDim

a(6)

For

j=1

To

5

a(j)=jj

Next

j

Print

a(a(2)a(3)-a(4)*2)+a(5)

End

Sub

參考答案:

41

執(zhí)行下面程序段后，輸出的結(jié)果為（

）。

Dima(10,10)AsInteger

Fori=2To4

Forj=4To5

a(i,j)=i*j

Nextj

Nexti

Printa(2,5)+a(3,4)+a(4,5)

參考答案:

42要分配存放如下方陣的數(shù)據(jù)，正確的且最節(jié)約存儲(chǔ)空間的數(shù)組聲明語(yǔ)句是（

）。

1.1

2.2

3.3

4.4

5.5

6.6

7.7

8.8

9.9

參考答案:

Dim

a(-1

To

1,-5

To

-3)

As

Single

第五章測(cè)試假定有如下的Sub過(guò)程：Subfun(xAsSingle,yAsSingle)

t=x

x=t/y

y=tModyEndSub在窗體上畫(huà)一個(gè)命令按鈕，然后編寫(xiě)如下事件過(guò)程：PrivateSubCommand1_Click()

DimaAsSingle

DimbAsSingle

a=6

b=4

funa,b

Printa,bEndSub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為（

）。

參考答案:

1.5

2假定有以下函數(shù)過(guò)程：FunctionFun(sAsString)AsString

Dims1AsString

Fori=1ToLen(s)

s1=UCase(Mid(s,i,1))+s1

Nexti

Fun=s1EndFunction在窗體上添加一個(gè)命令按鈕，然后編寫(xiě)如下事件過(guò)程：PrivateSubCommand1_Click()

DimStr1AsString

DimStr2AsString

Str1=InputBox(“請(qǐng)輸入一個(gè)字符串”)

Str2=Fun(Str1)

PrintStr2EndSub程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話(huà)框中輸入字符串“abcdefg”，則單擊“確定”按鈕后再窗體上輸出的結(jié)果為（

）。

參考答案:

GFEDCBA有如下函數(shù)過(guò)程：Functionsecproc(xAsInteger,yAsInteger,zAsInteger)

secproc=3*y+z+2*xEndFunction

PrivateSubCommand1_Click()

DimaAsInteger,bAsInteger,cAsInteger

a=2:b=3:c=4

Printsecproc(c,b,a)EndSub該程序的運(yùn)行結(jié)果是（

）。

參考答案:

19有如下函數(shù)過(guò)程：FunctionCys(ByValxAsInteger,ByValyAsInteger)AsInteger

Dimquotients

DoWhiley<>0

quotients=x/y

x=y

y=quotients

Loop

Cys=xEndFunction以下是調(diào)用該函數(shù)的事件過(guò)程，該程序的運(yùn)行結(jié)果是（

）。PrivateSubCommand1_Click()

DimaAsInteger

DimbAsInteger

a=10

b=2

x=Cys(a,b)

PrintxEndSub

參考答案:

5以下是一個(gè)能返回?cái)?shù)組a中最大數(shù)的函數(shù)過(guò)程代碼：

Function

maxval(a()

As

Integer)

As

Integer

Dim

max%

max

=

1

For

i

=

2

To

10

If

a(i)

>

a(max)

Then

max

=

i

Next

i

maxval

=

max

End

Function

PrivateSubCommand1_Click()

Dimx(1To10)AsInteger

Fori=1To10

x(i)=Int(Rnd()*100)

Printx(i);

Nexti

Print

Printmaxval(x())EndSub程序運(yùn)行時(shí)，發(fā)現(xiàn)函數(shù)過(guò)程的返回值是錯(cuò)的需要修改，下面的修改方案中正確的是（

）。

參考答案:

語(yǔ)句“maxval

=

max

”應(yīng)改為“maxval

=

a(max)”

在窗體上畫(huà)一個(gè)命令按鈕(名稱(chēng)為Command1)，并編寫(xiě)如下代碼：FunctionFun1(ByValaAsInteger,bAsInteger)AsInteger

DimtAsInteger

t=a-b

b=t+a

Fun1=t+bEndFunction

PrivateSubCommand1_Click()

DimxAsInteger

x=10

PrintFun1(Fun1(x,(Fun1(x,x-1))),x-1)EndSub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是()。

參考答案:

0下面程序的運(yùn)行結(jié)果為（

）。Dima%,b%,c%Subp1(x%,y%)

DimcAsInteger

x=2*x:y=y+2:c=x+yEndSubSubp2(x%,ByValy%)

DimcAsInteger

x=2*x:y=y+2:c=x+yEndSubPrivateSubCommand1_Click()

a=2:b=4:c=6

Callp1(a,b)

Callp2(a,b)

Printa;b;cEndSub

參考答案:

8

6

6下面程序：Functiona(x)

StaticbAsInteger

b=b+x^2

PrintbEndFunction

PrivateSubCommand1_Click()

Dimc%

c=a(2)EndSub單擊兩次命令按鈕，第二次顯示的結(jié)果是（

）。

參考答案:

8下列敘述中正確的是（

）。

參考答案:

在某個(gè)Sub過(guò)程中定義的局部變量可以與其他事件過(guò)程中定義的局部變量同名，但其作用域只限于該過(guò)程若已編寫(xiě)了一個(gè)Sort子過(guò)程，在該工程中有多個(gè)窗體，為了方便地調(diào)用Sort子過(guò)程，應(yīng)將該過(guò)程放在

（

）中。

參考答案:

標(biāo)準(zhǔn)模塊第六章測(cè)試若要求顯示一個(gè)指定窗體,所用的方法是(

)。

參考答案:

Show確定一個(gè)窗體或控件大小的屬性是(

)。

參考答案:

Width和Height當(dāng)一個(gè)工程含有多個(gè)窗體時(shí),其中的啟動(dòng)窗體是(

)。

參考答案:

在“工程屬性”對(duì)話(huà)框中指定的窗體每建立一個(gè)窗體,工程管理器窗口中就會(huì)增加一個(gè)(

)。

參考答案:

窗體文件當(dāng)運(yùn)行程序時(shí),系統(tǒng)自動(dòng)執(zhí)行啟動(dòng)窗體的(

)事件過(guò)程。

參考答案:

Load

若要改變窗體中顯示文本的顏色,應(yīng)該使用的屬性是(

)。

參考答案:

ForeColor在設(shè)計(jì)階段,當(dāng)雙擊窗體上的某個(gè)控件時(shí),所打開(kāi)的窗口是(

)。

參考答案:

代碼窗口

如果要改變窗體的標(biāo)題,需要設(shè)置窗體對(duì)象的哪一屬性(

)。

參考答案:

Caption

Cls方法可清除窗體或圖片框中的信息是(

)。

參考答案:

程序設(shè)計(jì)時(shí)產(chǎn)生的圖形和文字窗體的Enable屬性的屬性值是(

)類(lèi)型的數(shù)據(jù)。

參考答案:

邏輯型第七章測(cè)試一般不用來(lái)觸發(fā)事件的對(duì)象是(

)。

參考答案:

標(biāo)簽如果將文本框的Locked屬性設(shè)置為T(mén)rue,則以下說(shuō)法(

)是正確的。

參考答案:

運(yùn)行時(shí)用戶(hù)不可以在界面上修改文本框中的內(nèi)容單擊命令按鈕Commandl必將調(diào)用的事件(

)。

參考答案:

Click能夠改變復(fù)選框中背景顏色的屬性是(

)。

參考答案:

BackColor以下不屬于同類(lèi)的是(

)。

參考答案:

Click

列表框中列表項(xiàng)的數(shù)目可通過(guò)(

)屬性的值獲得。

參考答案:

ListCount組合框控件是將(

)組合成一個(gè)控件。

參考答案:

列表框控件和文本框控件

要在圖片框P1中打印字符串”HowAreYou”,應(yīng)使用語(yǔ)句(

)。

參考答案:

P1.Print”HowAreYou”

在窗體上畫(huà)一個(gè)名稱(chēng)為T(mén)imer1的計(jì)時(shí)器控件,要求每隔0.1秒發(fā)生一次計(jì)時(shí)器事件,則以下正確的屬性設(shè)置語(yǔ)句是(

)。

參考答案:

Timer1.Interval=100

以下控件中不屬于容器的是(

)。

參考答案:

Image第八章測(cè)試剛建立一個(gè)新的標(biāo)準(zhǔn)EXE工程后,不在工具箱中出現(xiàn)的控件是（）。

參考答案:

通用對(duì)話(huà)框?qū)⑼ㄓ脤?duì)話(huà)框類(lèi)型,設(shè)置為字體對(duì)話(huà)框,可修改該控件的（）屬性。

參考答案:

action下列屬性屬于顏色對(duì)話(huà)框的是（）。

參考答案:

Color在窗體上建立通用對(duì)話(huà)框必須先將（）添加到工具箱中。

參考答案:

CommonDialog控件將通用對(duì)話(huà)框CommandDialog1的類(lèi)型設(shè)置成另存為對(duì)話(huà)框,可調(diào)用該控件的（）方法。

參考答案:

ShowSave

下列事件過(guò)程可以將打開(kāi)對(duì)話(huà)框的標(biāo)題改為”刑事案件卷宗”的是（）。

參考答案:

PrivateSubCommand1_Click()CommonDialogl.DialogTitle=“刑事案件卷宗”

CommonDialogl.ShowOpen

Endsub

窗體上有一公共對(duì)話(huà)框Commondialog1,和一個(gè)命令按鈕Command1,當(dāng)單擊按鈕時(shí)程序的功能是（）。PrivateSubCommand1_Click()Commondialog1.ShowColorEndSub

參考答案:

打開(kāi)顏色對(duì)話(huà)框在窗體上建立一個(gè)通用對(duì)話(huà)框，名稱(chēng)為CommonDialog1，用下面的語(yǔ)句可以建立一個(gè)對(duì)話(huà)框，CommonDialog1.Action=2與該語(yǔ)句等價(jià)的語(yǔ)句是（）：

參考答案:

CommonDialog1.ShowSave

在窗體上畫(huà)一個(gè)通用對(duì)話(huà)框，其名稱(chēng)為CommonDialog1，然后添加一個(gè)命令按鈕，并編寫(xiě)如下事件過(guò)程：Private

Sub

Command1_Click()CommonDialog1.Filter=“allfiles(.)|.|textfiles|.txt|batfiles(.bat)|*.bat”CommonDialog1.filterIndex=2

CommonDialog1.ShowOpen

MsgBoxCommonDialog1.FileNameEnd

Sub

程序運(yùn)行后，單擊命令按鈕，將顯示一個(gè)“打開(kāi)”對(duì)話(huà)框，此時(shí)在“文件類(lèi)型”框中顯示的是（）：

參考答案:

**TextFiles(*.txt)**

以下敘述中錯(cuò)誤的是（）。

參考答案:

調(diào)用通用對(duì)話(huà)框控件的ShowOpen方法，可以直接打開(kāi)在該通用對(duì)話(huà)框中指定的文件

第九章測(cè)試下列選項(xiàng)中不正確的是(

)。

參考答案:

菜單項(xiàng)的屬性可以在屬性窗口中設(shè)計(jì)在用菜單編輯器設(shè)計(jì)菜單時(shí),必須輸入的項(xiàng)是(

)。

參考答案:

名稱(chēng)假定有一個(gè)菜單項(xiàng),名稱(chēng)為MenuItem,為了運(yùn)行時(shí)使該菜單項(xiàng)失效(變灰),應(yīng)使用的語(yǔ)句為(

)。

參考答案:

MenuItem.Enabled=False一個(gè)菜單項(xiàng)是不是一個(gè)分隔條,由(

)屬性決定。

參考答案:

Caption要使用菜單項(xiàng)MentOne在程序運(yùn)行時(shí)失效,使用的語(yǔ)句是(

)。

參考答案:

MentOne.Enabled=False

菜單控件僅支持下面哪一事件（）。

參考答案:

Click

用鍵盤(pán)的光標(biāo)鍵選中某一菜單項(xiàng),并按回車(chē)將觸發(fā)菜單的（）的事件。

參考答案:

Click

設(shè)菜單中有一個(gè)菜單項(xiàng)為”O(jiān)pen”.若要為該菜單命令設(shè)置訪(fǎng)問(wèn)鍵,即按下ALT及字母O時(shí),能夠執(zhí)行Open命令,則在菜單編輯器中設(shè)置”O(jiān)pen”命令的方式是（）。

參考答案:

把Caption屬性設(shè)置為&Open

下列不能打開(kāi)菜單編輯器的操作是（）。

參考答案:

按Shift+Alt+M鍵建立彈出式菜單使用的命令是（）。

參考答案:

PopupMenu第十章測(cè)試使用Circle(1000,1000),650

語(yǔ)句在窗體上繪制一個(gè)圓，則圓的線(xiàn)條顏色由窗體的(

)屬性決定。

參考答案:

ForeColor執(zhí)行指令”Line(1200,1200)-Step(1000,500),,B”后,CurrentX=(

)。

參考答案:

2200運(yùn)行以下程序后,輸出的圖形是(

)。Forr=0To150Circle(320,240),rFori=1Tol000NextiNextr

參考答案:

一個(gè)固定的實(shí)心圓下面程序運(yùn)行的輸出是(

)。PrivateSubCommand1_Click()ClsLine(60,60)-(70,70),5,BLine(50,50)-(80,80),1,BLine(40,40)-(90,90),2,BLine(30,30)-(100,100),3,B

Line(20,20)-(110,110),4,BEndSub

參考答案:

同心的彩色正方形以下的屬性和方法中,可重定義坐標(biāo)系的是(

)。

參考答案:

Scale方法

Line(100,100)-Step(400,400)將在窗體()畫(huà)一直線(xiàn)。

參考答案:

(100,100)到(500,500)

vb中的坐標(biāo)圓點(diǎn)位于（）。

參考答案:

容器左上角

可用來(lái)改變坐標(biāo)度量單位的是（）。

參考答案:

ScaleMode屬性

在VB的圖形方法中,要繪制矩形,需要使用（）。

參考答案:

Line方法

如果在圖片框上使用繪圖方法繪制一個(gè)實(shí)心圓,則圖片框的（）屬性決定了該圓填充的顏色。

參考答案:

FillColor第十一章測(cè)試當(dāng)用戶(hù)按鍵時(shí)，KeyPress、KeyDown、KeyUp事件的執(zhí)行順序?yàn)?

)。

參考答案:

KeyDown事件、KeyPress事件、KeyUp事件文本框Textl的KeyDown事件過(guò)程中參數(shù)KeyCode值表示(

)。

參考答案:

所按的鍵盤(pán)鍵的鍵碼編寫(xiě)如下兩個(gè)事件過(guò)程：PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)PrintChr(KeyAscii)EndSub一般情況下(即不按住Shift和鎖定大寫(xiě))運(yùn)行程序，如按“A”鍵則輸出(

)。

參考答案:

A

a在窗體上畫(huà)一個(gè)命令按鈕和一個(gè)文本框，并把窗體的KeyPreview設(shè)置為T(mén)rue（在激活對(duì)象上的控件鍵盤(pán)事件之前，優(yōu)先激活鍵盤(pán)事件,即Form優(yōu)先）然后編寫(xiě)如下代碼：DimSaveAllAsStringPrivateSubCommand1_Click()Text1.Text=Ucase(SaveAll)EndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)SaveAll=