高中信息技术《算法软件操作》练习题(附答案解析).docxVIP

第

第PAGE1页共NUMPAGES7页

第

第PAGE2页共NUMPAGES7页

高中信息技术《算法软件操作》练习题(附答案解析)

学校:___________姓名：___________班级：______________

一、选择题

1．VB中窗体文件的扩展名是(?????)

A．VBP B．FRM C．VBW D．PDM

2．VB中工程文件的扩展名为(????)

A．vbp B．frm C．.bas D．.vbw

3．在下面列出的四个程序段中，不能正确地将x和y两个变量中的数据进行交换的是（???）

A．x=y???y=x B．x=x+y????y=x-y????x=x-y

C．m=x???x=y???y=m D．m=y????y=x????x=m

4．在用VB体验编写程序时，了解到代码窗口是用来（）。

A．查看属性

B．运行代码

C．只能查看程序代码

D．输入、修改、查看程序代码

5．有如下VB程序段：

s=0:t=0

Fori=0To10

IfiMod5=0Thens=s+1

t=t+iNexti

该程序段运行后，s,t和i的值分别是（???）

A．3??55??11 B．315??11 C．2??5510 D．2??15??10

6．下列选项中，不属于计算机程序设计语言的是（???）

A．C++

B．VB

C．PAscAl

D．WPS

7．某VB程序段如下：

PrivateSubCommand1_Click()

DimaAsInteger

DimbAsBoolean

a=(a+1)*2

b=a-1

printa:printb

EndSub

程序运行时，单击命令按钮Command1后，变量a和b的值分别是（）

A．2???1

B．2??true

C．4??-1

D．4???False

8．某VB程序段如下所示：

DimxAsString

PrivateSubForm_Load()

x=

EndSub

PrivateSubText1_Change()

DimsAsString,kAsString

DimiAsInteger

s=0123456789ABCDEF

k=Text1.Text

Fori=1ToLen(s)

??IfMid(s,i,1)=kThenx=x+k

Nexti

Ifx=Thenx=没有找到！

Label1.Caption=x

EndSub

若在文本框Text1中依次输入“2”和“9”，则Label1上显示的内容为

A．11 B．2 C．9 D．29

9．有如下VB程序段：

x=4095:???s1=ABCDEFGHIJ:???s2=abcdefghij

ret=

DoWhilex0

????r=xMod10

????IfrMod2=1Then

????????ret=Mid(s1,??r+1,??1)ret

????Else

???????ret=retMid(s2,??r+1,??1)

????End??If

????x=x\10

Loop

Text1.Text=ret

执行该程序段后，文本框Text1中显示的内容为（???）

A．JFae B．JFea C．eaJF D．EAfj

10．有如下VB程序

a(1)=1

Fori=2To12

a(i)=a(i-1)+Int(Rnd*2)+1??

Nexti

Key=Val(Text1.Text)

i=1:j=12:cnt=1:flag=False??

DoWhilei=jAndflag=False

cnt=cnt+1

m=(i+j+1)\2??

Ifa(m)=KeyThen

flag=True

ElseIfKeya(m)Then

i=m+1

Else

j=m-1??EndIf

Loop

程序运行后，下列说法正确的是(????)

A．在Text1输入15，程序运行后m肯定为12 B．在Text1输入6，程序运行后cnt可能大于4

C．若查找不成功，则jm肯定成立 D．若查找不成功，则i=m肯定成立

11．a(1)~a(n)都是正整数，下列VB程序段的功能是计算所有数的最小公倍数。

t=a(1)

Fori