程序设计题.docx
- 文档编号:30198328
- 上传时间:2023-08-07
- 格式:DOCX
- 页数:26
- 大小:83.16KB
程序设计题.docx
《程序设计题.docx》由会员分享,可在线阅读,更多相关《程序设计题.docx(26页珍藏版)》请在冰豆网上搜索。
程序设计题
1'下面的程序是求100以内所有奇数之和,程序中有三处错误,请更正。
'注:
请不要更改原程序结构。
PrivateSubCommand1_Click()
DimsAsInteger
DimiAsInteger
s=0
Fori=1To99Step2
s=s+i
Nexti
Print"s="&s
EndSub
PrivateSubForm_Load()
EndSub
2、(选修)打开“考生文件夹\3542”文件夹中的工程“工程1.vbp”,按下图所示添加缺少的控件,并完善程序以实现如下所述的功能:
某商场在国庆节时做促销,活动规定:
凡在商场消费满500元以上(含500元),享受9折优惠;消费满1000元以上(含1000元),享受8折优惠;消费在500元以下不优惠。
输入消费金额,计算出实收金额。
PrivateSubcommand1_click()
DimmAsSingle'消费金额
m=___①___
Ifm>=1000Then
Text2.Text=____②___
Else
If__③___Then
Text2.Text=m*0.9
Else
Text2.Text=m
EndIf
EndIf
EndSub
系统答案在窗体上添加CommandButton控件并把Caption属性改为计算①Val(Text1.Text)②m*0.8③m>=500andm<1000
3、(选修)打开“考生文件夹\3768”文件夹中的文件“计算实付金额.vbp”,进行以下操作并
'国庆节来临之际,为吸引顾客前来购物,天虹商场进行了促销活动;
'规定凡购物满1000元以上(含1000元),享受9折优惠,1000元以下,享受9.5折优惠。
'删除程序中的①②③,填入正确的语句,当程序运行时,输入购物金额输出实付金额!
PrivateSubform_load()
DimnAsSingle'购物金额
DimsAsSingle'实付金额
n=Val(InputBox("请输入购物金额:
","输入"))
Ifn>=1000Then
s=n*0.9
Else
s=n*0.95
EndIf
MsgBox"实际支付金额"&s&"元",0,"实付金额"
EndSub
4、(选修)打开“考生文件夹\3530”文件夹中的文件“工程1.vbp”,进行以下操作后并保存!
填空完成程序,使程序实现如下功能:
当单击“开始”按钮后,从键盘输入5个数,保存在数组中,并显示在窗体上,然后把这5个数按照从小到大的顺序排列并显示在窗体上。
PrivateSubCommand1_Click()
DimxAsLong
DimnAsInteger,iAsInteger,sAsLong
Dima(1To5)AsSingle
Fori=1To5
a(i)=Val(InputBox("请在输入第"+Str(i)+"/5个数"))
Printa(i);
Nexti
Fori=1To___①__
Min=a(i):
m=i
Forx=i+1To5
If___②___ThenMin=a(x):
m=x
Nextx
k=a(i):
____③___:
a(m)=k
Nexti
Print"从小到大排序后的数据为"
Fori=1To5
Printa(i);
Nexti
EndSub
系统答案①4②a(x) 5。 (选修)打开“考生文件夹\3753”文件夹中的文件“vb.vbp”,如图所示添加缺少的控件,并完善程序以实现如下功能: 在文本框内输入听力及笔试成绩,当听力成绩达到30分以上(含30分)、笔试成绩达到60分以上(含60分)时显示评价为“合格”;否则显示“不合格”。 '在文本框内输入听力及笔试成绩;'当听力成绩达到30分以上(含30分)、笔试成绩达到60分以上(含60分)时显示评价为"合格";否则显示"不合格"。 '删除程序中的①②③,并填入正确的语句以实现上述的功能 Private SubCommand1_Click() Dim a As Double Dim b As Double Dim c As String a = _①__ b = _②__ If _③___Then Text3.Text = "合格" Else Text3.Text = "不合格" End If End Sub Private SubForm_Load() End Sub 在窗体上添加CommandButton控件并把Caption 属性改为 评价 答案应该是: ①val(Text1.text) ②val(text2.text) ③a>=30 and b>=60 6三、操作题(题数: 1道,共: 10分,得分: 0.0分) 1、(选修)打开“考生文件夹\3541”文件夹中的文件“工程1.vbp”进行以下操作后并保存! 完善程序,单击“画图”按钮,使其能输出如下图形: '删除①②③及下划线,填上正确的代码,画出如下所示的图形,请不要更改原程序结构。 PrivateSubCommand1_Click() Dimi,j,kAsInteger Fori=4To1Step-1 Forj=1To2*i-1Step1 Print"*";'打印符号* Nextj Print'换行 Fork=i-3To1 Print"";'打印空格 Nextk Nexti EndSub 7、(选修)打开“考生文件夹\3543”文件夹中的工程“工程1.vbp”,完善程序以实现如下所述的功能: 输入三角形的三条边长,首先判断给出的三条边能否构成三角形(任意两边之和大于第三边),如果可以则计算并输出该三角形的面积;否则输出“不能构成三角形”。 设三角形三边为a、b、c,q=(a+b+c)/2,面积S= PrivateSubCommand1_Click() Dima,b,c,q,sAsSingle a=Val(Text1.Text) b=Val(Text2.Text) c=Val(Text3.Text) q=(a+b+c)/2 If(a+b)<=cOr(a+c)<=bOr(b+c)<=aThen Print"不能构成三角形" Else s=Sqr(q*(q-a)*(q-b)*(q-c)) Print"三角形的面积是"&s EndIf EndSub 8(选修)打开“考生文件夹\3534”文件夹中的文件“工程1.vbp”,进行以下操作后并保存! 填空完成程序,使程序实现如下功能: 在text1中输入任意年份,显示是否为闰年,判断方法: 能被4整除但不能被100整除,或者能被400整除的年份是闰年。 PrivateSubCommand1_Click() DimiAsLong i=Val(Text1.Text) IfiMod4=0AndiMod100<>0OriMod400=0Then Label2.Caption="该年是闰年! " Else Label2.Caption="该年不是闰年! " EndIf EndSub 9'完善程序代码实现: 任意输入一个1到100以内的整数,并求出它的阶乘。 '注: 请不要更改原程序结构,删除①、②、③及下划线,并在对应位置填写正确的代码。 PrivateSubCommand1_Click() DimiAsInteger DimjAsInteger DimsAsDouble s=1 i=Val(InputBox("请您输入一个1到100以内的整数")) Forj=1Toi s=s*j nextj Printi&"的阶乘等于"&s EndSub 10、(选修)打开“考生文件夹\3533”文件夹中的文件“工程1.vbp”,进行以下操作后并保存! '在Text1中输入每月用电量,单击按钮"应收电费"后,在Text2中输出电费。 收费标准: 家庭每月用电量不超过260度 '按原价1.3元/度收费;超过260度,不超过400度每度电费用增加0.1元;超过400度后每度电费用增加0.3元。 '注: 请不要更改原程序结构,删除①、②、③及下划线,并在对应位置填写正确的代码。 PrivateSubCommand1_Click() DimiAsSingle i=Val(Text1.Text) Ifi>=0Andi<=260Thens=i*1.3 Ifi>260Andi<=400Thens=i*(1.3+0.1) Ifi>400Thens=i*(1.3+0.3) Text2.Text=s&"元" EndSub 11、(选修)打开“考生文件夹\3544”文件夹中的文件“vb.vbp”,如图所示添加缺少的控件,并完善程序以实现如下功能: 某省的高中会考成绩公布时采用等级制,共分为A、B、C、D四个等级,其中60分以下的等级为D,60分至69分的等级为C,70分至84分的等级为B,85分至100分的等级为A。 假设学生的成绩都是整数,不考虑小数的情况。 请填空完成程序,输入学生的成绩以后,转换为相应的等级! 如下图所示: 在Text1中输入学生的成绩点击“转换”按钮后转换成相应的等级并显示在Label1 中 PrivateSubCommand1_Click() DimexamAsInteger exam=____①___ SelectCase____②____ CaseIs<60 Label1.Caption="该学生的成绩等级为D" Case60To69 Label1.Caption="该学生的成绩等级为C" Case70To84 Label1.Caption="该学生的成绩等级为B" Case85To100 Label1.Caption="该学生的成绩等级为A" CaseElse Label1.Caption="输入的数据不合法" ____③___ EndSub 系统答案: 在窗体上添加CommandButton控件并把Caption属性改为转换 ①Val(Text1.Text)②exam③EndSelect 12、(选修)打开“考生文件夹\3540”文件夹中的文件“工程1.vbp”,按下图所示添加缺少的控件,并完善程序以实现如下功能: 手动输入0到10以内的一个整数,如果这个数字正好等于随机产生的整数(0到10之内),那么输出“恭喜您猜中了! ”,否则输出“谢谢,重在参与! ” '注: 请不要更改原程序结构,删除①、②及下划线,并在对应位置填写正确的代码。 PrivateSubCommand1_Click() Dimi,jAsInteger Randomize i=Int(Rnd*10) j=Val(InputBox("请您输入一个0-9之间的整数(包含0和9): ")) Print"您选中的数字为: "&j Print"随机产生的数为: "&i Ifi=jThen Print"恭喜您猜中了! " Else Print"谢谢,重在参与! " EndIf EndSub 13、(选修)打开“考生文件夹\3761”文件夹中的工程“台风预警.vbp”,在窗体上添加缺少的控件,并完善程序以实现如下所述的功能: 台风预警中心根据台风平均风力级别来发布预警信号(见下表),输入不同的风力级别,判断发布哪种预警信号。 (13) '台风预警中心根据台风平均风力级别来发布预警信号(见下表),输入不同的风力级别,判断发布哪种预警信号。 '删除①②③,填写正确的语句,以实现上述功能。 PrivateSubCommand1_Click() DimvAsInteger v=Val(Text1.Text) Ifv>=6Andv<8Then Text2.Text="蓝色" Else Ifv>=8Andv<10Then Text2.Text="黄色" Else Ifv>=10Andv<12Then Text2.Text="橙色" Else Ifv>=12Then Text2.Text="红色" Else Text2.Text="不用发布预警信号! " EndIf EndIf EndIf EndIf EndSub 14、经典的百鸡问题。 用100文钱买100只鸡,其中,公鸡5文钱一只,母鸡3文钱一只,小鸡1文钱买3只。 问公鸡,母鸡,小鸡各多少只? 编程序解决。 PrivateSubCommand1_Click() DimgjAsInteger DimmjAsInteger DimxjAsInteger DimqAsInteger Print Print"答案: " Forgj=1To20 Formj=1To31 xj=100-gj-mj q=5*gj+3*mj+xj/3 Ifq=100Then Print"公鸡"&gj;"只";"母鸡"&mj;"只";"小鸡"&xj;"只" EndIf Next Next EndSub PrivateSubCommand2_Click() Print"百鸡问题: " Print Print"用100文钱买100只鸡,其中,公鸡5文钱一只,母鸡3文" Print"钱一只,小鸡1文钱买3只。 问公鸡,母鸡,小鸡各多少只? " EndSub 15、完成程序,使程序能打印出九九乘法表,程序运行后VisualBasic程序运行界面如图所示(略) PrivateSubCommand1_Click() DimiAsInteger DimjAsInteger DimkAsInteger Fori=1To9 Forj=1Toi k=i*j Printi;"*"&j;"=";k; Next Print Next EndSub 16、编程序完成,使程序实现如下功能: 点击“计算”按钮后,在窗体上输出“1+2+…+100”的和,并求出1到100之间能被19整除的整数的个数。 运行结果如图(略) PrivateSubCommand1_Click() Print"1+2+3+4...+100=5050" DimiAsInteger DimjAsInteger DimkAsInteger Fori=1To100 j=iMod19 Ifj=0Then k=k+1 EndIf Next Print"1到100之间能被19整除有: "&k;"个数" EndSub 17、在VisualBasic环境中,编程实现以下功能: “随机产生n个1—100(包括1和100)的数,并求它们的最大值、最小值和平均值。 ” PrivateSubCommand1_Click() DimiAsInteger DimjAsInteger DimmaxAsInteger DimminAsInteger DimpjAsSingle DimnAsInteger Dima(99)AsInteger Fori=0To99 a(i)=Int(100*Rnd)+1 Next '打印随机数 Print Fori=0To9 Forj=0To9 Printa(i*10+j), Next Print Next '计算最大值 Print max=a(0) Fori=0To99 Ifmax<=a(i)Then max=a(i) EndIf Next Print"最大值="&max '计算最小值 min=a(0) Fori=0To99 Ifmin>a(i)Then min=a(i) EndIf Next Print"最小值="&min '计算平均值 Fori=0To99 n=a(i)+n Next pj=n/100 Print"平均值="&pj EndSub 18、三个数字判断大小: OptionExplicit PrivateSubCommand1_Click() DimaAsInteger,bAsInteger,cAsInteger,tAsInteger a=Rnd*100 b=Rnd*100 c=Rnd*100 Ifa>bThent=a: a=b: b=t Ifa>cThent=a: a=c: c=t Ifb>cThent=b: b=c: c=t Print"随机数中产生的最小的数是"&a&","&"第2小的数是"&b&","&"最大的数是"&c EndSub 19、一百以内奇偶数的判断: PrivateSubCommand1_Click() Dima% Do a=InputBox("请输入你要判断的数字") Ifa>100Ora<0Then MsgBox("你输入的数字不再0~100之间,请重新输入! ") EndIf LoopUntila>=0Anda<=100 IfaMod2=0Then Print"你输入的数字"&a&"是偶数." Else Print"你输入的数字"&a&"是奇数." EndIf EndSub 20、提交单价 a=Text1.Text Text2.Text=a+Text2.Text Text1.Text="" EndSub PrivateSubCommand2_Click() a=Text1.Text Text2.Text=Text2.Text-a IfText2.Text<0Then 21、放弃某件商品 MsgBox"错误" Text2.Text=0 EndIf Text1.Text="" EndSub PrivateSubCommand3_Click() DimbAsSingle b=Text2.Text Ifb<500Then Text3.Text=b ElseIfb<1000Then Text3.Text=0.9*b 21、清空数据 PrivateSubCommand4_Click() Text1.Text="" Text2.Text=0 Text3.Text=0 EndSub PrivateSubFrame1_DragDrop(SourceAsControl,XAsSingle,YAsSingle) EndSub 22、**画平行四边行. PrivateSubCommand1_Click() Dimi,jAsInteger Fori=3To0Step-1'第一空 PrintSpace(i);'打印空格 Forj=1To10 Print"*";'第二空,打印符号“*” Nextj Print Nexti EndSub 23、输入英寸长度,换算后的厘米长度 PrivateSubCommand1_Click() DimxAsInteger DimyAsSingle x=Text1.Text y=x*2.54'第一空 Text2.Text=y EndSub 24、百钱百鸡: PrivateSubCommand1_Click() DimiAsInteger DimjAsInteger DimkAsInteger Fori=0To20'第一空 Forj=0To33 k=100-i-j'第二空 If5*i+3*j+k/3=100Then'第三空 Label1="小鸡="&k Label2="母鸡="&j Label3="公鸡="&i EndIf Nextj Nexti EndSub '求1到100之间所有偶数之和与所有奇数之和! '注: (1)运行时把红色下划线删除 ' (2)不能删除注释语句 PrivateSubCommand1_Click() Dims1AsSingle,s2AsSingle,iAsInteger s1=0 s2=0 Fori=1To100 IfiMod2=0Then'第一空,求出偶数之和 s1=s1+i'第二空 Else s2=s2+i'求出奇数之和 EndIf Nexti Text1.Text=s1'第三空 Text2.Text=s2 EndSub 25、商场打折: 100,200打折 PrivateSubCommand1_Click() DimxAsSingle DimyAsSingle x=Val(
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 程序设计
![提示](https://static.bdocx.com/images/bang_tan.gif)