vb操作题.docx
- 文档编号:24992788
- 上传时间:2023-06-03
- 格式:DOCX
- 页数:14
- 大小:16.50KB
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 操作