在窗体中添加一个命令按钮(名称为Command1)，然后编写如下代码：
Private Sub Command1_Click( )
Dim b,k
For k=1 to 6
B=23+k
Next k
MsgBox b+k
End Sub

一辆车货总质量20吨的两轴车，前轴为单轴（每侧单轮胎），后轴为单轴（每侧双轮胎），收费距离100公里，则车辆应缴费额为（）元。（基本费率为0.09元/吨公里，优惠费率为0.04元/吨公里）

A、155

B、160

C、170

D、180