1. 小明设计了一个验证自由落体规律的实验：小球从高处静止状态垂直下落，用照相机每隔0.1秒拍照1次，测得实验数据如下：

拍照时刻(秒)	0.1	0.2	0.3	0.4	0.5
下落距离测量值(米)	0.049	0.195	0.44	0.785	1.225

现要求编写一个VB程序实现如下功能：单击命令按钮Command1后，由公式h＝ gt² (其中g＝9.8米/秒²)计算出第一拍照时刻的下落距离理论值，若所有理论值与同一时刻测量值之间的相对误差 都小于0.01，则认为小球在0.5秒内是作自由落体运动，此时在标签Label1中显示“验证通过”，否则显示“验证不通过”。

实现上述功能的VB程序如下，请在划线处填入合适代码。

Private Sub Command1_Click()

    Dim h1(1 To 5) As Single     'h1用于存储下落距离测量值

    Dim h As Single, i As Integer      'h用于存储下落距离理论值

    Dim t As Single, g As Single, b As Boolean

    h1(1) ＝ 0.049: h1(2) ＝ 0.195: h1(3) ＝ 0.44: h1(4) ＝ 0.785: h1(5) ＝ 1.225

    i ＝ 1: b ＝ True

   

    Do While i <＝ 5 And b

        t ＝ i / 10

        h ＝ g * t * t / 2

        If Then b ＝ False

        i ＝ i ＋ 1

    Loop

    If b Then

        Label1.Caption ＝ “验证通过”

    Else

        Label1.Caption ＝ “验证不通过”

    End If

End Sub