
Private Sub Command 1_Click()
Dim r as single, c as single,
c=2*3.14*r
s=3.14*r*r
Text3 text=str(s)
End sub
⑴3公里内(含3公里),收费8元;
⑵超过3公里,按1.8元/公里收费;
⑶燃油附加费2元。
根据以上标准,在输入出租车行驶的公里数,计算车费的流程图中,①位置应填入( )
a=5
b=2
c=3
d=(a*b)%c
print(d)
Num1=3
Num2=4.8
print(Num1,Num2)