信息会考VB操作题.docVIP

信息会考VB操作题A类 需界面设计 A01、制作一个减法器，在文本框中输入两个数值后，单击“计算”按钮可以计算出两数之差并显示在标签中；单击“清除”按钮可以清除各项数值。 Private Sub Command1_Click() label1.caption =Val(Text1.Text) - Val(Text2.Text) End Sub ? Private Sub Command2_Click() Text1.Text = Text2.Text = Label1.caption = End Sub ? A02、已知y= x2＋|x－15|＋6， 编程求y的值 。要求：在文本框中输入x的值，单击“计算”按钮后在“y”框中显示y的值；单击“退出”按钮退出程序。 Private Sub Command1_Click() Dim x As Single x = Text1.Text label1.caption = x * x + Abs(x - 15) + 6 End Sub ? Private Sub Command2_Click() End End Sub A03、编程计算圆锥的体积。要求：输入圆锥的半径与高度，单击“计算”按钮可以计算出圆锥的体积并显示出来；单击“清除”按钮可以清除各项数值。 提示：V = πhr2 ，π取3.14 Private Sub Command1_Click() Dim h As Single, r As Single r = Text1.Text h = Text2.Text label1.caption = ?1 / 3 * 3.14 * h * r * r End Sub ? Private Sub Command2_Click() Text1.Text = Text2.Text = Label1.Text = End Sub A04、华氏温度（F）与摄氏温度（C）之间的转换关系为： ?。编程实现：若用户在文本框中输入一个摄氏温度，单击“转换”按钮可以换算成华氏温度，并显示出来；单击“清除”按钮可以清除各温度值。 Private Sub Command1_Click() label3.caption = Val(Text1.Text) * 9 / 5 + 32 End Sub ? Private Sub Command2_Click() Text1.Text = Label3.caption = End Sub A05、一个物体从一座塔高为h（米）的塔顶上自由落下，求落地所需的时间t（秒）。要求：在文本框中输入塔高h，单击“计算”按钮，在“时间”框中显示落地所需时间t的值；单击“退出”按钮退出程序。 （提示： ，其中g=9.8 ）。 Private Sub Command1_Click() Dim h As single h =Text1.Text Text2.Text = Sqr(2 * h / 9.8) End Sub ? Private Sub Command2_Click() End End Sub B类需界面设计 B01、在文本框中任意输入两个数，单击“比较”按钮后，将其中的最大值显示在下方标签中；单击“清除”按钮清除各项数值。 Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) If a b Then Label4.caption =a Else Label4.caption = b End If End Sub ? Private Sub Command2_Click() Text1.Text = Text2.Text = Label4.caption= End Sub B02、卖葡萄。10斤以上（含10斤）每斤3元，10斤以下每斤3.5元。用户输入购买的斤数，单击“计算”按钮显示总价钱；单击“清除”按钮清除各项数值；单击“结束”按钮结束程序。 Private Sub Command1_Click() Dim a as integer a = Val(Text1.Text) If a = 10 Then Label3.caption = ?a * 3 Else Label3.caption = a * 3.5 End If End Sub ? Private Sub Command2_Click() Text1.Text = Label3.caption = End Sub ? Private Sub Command3_Click() End End Sub B03、某公司卖光盘，50片以上（含50片），每片2元。50片以