高中计算机会考题档次到档次习题及答案

Visaul Basic程序设计（编程题）

A类题

说明：A类题以顺序结构的解析算法为主，解决学生在数学、物理和生活中遇到的简单计算问题。

用到的控件有：标签框、文本框、命令按钮等。

A01、制作一个加法器，在文本框中输入两个数值后，单击“计算”按钮可以计算出两数之和并显示在标签中；

单击“清除”按钮可以清除各项数值。 Private Sub Command1_Click() a = Val b = Val = a + b End Sub

Private Sub Command2_Click() = \ = \ = \End Sub

3

A02、已知y= x＋|x－10|＋4， 编程求y的值 。要求：在文本框中输入x的值，单击“计算” 按钮后在“y”框中显示y的值；单击“退出”按钮退出程序。 Private Sub Command1_Click() X= Val

= x ^ 3 + Abs(x - 10) + 4 End Sub

Private Sub Command2_Click() End End Sub

A03、编程实现：在“半径”框中输入圆的半径，单击“确定”按钮时，“周长”、“面积”框中显示圆的周长

和面积。

Private Sub Command1_Click() r=val =2**r =*r*r End Sub

A04、编程计算圆锥的体积。要求：输入圆锥的半径与高度，单击“计算”按钮可以计算出圆锥的体积并显示

出来；单击“清除”按钮可以清除各项数值。

提示：V =

12

πhr，π取 3Private Sub Command1_Click() r= Val h= Val

= 1 / 3 * * h * r ^ 2 End Sub

Private Sub Command2_Click() = \ = \ = \

End Sub

A05、华氏温度（F）与摄氏温度（C）之间的转换关系为：华氏温度?摄氏温度?＋32 。编程实现： 若用户在文本框中输入一个摄氏温度，单击“转换”按钮可以换算成华氏温度，并显示出来；单击“清除” 按钮可以清除各温度值。

Private Sub Command1_Click() C= Val

= 9 / 5 *c + 32 End Sub

Private Sub Command2_Click() = \ = \End Sub

A06、求并联电阻R的值。要求：在两个文本框中分别输入电阻R1、R2的值，单击“计算”按钮在“R” 框中显示并联电阻R的值；单击“清除”按钮清除数据；单击“退出”按钮退出程序。 （提示：R?95R1?R2）

R1?R2Private Sub Command1_Click() r1=val r2=val

=r1*r2/(r1+r2) End Sub

Private Sub Command2_Click() = \ = \ = \End Sub

A07、一个物体从一座塔高为h（米）的塔顶上自由落下，求落地所需的时间t（秒）。要求：

在文本框中输入塔高h，单击“计算”按钮，在“时间”框中显示落地所需时间t的值；单击“退出”

t?2hg按钮退出程序（提示： ，其中g= ）。

Private Sub Command1_Click()

h=val

=sqr(2*h/ End Sub

Private Sub Command2_Click() end

End Sub

2

A08、一架雪橇沿一斜坡滑下，它在时间t（秒）滑下的距离s（米）由以下公式给出：s=10t+2t。

编程实现：若用户在文本框中输入一个时间值，单击“计算”按钮可以计算出下滑的距离，并将其显示出来； 单击“刷新”按钮可以清除各项数值。 Private Sub Command1_Click() t=val

=10*t+2*t*t End Sub

Private Sub Command1_Click() = \ = \End Sub

A09、编程完成美元兑换人民币的计算，假设美元兑换人民币，100美元=620人民币，输入美元数，输出兑换的人民币数。

B类题

说明：B类题以选择结构为主，并涉及平方根，绝对值等函数的应用。

B01、在文本框中任意输入两个数，单击“比较”按钮后，将其中的最大值显示在下方标签中；单击“清除” 按钮清除各项数值。

Private Sub Command1_Click() a = Val b = Val

If a > b Then = a Else = b End If End Sub

Private Sub Command2_Click() = \ = \ = \End Sub

B02、买水果。10斤以上（含10斤）每斤3元，10斤以下每斤元。用户输入购买的斤数，单击“计算” 按钮显示总价钱；单击“清除”按钮清除各项数值；单击“结束”按钮结束程序。 Private Sub Command1_Click() x = Val

If x >= 10 Then = x*3 Else

= x * End If End Sub

Private Sub Command2_Click() = \ = \End Sub

Private Sub Command3_Click() End End Sub

B03、由铁路托运行李，从甲地到乙地，行李不超过50 kg 时，运费为

元 /kg ，如果超过 50kg, 超过部分的运费为 元 /kg 。请编写程序，当输入行李重量后， 单击“计算”按钮计算运费，单击“清除”按钮可以清除各项数值。

Private Sub Command1_Click() w = Val

If w <= 50 Then a = * w else

a = 50 * + (w - 50) * 2 end if = a End Sub

Private Sub Command2_Click() = \ = \End Sub

B04、输入a, b的值 , 当a×b>0时计算表达式y＝Private Sub Command1_Click() a=val b=val

if a*b>0 then

=(a+b)/sqr(4*a*b) else

=“wrong” end if End Sub

Private Sub Command2_Click() = \ = \ = \End Sub

2

B05、输入a,b,c 三个数，若b-4ac?0 则显示根”。

Private Sub Command1_Click() a=val b=val

a?b4ab

的值，否则弹出消息“wrong”。

“有实根”，否则显示“无实

c= val

if b*b-4*a*c>=0 then =“有实根” else

=“无实根” end if End Sub

Private Sub Command2_Click() = \ = \ = \ = \End Sub

B06、由键盘输入三条边ABC，判断是否构成三角形，构成三角形的显示“此三边能构成三角形”，否则显示 “此三边不能构成三角形”。（构成三角形的条件为：任意两边之和大于第三边，任意两边之差小于第三边。） Private Sub Command1_Click() a=val

b=val c= val

if a+b>c and a+c>b and b+c>a then =“此三边能构成三角形” else

=“此三边不能构成三角形” end if End Sub

Private Sub Command2_Click() End End Sub

B07任意输入一个数，若这个数大于零则输出这个数的平方根，若这个数小于或等于零则输出这个数的绝对值。 Private Sub Command1_Click() a = Val

If a > 0 Then = Sqr(a) Else = Abs(a) End Sub

Private Sub Command2_Click() End End Sub

C类题

说明：C类题以循环结构的应用为主，并涉及累加、累乘、随机函数、分离数字、判断整除的应用等。

C01、在[1~1000]区间中的所有整数中，分别计算能被3整除的数的个数及能被7整除的数的个数， 结果显示如题所示。要求：必须使用循环语句实现。 Private Sub Command1_Click()