欢迎来到天天文库
浏览记录
ID:19468982
大小:25.50 KB
页数:4页
时间:2018-09-28
《2015年秋季最新整理信息技术题库:综合1》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、2015年秋季最新整理信息技术题库:综合1 【第二教育资源网www.02edu.com—信息技术试题】 以下是小编为各位同学整理的,希望可以帮助到大家! 3、打开”考生文件夹829”文件夹中的文件:”工程1.vbp”进行以下操作后并保存!(编程在字符串相连接时不应使用”+”要使用”&”运算符) (1)在窗体”Form1.frm”中添加一个名为”Command1”的按钮,并设置该按钮的”Caption”属性值为”判断”; (2)完善程序,使之能够实现如下功能:在左边的文本框中输入一个100以内的正整数(包括1
2、00不包括0),单击”判断”按钮,在右边的文本框显示是”奇数”还是”偶数”,输入大于100的整数则显示”输入的整数不能超过100”! 注:①运行时,把红色下划线删除 ②不能删除注释语句 DimxAsInteger x=Text1.Text Ifx>100Then‘第一空 Text2.Text=“输入的整数不能超过100” ElseIfxMod2=1Then‘第二空 Text2.Text=“奇数” Else Text2.Text=“偶数” EndIf 4、打开”考生文件夹834”文件夹中的文件:”工程1
3、.vbp”进行以下操作后并保存!(编程在字符串相连接时不应使用”+”要使用”&”运算符) 完善程序,使之实现如下功能:程序运行时,依次输入3个整数,结果输出最小的一个整数! 注:①运行时,把红色下划线删除 ②不能删除注释语句 DimxAsInteger DimminAsInteger DimiAsInteger min=InputBox(“请输入数据”,“输入3个数”)‘输入第一个整数 Fori=1To2‘第一空 x=InputBox(“请输入数据”,“输入3个数”)‘输入第二和第三个整数 Ifx第二空 m
4、in=x EndIf Nexti Text1.Text=min‘第三空‘输出最小的整数 5、’公鸡5文钱一只,母鸡3文钱一只,3只小鸡1文钱。 ’如果用100文钱买100只鸡,可以买公鸡、母鸡和小鸡各多少只? ’完善下面的程序,单击“计算”按钮时,在Label中显示公鸡、母鸡、小鸡的数量! ’注:(1)运行时把红色下划线删除 ’(2)不能删除注释语句 PrivateSubCommand1_Click() DimiAsInteger DimjAsInteger DimkAsInteger Fori=0To
5、20‘第一空 Forj=0To33 k=100-i-j‘第二空 If5*i+3*j+k/3=100Then‘第三空 Label1=“小鸡=“&k Label2=“母鸡=“&j Label3=“公鸡=“&i EndIf Nextj Nexti EndSub 6、购物打折 PrivateSubCommand1_Click() DimxAsSingle DimyAsSingle x=Val(Text1.Text) Ifx>=200Then‘第一空 y=x*0.8‘打8折 ElseIfx>=100Th
6、en‘第二空 y=x*0.9‘打9折 Else y=x‘不打折 EndIf Text2.Text=y‘第三空 EndSub温馨小贴士:您可以访问第二教育资源网(www.02edu.com)查看更多与本文《2015年秋季最新整理信息技术题库:综合1》相关的信息技术试题。 信息技术信息技术秋季
此文档下载收益归作者所有