有如下VB程序段：Fori=1To100Forj=iTo100IfjModi=0Thena(j)=a(j)+1EndIfNextjNextiText1.Text_刷题宝

题干

有如下VB程序段：
For i=1 To 100

For j=i To 100

If j Mod i=0 Then
a(j)=a(j)+1
End If

Next j

Next i
Text1.Text=Str(a(50))
数组各元素初值为0，执行上述程序段后，文本框Textl中输出

A．5

B．6

C．9

D．50

上一题下一题 0.99难度选择题更新时间:2019-11-19 07:47:45

答案(点此获取答案解析）

同类题1

下面程序段运行后，变量T的值为（）
T=1：K=1
Do While K<=5
T=T*K
K=K+2
Loop

同类题2

某算法的部分流程图如图所示。以下说法正确的是（）

A．该流程图属于选择结构

B．执行这部分流程后，c ← c + 2执行的次数为2次

C．执行这部分流程后，c的值是22

D．执行这部分流程后，

执行的次数为10次

同类题3

对Fori= 5To-5Step-2语句，共循环__________次。

同类题4

以下程序段运行时出现如图所示的错误提示:

For i=1 To 100
If Rnd>0.5 Then
n=n+1
Else
m=m+1
Next i
分析该程序段,该代码中缺少了( )

同类题5

下列VB程序段执行后变量n、s的值为( )
n=1: s=0
Do while s<20
s=s+n
n=n+2
Loop

相关知识点