有如下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

有VB程序段如下：
s＝"2019.06 Visual Basic6.0"：n＝0
For i＝1 To Len(s)
ch＝Mid(s，i，1)
If ch>＝"0" And ch<＝"9"Then
m＝Asc(ch)－Asc("0")＋1
a(m)＝a(m)＋1
End If
Next i
For i＝1 To 10
If a(i)>1Then n＝n＋i
Next i
数组a各元素的初始值都为0，执行该程序段后，则变量n的值为( )

同类题2

数组a的初始值如表所示，以下流程图描述的算法执行结果是( )

d1	d2	d3	d4	d5	d6	d7	d8
-10	0	1	3	4	6	9	10

同类题3

某Visual Basic程序如下：
Private Sub Command1_Click()
Dim x As Integer, y As Integer ,a As Integer ,b As Integer
X="0"
y=0
For a="1" To 3
x=x+1
For b="2" to 4
y=y+1
Next b
Next a
Text1.text=str(a)
Text2.text=str(b)
End Sub
单击Command1按钮后，Text1显示 ① ，Text2显示 ② 。

同类题4

某对分查找算法的 VB 程序段如下：
i=1:j=8:s=""
key=Text1.Text
Do While i<=j
m=(i+j)\2
If key=a(m) Then
s=s+"M"
Exit Do
Elseif Key >a(m) Then
　　j=m-1:s=s+"L"
Else
i=m+1: s=s+"R" End if
Loop Text1.Text=s
数组元素 a(1)到 a(8)的值依次为“tiger,snake,sheep,rabbit,pig,mouse,monkey,dog”,若该程序段执行后，文本框 Text1 中显示的内容不可能是（）

同类题5

（2018秋•温州期末）某算法的部分流程图如图所示，执行该流程后，输出i，k的值分别是（　　）

相关知识点