Private Sub Command1_click()

Dim s as integer,I as integer

S=0

For i=1 to 20 step 3

      s=s+(-1)^i*i

Next i

Label1.caption=str(i)

Label2.caption=str(s)

End Sub

当n为100、p为10时，实付金额s的值是(   )。

For i = 5 To 4 Step -1

        k = i

        For j = 6 - i To 1 Step -1

           If a(j) < a(k) Then k = j

        Next j

        If i <> k Then

           t = a(i): a(i) = a(k): a(k) = t

        End If

    Next i

数组元素a(1)到a(5)的值依次为“41，66，70，83，31”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为（  ）

Private Sub Command1_Click()

  Dim sum As  Double, x As Double

  sum=0

  n=0

  For i=1 To 5

     x=n/i

     n=n+1

     sum=sum+x

  Next i

End Sub

该程序计算了一个表达式的值，这个表达式是（  ）

If a>b Then t=a:a=b:b=t s=a+b

a=s-a b=s-b

已知变量a和b中的值均为正整数，且a的值大于b的值，执行该程序段后，值最终未发生改变的变量是（  ）