四川省学业水平考试VB程序设计操作题演示.pptVIP

四川省普通高中学业水平考试信息技术考试 四川省乐山沫若中学　熊继承 VB算法设计部分 操作题 Dim R As Single Dim L As Single Dim S As Single _____=InputBox(输入半径R ) L=＿＿＿＿ S=＿＿＿＿＿ Print 圆的周长L= ;L Print 圆的面积S= ;S 1、从键盘输入圆的半径R，输出圆的周 长L和面积S。 R 2*3.14*R 3.14*R*R 2、计算旅客的行李费，收费标准为：20千克以下（包括 20千克）不收费，超过20千克的部分每千克收20元。X表 示行李重量，Y表示行李费。 Dim X As Single Dim Y As Single X=InputBox(输入行李重量) If ________ Then Y=＿＿＿＿ Else Y=＿＿＿＿＿＿＿ End If Print 行李费= ;Y X=20 0 20*(X-20) 3、求s=2+4+6+……+100之和。 Dim i As Integer Dim s As Integer s=＿＿＿ For i=＿＿ To ＿＿Step　＿＿＿ s=_________ Next __ Pri