- 二一组卷

题型：单选题题类：常考题难易度：困难

浙江省宁波市2017-2018学年高三上学期信息技术“十校联考”期末试卷

【加试题】某VB程序段如下：

s=0

For i=1 To 5

a(i)=0

Next i

For i=2 To 5

For j=i To 5

If j Mod i=0 Then

a(j)=a(j)+1

s=s+a(j)

End If

Next j

Next i

运行程序段后，变量s的值为（）

A、6 B、5 C、4 D、3

举一反三

【加试题】有如下程序段，运行后A(10)=（）
Dim a(30) As Integer
a(1) = 1
a(2) = 1
i = 2
Do While i < 10
i = i + 1
a(i) = a(i - 1) + a(i - 2)
Loop

有如下Visual Basic程序段：

s = 0

For i = _____ To 2

s = s + i

Next i

若要使语句s = s + i执行2次，则循环变量i初值为（）

某算法的部分流程图如下图所示。输入s值为2018，i初始值为0，执行这部分流程图后，则s和i分别是（）

下列程序执行后变量c的值（）

s="ABC123":i=1

Do While i<=6

ch=Mid(s,i,1)

If ch>="0" And ch<="9" Then c=c+1

i=i+1

Loop

观察下面流程图，n的初值为5，最后s输出的值为（）

有如下VB程序段：

For i= 1 To 10

b(i)=0

Next i

For i= 1 To 5

For j= 1 To 10

If b(i) <a(j) Then

b(i)=a(j)

t=j

End If

Next j

a(t)=0

List 1.Additem Str(b(i) )

Next i

其中数组元素a(1)到a(10)的值依次为“25，42，53，66，77，83，98，14，38，99”，执行程序后，在列表框List 1中依次输出的数据是（）

相关试卷

公司介绍

服务介绍

帮助中心