单项选择题

下面程序的运行结果是()
Dim a As Integer, b As Integer a=6 b=15 S=1+(a*b)/2Print S

A.45
B.15
C.46
D.6