当前位置：在线题库搜索＞[单选题]程序段如下： Dim i As Integer，s As Integer For i=4 To 1 Step-1 s=s+i Next i Print s，i执行的结果是( )。的答案是什么？
问题：
[单选题]程序段如下： Dim i As Integer，s As Integer For i=4 To 1 Step-1 s=s+i Next i Print s，i执行的结果是( )。
A、10 0
B、9 1
C、10 1
D、9 0
参考答案：
A
相关内容
- ● 程序段如下： Dim i A Integer， A Integer For i=4 To 1 Step-1 =+i Next i Print ，i执行的结果是( )。
- ● 针对下面程序段，边界值问题可以定位在___(62)___。1：Rem Create a 10 element integer array2：Rem lnitialize each element to -13：Dim data(10) A Integer4：Dim i A Integer5：For i=1 TO 106：data(i)=-17：Next i8：End(62)
- ● 单击一次命令按钮之后，下列程序段的执行结果为( )。 Pubic Sub Proc(a()A Integer) Static i A Integer Do a(i)=a(i)+a(i+1) i=i+1 Loop While i
- ● 单击一次命令按钮之后，下更程序代码的执行结果为______ 。 Public Sub Proc(a() A Integer) Static i A Integer Do a(i) = a(i) + a(i + 1) i=i+1 Loop While i ＜ 2 End Sub Private Sub Command1_Cliek() Dim m A Integer Dim i A Integer Dim x(10) A Integer For i = 0 To 4 x(i) = i + 1 Next i For i = 1 To 2 Call Proc (x) Next i For i = 0 To 4 Print x(i); Next i End Sub
- ● 下列程序运行时输出的结果是 Option Bae 1 Private Sub Form_Click() Dim x(10) A Integer，y(5) A Integer For i=1 to 10 x(i)=10-i+1 Next For i=1 to 5 y(i)=x(2*i-1)+x(2*i) Next For i=1 to 5 Print y(i) Next End Sub
- ● 下列程序运行时输出的结果是 Option Bae 1 Private Sub Form_Click() Dim x (10)A Integer，y(5)A Integer For i=1 to 10 x(i)=10-i+1 Next For i=1 to 5 y(i)=x(2*i-1)+x(2*i) Next For i=1 to 5 Print y(i) Next End Sub
- ● 当Form1_Click事件发生时，窗体上显示的第三行是( )。 Dim i A Integer，j A Integer，a(5，5) A Integer For i=1 To 5 For j=1 To 5 If(i＜=j)Then a(i,j)=1 Ele a(i,j)=0 End If Next j Next i For i=1 To 5 For j=1 To 5 Print a(i,j), Next j Print Next i End Sub
- ● 在窗体上添加如下命令按纽，然后编写如下事件过程： Private Sub Command1_Click() Dim a(10)A Integer Dim p(3)A Integer k= 5 For i = 1 To 10 a(i) = i Next i For i = 1 To 3 p(i) = a(i * i) Next i For i = 1 To 3 k = k + p(i) * 2 Next i Print k End Sub该过程的运行结果为______。
- ● 下面程序：________Option Bae 1Private Sub Command1_Click() Dim a(10)，p(3)A Integer Dim i,k A Integer k=5 For i=1 To 10 a(i)=i Next For i=1 To 3 p(i)=a(i*i) Next For i=1 To 3 k=k+p(i)*2 Next Print kEnd Sub运行后的输出结果为________。
- ● 当Form1_Click事件发生时，窗体上显示的第三行是( )。 Option Bae 1 Private Sub Form_Click() Dim i A Integer，j A Integer Dim k A Integer，a(5，5)A Integer For i=1 To 5 k=1 For j=1 To 5 If i＜=j Then a(i，j)=k k=k+1 Ele a(i，j)=1 End If Next j Next i For i=1 To 5 For j=1 To 5 Print a(i，j)； Next j Print Next i End Sub
- ● 运行下面的程序后，输出的结果为 Cl Dim t(5,5)a Integer For i=1 To 5:t(i,i)=1:Next For i=1 To 5 For j=1 To 5 Print t(i,j)， Next Print Next
- ● 运行下面的程序后，输出的结果为 Cl Dim t(5, 5) a Integer For i=1 To 5: t(i,i) =1: Next For i = 1 To 5 For j = 1 To 5 Print t(i, j), Next Print Next
