信息会考vb操作题

《信息会考vb操作题》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、信息会考VB操作题A类需界面设计A01、制作一个减法器，在文本框中输入两个数值后，单击“计算”按钮可以计算出两数之差并显示在标签中；单击“清除”按钮可以清除各项数值。PrivateSubCommand1_Click()label1.caption=Val(Text1.Text)-Val(Text2.Text)EndSub PrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Label1.caption=""EndSub A02、已知y=x2＋

2、x－1

3、5

4、＋6，编程求y的值。要求：在文本框中输入x的值，单击“计算”按钮后在“y”框中显示y的值；单击“退出”按钮退出程序。PrivateSubCommand1_Click()DimxAsSinglex=Text1.Textlabel1.caption=x*x+Abs(x-15)+6EndSub PrivateSubCommand2_Click()EndEndSub16A03、编程计算圆锥的体积。要求：输入圆锥的半径与高度，单击“计算”按钮可以计算出圆锥的体积并显示出来；单击“清除”按钮可以清除各项数值。

5、提示：V=πhr2，π取3.14PrivateSubCommand1_Click()DimhAsSingle,rAsSingler=Text1.Texth=Text2.Textlabel1.caption= 1/3*3.14*h*r*rEndSub PrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Label1.Text=""EndSubA04、华氏温度（F）与摄氏温度（C）之间的转换关系为： 。编程实现：若用户在文本框中输入一个摄氏温度，单击“转

6、换”按钮可以换算成华氏温度，并显示出来；单击“清除”按钮可以清除各温度值。PrivateSubCommand1_Click()label3.caption=Val(Text1.Text)*9/5+32EndSub PrivateSubCommand2_Click()Text1.Text=""Label3.caption=""EndSub16A05、一个物体从一座塔高为h（米）的塔顶上自由落下，求落地所需的时间t（秒）。要求：在文本框中输入塔高h，单击“计算”按钮，在“时间”框中显示落地所需时间t的值；

7、单击“退出”按钮退出程序。（提示：，其中g=9.8）。PrivateSubCommand1_Click()DimhAssingleh=Text1.TextText2.Text=Sqr(2*h/9.8)EndSub PrivateSubCommand2_Click()EndEndSub16B类需界面设计B01、在文本框中任意输入两个数，单击“比较”按钮后，将其中的最大值显示在下方标签中；单击“清除”按钮清除各项数值。PrivateSubCommand1_Click()a=Val(Text1.Text)b

8、=Val(Text2.Text)Ifa>bThenLabel4.caption=aElseLabel4.caption=bEndIfEndSub PrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Label4.caption=""EndSub16B02、卖葡萄。10斤以上（含10斤）每斤3元，10斤以下每斤3.5元。用户输入购买的斤数，单击“计算”按钮显示总价钱；单击“清除”按钮清除各项数值；单击“结束”按钮结束程序。PrivateSubComma

9、nd1_Click()Dimaasintegera=Val(Text1.Text)Ifa>=10ThenLabel3.caption= a*3ElseLabel3.caption=a*3.5EndIfEndSub PrivateSubCommand2_Click()Text1.Text=""Label3.caption=""EndSub PrivateSubCommand3_Click()EndEndSub16B03、某公司卖光盘，50片以上（含50片），每片2元。50片以下，每片3元。编程在“光盘数

10、量”框中输入购买的光盘数，单击“计算”按钮后在“应收金额”框中显示应收钱数。单击“结束”按钮结束程序。PrivateSubCommand1_Click()Dimaasintegera=Val(Text1.Text)Ifa>=50ThenText2.Text= a*2ElseText2.Text=a*3EndIfEndSub PrivateSubCommand2_Click()EndEndSub16B04、由铁路托运行李，从甲地到乙地，行李不超过50kg时