2023春VB語(yǔ)言程序設(shè)計(jì)作業(yè)及答案

2023春VB語(yǔ)言程序設(shè)計(jì)作業(yè)1

1/20單選題（5分）正確答案C我的答案C評(píng)分5分

以下敘述中，錯(cuò)誤的是_______O

A

一個(gè)VisualBasic應(yīng)用程序可以含有多個(gè)標(biāo)準(zhǔn)模塊文件

B

一個(gè)visualBasic工程可以含有多個(gè)窗體文件

C

標(biāo)準(zhǔn)模塊文件可以屬于某個(gè)指定的窗體文件

D

標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是.bas

2/20單選題（5分）正確答案A我的答案A評(píng)分5分

VisualBasic的窗體設(shè)計(jì)器主要是用來(lái)。

A

建立用戶界面

B

添加圖形、圖像、數(shù)據(jù)等控件

C

編寫(xiě)程序源代碼

D

設(shè)計(jì)窗體的布局

3/20單選題（5分）正確答案C我的答案C評(píng)分5分

VisualBasic程序設(shè)計(jì)語(yǔ)言屬于_______。

A

面向過(guò)程的語(yǔ)言

B

機(jī)器語(yǔ)言

C

面向?qū)ο蟮恼Z(yǔ)言

D

匯編語(yǔ)言

4/20單選題（5分）正確答案B我的答案B評(píng)分5分

假定一個(gè)VisualBasic應(yīng)用程序由一個(gè)窗體模塊和一個(gè)標(biāo)準(zhǔn)模塊構(gòu)成。為了保存

該應(yīng)用程序，以下正確的操作是_______.

A

只保存窗體模塊文件

B

分別保存窗體模塊、標(biāo)準(zhǔn)模塊和工程文件

C

只保存窗體模塊和標(biāo)準(zhǔn)模塊文件

D

只保存工程文件

5/20單選題（5分）正確答案D我的答案D評(píng)分5分

下面可以正確定義2個(gè)整形變量和1個(gè)字符串變量的語(yǔ)句的是_______

A

Dimn,mASInterger,sASString

B

Dima%,b$,cASString

C

DimaASInteger,b,cASString

D

Dimx%,yASInteger,zASString

6/20單選題（5分）正確答案A我的答案A評(píng)分5分

設(shè)有如下語(yǔ)句：

Dima,bAsInteger

c="VisualBasic"

d=#7/20/2005#

以下關(guān)于這段代碼的敘述中，錯(cuò)誤的是_______O

A

a被定義為Integer類型變量

B

b被定義為Integer類型變量

C

c中的數(shù)據(jù)是字符串

D

d中的數(shù)據(jù)是日期類型

7/20單選題（5分）正確答案B我的答案B評(píng)分5分

以下可以作為VisualBasic變量名的是_______。

A

A#A

B

counstA

C

3A

D

?AA

8/20單選題（5分）正確答案B我的答案B評(píng)分5分

表達(dá)式12000+"129"&200的值是________。

A

12329

B

"12129200"

C

"12000129200"

D

9/20單選題(5分)正確答案A我的答案A評(píng)分5分

在窗體上畫(huà)一個(gè)名稱為Commandl的命令按鈕，然后編寫(xiě)如下事件過(guò)程：

PrivateSubCommandl_Clicl<()

a$="VisualBasic"

PrintString(3,a$)

EndSub

程序運(yùn)行后,單擊命令按鈕，在窗體上顯示的內(nèi)容是_______O

A

VVV

B

Vis

C

sic

D

11

10/20單選題(5分)正確答案D我的答案D評(píng)分5分

在窗體上畫(huà)一個(gè)文本框、一個(gè)標(biāo)簽和一個(gè)命令按鈕其名稱分別為T(mén)extl.Labell

和Commandl,然后編寫(xiě)如下事件過(guò)程：

PrivateSubTextl_Change()

Labell.Caption=Right(Trim(Textl.Text),3)

EndSub

程序運(yùn)行后，在文本框中輸入"abcdef",單擊命令按鈕，則在標(biāo)簽中顯示的內(nèi)容是

A

空

B

abcdef

C

abc

D

def

11/20單選題（5分）正確答案B我的答案B評(píng)分5分

設(shè)在名稱為Myform的窗體上只有1個(gè)名稱為C1的命令按鈕，下面敘述中正確

的是________O

A

窗體的Click事件過(guò)程的過(guò)程名是Myform_Click

B

命令按鈕的Click事件過(guò)程名是Cl_Click

C

命令按鈕的Click事件過(guò)程的過(guò)程名是Commandl_Click

D

上述3種過(guò)程名稱都是錯(cuò)誤的

12/20單選題（5分）正確答案C我的答案C評(píng)分5分

以下能在窗體Forml的標(biāo)題欄中顯示"VisualBasic窗體"的語(yǔ)句是_______。

A

Forml.Name="VisualBasic窗體"

B

Forml.Title="VisualBasic窗體"

C

Forml.Caption="VisualBasic窗體"

D

Forml.Text="VisualBasic窗體

13/20單選題（5分）正確答案D我的答案D評(píng)分5分

對(duì)用MsgBox顯示的消息框，下面_______是錯(cuò)的。

A

可以有一個(gè)按鈕

B

可以有兩個(gè)按鈕

C

可以有三個(gè)按鈕

D

可以有四個(gè)按鈕

14/20單選題（5分）正確答案D我的答案D評(píng)分5分

在窗體上畫(huà)一個(gè)名稱為T(mén)imerl的計(jì)時(shí)器控件，要求每隔0.5秒發(fā)生一次計(jì)時(shí)器事

件，則以下正確的屬性設(shè)置語(yǔ)句是_______O

A

Timerl.InterVal=0.5

B

Timerl.Interval=5

C

Timerl.Interval=50

D

Timerl.Interval=500

15/20單選題（5分）正確答案B我的答案B評(píng)分5分

在窗體上畫(huà)一個(gè)文本框，其名稱為T(mén)extlo為了在程序運(yùn)行后Textl中的文本不

可編輯，應(yīng)當(dāng)使用的語(yǔ)句.

A

Textl.Clear

B

Textl.Locked=True

C

Textl.Visible=False

D

Textl.Enabled=False

16/20單選題（5分）正確答案C我的答案C評(píng)分5分

以下循環(huán)語(yǔ)句中在任何情況下都至少執(zhí)行一次循環(huán)體的是_______。

A

DoWhile〈條件〉

循環(huán)體

Loop

B

,While〈條件〉

循環(huán)體

Wend

c

Do

循環(huán)體

LoopUntil〈條件》

D

.DoUntil〈條件》

循環(huán)體

Loop

17/20單選題(5分)正確答案B我的答案B評(píng)分5分

在窗體上畫(huà)一個(gè)列表框和一個(gè)命令按鈕，其名稱分別為L(zhǎng)istl和Commandl,

然后編寫(xiě)如下事件過(guò)程：

PrivateSubForm_Load()

Listl.Addltem"Item1"

Listl.Addltem"Item2"

Listl.Addltem"Item3"

EndSub

PrivateSubCommandl_Click()

Listl.List(Listl.ListCount)="AAAA"

EndSub

程序運(yùn)行后,單擊命令按鈕，其結(jié)果為O

A

把字符串"AAAA"添加到列表框中，但位置不能確定

B

把字符串"AAAA"添加到列表框的最后（即"Item3"的后面）

C

把列表框中原有的最后一項(xiàng)改為"AAAA"

D

把字符串"AAAA"插入到列表框的最前面（即"Item1"的前

面）

18/20單選題（5分）正確答案A我的答案A評(píng)分5分

在窗體上畫(huà)一個(gè)名稱為L(zhǎng)istl的列表框，一個(gè)名稱為L(zhǎng)abell的標(biāo)簽，列表框中顯示

若干個(gè)項(xiàng)目。當(dāng)單擊列表框中的某個(gè)項(xiàng)目時(shí)，在標(biāo)簽中顯示被選中項(xiàng)目的索引值。

下列能正確實(shí)現(xiàn)上述操作的程序是_________。

A

PrivateSubListl_Click（）]

Labell.Caption=Listl.Listindex

EndSub

B

PrivateSubListl_Click（）

Labell.Name=Listl.Listindex

EndSub

c

PrivateSubListl_Click()

Labell.Name=Listl.Text

EndSub

D

PrivateSubListl_Click()

Labell.Caption=Listl.Text

EndSub

19/20單選題(5分)正確答案A我的答案A評(píng)分5分

將文本框的屬性設(shè)置為T(mén)rue時(shí)，文本框可以輸入或顯示多行文本，且會(huì)

在輸入的內(nèi)容超出文本框的寬度時(shí)自動(dòng)換行。

A

Multiline

B

Scrollbars

C

Text

D

Enabled

20/20單選題(5分)正確答案C我的答案C評(píng)分5分

語(yǔ)句a=InputBox("Today","Tomorrow","Yesterday",,,"Daybefore

yesterday",5)將顯示一個(gè)對(duì)話框,在對(duì)話框的輸入?yún)^(qū)中顯示的信息是_______。

A

Today

B

Tomorrow

C

Yesterday

D

Day

2023春VB語(yǔ)言程序設(shè)計(jì)作業(yè)2

1/20單選題（5分）正確答案C我的答案C評(píng)分5分

以下循環(huán)語(yǔ)句中在任何情況下都至少執(zhí)行一次循環(huán)體的是________。

A

DoWhile〈條件＞

循環(huán)體

Loop

B

While〈條件》

循環(huán)體

Wend

c

,Do

循環(huán)體

LoopUntil〈條件＞

D

DoUntil〈條件》

循環(huán)體

Loop

2/20單選題（5分）正確答案A我的答案A評(píng)分5分

某人設(shè)計(jì)了如下程序用來(lái)計(jì)算并輸出7!（7的階乘）

PrivateSubCommandl_Clicl＜（）

t=0

Fork=7To2Step-1

t=t*k

Next

Printt

EndSub

執(zhí)行程序時(shí)，發(fā)現(xiàn)結(jié)果是錯(cuò)誤的，下面的修改方案中能夠得到正確結(jié)構(gòu)的是

A

把t=0改為"1

B

把Fork=7To2Step-1改為Fork=7To1Step-1

C

把Fork=7To2Stip-1改為Fork=lTo7

D

把Next改為Nextk

3/20單選題（5分）正確答案B我的答案B評(píng)分5分

以下程序段的輸出結(jié)果是________O

num=0

Whilenum＜=2

num=num+1

Wend

Printnum

A

2

B

3

C

4

D

程序出錯(cuò)

4/20單選題（5分）正確答案A我的答案A評(píng)分5分

設(shè)有以下循環(huán)結(jié)構(gòu)：

Do

循環(huán)體

LoopWhile＜條件＞

則下列敘述中錯(cuò)誤的是________.

A

若"條件”是一個(gè)為0的常數(shù)，則一次也不執(zhí)行循環(huán)體

B

"條件"可以是關(guān)系表達(dá)式，邏輯表達(dá)式或常數(shù)

c

循環(huán)體中可以使用ExitDo語(yǔ)句

D

如果"條件"總是為T(mén)rue,則不停地執(zhí)行循環(huán)體

5/20單選題(5分)正確答案B我的答案B評(píng)分5分

在窗體上畫(huà)一個(gè)列表框和一個(gè)命令按鈕，其名稱分別為L(zhǎng)istl和Command1,

然后編寫(xiě)如下事件過(guò)程：

PrivateSubForm_Load()

Listl.Addltem"Item1"

Listl.Addltem"Item2"

Listl.Addltem"Item3"

EndSub

PrivateSubCommandl_Click()

Listl.List(Listl.ListCount)="AAAA"

EndSub

程序運(yùn)行后,單擊命令按鈕，其結(jié)果為O

A

把字符串"AAAA"添加到列表框中，但位置不能確定

B

把字符串"AAAA"添加到列表框的最后(即"Item3"的后面)

C

把列表框中原有的最后一項(xiàng)改為"AAAA"

D

把字符串"AAAA"插入到列表框的最前面(即"Item1"的前

面)

6/20單選題(5分)正確答案A我的答案A評(píng)分5分

在窗體上畫(huà)一個(gè)名稱為L(zhǎng)istl的列表框，一個(gè)名稱為L(zhǎng)abell的標(biāo)簽，列表框中顯示

若干個(gè)項(xiàng)目。當(dāng)單擊列表框中的某個(gè)項(xiàng)目時(shí)，在標(biāo)簽中顯示被選中項(xiàng)目的索引值。

下列能正確實(shí)現(xiàn)上述操作的程序是_________。

A

PrivateSubListl_Click()

Labell.Caption=Listl.Listindex

EndSub

B

PrivateSubListl_Click()

Labell.Name=Listl.Listindex

EndSub

c

.PrivateSubListl_Click()

Labell.Name=Listl.Text

EndSub

D

PrivateSubListl_Click()

Labell.Caption=Listl.Text

EndSub

7/20單選題(5分)正確答案C我的答案C評(píng)分5分

可以同時(shí)刪除字符前導(dǎo)和尾部空白的函數(shù)是_____。

A

Ltrim

B

Rtrim

C

Trim

D

Mid

8/20單選題（5分）正確答案C我的答案C評(píng)分5分

在窗體上畫(huà)一個(gè)文本框（其Name屬性為T(mén)extl）,然后編寫(xiě)如下事件過(guò)程:

PrivateSubForm_Load（）

Textl.Text=""

Textl.SetFocus

Fori=1To10

Sum=Sum+i

Nexti

Textl.Text=Sum

EndSub

上述程序的運(yùn)行結(jié)果是____o

A

在文本框Textl中輸出55

B

在文本框Textl中輸出0

C

出錯(cuò)

D

在文本框Textl中輸出不定值

9/20單選題（5分）正確答案C我的答案C評(píng)分5分

以下是一個(gè)計(jì)算1-100之間所有奇數(shù)的和的程序，所缺部分應(yīng)填。

DimSAsLong

DimXAsInteger

S=0

ForX=Step-2

S=S+X

NextX

PrintS

A

100To1

B

1To100

C

99To1

D

ITo99

10/20單選題（5分）正確答案B我的答案B評(píng)分5分

下列關(guān)于DO...LOOP語(yǔ)句的敘述中，不正確的是____________.

A

DO...LOOP語(yǔ)句采用邏輯表達(dá)式來(lái)控制循環(huán)體執(zhí)行的次數(shù)。

B

DOWHILE...LOOP語(yǔ)句與DOUNTIL...LOOP語(yǔ)句中WHILE

與UNTIL后面的表達(dá)式值為T(mén)RUE或非0時(shí)循環(huán)繼續(xù)。

C

DO…LOOPWHILE與DO…LOOPUNTIL語(yǔ)句者B至少執(zhí)行一次

循環(huán)

D

DOWHILE...LOOP語(yǔ)句與DOUNTIL...LOOP語(yǔ)句可能不執(zhí)行

循環(huán)

11/20單選題（5分）正確答案C我的答案C評(píng)分5分

要使循環(huán)至少執(zhí)行一次,應(yīng)使用循環(huán)。

A

FOR……NEXT

B

WHILE……WEND

C

DO……LOOPWHILE/UNTIL

D

DOWHILE/UNTIL……LOOP

12/20單選題（5分）正確答案A我的答案A評(píng)分5分

下列關(guān)于FOR循環(huán)的說(shuō)法中，正確的是_____________。

A

循環(huán)變量、初值、終值和步長(zhǎng)都必須是數(shù)值型

B

STEP后面的值必須為正數(shù)

C

初值必須小于終值

D

初值必須大于終值

13/20單選題（5分）正確答案A我的答案A評(píng)分5分

以下程序如果要求運(yùn)行時(shí)只能循環(huán)3次，則所缺部分應(yīng)填____。

X=1

DO

X=X+3

PRINTX

LOOPUNTIL

A