算法會考模擬單選題

在Visual

Basic中，同一行上可以書寫多個語句，語句間用（

）符號分隔。A)

撇號（’）B)

冒號（：）C)

感嘆號（?。〥)

大于號（>）答案：BPrint

"20+5=";20+5輸出的結(jié)果是（

）A)

20+5=20+5B)

25=20+5C)

"20+5"=25答案：D語句Print

"5*20"

輸出結(jié)果是

(

)A)

"5*20"B)

出錯C)

5*20D)

100答案：C下面四個選項中,不是窗體事件的是(

)A)

LoadB)

UnloadC)

DblClickD)

Enable答案：D若要設(shè)置文本框中所顯示的文本顏色，使用的屬性是（

）A)

FillColorB)

BackColorC)

ForeColorD)

BackStyle答案：C設(shè)置命令按鈕標(biāo)題文字的字體、字號要使用（

）屬性。A)

TextB)

CaptionC)

NameD)

Font答案：D只能用來顯示字符信息的控件是（

）A)

標(biāo)簽B)

圖像框C)

圖片框D)

文本框答案：A下面四個控件中，屬于文本框控件的是（

）A)

B)

C)

D)

答案：B下述選項中,屬于VB程序設(shè)計方法的是（

）A)

面向?qū)ο?事件驅(qū)動B)

面向?qū)ο?順序驅(qū)動C)

面向過程,問題驅(qū)動D)

面向過程,對象驅(qū)動答案：A執(zhí)行以下語句后，a的值是(

)

Dim

a

As

Integer

a

=

1

Do

While

a

<>

100

a

=

a

+

2

LoopA)

99B)

100C)

溢出答案：C在VB中，以下程序段：t=1：x=0Do

While

t<10

x=x+tt=t+1Loop運行后的x的值為（

）A)

9B)

45C)

10答案：B當(dāng)VB執(zhí)行下面語句后，A的值為(

)

A=1

IF

A>0

THEN

A=A+1

IF

A>1

THEN

A=0A)

2B)

1C)

0答案：C下列程序段輸出的結(jié)果為(

)

x

=

5:

y

=

10:

z

=

20

If

x

+

y

>

z

Then

Print

3

*

z

Else

Print

4

*

zA)

60B)

80C)

15答案：B有如下Visual

Basic程序段，該程序段運行后，變量y的值是(

)。

x=8

if

x>l

then

y=x-4

else

y=x+3

end

ifA)

4B)

8C)

11答案：A定義a,b,c為整型變量，執(zhí)行語句

a

=

9:

b

=

8:

c

=

10:

c

=

a:

a

=

b:

b

=

c后，其a,b的值是(

)A)

8，9B)

8，10C)

10，8D.9，8答案：A模塊：算法與程序設(shè)計表達(dá)式Abs(-32.6)*Sqr(100)的值是（

）A)

-320B)

-326C)

326答案：C執(zhí)行下列語句后，S的值是（

）

B$="456789"

S=Val(Mid$(B$,3,2))A)

67B)

78C)

45答案：A在VB中執(zhí)行“A＝80\9MOD6”語句后，A的值為（

）A)

3B)

2C)

1答案：B針對語句

If

I=1

then

J=1，下列說法正確的是

(

)A)

I=1和J=1均為賦值語句B)

均為關(guān)系表達(dá)式C)

I=1為關(guān)系表達(dá)式，J=1為賦值語句D)

I=1為賦值語句，J=1為關(guān)系表達(dá)式答案：C下列能正確表示a≥7或a≤-5的關(guān)系表達(dá)式是(

)A)

a>=7Ora<=-5B)

a>=7Anda<=-5C)

a>=7Xora<=-5D)

a>=7Eqva<=-5答案：A表示“X>Y>Z”，正確的VB邏輯表達(dá)式是

(

)A)

X>YAndY>ZB)

X>Y>ZC)

X>YorY>ZD)

X>YAnd>Z答案：AVB程序設(shè)計問題。在窗體上畫一個文本框，然后編寫如下事件過程：Private

Sub

Form_Click()x

=

InputBox("請輸入一個整數(shù)")Print

x

+

Text1.TextEnd

Sub程序運行時，在文本框中輸入456，然后單擊窗體，在輸入對話框中輸入123，單擊“確定”按鈕后，在窗體上顯示的內(nèi)容是(

)。A)

123B)

456C)

579答案：D在文本框Text1中輸入數(shù)字12，Text2中輸入數(shù)字34，執(zhí)行以下語句，只有（

）可使文本框Text3中顯示46。A)

Text3.Text=Text1.Text&Text2.TextB)

Text3.Text=val(Text1.Text)+val(Text2.Text)C)

Text3.Text=Text1.Text+Text2.TextD)

Text3.Text=val(Text1.Text)&val(Text2.Text)答案：B模塊：算法與程序設(shè)計窗體上有一個文本框控件Text1，假設(shè)已存在三整型變量a,b和c,且變量a值為5，變量b的值為7，變量c的值為12，則以下的(

)語句可以使文本框內(nèi)顯示的內(nèi)容為：5+7=12A)

Text1.Text=a+b=cB)

Text1.Text="a+b=c"C)

Text1.text=a&"+"&b&"="&cD)

Text1.text="a"&"+"&"b"&"="&"c"答案：C表達(dá)式

5<8

and

7>4

or

3=2的結(jié)果是

（

）A)

FalseB)

TrueC)

1D)

0答案：B在VB6.0中,下面四個數(shù)中,作為常量有語法錯誤的是(

)A)

123.456B)

1.23E2.1C)

1.23E-2答案：B下面所列四組數(shù)據(jù)中，全部是VB常量的是

(

)A)

2768&,1.34#，“ABCDE”，TrueB)

276，123.56,1.2E-2，#True#C)

HABCE，02-03-2004，F(xiàn)alse，0-3D)

ABCE，#02-03-2004#，E-2答案：A由Const

m=“123”，可以判斷m為（

）。A)

整型常量B)

實型常量C)

字符串型常量D)

布爾型常量答案：C在Visual

Basic

6.0程序語言系統(tǒng)中，下列不合法的變量名是(

)A)

mynameB)

a5cC)

4cD)

class_1答案：C下列各種基本數(shù)據(jù)類型說明符中表示單精度實型數(shù)的是(

)。A)

IntegerB)

BooleanC)

SingleD)

String答案：C在程序中將變量Inta、Bl、st和D定義為Integer型、Boolean型、String型和Date型，下列語句中，正確的是(

)A)

Inta="333"+"22"B)

D=#10/05/01#C)

5+"abc"D)

#True#答案：B執(zhí)行語句x

=

-1:

y

=

2:

x

=

x

+

y:

y

=

x

+

y

變量x,y分別是(

)。A)

13B)

11C)

-12答案：A下列Visual

Basic程序段運行后，變量x的值為(

)。

x=3:y=77

Do

x=x+2

Loop

Until

x>Sqr(y)A)

7B)

8C)

9答案：C在過程中有語句For

I=N1

to

N2

step

N3，在該循環(huán)體內(nèi)有下列四條語句，其中（

）會影響循環(huán)執(zhí)行次數(shù)①、N1=N1+1

②、N2=N2+N3

③、I=I+N3

④、N3=2*N3A)

①②B)

①②③C)

③D)

①②③④答案：C下列選項中不能輸出信息的是（

）A)

Printa+b,cB)

?a,b,cC)

Printa;b,cD)

Dimxassingle答案：D有如下VB程序，運行后S的值是（

）。s=3n=5s=s+nn=s-ns=s-nA)

3B)

8C)

5答案：C在VB中，某同學(xué)要計算1+3+5+……+9的值，他應(yīng)用循環(huán)結(jié)構(gòu)語句如下：“

s=0FOR

i＝1

TO

9

STEP

?

s=s+i

”請問語句中的“？”代表的值是（

）A)

1B)

-1C)

2答案：C下列Visual

Basic程序段運行后，變量max的值為（

）。

a=11

b=15

max=aIF

b>max

Then

max

=bA)

11B)

15C)

15或11都有可能答案：B下面程序段是用函數(shù)實現(xiàn)的二分查找，將程序中帶下劃線的部分補(bǔ)充完整。funtion

search(byval

key

as

integer)

as

integer

dim

i

as

integer

dim

j

as

integer

dim

m

as

integer

dim

nc

as

integer

i=1

j=60

nc=0

do

while

i<=j

nc=nc+1

m=(i+j)

\2

if

_______

then

search=m

exit

function

endif

if

key<d(m)

then

j=m-1

else

i=m+1

endif

loop

search=0

end

functionA)

d(m)=keyB)

d(m)<>keyC)

key>d(m)D)

d(m)<li>答案：A下面程序段是用遞歸函數(shù)實現(xiàn)的求n!，將程序中帶下劃線的部分補(bǔ)充完整。

function

f(byval

as

integer)

as

integer

if

n=1

then

f=1

else

f=_________

endif

end

functionA)

f(n)B)

n*f(n-1)C)

f(n-1)D)

n+f(n-1)答案：B閱讀下列程序,程序運行后在文本框中顯示的內(nèi)容是()。Private

Sub

Form_Click()

Dim

s

As

Integer

Dim

i

As

Integer

s

=

0

For

i

=

1

To

50

s

=

s

+

(2

*

i

-

1)

-

2

*

i

Next

i

text1.text

=

sEnd

SubA)

0B)

50C)

-50答案：C閱讀下列程序,程序運行后在文本框中顯示的內(nèi)容是()。Private

Sub

Form_Click()

Dim

s1

As

Integer

Dim

s2

As

Integer

Dim

i

As

Integer

s2

=

0

s1

=

0

For

i

=

1

To

50

s1

=

s1

+

(2

*

i

-

1)

s2

=

s2

+

2

*

i

Next

i

text1.text

=

s1

-

s2

End

SubA)

5050B)

-50C)

0答案：B閱讀下列程序,程序運行后在文本框中顯示的內(nèi)容是()。Private

Sub

Form_Click()

Dim

s

As

Integer

Dim

t

As

Integer

Dim

i

As

Integer

s

=

0

t

=

1

For

i

=

1

To

100

s

=

s

+

i

*

t

t

=

-t

Next

i

text1.text

=

sEnd

SubA)

5050B)

-50C)

2525答案：B閱讀下列程序,程序運行后在文本框中顯示的內(nèi)容是()。Private

Sub

Form_Click()

Dim

s

As

Integer

Dim

i

As

Integer

s

=

1

i

=

1

Do

While

i

<=

6

s

=

s

*

i

i

=

i

+

1

Loop

text1.text

=

s

End

SubA)

120B)

720C)

360答案：B閱讀下列程序,程序運行后在文本框中顯示的內(nèi)容是()。Private

Sub

Form_Click()

Dim

s

As

Integer

Dim

i

As

Integer

s

=

0

i

=

1

Do

While

i

<=

100

s

=

s

+

i

i

=

i

+

1

Loop

text1.text

=

sEnd

SubA)

5050B)

5051C)

10100答案：A閱讀下列程序,程序運行后在文本框中顯示的內(nèi)容是()。Private

Sub

Form_Click()

Dim

s

As

Integer

Dim

i

As

Integer

s

=

0

For

i

=

1

To

100

s

=

s

+

i

Next

i

text1.text=

sEnd

SubA)

5051B)

10100C)

5050答案：C閱讀下列程序,程序運行后在文本框中顯示的內(nèi)容是()。Private

Sub

Form_Click()

Dim

f1

As

Integer

Dim

f2

As

Integer

Dim

f

As

Integer

Dim

i

As

Integer

f1

=

1

f2

=

1

For

i

=

3

To

8

f

=

f1

+

f2

f1

=

f2

f2

=

f

Next

i

text1.text

=

fEnd

SubA)

13B)

21C)

34答案：B閱讀下列程序,程序運行后在文本框中顯示的內(nèi)容是()。Private

Sub

Form_Click()

Dim

n

As

Integer

Dim

s

As

Integer

n

=

10

s

=

0

For

k

=

n

\

3

To

4

s

=

s

+

k

-

(n

-

k

+

1)

\

2

+

1

Next

k

text1.text

=

s

End

SubA)

3B)

2C)

1答案：B閱讀下列程序,程序運行后在文本框中顯示的內(nèi)容是(

)。Private

Sub

Form_Click()

Dim

n

As

Integer

Dim

s

As

Integer

n

=

456

s

=

0

Do

While

n

>

1

s

=

s

+

n

\

5

n

=

n

\

5

Loop

text1.text

=

sEnd

SubA)

112B)

110C)

91答案：A在VB中進(jìn)行程序界面制作時，要設(shè)置某個對象屬性時，應(yīng)進(jìn)入（）。A)

任意模式B)

運行模式C)

中斷模式D)

設(shè)計模式答案：D閱讀下列程序段，程序運行后在文本框中顯示的內(nèi)容是（）。Private

Sub

Form_Click()

Dim

a(1

To

10)

As

Integer

Dim

b(1

To

10)

As

Integer

Dim

j

As

Integer

For

j

=

1

To

5

a(j)

=

2

*

j

b(j)

=

a(j)

*

3

Next

j

Text1.Text

=

b(j

\

2)End

SubA)

30B)

無解C)

18D)

0答案：C閱讀下列程序段，程序運行后正確結(jié)果是（）。Private

Function

tran(ByVal

n

As

Long)

Dim

k

As

Long

k

=

n

Mod

8

n

=

n

\

8

If

n

<>

0

Then

tran

(n)

End

If

Print

k;End

Function

Private

Sub

Form_Click()

Dim

m

As

Long

m

=

2010

tran

(m)End

SubA)

2010B)

3732C)

2373答案：B閱讀下列程序段，程序運行后在文本框中顯示的結(jié)果是（）。Private

Function

gcd(ByVal

m

As

Long,

ByVal

n

As

Long)

As

Long

Dim

r

As

Long

r

=

m

Mod

n

If

r

=

0

Then

gcd

=

n

Else

gcd

=

gcd(n,

r)

End

If

End

FunctionPrivate

Sub

Form_Click()

Dim

x

As

Long

Dim

y

As

Long

x

=

524

y

=

36

Text1.Text

=

gcd(x,

y)End

SubA)

8B)

4C)

2答案：B下面程序段是實現(xiàn)二分查找，執(zhí)行程序后,先輸入由小到大的一組數(shù)據(jù),后輸入要查詢的數(shù)。將程序中帶下劃線的部分補(bǔ)充完整。Dim

a(1

To

10)

As

IntegerPrivate

Function

search(ByVal

key

As

Integer)

As

Integer

Dim

i

As

Integer

Dim

j

As

Integer

Dim

m

As

Integer

j

=

5

i

=

1

Do

While

_____________

m

=

(i

+

j)

\

2

If

a(m)

=

key

Then

search

=

m

Exit

Function

'退出定義函數(shù)

Else

If

key

>

a(m)

Then

i

=

m

+

1

Else

j

=

m

-

1

End

If

End

If

Loop

search

=

-1End

Function

Private

Sub

Form_Click()

Dim

i

As

Integer

Dim

x

As

Integer

For

i

=

1

To

5

a(i)

=

InputBox("請輸入第"

+

Str(i)

+

"的值：")

Next

i

x

=

InputBox("輸入要查找的數(shù)值")

Print

search(x)End

SubA)

i<=jB)

i>=jC)

i<>jD)

i=j答案：A下列程序段是將數(shù)組a中元素值從小到大排序，請將程序中帶下劃線部分補(bǔ)充完整。Private

Sub

Form_Click()

Dim

a(1

To

10)

As

Integer

Dim

i

As

Integer

Dim

j

As

Integer

Dim

t

As

Integer

n

=

10

Randomize

For

i

=

1

To

n

a(i)

=

Int(Rnd()

*

100)

Print

a(i);

Next

i

Print

Chr(10)

For

i

=

1

To

n

-

1

For

j

=

i

+

1

To

n

If

____________

Then

t

=

a(j)

a(j)

=

a(i)

a(i)

=

t

End

If

Next

j

Next

i

For

i

=

1

To

n

Print

a(i);

Next

i

End

SubA)

a(j)>a(i)B)

a(j)<li>C)

a(j)>=a(i)D)

a(j)<li>答案：B小寫字母d的ASCII碼值為100，則小寫字母a的ASCII碼值是（）。A)

99B)

97C)

65答案：B閱讀下列程序段，正確的輸出結(jié)果是（）。Private

Sub

Form_Click()

Dim

i

As

Integer

Dim

yes

As

Boolean

Dim

k

As

Integer

For

i

=

10

To

20

yes

=

True

For

k

=

2

To

i

-

1

If

i

Mod

k

=

0

Then

yes

=

False

End

If

Next

k

If

yes

Then

Print

i;

End

If

Next

iEnd

SubA)

19B)

1113151719C)

11答案：D二分法查找也稱折半查找，它要求被查數(shù)據(jù)必須是（），否則無法使用二分法查找。A)

無序的B)

有序的C)

無序或有序D)

隨機(jī)的答案：B在編制一個學(xué)生成績管理軟件時，要定義一個數(shù)組a，格式為：

dim

a(1

to

50)

as

single問數(shù)組a共有(

)個數(shù)組元素。A)

49B)

51C)

50答案：C在VB6中，我們總是和對象交道。從工具箱中將一個控件拖放到窗體中，實際上也創(chuàng)建了一個對象，每一個對象都有的屬性是（）。A)

名稱B)

captionC)

fontD)

refresh答案：A阿克曼（Ackerman）函數(shù)如下，A(1,5)的值是（）。

A)

13B)

7C)

15答案：B閱讀下列程序，其功能是（）。Private

Sub

Form_click()

Dim

a(0

To

5)

As

IntegerDim

n

As

IntegerDim

j

As

IntegerDim

i

As

Integern

=

5For

i

=

1

To

n

a(i)

=

InputBox("輸入第"

+

Str(i)

+

"值：")Next

iFor

i

=

1

To

n

Print

a(i);Next

i

For

i

=

2

To

n

a(0)

=

a(i)

j

=

i

-

1

Do

While

a(j)

>

a(0)

a(j

+

1)

=

a(j)

j

=

j

-

1

Loop

a(j

+

1)

=

a(0)

Next

i

Print

Chr(10)For

i

=

1

To

n

Print

a(i);Next

i

End

SubA)

由小到大排序B)

由大到小排序C)

統(tǒng)計D)

查找答案：A程序運行后,通過鍵盤輸入4個數(shù),分別為3、2、1、-1,程序輸出結(jié)果為（）。Private

Function

ss()

Dim

x

As

Integer

x

=

InputBox("輸入值：")

If

x

<>

-1

Then

ss

End

If

Print

x；

End

Function

Private

Sub

Form_click()

ssEnd

SubA)

321-1B)

123C)

321答案：D閱讀下列程序,程序運行后在文本框中顯示的內(nèi)容是()。Private

Function

power(ByVal

x

As

Single,

ByVal

n

As

Integer)

As

Single

If

n

=

0

Then

power

=

1

Else

power

=

x

*

power(x,

n

-

1)

End

IfEnd

Function

Private

Sub

Form_click()

Dim

n

As

Integer

Dim

x

As

Integer

x

=

2

n

=

10

Text1.Text

=

power(2,

10)End

SubA)

1024B)

512C)

256答案：A閱讀下列程序,程序運行后在文本框中顯示的內(nèi)容是()。Private

Function

ss(ByVal

n

As

Integer)

As

Integer

If

n

=

1

Then

ss

=

1

Else

ss

=

n

+

ss(n

-

1)

End

IfEnd

Function

Private

Sub

Form_Click()

Dim

n

As

Integer

n

=

100

Text1.Text

=

ss(n)End

SubA)

無窮大B)

5050C)

-5050答案：B程序運行后,通過鍵盤給數(shù)組a的元素輸入值，分別為：3,44,46,67,87，程序結(jié)果在文本框中顯示的內(nèi)容是()。Dim

a(1

To

10)

As

IntegerPrivate

Function

search(ByVal

x

As

Integer,

ByVal

top

As

Integer,

ByVal

bot

As

Integer)

As

Integer

Dim

mid

As

Integer

Dim

ls

As

Integer

If

top

<=

bot

Then

mid

=

(top

+

bot)

\

2

If

x

=

a(mid)

Then

search

=

mid

Else

If

x

<

a(mid)

Then

search

=

search(x,

top,

mid

-

1)

Else

search

=

search(x,

mid

+

1,

bot)

End

If

End

If

Else

search

=

-1

End

IfEnd

Function

Private

Sub

Form_Click()

Dim

n

As

Integer

Dim

y

As

Integer

y

=

35

n

=

5

For

i

=

1

To

n

a(i)

=

InputBox("輸入第"

+

Str(i)

+

"值：")

Next

i

Text1.Text

=

search(y,

1,

5)

End

SubA)

1B)

2C)

3答案：D程序運行后,通過鍵盤給數(shù)組a的元素輸入值，分別為：3,44,46,67,87,程序結(jié)果在文本框中顯示的內(nèi)容是()。Private

Sub

Form_Click()

Dim

a(1

To

5)

As

Integer

Dim

find

As

Boolean

Dim

top

As

Integer

Dim

bot

As

Integer

Dim

mid

As

Integer

Dim

n

As

Integer

Dim

i

As

Integer

Dim

x

As

Integer

Dim

p

As

Integer

n

=

5

For

i

=

1

To

n

a(i)

=

InputBox("輸入第"

+

Str(i)

+

"值：")

Next

i

x

=

67

top

=

1

bot

=

n

find

=

False

Do

While

bot

>=

top

And

Not

find

mid

=

(top

+

bot)

\

2

If

a(mid)

=

x

Then

find

=

True

p

=

mid

Else

If

x

<

a(mid)

Then

bot

=

mid

-

1

Else

top

=

mid

+

1

End

If

End

If

Loop

If

find

Then

Text1.Text

=

p

Else

Text1.Text

=

"沒找到！"

End

If

End

SubA)

沒找到!B)

4C)

1答案：B模塊：算法程序運行后,通過鍵盤給數(shù)組a的元素輸入值，分別為：3,44,45,67,72,經(jīng)過程序計算后a數(shù)組元素的值為（）。Private

Sub

Form_Click()

Dim

a(1

To

6)

As

Integer

Dim

n

As

Integer

Dim

p

As

Integer

Dim

i

As

Integer

Dim

m

As

Integer

n

=

5For

i

=

1

To

n

a(i)

=

InputBox("輸入第"

+

Str(i)

+

"值：")Next

iFor

i

=

1

To

n

Print

a(i);Next

ip

=

1x

=

32Do

While

x

>=

a(p)

And

p

<=

n

p

=

p

+

1LoopFor

i

=

n

To

p

Step

-1

a(i

+

1)

=

a(i)Next

ia(p)

=

xPrint

Chr(10)For

i

=

1

To

n

+

1

Print

a(i);Next

i

End

SubA)

344456772B)

33244456772C)

34445677232D)

32344456772答案：B程序運行后,通過鍵盤給數(shù)組a的元素輸入值，分別為：72、3、45、67、44,經(jīng)過程序計算后a數(shù)組元素的值依次為（）。Private

Sub

Form_Click()

Dim

a(1

To

5)

As

Integer

Dim

n

As

Integer

Dim

p

As

Integer

Dim

i

As

Integer

Dim

m

As

Integer

n

=

5

For

i

=

1

To

n

a(i)

=

InputBox("輸入第"

+

Str(i)

+

"值：")

Next

i

For

i

=

1

To

n

Print

a(i);

Next

i

p

=

n

\

2

For

i

=

1

To

p

j

=

n

-

i

+

1

m

=

a(j)

a(j)

=

a(i)

a(i)

=

m

Next

i

Print

Chr(10)

For

i

=

1

To

n

Print

a(i);

Next

iEnd

SubA)

446745372B)

344456772C)

726745443D)

447234567答案：A流程圖中表示“處理”的圖形是(

)。A)

矩形B)

菱形C)

圓形D)

平行四邊形答案：A以下不是程序設(shè)計語言的是(

)。A)

BASICB)

C語言C)

WordD)

Pascal答案：C在調(diào)試程序過程中，下列哪一種錯誤是計算機(jī)檢查不出來的？(

)A)

編譯錯誤B)

執(zhí)行錯誤C)

邏輯錯誤D)

任何錯都能查出來答案：CVisual

Basic

是一種面向(

)程序設(shè)計語言。A)

事件B)

過程C)

對象D)

屬性答案：C計算機(jī)能夠直接識別的語言是(

)。A)

偽代碼B)

高級語言C)

機(jī)器語言D)

匯編語言答案：C程序設(shè)計語言的發(fā)展大致經(jīng)歷了幾個階段，以下說法正確的是(

)。A)

機(jī)器語言、高級語言、匯編語言B)

高級語言、匯編語言、機(jī)器語言C)

機(jī)器語言、匯編語言、高級語言D)

匯編語言、機(jī)器語言、高級語言答案：C以下說法正確的是(

)。A)

算法+數(shù)據(jù)結(jié)構(gòu)=程序B)

算法就