阅读程序：

　　Option Base1

　　Private Sub Form_Click( )

　　　　Dim a(3)As Integer

　　　　Print“输入的数据是：”；

　　　　For i＝1 To 3

　　　　　　a(i)=InputBox(“输人数据”)

　　　　　　Print a(i)；

　　Next

　　Print

　　If a(1)　　　　　t=a(1)

　　　　　a(1)=a(2)

　　　　　a(2)= 【8】

　　End If

　　If a(2)>a(3) Then

　　　　　m=a(2)

　　Else If a(1)>a(3)Then

　　　　　m= 【9】

　　Else

　　　　　m= 【10】

　　End If

　　Print“中间数是：”；m

　End Sub

程序运行后，单击窗体，在输入对话框中分别输人三个整数，程序将输出三个数中的中间数，如图所示。请填空。[*]

承运人对无法交付货物，应建立台账，在发生或发现的（）编制货运记录。

A、当日

B、次日

C、2日内

D、3日内