小余設(shè)計(jì)了一個(gè)驗(yàn)證自由落體規(guī)律的實(shí)驗(yàn)：小球從高處?kù)o止?fàn)顟B(tài)垂直下落，用照相機(jī)每隔0.1秒拍照1次，測(cè)得實(shí)驗(yàn)數(shù)據(jù)如下：

拍照時(shí)刻（秒）	0.1	0.2	0.3	0.4	0.5
下落距離測(cè)量值（米）	0.049	0.195	0.44	0.785	1.225

現(xiàn)要求編寫一個(gè)VB程序?qū)崿F(xiàn)如下功能：?jiǎn)螕裘畎粹oCommand1后，由公式h-

1

2

gt2（其中g(shù)=9.8米/秒2）計(jì)算出每一拍照時(shí)刻的下落距離理論值，若所有理論值與同一時(shí)刻測(cè)量值之間的相對(duì)誤差（

|

理論值

-

測(cè)量值

|

理論值

）都小于0.01，則認(rèn)為小球在0.5秒內(nèi)是作自由落體運(yùn)動(dòng)，此時(shí)在標(biāo)簽Label1中顯示“驗(yàn)證通過”，否則顯示“驗(yàn)證不通過”。請(qǐng)根據(jù)流程圖將下列程序補(bǔ)充完整，在劃線處填入合適代碼。