程序段如下:Dim i As Integer s As IntegerFor i=4 To 1 Step-1 s=s+iNext iPrint s i执行的结果

执行以下程序段Dim i As Integer,X As Integerx=0For i=20 To 1 Step －2 x=x＋i5NextPrint x后,x

（12）下列程序段的运行结果是 Sub sele（) Dim n As Integer I=21:n=3 Do While i>n I=i－n Loop

有如下程序:Private Sub Form_Click( )Dim i As Integer Sum As Integer Sum = 0 For i = 2 To

设有如下程序:Private Sub Form. Click( ) Dim s As Long f As Long Dim n As Integer i As Int

执行以下程序段 Dim x As Integer i As Integer x=0 For i=20 To 1 Step-2 x=x

阅读程序： Function fac(ByVal As Integer)As Integer Dim temp As Integer temp=1 For i％=