VB程序设计12卷.docVIP

VB程序设计-01卷 （共40分） 1、一个物体从一座塔高为h（米）的塔顶上自由落下，求落地所需的时间t（秒）。要求：在文本框中输入塔高h，单击“计算”按钮，在“时间”框中显示落地所需时间t的值；单击“退出”按钮退出程序。 （8分） （提示： ，其中g=9.8 ）。 Private Sub Command1_Click() h = Val(Text1.Text) g = 9.8 t = (2 * h / g) ^ (1 / 2) Label3.Caption = t End Sub Private Sub Command2_Click() End End Sub 2、编程实现：程序运行后，窗体背景色每隔0.1秒自动改变一次，颜色随机；单击“结束”按钮，结束程序。 （8分） Private Sub Form_Load() Randomize Timer1.Interval = 100 End Sub Private Sub Timer1_Timer() Form1.BackColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256) End Sub 3、如图所示，编程求20)。Private Sub Form_Load() L