有如下 VB 程序段：For i ＝ 1 To 10b（i） ＝ 0Next iFor i ＝ 1 To 5For j ＝ 1 To 10If b（i） ＜ a（j） Then b（i）＝a（j）：t＝jNext ja（t） ＝ 0List1.AddItem Str（b（i））Next i其中数组元素a（1）到a（10）的值依次为“25，42，53，66，77，83，98，14，38，99”，执行程序后，在列表框List1中依次输出的数据是（）

列程序段的循环结构执行后，i的输出值是（） For i=1 To 10 Step 2 y=y+i Next i Print i

下列的程序段执行后,x的值为（ ）。 x=0 For i=1 To 10 For j=i To 10 x=x+1 Next j Next i

下列程序段的执行结果为________。Dim M(10), N(10)i= 4For j = 1 To 7M(j) = jN(i) = 2 * i + jNext jPrint N(i); M(i)

以下程序段执行后， k 的值为 ____________ 。 Dim i, k As Integer k = 3 For i = 1 To 10 Step 3 k = k + 1 Next i

下列程序段的执行结果为 ______。 Dim A(10)，B(5) For i=1 To 10 A(i)=i Next i For j=1 To 5 B(j)=j*20 Next j A(5)=B(2) Print"A(5)="；A(5)

在VB程序中有以下程序段：For i=10 To 1 Step －2Print"*"Nexti语句“Print"*"”的执行次数是（)。

假定有以下程序段n=0for i=1 to 4for j=3 to-1 step-1 n=n+1next jnext i运行完毕后n的值是（)。A．

假定有以下程序段 n=0 for i=1 to 3 for j=-3 to 1 n=n+1 next j next i 运行完毕后，n的值是()。

下列程序段的执行结果为______。Dim M（10), N（10)I=3For T = 1 To 5M（T) = TN（I) = 2 * I + TNext

在窗体上添加一个命令按钮，名为Command1，其单击事件中有如下程序段，则事件过程执行后，文本框中输出()。 For i= 1 To 4 For j = 1 To 3 x=3 For k =1 To 2 x=x+3 Next k Next j Next i TextText = Str(x)

有如下程序：Private Sub Form_Click（) Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 I

下列的程序段执行后，X的值为______。K=0For i=1 To 10For j=i To 10x= x + 1Next jNext iA．50B．55

已知程序段：s=0For i=1 To 10 Step 2s=s+1i=i*2 Next i当循环结束后，变量i的值为______，变量s的

已知程序段：s=0For i=0 to 10 step 2s=s+li=i*2Next i当循环结束后，变量i、s值分别为（)。A．22，3B．1

、运行如下程序段后x的值是（）。For i = 1 To 6 If i =

下面程序段的执行结果是（）。 Dim M（10) For i=1 To 10 M（i)=11-i Next i X=6 Print M（2+M（X))

在窗体上画一个名称为Command1的命令按钮。编写如下程序： Option Base1 Private Sub Command1_Click（) Dim a（10) As Integer For i=1 To 10 a（i)=i Next Call swap（（11) ) For i=1 To 10 Print a（i)； Next End Sub Sub swap（b（)As Integer

有如下程序：Option Base 1Private Sub Form Click（）Dim arr,SumSum=0 arr=Array（1,3,5,7,9,11,13,15,17,19）For i=1 To 10If arr（i）/3=arr（i）//3 ThenSum=Sum+arr（i） En

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click（) Dim a（10)As Integer For i=1 To 10a（i)=i Next Call swap（【13】 ) For i=1 To 10Print a（i)； Next End Sub Sub swap（b（)As Integer

有VB编写的程序如下：Dim a（0 To 9） As Integer，t as Longt ＝ Val（Text1.Text）Do While t ＜＞ 0a（t Mod 10） ＝ 1t ＝ t \10LoopFor i ＝ 0 To 9 x ＝ x ＋ a（i）Next iText1中输入10242048则程序执行后x的值为（）

有VB程序段如下：For i ＝ 1 To 6a（i） ＝ Int（Rnd * 20） ＋ 1If a（i） Mod 2 ＝ i Mod 2 Thena（i） ＝ a（i） － 1Elsea（i） ＝ a（i） ＋ 2End IfNext i执行该程序段后，a（1）～a（6）各元素可能的是（）

有如下 VB 程序段：Dim a（1 To 7） As Integera（1）＝14：a（2）＝15：a（3）＝0：a（4）＝11a（5）＝13：a（6）＝21：a（7）＝17i ＝ 6: flag ＝ TrueDo While i ＞ 1 And flagIf a（i） Mod 3 ＝ 0 And a（i） ＜＞ 0 Thent＝a（i）：a（i）＝a（i＋1）：a（i＋1）＝tElseIf a（i） ＝ 0 Thenflag ＝ flaseElseIf a（i ＋ 1） Mod 2 ＝ 1 Thena（i）＝Abs（a（i）－a（i＋1））End Ifi ＝ i － 1Loop执行程序后，a 数组各元素是（）

在VB中，下列程序段执行后，输出结果是s=1For i=4 To 1 Step -1s=s*iNext iPrint s（）

（必修）在VB中执行以下程序时，程序循环执行的次数是（）For i＝0 To 10A＝A-1Next