高中信息技术VB算法部分的填空题(会考)

《高中信息技术VB算法部分的填空题(会考)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VB填空题专题（一）浙江省高中信息技术会考(六月卷)算法与程序设计题（第一套）四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）1.有如下VisualBasic程序段：a=30b=20a=b该程序段运行后，变量a的值为________。2.有如下VisualBasic程序段：DimaAsSingle,pyAsStringa=Val(Text1.Text)Ifa>0Thenpy="正数"Ifa=0Thenpy="零"Ifa<0Thenpy="负数"Label1.Caption=py在文本框Text1中输入100，则在Labe

2、l1标签上显示的是。3.以下VisualBasic程序的功能是：计算表达式1×2×3×4×5×6×7×8×9×10的值，并在文本框Text1中输出结果。为了实现这一功能，程序中划线处的语句应更正为_____________。PrivateSubCommand1_Click()DimiAsInteger,sumAsLongsum=0Fori=1To10sum=sum*iNextiText1.Text=Str(sum)EndSub4.从改革开放以来，浙江省农村家庭的可支配收入逐年增加，近几年每年增长率在9%左右。小明一家今年的可支配收入是32000元，按现

3、在的增长率9%计算，小明家几年后可支配收入将达到50000元？解决此问题的流程图如VB-1所示。根据流程图VB-1编写的VisualBasic程序如下，在①和②划线处，填入合适的语句或表达式，把程序补充完整。9PrivateSubCommand1_Click()DimxAsLong,pAsDoubleDimnAsIntegerx=32000p=0.09n=0DoWhile①x=x*(1+p)②LoopText1.Text=Str(n)EndSub程序中划线处①应填入程序中划线处②应填入算法与程序设计题（第二套）四、程序设计题（本题有4小题，第1－3小题

4、，每小题4分，第4小题6分，共18分）1．有如下VisualBasic程序段：a="Good"b="Bye"c=a+b该程序段运行后，变量c的值是___________。2.有如下VisualBasic程序段：x=3Ifx>5Theny=x*xElsey=4*xEndIf该程序段运行后，变量y的值是___________。3.下面程序的功能是：计算表达式1+3+5+…+(2n-1)的值，在文本框Text1中输入n的值，结果在文本框Text2中输出。则程序中划线处的语句应更正为__________________。PrivateSubCommand1_C

5、lick()DimsumAsLong,iAsInteger,nAsIntegersum=0n=Val(Text1.Text)Fori=1To2*n-1Step2sum=sum+2NextiText2.Text=Str(sum)EndSub4．依照中华人民共和国《机动车驾驶员驾车时血液中酒精含量规定》，血液中酒精含量大于或等于0.3mg/ml驾驶机动车的属酒后驾车；大于或等于1.0mg/ml驾驶机动车的属醉酒驾9车。设计一个程序，帮助交警判定某人属酒后驾车、醉酒驾车还是没有违法。解决此问题的流程图如VB-1所示。根据流程图VB-1编写的VisualBas

6、ic程序如下，在①和②划线处，填入合适的语句或表达式，把程序补充完整。PrivateSubCommand1_Click()DimxAsSinglex=Val(Text1.Text)If①ThenLabel1.Caption="你属于醉酒驾车!"ElseIfx>=0.3ThenLabel1.Caption="你属于酒后驾车!"②Label1.Caption="恭喜你没有违法!"EndIfEndIfEndSub程序中划线处①应填入程序中划线处②应填入算法与程序设计题（第三套）四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）1

7、.有如下VisualBasic程序段：a=300b=400b=b-a该程序段运行后，变量b的值为_________。2．有如下VisualBasic程序段：a=2b=5Ifa

8、gle，iAsIntegersum=0Fori=1To99Step2Sum=sum+INext