VB真题无答案.docVIP

A类题 一个物体从一座塔高为h（米）的塔顶上自由落下，求落地所需的时间t（秒）。要求：在文本框中输入塔高h，单击“计算”按钮，在“时间”框中显示落地所需时间t的值；单击“退出”按钮退出程序。（提示：，其中g=9.8） 编程计算圆锥的体积。要求：输入圆锥的半径与高度，单击“计算”按钮可以计算出圆锥的体积并显示出来；单击“清除”按钮可以清除各项数值。（提示：??，π取3.14） 华氏温度（F）与摄氏温度（C）之间的转换关系为：???编程实现：若用户在文本框中输入一个摄氏温度，单击“转换”按钮可以换算成华氏温度，并显示出来；单击“清除”按钮可以清除各温度值 转换C = Val(Text1.Text) F = C * 9 / 5 + 32 Label3.Caption = F 清除Text1.Text = Label3.Caption = 制作一个减法器，在文本框中输入两个数值后，单击“计算”按钮可以计算出两数之差并显示在标签中；单击“清除”按钮可以清除各项数值。 输入a,?b的值?,?当a×b0时计算表达式的值，否则输出“wrong”。 任意输入一个数，若这个数大于零则输出这个数的平方根，若这个数小于或等于零则输出这个数的绝对值。 在文本框中任意输入两个数，单击“比较”按钮后，将其中的最大值显示在下方标签中；单击“清除”按钮清除各项数值。 编写一计算水费程序，如果用水吨数小于或等于5吨，按每吨3元收费；如果用水的吨数大于5吨，超出5吨部分按每吨5元收费。 输入一个人的身高（单位：厘米）和体重（单位：斤），如果体重大于（身高－50(斤)）就显示“超重”否则输出“不超重”。 某商场在“五一”期间进行促销活动，若消费者所购商品低于500（含500）元，则实行八折优惠，否则实行七折优惠。 求1+2*2+3*3+4*4…..前20项的和。（用循环语句完成） 求N!=1*2*3*…*N，N值由键盘输入（N应在5---10之间，否则输出“N值不符合要求”）。 求1到1000之间的偶数和、奇数和。 单击窗体时生成20个[0,9]?范围内的随机整数，在窗体上显示出其中大于5的随机整数。 单击窗体显示出100以内的所有素数。 单击窗体输出2---?1000以内的完全数（因子之和等于它本身的数为完全数），例：6=1+2+3,????28=1+2+4+7+14,??那么6和28是完全数。用穷举法。 已知硬币有两面，设为正面与反面，请用随机数模拟抛硬币现象，编程实现模拟抛1000次硬币，正反两面出现的次数各是多少？ 5. 输出斐波那契数列前10项，斐波那契数列的特点： 6. 单击窗体，打印下图 a=val(text1.text) b=val(text2.text) if(a*b0) then y=(a+b)/sqr(4*a*b) Label4.caption=y Else Label4.caption=”wrong” End if x=val(text1.text) if(x0) then y=sqr(x) Else y=-x End if Label3.caption=y 比较 a=val(text1.text) b=val(text2.text) if(ab) then y=a Else y=b End if Label4.caption=y w=val(text1.text) if(w=5) then cost=w*3 Else cost=15+(w-5)*5 End if Label3.caption=cost h=val(text1.text) w=val(text2.text) w1=h-50 if(ww1) then Label4.caption=”超重” Else Label4.caption=”不超重” End if s=0 For i=1 to 20 s=s+i*i Next i Label1.caption=”1+2*2+3*3+…20*20=” Label2.caption=s N = Val(Text1.Text) If (N = 5) And (N = 10) Then s = 1 For i = 1 To N s