执行以下程序段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

答案解析

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

答案解析

Dim x As Integer x = True Print x 执行以上程序段后 输出结果为()

答案解析

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

答案解析

设执行以下程序段时依次输入2 4 6 执行结果为 Dim a(4)As Integer Dim b(4)AS Integer For k=

答案解析

设执行以下程序段时依次输入2 4 6执行结果为Dim a(4) As Integer b(4) As IntegerFor k =0 To 2a

答案解析

执行下面程序 当单击窗体时 显示在窗体上第一行的内容是 200 第二行的内容是 8 。 Private Sub Form_Click() Dim I As Integer Sum As Integer For I = 0.5 To 8.5 Step 2.5 Sum = Sum + I * 10 Next I Print Sum Print I End Sub

答案解析