高中计算机会考VB题A档次到D档次习题及答案文档格式.docx
《高中计算机会考VB题A档次到D档次习题及答案文档格式.docx》由会员分享，可在线阅读，更多相关《高中计算机会考VB题A档次到D档次习题及答案文档格式.docx（23页珍藏版）》请在冰豆网上搜索。
"
Text2.Text="
Text3.text="
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
A03、编程实现:
在“半径”框中输入圆的半径，单击“确定”按钮时，“周长”、“面积”框中显示圆的周长
和面积。
PrivateSubCommand1_Click（）r=val（text1.text）
text2.text=2*3.14*r
text3.text=3.14*r*r
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="
1
Text1.Text="
9华氏温度,摄氏温度，，32A05、华氏温度（F）与摄氏温度（C）之间的转换关系为:
。
编程实现:
5若用户在文本框中输入一个摄氏温度，单击“转换”按钮可以换算成华氏温度，并显示出来;
单击“清除”
按钮可以清除各温度值。
C=Val（Text1.Text）
text2.text=9/5*c+32
PrivateSubCommand2_Click（）
text2.text="
A06、求并联电阻R的值。
在两个文本框中分别输入电阻R1、R2的值，单击“计算”按钮在“R”框中显示并联电阻R的值;
单击“清除”按钮清除数据;
R1，R2R,（提示:
）R1，R2
r1=val（text1.text）
r2=val（text2.text）
text3.text=r1*r2/（r1+r2）
A07、一个物体从一座塔高为h（米）的塔顶上自由落下，求落地所需的时间t（秒）。
在文本框中输入塔高h，单击“计算”按钮，在“时间”框中显示落地所需时间t的值;
单击“退出”
2ht,g按钮退出程序（提示:
，其中g=9.8）。
h=val（text1.text）
text2.text=sqr（2*h/9.8）
end
2A08、一架雪橇沿一斜坡滑下，它在时间t（秒）滑下的距离s（米）由以下公式给出:
s=10t+2t。
编程实现:
若用户在文本框中输入一个时间值，单击“计算”按钮可以计算出下滑的距离，并将其显示出来;
单击“刷新”按钮可以清除各项数值。
t=val（text1.text）
2
text2.text=10*t+2*t*t
PrivateSubCommand1_Click（）text1.text="
A09、编程完成美元兑换人民币的计算，假设美元兑换人民币，100美元=620人民币，输入美元数，输
出兑换的人民币数。
B类题
B类题以选择结构为主，并涉及平方根，绝对值等函数的应用。
B01、在文本框中任意输入两个数，单击“比较”按钮后，将其中的最大值显示在下方标签中;
按钮清除各项数值。
a=Val（Text1.Text）
Ifa>
bThen
Text3.text=a
Else
Text3.text=b
EndIf
Text1.text="
Text3.Text="
B02、买水果。
10斤以上（含10斤）每斤3元，10斤以下每斤3.5元。
用户输入购买的斤数，单击“计算”
按钮显示总价钱;
单击“清除”按钮清除各项数值;
单击“结束”按钮结束程序。
PrivateSubCommand1_Click（）x=Val（Text1.Text）
Ifx>
=10Then
text2.text=x*3
3
text2.text=x*3.5EndIf
PrivateSubCommand3_Click（）
End
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
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）
text3.text=“wrong”
endif
2B05、输入a,b,c三个数，若b-4ac,0则显示“有实根”，否则显示“无实根”。
4
PrivateSubCommand1_Click（）a=val（text1.text）
c=val（text3.text）
ifb*b-4*a*c>
=0then
text4.text=“有实根”
text4.text=“无实根”
Text4.text="
B06、由键盘输入三条边ABC，判断是否构成三角形，构成三角形的显示“此三边能构成三角形”，否则显示
“此三边不能构成三角形”。
（构成三角形的条件为:
任意两边之和大于第三边，任意两边之差小于第三边。
）
a=val（text1.text）
ifa+b>
canda+c>
bandb+c>
athen
text4.text=“此三边能构成三角形”
text4.text=“此三边不能构成三角形”
B07任意输入一个数，若这个数大于零则输出这个数的平方根，若这个数小于或等于零则输出这个数的绝对值。
0Thentext2.text=Sqr（a）Elsetext2.text=Abs（a）
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
Private
升级会员 