欢迎来到天天文库
浏览记录
ID:18550239
大小:1010.50 KB
页数:72页
时间:2018-09-18
《信息技术会考vb上机编程模拟题new》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、2009信息技术会考VB上机编程模拟题说明:下列练习题是模拟系统中的一部分,要求学生平时练习时为每道题建一个专用文件夹,文件夹的名称可与窗体的Caption属性相同。会考时共有四道编程题,其中A类题、B类题、C类题、D类题各一题。A类(每题8分)说明:A类题以顺序结构的解析算法为主,解决学生在数学、物理和生活中遇到的简单计算问题。用到的控件有:标签框、文本框、滚动条、命令按钮等。A01、编写加法器,在文本框中输入两个数,单击“计算”求和并显示结果;单击“清除”清除各项数值。PrivateSubCommand1_Click() a=Val(Tex
2、t1.Text) b=Val(Text2.Text) c=a+b Label4.Caption=cEndSubPrivateSubCommand2_Click() Text1.Text="" Text2.Text="" Label4.Caption=""EndSubA02、编写计算水果价钱的程序。在文本框中输入水果的购买量。单击“一级”时按2.5元/kg计价,单击“二级”按2元/kg计价,并在价钱框中显示价钱。单击“清除”清除各框数据;单击“退出”退出程序。PrivateSubCommand1_Click() Text1
3、.Text="" Label3.Caption=""EndSubPrivateSub b=a*2.5 Label3.Caption=bEndSubPrivateSubOption2_Click() a=Command2_Click() EndEndSubPrivateSubOption1_Click() a=Val(Text1.Text)Val(Text1.Text) b=a*2 Label3.Caption=bEndSubA03、已知y=x3+
4、x-10
5、+4,编程求y的值。要求:在文本框中输入x的值,单击“
6、计算”按钮后在“y”框中显示y的值;单击“退出”按钮退出程序。PrivateSubCommand1_Click() x=Val(Text1.Text) y=x^3+Abs(x-10)+4 Label3.Caption=yEndSubPrivateSubCommand2_Click() EndEndSubA04、编程实现:在“半径”框中输入圆的半径,单击“确定”按钮时,“周长”、“面积”框中显示圆的周长和面积。PrivateSubCommand1_Click() r=Val(Text1.Text) c=2*3.14*r s
7、=3.14*r^2 Label4.Caption=c Label5.Caption=sEndSubA05、编程计算圆锥的体积。要求:输入圆锥的半径与高度,单击“计算”按钮可以计算出圆锥的体积并显示出来;单击“清除”按钮可以清除各项数值。提示:V=πhr2,π取3.14PrivateSubCommand1_Click() r=Val(Text1.Text) h=Val(Text2.Text) v=1/3*r^2*h Label4.Caption=vEndSubPrivateSubCommand2_Click() Text1
8、.Text="" Text2.Text="" Label4.Caption=""EndSubA06、华氏温度(F)与摄氏温度(C)之间的转换关系为: 。编程实现:若用户在文本框中输入一个摄氏温度,单击“转换”按钮可以换算成华氏温度,并显示出来;单击“清除”按钮可以清除各温度值。PrivateSubCommand1_Click() a=Val(Text1.Text) b=a*9/5+32 Label3.Caption=bEndSubPrivateSubCommand2_Click() Text1.Text="" Label
9、3.Caption=""EndSubA07、某市近20年的生产总值情况如下:第1年是1000亿元,以后平均每年以5%的速度增长,通过滚动条求各年份该市生产总值是多少?提示:某年生产总值=PrivateSubHScroll1_Change() n=HScroll1.Value z=1000*(1+0.05)^(n-1) Label2.Caption=n Label4.Caption=zEndSubPrivateSubForm_Load() HScroll1.Min=1 HScroll1.Max=20EndSubA08、已知计算
10、人口增长的公式是:,其中pl为所求人口数,p为人口基数,r为年增长率,n为经过的年头。已知2000年我国有13.25亿人口
此文档下载收益归作者所有