信息技術会考VB上机编程模拟题.docVIP

2009信息技术会考VB上机编程模拟题 说明：下列练习题是模拟系统中的一部分，要求学生平时练习时为每道题建一个专用文件夹，文件夹的名称可与窗体的Caption属性相同。会考时共有四道编程题，其中A类题、B类题、C类题、D类题各一题。 A类（每题8分） 说明：A类题以顺序结构的解析算法为主，解决学生在数学、物理和生活中遇到的简单计算问题。用到的控件有：标签框、文本框、滚动条、命令按钮等。 A01、编写加法器，在文本框中输入两个数，单击“计算”求和并显示结果；单击“清除”清除各项数值。 Private Sub Command1_Click() ??? a = Val(Text1.Text) ??? b = Val(Text2.Text) ??? c = a + b ??? Label4.Caption = c End Sub Private Sub Command2_Click() ??? Text1.Text = ??? Text2.Text = ??? Label4.Caption = End Sub A02、编写计算水果价钱的程序。在文本框中输入水果的购买量。单击“一级”时按2.5元/kg计价，单击“二级”按2元/kg计价，并在价钱框中显示价钱。单击“清除”清除各框数据；单击“退出”退出程序。 Private Sub Command1_Click() ??? Text1.Text = ??? Label3.Caption = End Sub Private Sub Command2_Click() ??? End End Sub Private Sub Option1_Click() ???? a = Val(Text1.Text) ???? b = a * 2.5 ???? Label3.Caption = b End Sub Private Sub Option2_Click() ??? a = Val(Text1.Text) ??? b = a * 2 ??? Label3.Caption = b End Sub A03、已知y= x3＋|x－10|＋4， 编程求y的值 。要求：在文本框中输入x的值，单击“计算”按钮后在“y”框中显示y的值；单击“退出”按钮退出程序。 Private Sub Command1_Click() ??? x = Val(Text1.Text) ??? y = x ^ 3 + Abs(x - 10) + 4 ??? Label3.Caption = y End Sub Private Sub Command2_Click() ??? End End Sub A04、编程实现：在“半径”框中输入圆的半径，单击“确定”按钮时，“周长”、“面积”框中显示圆的周长和面积。 Private Sub Command1_Click() ??? r = Val(Text1.Text) ??? c = 2 * 3.14 * r ??? s = 3.14 * r ^ 2 ??? Label4.Caption = c ??? Label5.Caption = s End Sub A05、编程计算圆锥的体积。要求：输入圆锥的半径与高度，单击“计算”按钮可以计算出圆锥的体积并显示出来；单击“清除”按钮可以清除各项数值。提示：V =πhr2 ，π取3.14 Private Sub Command1_Click() ??? r = Val(Text1.Text) ??? h = Val(Text2.Text) ??? v = 1 / 3 * r ^ 2 * h ?? ?Label4.Caption = v End Sub Private Sub Command2_Click() ??? Text1.Text = ??? Text2.Text = ??? Label4.Caption = End Sub A06、华氏温度（F）与摄氏温度（C）之间的转换关系为：?。编程实现：若用户在文本框中输入一个摄氏温度，单击“转换”按钮可以换算成华氏温度，并显示出来；单击“清除”按钮可以清除各温度值。 Private Sub Command1_Click() ??? a = Val(Text1.Text) ??? b = a * 9 / 5 + 32 ??? Label3.Caption = b End Sub Private Sub Command2_Click() ??? Text1.Text = ??? Label3.Caption = End Sub A07、某市近20年的生产总值情况如下：第1年是1000亿元，以后平均每年以5%的速度增长，通过滚动条求各年份该市生产总值是多少？提示：