下面程序段，运行后的结果是（ ）。　Private Sub Commandl_Click( )　　Dim b%(1 To 4)，i%，t#　　For i=1 To 4　　　b(i)=i　　Next i　　t=Tof(b( ) )　　Print"t="；t，　End Sub　Function Tof(a() As Integer)　　Dim t#，i%　　t=1　　For i=2 To UBound(a)　　　　　　t=t * a(i)　　　　Next i　　　　Tof=t　　End Function

A． t=18

B． t=24

C． t=30

D． t=32

从外形上看，吸附剂是（）。

A.长条圆柱形

B.不规则的八面体结构

C.球型

D.椭球型。