算法会考模拟单选题

在Visual

Basic中，同一行上可以书写多个语句，语句间用（

）符号分隔。A)

撇号（’）B)

冒号（：）C)

感叹号（！）D)

大于号（>）答案：BPrint

"20+5=";20+5输出的结果是（

）A)

20+5=20+5B)

25=20+5C)

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

"5*20"

输出结果是

(

)A)

"5*20"B)

出错C)

5*20D)

100答案：C下面四个选项中,不是窗体事件的是(

)A)

LoadB)

UnloadC)

DblClickD)

Enable答案：D若要设置文本框中所显示的文本颜色，使用的属性是（

）A)

FillColorB)

BackColorC)

ForeColorD)

BackStyle答案：C设置命令按钮标题文字的字体、字号要使用（

）属性。A)

TextB)

CaptionC)

NameD)

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

）A)

标签B)

图像框C)

图片框D)

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

）A)

B)

C)

D)

答案：B下述选项中,属于VB程序设计方法的是（

）A)

面向对象,事件驱动B)

面向对象,顺序驱动C)

面向过程,问题驱动D)

面向过程,对象驱动答案：A执行以下语句后，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当VB执行下面语句后，A的值为(

)

A=1

IF

A>0

THEN

A=A+1

IF

A>1

THEN

A=0A)

2B)

1C)

0答案：C下列程序段输出的结果为(

)

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为整型变量，执行语句

a

=

9:

b

=

8:

c

=

10:

c

=

a:

a

=

b:

b

=

c后，其a,b的值是(

)A)

8，9B)

8，10C)

10，8D.9，8答案：A模块：算法与程序设计表达式Abs(-32.6)*Sqr(100)的值是（

）A)

-320B)

-326C)

326答案：C执行下列语句后，S的值是（

）

B$="456789"

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

67B)

78C)

45答案：A在VB中执行“A＝80\9MOD6”语句后，A的值为（

）A)

3B)

2C)

1答案：B针对语句

If

I=1

then

J=1，下列说法正确的是

(

)A)

I=1和J=1均为赋值语句B)

均为关系表达式C)

I=1为关系表达式，J=1为赋值语句D)

I=1为赋值语句，J=1为关系表达式答案：C下列能正确表示a≥7或a≤-5的关系表达式是(

)A)

a>=7Ora<=-5B)

a>=7Anda<=-5C)

a>=7Xora<=-5D)

a>=7Eqva<=-5答案：A表示“X>Y>Z”，正确的VB逻辑表达式是

(

)A)

X>YAndY>ZB)

X>Y>ZC)

X>YorY>ZD)

X>YAnd>Z答案：AVB程序设计问题。在窗体上画一个文本框，然后编写如下事件过程：Private

Sub

Form_Click()x

=

InputBox("请输入一个整数")Print

x

+

Text1.TextEnd

Sub程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容是(

)。A)

123B)

456C)

579答案：D在文本框Text1中输入数字12，Text2中输入数字34，执行以下语句，只有（

）可使文本框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模块：算法与程序设计窗体上有一个文本框控件Text1，假设已存在三整型变量a,b和c,且变量a值为5，变量b的值为7，变量c的值为12，则以下的(

)语句可以使文本框内显示的内容为：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表达式

5<8

and

7>4

or

3=2的结果是

（

）A)

FalseB)

TrueC)

1D)

0答案：B在VB6.0中,下面四个数中,作为常量有语法错误的是(

)A)

123.456B)

1.23E2.1C)

1.23E-2答案：B下面所列四组数据中，全部是VB常量的是

(

)A)

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

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

HABCE，02-03-2004，False，0-3D)

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

m=“123”，可以判断m为（

）。A)

整型常量B)

实型常量C)

字符串型常量D)

布尔型常量答案：C在Visual

Basic

6.0程序语言系统中，下列不合法的变量名是(

)A)

mynameB)

a5cC)

4cD)

class_1答案：C下列各种基本数据类型说明符中表示单精度实型数的是(

)。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执行语句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，在该循环体内有下列四条语句，其中（

）会影响循环执行次数①、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中，某同学要计算1+3+5+……+9的值，他应用循环结构语句如下：“

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下面程序段是用函数实现的二分查找，将程序中带下划线的部分补充完整。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下面程序段是用递归函数实现的求n!，将程序中带下划线的部分补充完整。

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阅读下列程序,程序运行后在文本框中显示的内容是()。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阅读下列程序,程序运行后在文本框中显示的内容是()。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阅读下列程序,程序运行后在文本框中显示的内容是()。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阅读下列程序,程序运行后在文本框中显示的内容是()。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阅读下列程序,程序运行后在文本框中显示的内容是()。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阅读下列程序,程序运行后在文本框中显示的内容是()。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阅读下列程序,程序运行后在文本框中显示的内容是()。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阅读下列程序,程序运行后在文本框中显示的内容是()。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阅读下列程序,程序运行后在文本框中显示的内容是(

)。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中进行程序界面制作时，要设置某个对象属性时，应进入（）。A)

任意模式B)

运行模式C)

中断模式D)

设计模式答案：D阅读下列程序段，程序运行后在文本框中显示的内容是（）。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阅读下列程序段，程序运行后正确结果是（）。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阅读下列程序段，程序运行后在文本框中显示的结果是（）。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下面程序段是实现二分查找，执行程序后,先输入由小到大的一组数据,后输入要查询的数。将程序中带下划线的部分补充完整。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

'退出定义函数

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("输入要查找的数值")

Print

search(x)End

SubA)

i<=jB)

i>=jC)

i<>jD)

i=j答案：A下列程序段是将数组a中元素值从小到大排序，请将程序中带下划线部分补充完整。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阅读下列程序段，正确的输出结果是（）。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二分法查找也称折半查找，它要求被查数据必须是（），否则无法使用二分法查找。A)

无序的B)

有序的C)

无序或有序D)

随机的答案：B在编制一个学生成绩管理软件时，要定义一个数组a，格式为：

dim

a(1

to

50)

as

single问数组a共有(

)个数组元素。A)

49B)

51C)

50答案：C在VB6中，我们总是和对象交道。从工具箱中将一个控件拖放到窗体中，实际上也创建了一个对象，每一个对象都有的属性是（）。A)

名称B)

captionC)

fontD)

refresh答案：A阿克曼（Ackerman）函数如下，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)

统计D)

查找答案：A程序运行后,通过键盘输入4个数,分别为3、2、1、-1,程序输出结果为（）。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阅读下列程序,程序运行后在文本框中显示的内容是()。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阅读下列程序,程序运行后在文本框中显示的内容是()。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程序运行后,通过键盘给数组a的元素输入值，分别为：3,44,46,67,87，程序结果在文本框中显示的内容是()。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程序运行后,通过键盘给数组a的元素输入值，分别为：3,44,46,67,87,程序结果在文本框中显示的内容是()。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模块：算法程序运行后,通过键盘给数组a的元素输入值，分别为：3,44,45,67,72,经过程序计算后a数组元素的值为（）。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程序运行后,通过键盘给数组a的元素输入值，分别为：72、3、45、67、44,经过程序计算后a数组元素的值依次为（）。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以下不是程序设计语言的是(

)。A)

BASICB)

C语言C)

WordD)

Pascal答案：C在调试程序过程中，下列哪一种错误是计算机检查不出来的？(

)A)

编译错误B)

执行错误C)

逻辑错误D)

任何错都能查出来答案：CVisual

Basic

是一种面向(

)程序设计语言。A)

事件B)

过程C)

对象D)

属性答案：C计算机能够直接识别的语言是(

)。A)

伪代码B)

高级语言C)

机器语言D)

汇编语言答案：C程序设计语言的发展大致经历了几个阶段，以下说法正确的是(

)。A)

机器语言、高级语言、汇编语言B)

高级语言、汇编语言、机器语言C)

机器语言、汇编语言、高级语言D)

汇编语言、机器语言、高级语言答案：C以下说法正确的是(

)。A)

算法+数据结构=程序B)

算法就