总复习编程题答案

《总复习编程题答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第三部分VisaulBasic程序设计（编程题）—2008年A类（每题8分）说明：A类题以顺序结构的解析算法为主，解决学生在数学、物理和生活中遇到的简单计算问题。用到的控件有：标签框、文本框、滚动条、命令按钮等。A01、制作一个加法器，在文本框中输入两个数值后，单击“计算”按钮可以计算出两数之和并显示在标签中；单击“清除”按钮可以清除各项数值。PrivateSubCommand1_Click()a=Val(Text1.Text)b=Val(Text2.Text)Label4.Caption=a+bEndSubPrivateSubCommand2

2、_Click()Text1.Text=""Text2.Text=""Label4.Caption=""EndSubA02、编一个计算水果价钱的程序。在文本框中输入水果的购买量（单位：kg），单击“一级”按钮，按2.5元/kg计价，并在价钱框中显示出价钱；单击“二级”按钮，按2元/kg计价，并在价钱框中显示出价钱。单击“清除”按钮，清除各框中的数据；单击“退出”按钮，退出程序。privateSubCommand1_Click()Label3.Caption=""Text1.Text=""EndSubPrivateSubCommand2_Click

3、()EndEndSubPrivateSubOption1_Click()Label3.Caption=Val(Text1.Text)*2.5EndSubPrivateSubOption2_Click()Label3.Caption=Val(Text1.Text)*218EndSubA03、已知y=x3＋

4、x－10

5、＋4，编程求y的值。要求：在文本框中输入x的值，单击“计算”按钮后在“y”框中显示y的值；单击“退出”按钮退出程序。PrivateSubCommand1_Click()X=Val(Text1.Text)Label3.Caption=x

6、^3+Abs(x-10)+4EndSubPrivateSubCommand2_Click()EndEndSubA04、编程实现：在“半径”框中输入圆的半径，单击“确定”按钮时，“周长”、“面积”框中显示圆的周长和面积。PrivateSubCommand1_Click()r=val(text1.text)Label3.caption=2*3.14*rLabel5.caption=3.14*r*rEndSubA05、编程计算圆锥的体积。要求：输入圆锥的半径与高度，单击“计算”按钮可以计算出圆锥的体积并显示出来；单击“清除”按钮可以清除各项数值。提示

7、：V=πhr2，π取3.14PrivateSubCommand1_Click()r=Val(Text1.Text)h=Val(Text2.Text)Label4.Caption=1/3*3.14*h*r^2EndSubPrivateSubCommand2_Click()Label4.Caption=""Text2.Text=""Text1.Text=""EndSubA06、华氏温度（F）与摄氏温度（C）之间的转换关系为：18。编程实现：若用户在文本框中输入一个摄氏温度，单击“转换”按钮可以换算成华氏温度，并显示出来；单击“清除”按钮可以清除各温

8、度值。PrivateSubCommand1_Click()Label3.Caption=9/5*Val(Text1.Text)+32EndSubPrivateSubCommand2_Click()Text1.Text=""Label3.Caption=""EndSubA07、某市近20年的生产总值情况如下：第1年是1000亿元，以后平均每年以5%的速度增长，通过滚动条求各年份该市生产总值是多少？提示：某年生产总值＝提示：必须设置HScroll1的Max属性为20，Mix属性为1PrivateSubHScroll1_Change()Label2.

9、Caption=HScroll1.ValueLabel4.Caption=1000*(1+0.05)^(HScroll1.Value-1)EndSubA08、求并联电阻R的值。要求：在两个文本框中分别输入电阻R1、R2的值，单击“计算”按钮在“R”框中显示并联电阻R的值；单击“清除”按钮清除数据；单击“退出”按钮退出程序。（提示：）PrivateSubCommand1_Click()r1=val(text1.text)r2=val(text1.text)Label4.caption=r1*r2/(r1+r2)EndSubPrivateSubCo

10、mmand2_Click()Text1.Text=""Text2.Text=""Label4.Caption=""18EndSubA09、一个物体从一