高中计算机会考VB题A档次到D档次习题及答案.docx
- 文档编号:2366112
- 上传时间:2022-10-29
- 格式:DOCX
- 页数:23
- 大小:194.95KB
高中计算机会考VB题A档次到D档次习题及答案.docx
《高中计算机会考VB题A档次到D档次习题及答案.docx》由会员分享,可在线阅读,更多相关《高中计算机会考VB题A档次到D档次习题及答案.docx(23页珍藏版)》请在冰豆网上搜索。
高中计算机会考VB题A档次到D档次习题及答案
高中计算机会考VB题A档次到D档次习题及答案
VisaulBasic程序设计(编程题)
A类题
说明:
A类题以顺序结构的解析算法为主,解决学生在数学、物理和生活中遇到的简单计算问题。
用到的控件有:
标签框、文本框、命令按钮等。
A01、制作一个加法器,在文本框中输入两个数值后,单击“计算”按钮可以计算出两数之和并显示在标签中;
单击“清除”按钮可以清除各项数值。
PrivateSubCommand1_Click()a=Val(Text1.Text)
b=Val(Text2.Text)
text3.text=a+b
EndSub
PrivateSubCommand2_Click()Text1.Text=""
Text2.Text=""
Text3.text=""
EndSub
3A02、已知y=x,|x,10|,4,编程求y的值。
要求:
在文本框中输入x的值,单击“计算”按钮后在“y”框中显示y的值;单击“退出”按钮退出程序。
PrivateSubCommand1_Click()
X=Val(Text1.Text)
Text2.text=x^3+Abs(x-10)+4EndSub
PrivateSubCommand2_Click()End
EndSub
A03、编程实现:
在“半径”框中输入圆的半径,单击“确定”按钮时,“周长”、“面积”框中显示圆的周长
和面积。
PrivateSubCommand1_Click()r=val(text1.text)
text2.text=2*3.14*r
text3.text=3.14*r*r
EndSub
A04、编程计算圆锥的体积。
要求:
输入圆锥的半径与高度,单击“计算”按钮可以计算出圆锥的体积并显示
出来;单击“清除”按钮可以清除各项数值。
12提示:
V=πhr,π取3.143
PrivateSubCommand1_Click()r=Val(Text1.Text)
h=Val(Text2.Text)
text3.text=1/3*3.14*h*r^2EndSub
PrivateSubCommand2_Click()Text3.text=""
Text2.Text=""
1
Text1.Text=""
EndSub
9华氏温度,摄氏温度,,32A05、华氏温度(F)与摄氏温度(C)之间的转换关系为:
。
编程实现:
5若用户在文本框中输入一个摄氏温度,单击“转换”按钮可以换算成华氏温度,并显示出来;单击“清除”
按钮可以清除各温度值。
PrivateSubCommand1_Click()
C=Val(Text1.Text)
text2.text=9/5*c+32
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
text2.text=""
EndSub
A06、求并联电阻R的值。
要求:
在两个文本框中分别输入电阻R1、R2的值,单击“计算”按钮在“R”框中显示并联电阻R的值;单击“清除”按钮清除数据;单击“退出”按钮退出程序。
R1,R2R,(提示:
)R1,R2
PrivateSubCommand1_Click()
r1=val(text1.text)
r2=val(text2.text)
text3.text=r1*r2/(r1+r2)
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
Text2.Text=""
Text3.text=""
EndSub
A07、一个物体从一座塔高为h(米)的塔顶上自由落下,求落地所需的时间t(秒)。
要求:
在文本框中输入塔高h,单击“计算”按钮,在“时间”框中显示落地所需时间t的值;单击“退出”
2ht,g按钮退出程序(提示:
,其中g=9.8)。
PrivateSubCommand1_Click()
h=val(text1.text)
text2.text=sqr(2*h/9.8)
EndSub
PrivateSubCommand2_Click()
end
EndSub
2A08、一架雪橇沿一斜坡滑下,它在时间t(秒)滑下的距离s(米)由以下公式给出:
s=10t+2t。
编程实现:
若用户在文本框中输入一个时间值,单击“计算”按钮可以计算出下滑的距离,并将其显示出来;
单击“刷新”按钮可以清除各项数值。
PrivateSubCommand1_Click()
t=val(text1.text)
2
text2.text=10*t+2*t*t
EndSub
PrivateSubCommand1_Click()text1.text=""
text2.text=""
EndSub
A09、编程完成美元兑换人民币的计算,假设美元兑换人民币,100美元=620人民币,输入美元数,输
出兑换的人民币数。
B类题
说明:
B类题以选择结构为主,并涉及平方根,绝对值等函数的应用。
B01、在文本框中任意输入两个数,单击“比较”按钮后,将其中的最大值显示在下方标签中;单击“清除”
按钮清除各项数值。
PrivateSubCommand1_Click()
a=Val(Text1.Text)
b=Val(Text2.Text)
Ifa>bThen
Text3.text=a
Else
Text3.text=b
EndIf
EndSub
PrivateSubCommand2_Click()
Text1.text=""
Text2.Text=""
Text3.Text=""
EndSub
B02、买水果。
10斤以上(含10斤)每斤3元,10斤以下每斤3.5元。
用户输入购买的斤数,单击“计算”
按钮显示总价钱;单击“清除”按钮清除各项数值;单击“结束”按钮结束程序。
PrivateSubCommand1_Click()x=Val(Text1.Text)
Ifx>=10Then
text2.text=x*3
Else
3
text2.text=x*3.5EndIf
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
text2.text=""
EndSub
PrivateSubCommand3_Click()
End
EndSub
B03、由铁路托运行李,从甲地到乙地,行李不超过50kg时,运费为1.50元/kg,如果超过50kg,超过部分的运费为2.00元/kg。
请编写程序,当输入行李重量后,
单击“计算”按钮计算运费,单击“清除”按钮可以清除各项数值。
PrivateSubCommand1_Click()w=Val(Text1.Text)
Ifw<=50Then
a=1.5*w
else
a=50*1.5+(w-50)*2endif
text2.text=a
EndSub
PrivateSubCommand2_Click()Text1.Text=""
text2.text=""
EndSub
a,bB04、输入a,b的值,当a×b>0时计算表达式y,的值,否则弹出消息“wrong”。
4abPrivateSubCommand1_Click()a=val(text1.text)
b=val(text2.text)
ifa*b>0then
text3.text=(a+b)/sqr(4*a*b)
else
text3.text=“wrong”
endif
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
Text2.Text=""
Text3.text=""
EndSub
2B05、输入a,b,c三个数,若b-4ac,0则显示“有实根”,否则显示“无实根”。
4
PrivateSubCommand1_Click()a=val(text1.text)
b=val(text2.text)
c=val(text3.text)
ifb*b-4*a*c>=0then
text4.text=“有实根”
else
text4.text=“无实根”
endif
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.text=""
EndSub
B06、由键盘输入三条边ABC,判断是否构成三角形,构成三角形的显示“此三边能构成三角形”,否则显示
“此三边不能构成三角形”。
(构成三角形的条件为:
任意两边之和大于第三边,任意两边之差小于第三边。
)
PrivateSubCommand1_Click()
a=val(text1.text)
b=val(text2.text)
c=val(text3.text)
ifa+b>canda+c>bandb+c>athen
text4.text=“此三边能构成三角形”
else
text4.text=“此三边不能构成三角形”
endif
EndSub
PrivateSubCommand2_Click()
End
EndSub
B07任意输入一个数,若这个数大于零则输出这个数的平方根,若这个数小于或等于零则输出这个数的绝对值。
PrivateSubCommand1_Click()
a=Val(Text1.Text)
Ifa>0Thentext2.text=Sqr(a)Elsetext2.text=Abs(a)
EndSub
PrivateSubCommand2_Click()End
EndSub
C类题
说明:
C类题以循环结构的应用为主,并涉及累加、累乘、随机函数、分离数字、判断整除的应用等。
5
C01、在[1~1000]区间中的所有整数中,分别计算能被3整除的数的个数及能被7整除的数的个数,
结果显示如题所示。
要求:
必须使用循环语句实现。
PrivateSubCommand1_Click()s1=0
s2=0
Fori=1To1000Step1Ifimod3=0Thens1=s1+1Ifimod7=0Thens2=s2+1Nexti
Text1.text=s1
text2.text=s2
EndSub
Private
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 高中 计算 机会 VB 档次 习题 答案