asp教程

				
				
				For循环
				    
				　　     
				
				sub totals()
				Dim j,Total
				 total=0
				For j=2 To 10 Step 2
				 Total=Total+j
				Next 
				 
				response.write "和为"& Total & "。"
				end sub
				
				call totals