VB語(yǔ)言程序設(shè)計(jì)-在線(xiàn)作業(yè)-3

VB語(yǔ)言程序設(shè)計(jì)一在線(xiàn)作業(yè)_3

交卷時(shí)間：2016-09-1916:12:53

一、單選題

1

（5分）

通過(guò)設(shè)置Line控件的什么屬性，可以繪制虛線(xiàn)、點(diǎn)劃線(xiàn)等多種樣式的直線(xiàn)（）。

A.DrawStyle

B.Style

C.BorderStyle

D.FillStyle

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

2

（5分）

在窗體上畫(huà)兩個(gè)單選按鈕，名稱(chēng)分別為Optionl和Option2,標(biāo)題分別為“宋體”和“黑體”；一

個(gè)復(fù)選框，名稱(chēng)為Check。標(biāo)題為“粗體”；?個(gè)文本框，名稱(chēng)為T(mén)ext）,Text屬性為“改變文

字字體”。要求程序運(yùn)行時(shí)，“宋體”單選按鈕和“粗體”復(fù)選框被選中，則能夠?qū)崿F(xiàn)上述要求的語(yǔ)

句序列是（）o

A.Optionl.Value=TrueCheckl.Value=True

B.Optionl.Value=TrueCheckl.Value=False

C.Option2.Value=FalseCheckl.Value=True

D.Optionl.Value=TrueCheckl.Value=1

組錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

3

（5分）

下列可以把當(dāng)前目錄下的圖形文件pic1.jpg裝入圖片框Picturel中的語(yǔ)句為（）。

A.Picturel.Picture=LoadPictureCpicl.jpg"）

B.Picture="picl.jpg"

C.Picture=LoadPictureCpicl.jpg"）

D.Picture.Handle="picl.jpg"

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

4

（5分）

設(shè)a=2,b=3,c=4,d=5,下列表達(dá)式Notav=cOr4*c=bA2Andbv>a+c的值

是（）。

A.True

B.1

C.-1

D.False

組錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

5

(5分)

假定有以下循環(huán)結(jié)構(gòu)

DoUntil條件

循環(huán)體

Loop

則正確的描述是()O

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

B.如果"條件"是一個(gè)不為0的常數(shù)，則至少執(zhí)行一次循環(huán)體

C.不論"條件"是否為"真"，至少要執(zhí)行一次循環(huán)體

D.如果"條件"是一個(gè)為0的常數(shù)，則無(wú)限次執(zhí)行循環(huán)體

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

6

(5分)

確定一個(gè)控件在窗體上的位置的屬性是()o

A.Width和Height

B.Top和Left

C.Top或Left

D.Width或Height

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

（5分）

在窗體上畫(huà)兩個(gè)名稱(chēng)分別為L(zhǎng)abell和Label2的標(biāo)簽，然后編寫(xiě)如下事件過(guò)程:

PrivateSubForm_Click()

x=-5:s=-5

SelectCases

CaseIs>0

y=x+1

CaseIs>=0

y=x+2

CaseElse

y=x+3

EndSelect

Labell.Caption=x

Label2.Caption=y

EndSub

程序運(yùn)行后，單擊窗體，標(biāo)簽Labell和Label2中顯示的內(nèi)容分別是（）。

A.-5和-3

B.-5和-4

C.-5和-2

D.-5和-5

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

8

(5分)

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

a=Sqr(3)

b=Sqr(2)

c=a>b

Printc

A.True

B.0

C.-1

D.False

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

9

(5分)

閱讀下面的程序：

FunctionF(aAsInteger)

Staticc

b=0

b=b+1

c=c+1

F=a+b+c

EndFunction

PrivateSubCommand1_Click()

DimaAsInteger

a=2

Fori=1To3

PrintF(a)

Nexti

EndSub

運(yùn)行上面的程序，單擊命令按鈕，輸出結(jié)果為()o

A.468

B.456

C.444

D.479

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

10

(5分)

對(duì)一個(gè)磁盤(pán)上的順序文件進(jìn)行讀操作，打開(kāi)方式為O。

A.Random

B.Input

C.Output

D.Append

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

11

（5分）

圖像框控件有一個(gè)屬性，可以自動(dòng)調(diào)整圖像框的大小，以適應(yīng)圖像的尺寸，這個(gè)屬性是（）o

A.AutoSize

B.Appearance

C.AutoRedraw

D.Stretch

組錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

12

（5分）

為了把窗體上的某個(gè)控件變?yōu)榛顒?dòng)的，應(yīng)執(zhí)行的操作是（）。

A.雙擊窗體

B.雙擊該控件

C.單擊窗體的邊框

D.單擊該控件的內(nèi)部

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

13

(5分)

下列可作為VB的變量名的是()?

A.3*Delta

B.ABD

C.PrintChar

D.Abs

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

14

(5分)

在顯示菜單時(shí)，菜單的哪個(gè)屬性為T(mén)rue時(shí)將用灰色顯示該菜單項(xiàng)標(biāo)題()o

A.Checked

B.Enabled

C.Visible

D.Caption

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

15

(5分)

下列程序段的執(zhí)行結(jié)果為()O

x=2:y=1

Ifx*y<1Theny=y-1Elsey=y+1

Printy-x>0

A.-1

B.False

C.True

D.1

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

16

（5分）

對(duì)用MsgBox顯示的消息框，以下敘述中錯(cuò)誤的是（）。

A.可以有一個(gè)按鈕

B.可以有任意多個(gè)按鈕

C.可以有三個(gè)按鈕

D.可以有兩個(gè)按鈕

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

17

（5分）

閱讀下面的程序：

SubsubP(b()AsInteger)

Fori=1To4

b(i)=2*i

Nexti

EndSub

PrivateSubCommand1_Click()

Dima(1To4)AsInteger

a(1)=5:a(2)=6:a(3)=7:a(4)=8

subPa()

Fori=1To4

Printa(i)

Nexti

EndSub

運(yùn)行上面的程序，單擊命令按鈕，輸出結(jié)果為（）。

A.程序出錯(cuò)

B.10121416

C.2468

D.5678

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

18

(5分)

閱讀下面的程序：

PrivateSubForm_Click()

DimCheck,Counter

Check=True

Counter=0

Do

DoWhileCounter<20

Counter=Counter+1

IfCounter=10Then

Check=False

ExitDo

EndIf

Loop

LoopUntilCheck=False

PrintCounter,Check

EndSub

程序運(yùn)行后，單擊窗體，輸出結(jié)果為Oo

A.10False

B.150

C.20-1

D.10True

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

19

(5分)

當(dāng)窗體最小化時(shí)縮小為一個(gè)圖標(biāo)，設(shè)置這個(gè)圖標(biāo)的屬性是()o

A.Mouseicon

B.Icon

C.Picture

D.MousePoint

組錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

20

(5分)

使文本框獲得焦點(diǎn)