历年VB题答案.docVIP

历年Visaul Basic程序设计（编程题） A类题 说明：A类题以顺序结构的解析算法为主，解决学生在数学、物理和生活中遇到的简单计算问题。 用到的控件有：标签框、文本框、命令按钮等。 A01、制作一个加法器，在文本框中输入两个数值后，单击“计算”按钮可以计算出两数之和并显示在标签中； 单击“清除”按钮可以清除各项数值。 Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) label4.caption = a + b End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = label4.caption = End Sub A02、已知y= x3＋|x－10|＋4， 编程求y的值 。要求：在文本框中输入x的值，单击“计算” 按钮后在“y”框中显示y的值；单击“退出”按钮退出程序。 Private Sub Command1_Click() X= Val(Text1.Text) Text2.text = x ^ 3 + Abs(x - 10) + 4 End Sub Private Sub Command2_Click() End End Sub A03、编程实现：在“半径”框中输入圆的半径，单击“确定”按钮时，“周长”、“面积”框中显示圆的周长 和面积。 Private Sub Command1_Click() r=val(text1.text) text2.text=2*3.14*r text3.text =3.14*r*r End Sub A04、编程计算圆锥的体积。要求：输入圆锥的半径与高度，单击“计算”按钮可以计算出圆锥的体积并显示 出来；单击“清除”按钮可以清除各项数值。 提示：V =πhr2 ，π取3.14 Private Sub Command1_Click() r= Val(Text1.Text) h= Val(Text2.Text) label4.caption = 1 / 3 * 3.14 * h * r ^ 2 End Sub Private Sub Command2_Click() label4.caption = Text2.Text = Text1.Text = End Sub A05、华氏温度（F）与摄氏温度（C）之间的转换关系为： 。编程实现： 若用户在文本框中输入一个摄氏温度，单击“转换”按钮可以换算成华氏温度，并显示出来；单击“清除” 按钮可以清除各温度值。 Private Sub Command1_Click() C= Val(Text1.Text) Label3.caption = 9 / 5 *c + 32 End Sub Private Sub Command2_Click() Text1.Text = Label3.caption = End Sub A06、求并联电阻R的值。要求：在两个文本框中分别输入电阻R1、R2的值，单击“计算”按钮在“R” 框中显示并联电阻R的值；单击“清除”按钮清除数据；单击“退出”按钮退出程序。 （提示：）Private Sub Command1_Click() r1=val(text1.text) r2=val(text2.text) text3.text =r1*r2/(r1+r2) End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.text = End Sub A07、一个物体从一座塔高为h（米）的塔顶上自由落下，求落地所需的时间t（秒）。要求： 在文本框中输入塔高h，单击“计算”按钮，在“时间”框中显示落地所需时间t的值；单击“退出” 按钮退出程序（提示： ，其中g=9.8 ）。 Private Sub Command1_Click() h=val(text1.text) text2.text =sqr(2*h/9.8) End Sub Private Sub Command2_Click() end End Sub A08、一架雪橇沿一斜坡滑下，它在时间t（秒）滑下的距离s（米）由以下公式给出：s=10t+2t2。 编程实现：若用户在文本框中输入一个时间值，单击“计算”按钮可以计算出下滑的距离，并将其显示出来； 单击“刷新”按钮可以清除各项数值。 Private Sub Command1_Click() t=val(text1.text) label3.caption t =10*t+2*t*t End Sub Private Sub