阅读下列程序，写出运行结果Dima(10)asintegerDimiasintegerDimsasintegerFori=1to5 a(i)=i*inextis_刷题宝

题干

阅读下列程序，写出运行结果

Dim a(10) as integer

Dim i as integer

Dim s as integer

For i=1 to 5

a(i)=i*i

next i

s=a(3)+a(4)

print s

上述程序运行后，变量s的值是________

上一题下一题 0.99难度填空题更新时间:2019-06-15 09:42:22

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

同类题1

下列为部分VB程序语句代码：( )
s=32
For i="1" To 10 Step
s=s/2
Next i
上述程序语句执行结束后，s的值为2，则循环语句的步长（划横线处）应填( )

同类题2

某对分查找算法的 VB 程序段如下：
i= 1 : j= 8 : t= 0 key=Int(Rnd()*7)+14
Do While i<=j
m=Int((i+j)/2)
t=t+1
if a(m)=key Then Exit Do
else
If a(m)>key Then j=m-1
Else

i=m+1 End if

End if
Loop
数组元素 a(1)到 a(8)的值依次为“2,11,14,15,18,19,20,22”，该程序段运行结束后，变量 t 的最大值可能是（）

同类题3

下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是(　　)，文本框Text2中显示的内容是（）　
Private Sub Command1_Click( )
Dim i As Integer，c As Integer，n As Integer
c＝0:n＝10
For i＝1 To 10
If n Mod i＝0 Then c＝c+1
Next i
Text1.Text＝Str(n)
Text2.Text＝Str(c)
End Sub

同类题4

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

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

同类题5

下面程序段是利用For语句给数组a赋值：
For i= 1 To 6
a(i)=i+1
Next i
该程序段运行后数组元素a(3)的值是：

相关知识点