下面的程序是用来计算矩形的面积和周长已知a，b表示矩形两条边的边长，s表示矩形的面积，c表示矩形的周长。

……

Dim a As Integer，b As Integer，s As Single，c As Single

a=18

b=9

C=2*(    )