vb操作题.docx

vb操作题.docx

《vb操作题.docx》由会员分享，可在线阅读，更多相关《vb操作题.docx（14页珍藏版）》请在冰点文库上搜索。

vb操作题

vb操作题

四川高中程序操作（36分）专项模拟题

一、程序的顺序结构（1至8题中考一道题）

1、已知正方形的边长A是8，下列程序的功能是计算正方形的周长L。

请将程序缺失部分补充完整。

Functionfunc（）

DimAAsSingle

DimLAsSingle

A=8

L=_______________

Func="正方形的周长"&L

EndFunction

2、变量R为半径，计算圆周长L（圆周率取3.14）

DimRAsSingle

DimLAsSingle

R=5

L=_____________

3、从键盘输入圆的半径R，输出圆的周长L和面积S，补充完整下列程序段。

DimRAsSingle,LAsSingle,SAsSingle

_______=InputBox（"输入半径R"）

L=2*3.14*R

S=3.14*R*R

Print"圆的周长是";L

Print"圆的半径是";S

4、2012年6月，小李同学参加了一场考试，其中有一道题目是:

已知长方体的长为10，宽为3，高为5，求长方体的体积V，小李同学编写出了如下的不完整程序。

DimAAsSingle

DimBAsSingle

DimHAsSingle

DimVAsSingle

A=10

B=3

H=5

V=___________

func="长方体的体积V="&V

5、2012年6月，小李同学参加了一场考试，其中有一道题目是:

已知变量a的值为2011，变量b的值为2012，交换变量a、b的值。

小李同学编写出了如下的不完整程序。

Functionfunc（）

DimaAsSingle

DimbAsSingle

DimcAsSingle

a=2011

b=2012

_____________

a=b

b=t

func="a="&a&"b="&b

EndFunction

6、2012年6月，小李同学参加了一场考试，其中有一道题目是:

已知变量a的值为2011，变量b的值为2012，交换变量a、b的值。

小李同学编写出了如下的不完整程序。

Functionfunc（）

DimaAsSingle

DimbAsSingle

DimcAsSingle

a=2011

b=2012

t=a

_______________

b=t

func="a="&a&"b="&b

EndFunction

7、2012年6月，小李同学参加了一场考试，其中有一道题目是:

已知变量a的值为2011，变量b的值为2012，交换变量a、b的值。

小李同学编写出了如下的不完整程序。

Functionfunc（）

DimaAsSingle

DimbAsSingle

DimcAsSingle

a=2011

b=2012

t=a

a=b

_________

func="a="&a&"b="&b

EndFunction

8、已知变量x的值是1987，下列程序的功能是求x的各位数字之和s，其中a是个位数字，b是十位数字，c是百位数字，d是千位数字，请将程序补充完整。

Functionfunc（）

DimxAsInteger

DimaAsInteger

DimbAsInteger

DimcAsInteger

DimdAsInteger

DimsAsInteger

x=1987

a=xMod10

b=______________

c=x\100mod10

d=x\1000

s=a+b+c+d

func="各位数字之和s="&s

EndFunction

二、程序的选择结构（9至20题中考一道题）

9、计算房租费，70平方以下（包括70）每平方4元，如果超过70平方则超过部分每平方

6元。

程序中变量m为平方数，变量n为房租费。

Functionfunc（）

DimmAsInteger,nAsInteger

m=128

Ifm<=70Then

n=4*m

_________

n=4*70+6*（m–70）

EndIf

func="房租费n="&n

EndFunction

10、购物计费:

某商场为了促销而实行购物打折，在商场购物500元以上（不包括500元），

超过部分实行八折优惠。

已知某顾客购物按未打折计共花费了898元，编程计算顾客实际应

付的金额。

A表示顾客的购物金额，x表示顾客应该实际付给商场的金额。

请将程序缺失部分

补充完整。

Functionfunc（）

DimaAsSingle,xAsSingle

a=898

Ifa<=500Then

___________________

Else

x=500+（a–500）*0.8

EndIf

func="应付金额x="&x

EndFunction

11、判断奇偶性，如果是偶数让x为0，如果是奇数让x为1

Functionfunc（）

DimaAsInteger,xAsInteger

Ifa/2=Int（a/2）Then

x=0

Else

x=____________

EndIf

func=x

EndFunction

12、计算旅客的行李费，收费标准为:

20千克以下（包括20千克）不收费，超过20千克的部分每千克收20元。

X表示行李重量，Y表示行李费。

补充完整下列程序段。

DimXAsSingle,YAsSingle

X=InputBox（"输入行李重量"）

If________Then

Y=0

Else

Y=20*（X-20）

EndIf

Print"行李费=";Y

13、2012年5月，四川省成都龙泉地区的枇杷取得了大丰收，当地农民为了促销，准备执行以下的销售策略:

购买5公斤以上（不包含5公斤），单价为:

18元/公斤;否则，单价为20元/公斤。

小张同学想用VB语言编写一个程序计算购买X公斤枇杷的应付款y，结果小张同学只编写出了如下的不完整程序。

请将程序缺失部分补充完整。

Functionfunc（）

DimxAsSingle,yAsSingle

______=8

Ifx>5Then

y=18*x

else

y=20*x

EndIf

func="应付金额y="&y

EndFunction

14、2012年5月，四川省成都龙泉地区的枇杷取得了大丰收，当地农民为了促销，准备执行以下的销售策略:

购买5公斤以上（不包含5公斤），单价为:

18元/公斤;否则，单价为20元/公斤。

小张同学想用VB语言编写一个程序计算购买X公斤枇杷的应付款y，结果小张同学只编写出了如下的不完整程序。

请将程序缺失部分补充完整。

Functionfunc（）

DimxAsSingle,yAsSingle

x=8

Ifx>5then

___________

else

y=20*x

EndIf

func="应付金额y="&y

EndFunction

15、2012年5月，四川省成都龙泉地区的枇杷取得了大丰收，当地农民为了促销，准备执行以下的销售策略:

购买5公斤以上（不包含5公斤），单价为:

18元/公斤;否则，单价为20元/公斤。

小张同学想用VB语言编写一个程序计算购买X公斤枇杷的应付款y，结果小张同学只编写出了如下的不完整程序。

请将程序缺失部分补充完整。

Functionfunc（）

DimxAsSingle,yAsSingle

x=8

Ifx>5then

y=18*x

else

__________

EndIf

func="应付金额y="&y

EndFunction

16、2012年5月，四川省成都龙泉地区的枇杷取得了大丰收，当地农民为了促销，准备执行以下的销售策略:

购买5公斤以上（不包含5公斤），单价为:

18元/公斤;否则，单价为20元/公斤。

小张同学想用VB语言编写一个程序计算购买X公斤枇杷的应付款y，结果小张同学只编写出了如下的不完整程序。

请将程序缺失部分补充完整。

Functionfunc（）

DimxAsSingle,yAsSingle

x=8

Ifx>5_________

y=18*x

else

y=20*x

EndIf

func="应付金额y="&y

EndFunction

17、2012年5月，四川省成都龙泉地区的枇杷取得了大丰收，当地农民为了促销，准备执行以下的销售策略:

购买5公斤以上（不包含5公斤），单价为:

18元/公斤;否则，单价为20元/公斤。

小张同学想用VB语言编写一个程序计算购买X公斤枇杷的应付款y，结果小张同学只编写出了如下的不完整程序。

请将程序缺失部分补充完整。

Functionfunc（）

DimxAsSingle,yAsSingle

x=8

If___________Then

y=18*x

else

y=20*x

EndIf

func="应付金额y="&y

EndFunction

18、2012年5月，四川省成都龙泉地区的枇杷取得了大丰收，当地农民为了促销，准备执行以下的销售策略:

购买5公斤以上（不包含5公斤），单价为:

18元/公斤;否则，单价为20元/公斤。

小张同学想用VB语言编写一个程序计算购买X公斤枇杷的应付款y，结果小张同学只编写出了如下的不完整程序。

请将程序缺失部分补充完整。

Functionfunc（）

DimxAsSingle,yAsSingle

x=8

Ifx>5Then

y=18*x

___________

y=20*x

EndIf

func="应付金额y="&y

EndFunction

19、2012年5月，四川省成都龙泉地区的枇杷取得了大丰收，当地农民为了促销，准备执行以下的销售策略:

购买5公斤以上（不包含5公斤），单价为:

18元/公斤;否则，单价为20元/公斤。

小张同学想用VB语言编写一个程序计算购买X公斤枇杷的应付款y，结果小张同学只编写出了如下的不完整程序。

请将程序缺失部分补充完整。

Functionfunc（）

DimxAsSingle,yAsSingle

x=8

Ifx>5then

y=18*x

else

y=20*x

____________

func="应付金额y="&y

EndFunction

20、编写一元二次方程X^2+3X+2=0的求解程序，要求能够判断方程是否有根，如果没有根则给出相应的提示信息。

请将下列程序补充完整。

Functionfunc（）

DimaAsSingle

DimbAsSingle

DimcAsSingle

DimdAsSingle

Dimx1AsSingle

Dimx2AsSingle

a=1

b=3

c=2

d=b*b-4*a*c

ifd>=0Then

x1=_______________

x2=（-b-Sqr（d））/（2*a）

func="x1="&x1&"x2="&x2

Else

func="无实根"

EndIf

EndFunction

三、程序的特循环结构（21至27题中考一道题）

21、该程序的功能是求S=1+3+5+……+99。

请将程序缺失部分补充完整。

Functionfunc（）

DimiAsInteger,sAsInteger

s=0

Fori=1To_______Step2

s=s+i

Nexti

func=s

EndFunction

22、完成如下算法设计:

该程序功能是求S=2+4+6+……+100。

Functionfunc（）

DimIAsInteger,sAsInteger

s=0

Fori=2to100Step_______

s=s+i

Nexti

Func=s

EndFunction

23、该程序功能是求S=10+20+30+……+100，请将空格补完整实现前述功能。

Functionfunc（）

DimiAsInteger,sAsInteger

s=0

Fori=10To100Step______

s=s+i

Nexti

func=s

EndFunction

24、该程序功能是求S=10+20+30+……+100，请将空格补完整实现前述功能。

Functionfunc（）

DimIAsInteger,sAsInteger

s=0

Fori=10To100Step10

s=_____________

NextI

func=s

EndFunction

25、2012年6月，小张同学参加了一场模拟考试，其中有一道题目是求S=1*2*3*......*7。

小张同学编写出了如下的不完整程序。

请将空格补完整实现前述功能。

Functionfunc（）

DimIAsInteger,sAsInteger

s=__________

Fori=1To7

s=s*i

NextI

func="s="&s

EndFunction

26、2012年6月，小张同学参加了一场模拟考试，其中有一道题目是求S=1*2*3*......*7。

小张同学编写出了如下的不完整程序。

请将空格补完整实现前述功能。

Functionfunc（）

DimIAsInteger,sAsIntege

s=1

Fori=1To7

s=____________

NextI

func="s="&s

EndFunction

27、2012年6月，小张同学参加了一场模拟考试，其中有一道题目是求S=1*2*3*......*7。

小张同学编写出了如下的不完整程序。

请将空格补完整实现前述功能。

Functionfunc（）

DimIAsInteger,sAsIntege

s=1

Fori=1To_________

s=s*I

NextI

func="s="&s

EndFunction

答案:

一、1、4*A2、2*3.14*R3、R4、A*B*H5、t=a6、a=b7、b=t8、X\10MOD10二、9、ELSE10、X=A11、112、X<=2013、X14、Y=18*X15、Y=20*X16、THEN17、X>518、ELSE19、ENDIF20、（-b+Sqr（d））/（2*a）三、21、9922、223、1024、S+I25、126、S*I27、7