6、="LPrint"圆的面积S="SEndsub6.计算旅客的行李费,收费标准为:20千克以下(包括20千克)不收费,超过20千克的部分每千克收20元。X表示行李重量,Y表示行李费。Privatesubcommand1_click DimXAsSingle DimYAsSingle X=InputBox("输入行李重量") If________ Then Y=0 Else Y=___________ EndIf
7、 Print"行李费="YEndsub7.求s=99+97+95+……+1之和。Privatesubcommand1_clickDimiAsIntegerDimsAsIntegers=0ForI=99To____Step____ s=_________NextIPrint"S=";SEndsub8.输出100以内(包含100)能被3整除的数。Privatesubcommand1_clickDimIAsIntegerI=1Do If I Mod3=0ThenPrintI EndIfI=I+1Lo