高中信息技术VB常用的标准函数浏览题阅览题会考复习题.docx

高中信息技术VB常用的标准函数浏览题阅览题会考复习题.docx

《高中信息技术VB常用的标准函数浏览题阅览题会考复习题.docx》由会员分享，可在线阅读，更多相关《高中信息技术VB常用的标准函数浏览题阅览题会考复习题.docx（19页珍藏版）》请在冰豆网上搜索。

高中信息技术VB常用的标准函数浏览题阅览题会考复习题

高中信息技术VB常用的标准函数浏览题阅览题会考复习题

学校:

___________姓名：

___________班级：

___________考号：

___________

评卷人

得分

一、选择题

1．下列流程图描述的是判断任意3个正数A、B、C是否能构成勾股数，请按此算法功能，把流程图填写完整。

A.A^2="B^2+C^2"orB^2="A^2+C^2"andC^2=A^2+B^2

B.A^2="B^2+C^2"andB^2="A^2+C^2"orC^2=A^2+B^2

C.A^2="B^2+C^2"andB^2="A^2+C^2"andC^2=A^2+B^2

D.A^2="B^2+C^2"orB^2="A^2+C^2"orC^2=A^2+B^2

【答案】D

【解析】

2．对输入的两个整数a和b，找出其中的较大者赋给c并输出。

解决该问题的算法流程图如右图所示，流程图中虚线框部分的内容可为

【答案】D

【解析】

3．下列VisualBasic表达式中计算结果为4的是（）

A．Abs（-4.2）B．Len（"a123"）C．Sqr（4）D．Int（3.5）

【答案】B

【解析】

4．在VisualBasic中，有如下程序：

PrivateSubCommand1_Click（）

DimaAsInteger,bAsInteger,cAsInteger

DimdAsInteger,zAsInteger

a=Val（Text1Text）:

b=Val（Text2.Text）:

c=Val（Text3.Text）

d=max（a,b）

z=max（d,c）

Text4,Text=Str（d）

Text5,Text=Str（z）

EndSub

Functionmax（xAsInteger,yAsInteger）AsInteger

Ifx>yThenmax=xElsemax=y

EndFunction

分析该程序段，下列说法正确的是（）

A.该程序中包含了两个自定义函数

B.在函数max中定义了两个整数型参数

C.在textl，text2，text3中输入数据后程序即被执行

D.函数max的返回值是字符串类型

【答案】B

【解析】题目中只包含了一个自定义函数max（）,函数的返回值是integer整数型。

5．随机产生15~60之间正整数（包括15和60）的表达式是（）

A．Fix（15*Rnd）+60

B．Int（60*Rnd）+15

C．Int（46*Rnd）+15

D.Fix（45*Rnd）+15

【答案】C

【解析】Rnd函数的使用方法:

1、产生的随机范围内有X个整数则最终公式中应为：

Rnd*X；2、产生的随机范围从Y开始则最终公式应为：

Rnd+Y。

如：

产生一个范围在-5~20之间的随机整数。

分析：

X为26，Y为-5，所以最终公式为：

Int（Rnd*26-5）或Int（Rnd*26）-5

6．对以下程序段的说法正确的是（）

s=0

i=0

DoWhiles<10

i=i+1

s=s+i*i

Loop

A．该程序的循环体执行了3次

B．该程序段结束后i的值为3

C．该程序段结束后i的值为4

D．该程序段结束后s的值为13

【答案】ABD

【解析】

7．有如下一段VB程序。

PrivateSubCommand1_Click（）

DimyAs

Long

Text1.Text=""

y=f（3）

Label1.Caption=Str（y）

EndSub

Functionf（nAsInt

eger）AsLong

Text1.Text=Text1.Text+Str（n）

Ifn<=1Then

f=1

Else

f=f（n-1）+2

EndIf

EndFunction

程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是（）

A．1B．3C．123D．321

【答案】D

【解析】

8．下列VB表达式的值等于3的是（）。

A．Sqr

（2）+1B．Abs（-1）-2

C．Asc（"1"）+2D．Len（"-2"）+1

【答案】D

【解析】

9．下列判断x≤1的VB表达式中，正确的是（）。

A．x<1andx=1B．notx>1C．x<=1D．x<1orx=1

【答案】BCD

【解析】

10．随机数函数Rnd可以产生一个大于等于0且小于1的随机数，现在想产生一个[5，10]的随机整数，可行的表达式是（）

A．int（Rnd*6）+4

B．int（Rnd*5）+5

C．int（Rnd*6）+5

D．int（Rnd*10）

【答案】B

【解析】Rnd函数的使用方法:

1、产生的随机范围内有X个整数则最终公式中应为：

Rnd*X；2、产生的随机范围从Y开始则最终公式应为：

Rnd+Y。

如：

产生一个范围在-5~20之间的随机整数。

分析：

X为26，Y为-5，所以最终公式为：

Int（Rnd*26-5）或Int（Rnd*26）-5

11．下列赋值语句错误的是（）。

A．a=b+cB．m=m*iC．x=y-1D．5y=abs（x）

【答案】D

【解析】

12．表达式Int（198.555*100+0.5）/100的值为（）

A．198.56B．199.6C.198D．200

【答案】A

【解析】

13．10mod3*2+2的值为（）

A．10B．6C．4D．8

【答案】B

【解析】

在计算平均重量x时，结果中产生了8位小数，若要对x保留一位小数，并对第二位小数四舍五入，则下列表达式中正确的是（）。

A．Int（x+0.5）

B．Int（x*100+0.5）/100

C．Int（x*10）/14．

D．Int（x*10+0.5）/10

【答案】D

【解析】

15．下列VB程序段的输出结果是

a=25:

b=18:

c=b

ifa>bthen

c=a

endif

printc

A．25B．18C．7D．0

【答案】A

【解析】

16．阅读如下VisualBasic程序，

Functionave（aAssingle，bAssingle）assingle

ave=（a+b）2

EndFunction

PrivateSubCommand1_Click（）

Printave（4,5）

EndSub

程序运行结果是（）

A．9

B．4.5

C．5

D．4

【答案】D

【解析】ave（）是求整数平均数的自定义函数。

17．有如下VisualBasic程序段：

A＝“Happynewyear！

”

B＝Len（A）\2

C＝63Mod10

Text1.Text＝Mid（A，B，C）

该程序运行后文本框text1显示的内容为（）

A．3B．new

C．BD．Mid（A，7，3）

【答案】B

【解析】

18．写出下面流程图所表述的算法的功能▁▁▁▁

A.降序排序

B.求最大值

C.交换输出

D.判断是否是偶数

【答案】B

【解析】

19．将1、1、2、3、5、8、13、21、……数列的前20项存入a数组的正确程序段是_______。

【答案】C

【解析】

20．在VB中，设x=389，能得到其百位数字“3”的正确表达式是_______。

A、Int（x/10）*10B、Int（x/100）*100C、Int（x/100）D、x-Int（x/10）*10

【答案】C

【解析】

21．下列VB程序段运行完毕后，变量x的值为

x="2":

y=64

Dowhilex<=Sqr（y）

x=x+3

Loop

A．2B．5C．8D．11

【答案】D

【解析】

22．下列VB函数中，返回值类型均为String的是（）

A．Len和Str

B．Asc和Mid

C．Chr和Str

D．Sqr和Exp

【答案】C

【解析】chr（）函数和str（）函数的返回值都是string型。

23．小明编写一个模拟qq登录的VB程序。

当输入用户名、密码和验证码，点击登录按钮后，会跳出信

息框提示是否验证成功。

部分程序与流程图如下所示：

uname=Text1.Text'输入用户名

psd=Text2.Text'输入密码

vcode=Val（Text3.Text）'输入验证码

Ifvcode<>Val（Label3.Caption）Then

MsgBox“”

①

'Label3显示的是随机验证码

ElseIfuname<>"admin"Orpsd<>"123456"Then

MsgBox“

②

”

Else

MsgBox“

③

”

方框中正确的语句是（）。

A．①中“验证成功”B．②中“输出用户名或密码有误”

C．②中“验证成功D．③中“输出验证码错误”

【答案】B

【解析】

24．设X=5278,能得到其百位上数字“2”的正确表达式是（）

A．XMOD100

B．X\100MOD10

C．X\100MOD100

D．X\10MOD10

【答案】B

【解析】

25．在计算平均重量X时，结果中产生了许多位小数，若需要对X保留一位小数，并对第二位小数进行四舍五入，则下列表达式中正确的是（）

A．Int（x*10+0.5）/10

B．Int（x*100+0.5）/100

C．Int（x*10）/10

D．Int（x+0.5）

【答案】A

【解析】int（）函数用于计算不大于x的最大整数。

评卷人

得分

二、填空题

26．

（1）所谓算法是。

（2）VB界面设计一般包括、、。

（3）描述算法的方法有3种，分别是、、。

（4）VB是一种程序设计语言。

（5）abs（－3.8）＝sqr（49）＝int（－7.8）＝

（6）int（10*Rnd）表示

【答案】

（1）解决问题的方法和步骤；

（2）设计程序界面编写程序代码调试、运行程序（3）自然语言主伪代码流程图（4）可视化（面向对象或高级语言都算对）（5）3.8；7；－8；（6）0－9这十个整数

【解析】

27．有一组数：

1、2、4、7、……，其第1个数是1，第2个数比第1个数大1，第3个数比第2个数大2，第4个数比第3个数大3，以此类推。

求其前20项的和。

以下VB程序实现上述功能，请把程序中的①、②出填写完整。

DimiAsInteger,pAsInteger,sAsInteger

i=1

p=1

s=0

DoWhile______①______

s=s+p

i=i+1

______②______

Loop

Prints

【答案】i<=20

p=p+i-1

【解析】

28．VisualBasic表达式x^2+k/（1+a*x-b））对应的数学式子为______。

【答案】

【解析】

29．古希腊人将因子的和等于它本身的数（自身因子除外）称为完全数。

例如28的因子是1、2、4、7、14，且1+2+4+7+14＝28，则28是一个完全数。

编程求解[2，1000]内的所有完全数，用VB编写的程序运行界面如图2-1所示。

图2-1

（1）利用计算机解决问题一般可以分哪三个步骤？

①、

②、

。

（2）图2-1中标注A处的对象类型应为标签类对象④（填：

对/错）。

（3）标注B处Command1对象属性肯定被修改过的是

（填：

Caption/Font）

（4）在窗体中，创建标签类（Label1）对象时应选择工具箱中的_____⑥_______（如图2-2，填字母:

A/B/C/D）

A．

B．

C．

D．

（5）按此要求编写的程序如下，程序划线处⑦应填入⑦（填：

Text1_Change（）/Command1_Click（）），

应填入

（填：

Dim/Define）。

PrivateSub⑦

a,b,sAsInteger

Fora=2To1000

S=0

Forb=1Toa-1

IfaModb=0Thens=s+b

Next

Ifa=sThenList1.Additemstr（a）'输出满足条件的完全数a

Next

EndSub

（6）调试正确，编译生成可执行文件后，想把自己的

成果通过QQ传给同学们使用。

发送时应该选择如图2-3

中___

_____（填完整文件名）。

【答案】①分析问题（1分）

②寻找解决问题的途径和方法（1分）

③用计算机处理（1分）

④错（1分）、⑤Caption（1分）

⑥B（1分）、⑦Command1_Click（）（1分）

⑧Dim（1分）、

jzzh.exe（2分）

【解析】

30．判断一个整数n（>=3）是否为素数；提示：

将一个不小于3的整数n分别除以2到n的平方根之间的所有整数，如果全部除不尽，那么n为素数（质数），否则本为非素数（合数）

编写程序如下：

SubForm_Click（）

DimnAsInterger

n=InputBox（“请输入一个正整数（n>=3）:

”）

k=Int（Spr（n））

i=2

Swit=0

Whilei<=kAndSwit=0

If①thenSwit=1

Elsei=i+1

Wend

IfSwit=0ThenPrintn;”是一个素数”

ElsePrintn;”不是一个素数”

②

EndSub

（1）函数Sqr（n）的功能是___________________

（2）语句Swit=1在这段程序中执行___________次

（3）可用于接受用户输入文本，又可用于显示文本的控件是_____________

（4）VB中保存工程文件的文件扩展名为__________________

（5）想在程序后面加上注释，应用到_____________符号

（6）变量K的数据类型定义为_________________（integer或string）

（7）在这段程序中，所用到的循环语句为__________________

（8）认真阅读程序，在①序号出应补充的语句是________________

（9）Swit是一个标志变量。

_______标志着n未被任何一个正整数整除过

（10）代码调试后，发现在②处少语句，应填写___________________

【答案】

（1）求n的平方根

（2）一（3）TextBox控件（4）vbp（5）单引号（6）integer（7）While（8）nModi=0（9）Swit=0Swit=1（10）EndIf

【解析】

评卷人

得分

三、操作题

31．求两个整数的最大公约数分析：

求最大公约数的算法思想：

（1）对于已知两数m，n，使得m>n；

（2）m除以n得余数r；

（3）若r=0，则n为求得的最大公约数，算法结束；否则执行（4）；

（4）m←n，n←r，再重复执行

（2）。

例如:

求m=14,n=6的最大公约数.

Mnr

1462

620

请根据以上思路补充下面的程序代码：

PrivateSubCommand1_Click（）

m=InputBox（"m="）

n=InputBox（"n="）

Ifm

m=n:

n=t

r=________________

DoWhile（r<>0）

m=n

n=r

r=mModn

Loop

Print"最大公约数=",n

EndSub

【答案】mmodn

【解析】

评卷人

得分

四、判断题

32．标准函数的自变量表达式里不能包含自定义函数；（）

【答案】错误

【解析】

评卷人

得分

五、简答题

33．编写VB程序，实现如下功能：

在文本框Text1中输入一个整数，单击“查找”按钮，找出该整数的全部的连续整数固定和，并将它们显示在列表框List1中。

所谓一个数n的连续整数固定和，就是指存在a1，a2，…，an，其中ai+1比ai大1，使得a1+a2+…+an=n。

这样a1，a2，…，an称为n的一个连续整数固定和。

例如27的全部的连续整数固定和有3组，运行界面如图所示，实现上述功能的VB代码如下，但加框处代码有错，请改正。

PrivateSubCommand1_Click（）

DimiAsInteger,jAsInteger,sumAsInteger

DimnAsInteger

n=Val（Text1.Text）

sum=0

List1.Clear

Fori=1Ton'①

j=i-1

DoWhilesum<=n'②

j=j+1

sum=sum+j

Loop

Ifsum=nThen

List1.AddItemStr（i）&"+...+"&Str（j）&"="&Str（n）

EndIf

sum=0

Nexti

EndSub

【答案】

（1）Fori=1Ton-1（1分）

（2）sum

【解析】