问题详情

以上程序段运行的结果是：______. Dim a(-1 To 5) As Boolean Dim flag As Boolean flag = False Dim i As Integer Dim j As Integer Do Until flag = True For i = -1 To 5 j=j+1 if a(i)= False Then a(i)= True Exit For End If If i = 5 Then flag = True End If Next Loop Print j

A、20

B、7

C、35

D、8

时间：2022-01-06 02:44 关键词：

答案解析

C
解析：该程序段的作用是给数组a的每个数组元素赋值True，具体实现的方式为：每次从数组a的第一个元素开始判断，该元素是否为False，如果是，则令此元素为True，然后跳出循环，重新从数组a的第一个元素开始判断；如果当前元素不为False，则判断下一个元素。因此语句j=j+1将执行 1+2+3+4+5+6+7=28次，即j=28。然后再遍历一遍数组a的所有元素，最后结束程序段。所以j最终的值是： j=28+7=35。

相关问题

下面程序运行后，第3次单击窗体后，窗体中输出的是______。Dim a As IntegerPrivate Sub Form_Click()Static c As IntegerClsa = a + 1b = b + 1End Sub
下面程序段执行后,输出的结果是______。Dim pi As Integerpi = 314159Print "pi"
已知有如下数组定义Dim a(-3 To 6, 5, 3 To 10) As Integer则执行语句Print LBound(a, 2); UBound(a, 2),输出的值为______。
有如下一个Sub过程： Sub mlt (ParamArray numbers()) n=1 For Each x In numbers n=n * x Next x Print n End Sub在一个事件过程中如下调用该Sub过程： Private Sub Coinmand1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a=1 b=2 c=3 d=4 mlt a，b，c，d End Sub 则运行该程序，结果为______。
针对下面程序段，边界值问题可以定位在___(62)___。1：Rem Create a 10 element integer array2：Rem lnitialize each element to -13：Dim data(10) As Integer4：Dim i As Integer5：For i=1 TO 106：data(i)=-17：Next i8：End(62)