Visual Basic程序設(shè)計(jì)（吉林醫(yī)藥學(xué)院）知到章節(jié)答案智慧樹2023年

VisualBasic程序設(shè)計(jì)（吉林醫(yī)藥學(xué)院）知到章節(jié)測試答案智慧樹2023年最新第一章測試

以下關(guān)于VB語言的說法中，正確的是（

）。

參考答案:

VB是一種面向?qū)ο蟮恼Z言

在VisualBasic環(huán)境下，當(dāng)寫一個(gè)新的VisualBasic程序時(shí)，所做的第一件事是（

）。

參考答案:

新建一個(gè)工程

以下可以構(gòu)成語句的是（

）。

參考答案:

對象名.方法名

（

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

參考答案:

方法

下列不是VisualBasic文件的是（

）。

參考答案:

*.txt

下列不能打開工具箱窗口的操作是()。

參考答案:

按Alt+F8鍵

下列可以打開立即窗口的操作是()。

參考答案:

Ctrl+G

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

參考答案:

狀態(tài)欄

在Visual

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

參考答案:

工程窗口

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

參考答案:

事件驅(qū)動(dòng)

第二章測試

下列符號常量的聲明中，（

）是不合法的。

參考答案:

ConstaAsInteger=“12”

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

）。

參考答案:

False

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

）。A=“56789”

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

參考答案:

78

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

）。

參考答案:

5

下列符號（

）是VisualBasic中合法的變量名。

參考答案:

x23

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

）來分隔。

參考答案:

：

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

）。

參考答案:

單精度型

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

）。

DimAAsInteger,BAsInteger

A=15

B=4

Print4+AB

參考答案:

7

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

）。

參考答案:

NOT、AND、OR

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

）。

參考答案:

3*a*b*c*(d+e)

第三章測試

結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)不包括（）。

參考答案:

倒序結(jié)構(gòu)

下面四個(gè)語句中，能打印顯示20*30字樣的是（

）。

參考答案:

Print“20*30”

關(guān)于MsgBox函數(shù)，以下說法不正確的是（

）。

參考答案:

MsgBox函數(shù)的返回值是一個(gè)字符串，這個(gè)字符串與所選擇的命令按鈕有關(guān)

語句Ifx=1Theny=1,下列說法正確的是(

)。

參考答案:

x=1為關(guān)系表達(dá)式,y=1為賦值語句

下面程序段執(zhí)行結(jié)果為(

)。

x=5

:y=-6Ifnotx>0Then

x=y–3

Else

y=x+3EndIfPrint

x-y;

y-x

參考答案:

-3

3

編寫如下事件過程:

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+1LoopWhilea<10Printa;b

參考答案:

10

5

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

n<3

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

n=n+1LoopPrintj;n

參考答案:

182

3

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

Forj=iTo10

x=x+1

NextjNexti

參考答案:

55

第四章測試

以下關(guān)于靜態(tài)數(shù)組的描述正確的是（

）。

參考答案:

靜態(tài)數(shù)組的大小是固定的，可以有不同類型的數(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

有如下語句：OptionBase1

PrivateSubCommand1_Click()

DimA(2,-1To1)AsInteger

……EndSub?以上語句所定義的數(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è)以上同類型的控件組成，而一般控件只有一個(gè)控件

如果要對已經(jīng)聲明的數(shù)組重新定義大小，并保留原有數(shù)據(jù)，可以使用語句（

）。

參考答案:

ReDimPreserve

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

）。

Private

Sub

Command1_Click()

Dim

a

ReDim

a(6)

For

j=1

To

5

a(j)=j*j

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ù)組聲明語句是（

）。

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

第五章測試

假定有如下的Sub過程：Subfun(xAsSingle,yAsSingle)

t=x

x=t/y

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

DimaAsSingle

DimbAsSingle

a=6

b=4

funa,b

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

）。

參考答案:

1.5

2

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

Dims1AsString

Fori=1ToLen(s)

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

Nexti

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

DimStr1AsString

DimStr2AsString

Str1=InputBox("請輸入一個(gè)字符串")

Str2=Fun(Str1)

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

）。

參考答案:

GFEDCBA

有如下函數(shù)過程：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ù)過程：FunctionCys(ByValxAsInteger,ByValyAsInteger)AsInteger

Dimquotients

DoWhiley<>0

quotients=x/y

x=y

y=quotients

Loop

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

）。PrivateSubCommand1_Click()

DimaAsInteger

DimbAsInteger

a=10

b=2

x=Cys(a,b)

PrintxEndSub

參考答案:

5

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

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ù)過程的返回值是錯(cuò)的需要修改，下面的修改方案中正確的是（

）。

參考答案:

語句“maxval

=

max

”應(yīng)改為“maxval

=

a(max)”

在窗體上畫一個(gè)命令按鈕(名稱為Command1)，并編寫如下代碼：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過程中定義的局部變量可以與其他事件過程中定義的局部變量同名，但其作用域只限于該過程

若已編寫了一個(gè)Sort子過程，在該工程中有多個(gè)窗體，為了方便地調(diào)用Sort子過程，應(yīng)將該過程放在

（

）中。

參考答案:

標(biāo)準(zhǔn)模塊

第六章測試

若要求顯示一個(gè)指定窗體,所用的方法是(

)。

參考答案:

Show

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

)。

參考答案:

Width和Height

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

)。

參考答案:

在“工程屬性”對話框中指定的窗體

每建立一個(gè)窗體,工程管理器窗口中就會(huì)增加一個(gè)(

)。

參考答案:

窗體文件

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

)事件過程。

參考答案:

Load

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

)。

參考答案:

ForeColor

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

)。

參考答案:

代碼窗口

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

)。

參考答案:

Caption

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

)。

參考答案:

程序設(shè)計(jì)時(shí)產(chǎn)生的圖形和文字

窗體的Enable屬性的屬性值是(

)類型的數(shù)據(jù)。

參考答案:

邏輯型

第七章測試

一般不用來觸發(fā)事件的對象是(

)。

參考答案:

標(biāo)簽

如果將文本框的Locked屬性設(shè)置為True,則以下說法(

)是正確的。

參考答案:

運(yùn)行時(shí)用戶不可以在界面上修改文本框中的內(nèi)容

單擊命令按鈕Commandl必將調(diào)用的事件(

)。

參考答案:

Click

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

)。

參考答案:

BackColor

以下不屬于同類的是(

)。

參考答案:

Click

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

)屬性的值獲得。

參考答案:

ListCount

組合框控件是將(

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

參考答案:

列表框控件和文本框控件

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

)。

參考答案:

P1.Print"HowAreYou"

在窗體上畫一個(gè)名稱為Timer1的計(jì)時(shí)器控件,要求每隔0.1秒發(fā)生一次計(jì)時(shí)器事件,則以下正確的屬性設(shè)置語句是(

)。

參考答案:

Timer1.Interval=100

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

)。

參考答案:

Image

第八章測試

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

參考答案:

通用對話框

將通用對話框類型,設(shè)置為字體對話框,可修改該控件的（）屬性。

參考答案:

action

下列屬性屬于顏色對話框的是（）。

參考答案:

Color

在窗體上建立通用對話框必須先將（）添加到工具箱中。

參考答案:

CommonDialog控件

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

參考答案:

ShowSave

下列事件過程可以將打開對話框的標(biāo)題改為"刑事案件卷宗"的是（）。

參考答案:

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

CommonDialogl.ShowOpen

Endsub

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

參考答案:

打開顏色對話框

在窗體上建立一個(gè)通用對話框，名稱為CommonDialog1，用下面的語句可以建立一個(gè)對話框，CommonDialog1.Action=2與該語句等價(jià)的語句是（）：

參考答案:

CommonDialog1.ShowSave

在窗體上畫一個(gè)通用對話框，其名稱為CommonDialog1，然后添加一個(gè)命令按鈕，并編寫如下事件過程：Private

Sub

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

CommonDialog1.ShowOpen

MsgBoxCommonDialog1.FileNameEnd

Sub

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

參考答案:

TextFiles(*.txt)

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

參考答案:

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

第九章測試

下列選項(xiàng)中不正確的是(

)。

參考答案:

菜單項(xiàng)的屬性可以在屬性窗口中設(shè)計(jì)

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

)。

參考答案:

名稱

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

)。

參考答案:

MenuItem.Enabled=False

一個(gè)菜單項(xiàng)是不是一個(gè)分隔條,由(

)屬性決定。

參考答案:

Caption

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

)。

參考答案:

MentOne.Enabled=False

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

參考答案:

Click

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

參考答案:

Click

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

參考答案:

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

下列不能打開菜單編輯器的操作是（）。

參考答案:

按Shift+Alt+M鍵

建立彈出式菜單使用的命令是（）。

參考答案:

PopupMenu

第十章測試

使用Circle(1000,1000),650

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

)屬性決定。

參考答案:

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)將在窗體()畫一直線。

參考答案:

(100,100)到(500,500)

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

參考答案:

容器左上角

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

參考答案:

ScaleMode屬性

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

參考答案:

Line方法

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

參考答案:

FillColor

第十一章測試

當(dāng)用戶按鍵時(shí)，KeyPress、KeyDown、KeyUp事件的執(zhí)行順序?yàn)?

)。

參考答案:

KeyDown事件、KeyPress事件、KeyUp事件

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

)。

參考答案:

所按的鍵盤鍵的鍵碼

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

)。

參考答案:

A

a

在窗體上畫一個(gè)命令按鈕和一個(gè)文本框，并把窗體的KeyPreview設(shè)置為True（在激活對象上的控件鍵盤事件之前，優(yōu)先激活鍵盤事件,即Form優(yōu)先）然后編寫如下代碼：DimSaveAllAsStringPrivateSubCommand1_Click()Text1.Text=Ucase(SaveAll)EndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)SaveAll=SaveAll+Chr(