选修操作历年真题剖析.docx
- 文档编号:4338570
- 上传时间:2022-11-29
- 格式:DOCX
- 页数:18
- 大小:409.35KB
选修操作历年真题剖析.docx
《选修操作历年真题剖析.docx》由会员分享,可在线阅读,更多相关《选修操作历年真题剖析.docx(18页珍藏版)》请在冰豆网上搜索。
选修操作历年真题剖析
输出图案题型
1、打开“161”文件夹中的文件“工程1.vbp”,进行以下操作后并保存!
(1)在窗体“Form1.frm”中,设置“Command1”按钮的“Caption”属性值为“绘图”;
(2)完善程序,单击“绘图”按钮,使之打印出如下图形。
注:
①运行时,把红色下划线删除
②不能删除注释语句
PrivateSubCommand1_Click()
DimiAsInteger,jAsInteger
Fori=1To5'第一空
PrintSpace(i-1);'输出空格
Forj=1To6-i
Print“*”;'第二空
Nextj
Nexti'第三空
EndSub
2、打开“162”文件夹中的文件“工程1.vbp”,进行以下操作后并保存!
(1)在窗体“Form1.frm”中,设置“Command1”按钮的“Caption”属性值为“绘图”;
(2)完善程序,单击“绘图”按钮,使其能输出如下图形。
注:
①运行时,把红色下划线删除
②不能删除注释语句
PrivateSubCommand1_Click()
DimiAsInteger,jAsInteger
Fori=1To4'第一空
PrintSpace(i-1);'打印空格
Forj=1To5
Print“*”;'第二空
Nextj
nexti'第三空
EndSub
3、打开“工程1.vbp”进行以下操作后并保存!
(1)在窗体“Form1.frm”中,设置“Command1”按钮的“Caption”属性值为“绘图”;
(2)完善程序,单击“绘图”按钮,使之输出如下图形(由“A”组成)。
注:
①运行时,把红色下划线删除
②不能删除注释语句
PrivateSubCommand1_Click()
Fori=1To5'第一空
PrintSpace(i);'输出空格
Forj=iTo5
Print“A”;'第二空
Nextj
Nexti'第三空
EndSub
判断结果型
1、打开“163”文件夹中的文件“工程1.vbp”,进行以下操作后并保存!
(1)在窗体“Form1.frm”中,设置“Command1”按钮的“Caption”属性值为“判断”;
(2)完善程序,使之能够实现如下功能:
在“输入数”文本框中输入一个数,单击“判断”按钮,在“判断值”中显示“正数”或“负数”,输入零则显示“输入数值为0,请重新输入!
”。
注:
①运行时,把红色下划线删除
②不能删除注释语句
PrivateSubCommand1_Click()
Dimx
x=Val(Text1.Text)
Ifx=0Then'第一空
Label3.Caption="输入数值为0,请重新输入!
"
Else
Ifx>0Then'第二空
Label3.Caption="正数"
Else
Label3.Caption="负数"
Endif'第三空
EndIf
EndSub
2、打开“164”文件夹中的文件“工程1.vbp”,进行以下操作后并保存!
!
(1)在窗体“Form1.frm”中,设置“Command1”按钮的“Caption”属性值为“查找”;
(2)设计程序:
在三个文本框分别输入语文、数学、英语成绩,点击“查找”按钮后,在“最高分”中输出三门课成绩的最高分。
注:
①运行时,把红色下划线删除
②不能删除注释语句
PrivateSubCommand1_Click()
Dimyw,sx,yy,gf
yw=Val(Text1.Text)
sx=Val(Text2.Text)
yy=Val(Text3.Text)
Ifyw>sxThen
gf=yw
Else
gf=sx'第一空
EndIf
Ifgf gf=yy'第二空 Else gf=gf endif'第三空 Label5.Caption=gf EndSub 3、打开“165”文件夹中的文件“工程1.vbp”,进行以下操作后并保存! (1)在窗体“Form1.frm”中,设置“Command1”按钮的“Caption”属性值为“评价”; (2)完善程序,某一路段在车辆限速,当车速在80公里/每小时以上时为“超速行驶”(包括80),当车速在80公里/每小时以下时为“正常行驶”。 完善程序,在“输入车速”文本框中输入一个数值,在“评价”中显示“请注意,您是超速行驶! ”或“车辆在正常行驶! ”。 注: ①运行时,把红色下划线删除 ②不能删除注释语句 PrivateSubCommand1_Click() DimaAsSingle'定义变量a cs=Val(Text1.Text) Ifcs>=80Then'第一空 Label3.Caption="请注意,您是超速行驶! " else'第二空 Label3.Caption="车辆在正常行驶! " endif'第三空 EndSub 4、打开“169”文件夹中的文件“工程1.vbp”,进行以下操作后并保存! (1)在窗体“Form1.frm”中,设置“Command1”按钮的“Caption”属性值为“测试”; (2)依照中华人民共和国《机动车驾驶员驾车时血液中酒精含量规定》,血液中酒精含量大于或等于0.3mg/ml驾驶机动车的属酒后驾车;大于或等于1mg/ml驾驶机动车的属醉酒驾车。 完善程序,当输入“酒精量”单击“测试”按钮时,在“评价”中显示评价说明。 注: ①运行时,把红色下划线删除 ②不能删除注释语句 PrivateSubCommand1_Click() DimxAsSingle x=Val(Text1.Text) Ifx>=1Then'第一空 Label3.Caption="你属于醉酒驾车! " Else Ifx>=0.3Then Label3.Caption="你属于酒后驾车! " else'第二空 Label3.Caption="你没有违规驾驶! " EndIf Endif'第三空 EndSub 5、打开“D: \ExamData\14124010464\292”文件夹中的文件: “工程1.vbp”进行以下操作后并保存! (1)在窗体“Form1.frm”中,设置“Command1”按钮的“Caption”属性值为“判断”; (2)完善程序,在“输入数值”的文本框中输入一个100以内的正整数(包括100不包括0),单击“判断”按钮,在“判断奇偶性”中显示是“奇数”还是“偶数”,当输入大于100的整数或小于等于0的整数时则显示“输入的整数不在范围内”。 注: ①运行时,把红色下划线删除 ②不能删除注释语句 PrivateSubCommand1_Click() DimxAsInteger x=Val(Text1.Text) Ifx<=0Orx>100Then'第一空 Label3.Caption="输入的整数不在范围内" Else Ifx\2<>x/2Then'第二空 Label3.Caption="奇数" Else Label3.Caption="偶数" Endif'第三空 EndIf EndSub 6、打开“工程1.vbp”进行以下操作后并保存! (1)在窗体“Form1.frm”中,设置“Command1”按钮的“Caption”属性值为“测试”; (2)完善程序,在“输入正整数: ”文本框中输入一个正整数,判断该是否是“素数”,在“判断: ”中显示“是素数”或“不是素数”。 (素数是一个大于1的自然数,除了1和它本身外,不能被其他自然数整除。 ) 注: ①运行时,把红色下划线删除 ②不能删除注释语句 PrivateSubCommand1_Click() DimaAsSingle,iAsInteger'定义变量a,i a=Val(Text1.Text) i=2'第一空 DoUntil(aModi=0)Or(i=a-1) i=i+1 loop'第二空 IfaModi=0ThenLabel3.Caption="不是素数"ElseLabel3.Caption=“是素数”'第三空 EndSub 累算型 1、打开“166”文件夹中的文件“工程1.vbp”,进行以下操作后并保存! (1)在窗体“Form1.frm”中,设置“Command1”按钮的“Caption”属性值为“计算”; (2)完善程序,使其能输出: 2+4+6+8...+100的值。 单击“计算”按钮时,在“输出值”中输出总值。 注: ①运行时,把红色下划线删除 ②不能删除注释语句 PrivateSubCommand1_Click() DimsAsInteger,iAsInteger S=0'第一空 Fori=2To100Step2'第二空 S=s+i'第三空 Nexti Label2.Caption=s EndSub 2、打开“167”文件夹中的文件“工程1.vbp”,进行以下操作后并保存! (1)在窗体“Form1.frm”中,设置“Command1”按钮的“Caption”属性值为“求值”; (2)完善程序,使其能输出: 1+3+5+7...+99的值。 单击“求值”按钮时,在“输出值”中输出总值。 注: ①运行时,把红色下划线删除 ②不能删除注释语句 PrivateSubCommand1_Click() DimsAsInteger DimiAsInteger s=0'第一空 Fori=1To99Step2'第二空 s=s+i nexti'第三空 Label2.Caption=s EndSub 3、打开“168”文件夹中的文件“工程1.vbp”,进行以下操作后并保存! (1)在窗体“Form1.frm”中,设置“Command1”按钮的“Caption”属性值为“求值”; (2)完善程序,求s=1×3×5…×(2n-1)。 单击“求值”按钮时,输入n值,则在“输出值”中输出总值。 注: ①运行时,把红色下划线删除 ②不能删除注释语句 PrivateSubCommand1_Click() DimsAsInteger,iAsInteger,nAsInteger n=Val(Text1.Text) s=1'第一空 Fori=1To2*n-1Step2'第二空 s=s*i'第三空 Nexti Label2.Caption=s EndSub 4、打开“295”文件夹中的文件: “工程1.vbp”进行以下操作后并保存! (1)在窗体“Form1.frm”中,设置“Command1”按钮的“Caption”属性值为“计算”; (2)完善程序,求s=1×2+2×3…+n×(n+1)(n取正整数)。 在“请输入正整数n值”后的文本框中输入一个正整数,单击“计算”按钮时,则在“输出值”中输出总值。 注: ①运行时,把红色下划线删除 ②不能删除注释语句 PrivateSubCommand1_Click() DimnAsInteger,sAsDouble n=Val(Text1.Text) s=0'第一空 Fori=1Ton'第二空 s=s+i*(i+1)'第三空 Nexti Label2.Caption=s EndSub 查找型 1、打开“164”文件夹中的文件“工程1.vbp”,进行以下操作后并保存! ! (1)在窗体“Form1.frm”中,设置“Command1”按钮的“Caption”属性值为“查找”; (2)设计程序: 在三个文本框分别输入语文、数学、英语成绩,点击“查找”按钮后,在“最高分”中输出三门课成绩的最高分。 注: ①运行时,把红色下划线删除 ②不能删除注释语句 PrivateSubCommand1_Click() Dimyw,sx,yy,gf yw=Val(Text1.Text) sx=Val(Text2.Text) yy=Val(Text3.Text) Ifyw>sxThen gf=yw Else gf=sx'第一空 EndIf Ifgf gf=yy'第二空 Else gf=gf endif'第三空 Label5.Caption=gf EndSub 2、打开“293”文件夹中的文件: “工程1.vbp”进行以下操作后并保存! (1)在窗体“Form1.frm”中,设置“Command1”按钮的“Caption”属性值为“查找”; (2)完善程序,打印出100以内(包括100)能被3和7同时整除的正整数,单击“查找”按钮时,在列表框中显示出所有满足条件的数。 注: ①运行时,把红色下划线删除 ②不能删除注释语句 PrivateSubCommand1_Click() DimxAsInteger Forx=20To100'第一空 IfxMod3=0andxMod7=0Then'第二空 List1.AddItemStr(x) Endif'第三空 Nextx EndSub 3、打开“工程1.vbp”进行以下操作后并保存! (1)在窗体“Form1.frm”中,设置“Command1”按钮的“Caption”属性值为“查找”; (2)完善程序,使之能够实现如下功能: 输入十位学生姓名和百米成绩查找出跑得最快的学生姓名及成绩。 在“输入学生姓名和百米成绩”列表框中显示十位同学姓名和比赛成绩,单击“查找”按钮,在“第一名”下面显示“学生姓名”及“成绩”。 (假设输入的学生成绩都不相同) 注: ①运行时,把红色下划线删除 ②不能删除注释语句 DimiAsInteger,xAsSingle,mAsString,fristAsSingle,MingAsString frist=1000'设置变量最大初值 Fori=1To10'第一空 m=InputBox("输入学生姓名") List1.AddItemm x=Val(InputBox("输入成绩")) List2.AddItemx Ifx frist=x'第二空 Ming=m Endif'第三空 Nexti Label3.Caption=Ming+""+Str(frist) EndSub 4、打开“工程1.vbp”进行以下操作后并保存! (1)在窗体“Form1.frm”中,设置“Command1”按钮的“Caption”属性值为“查找”; (2)完善程序,使之能够实现如下功能: 输入十位学生姓名和跳远成绩查找出跳得最远的学生姓名及成绩。 在“输入学生姓名和跳远成绩”列表框中显示十位同学姓名和比赛成绩,单击“查找”按钮,在“第一名”下面显示“学生姓名”和“成绩”。 (假设输入的学生成绩都不相同) 注: ①运行时,把红色下划线删除 ②不能删除注释语句 DimiAsInteger,xAsSingle,mAsString,firstAsSingle,MingAsString first=0'设置变量最小初值 Fori=1To10'第一空 m=InputBox("输入学生姓名") List1.AddItemm x=Val(InputBox("输入成绩")) List2.AddItemx Ifx>firstThen'第二空 first=x Ming=m EndIf Nexti'第三空 Label3.Caption=Ming+""+Str(first) EndSub 分制转换型 1、打开“296”文件夹中的文件: “工程1.vbp”进行以下操作后并保存! (1)在窗体“Form1.frm”中,设置“Command1”按钮的“Caption”属性值为“开始”; (2)设计程序: 将120分制的成绩转换成百分制后,根据60分以内为D等,60分至80分为C等,80分至90分为B等,90分至100分为A等,在“输入学生成绩: ”后的文本框中输入成绩,点击“开始”按钮后,输出成绩评价等级。 注: ①运行时,把红色下划线删除 ②不能删除注释语句 PrivateSubCommand1_Click() DimxAsSingle x=Val(Text1.Text) x=x*100/120 Ifx<60Andx>=0ThenLabel5.Caption="D"'第一空 Ifx>=60andx<80ThenLabel5.Caption="C"'第二空 Ifx>=80Andx<90ThenLabel5.Caption="B" Ifx>=90Andx<=100ThenLabel5.Caption=“A”'第三空 EndSub 2、打开“297”文件夹中的文件: “工程1.vbp”进行以下操作后并保存! (1)在窗体“Form1.frm”中,设置“Command1”按钮的“Caption”属性值为“开始”; (2)完善程序,将150分制的成绩转换成百分制后,根据60分以内为不合格,60分至70分为合格,70分至90分为良好,90分至100分为优秀,在“输入学生成绩: ”后的文本框中输入成绩,点击“开始”按钮后,输出成绩评价等级。 注: ①运行时,把红色下划线删除 ②不能删除注释语句 PrivateSubCommand1_Click() DimxAsSingle x=Val(Text1.Text) x=x*100/150 Ifx>=0andx<60ThenLabel5.Caption="不合格"'第一空 Ifx>=60andx<70ThenLabel5.Caption="合格"'第二空 Ifx>=70Andx<90ThenLabel5.Caption=“良好”'第三空 Ifx>=90Andx<=100ThenLabel5.Caption="优秀" EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 选修 操作 历年 剖析
![提示](https://static.bdocx.com/images/bang_tan.gif)