如下程序段运行后，k的值是 Dimd(1to5) AsIntegerk=0Fori="1"to5d(i)=iIfd(i)>kThenk="d_刷题宝

题干

如下程序段运行后，k的值是
Dim d(1 to 5) As Integer
k=0
For i="1" to 5
d( i )=i
If d( i )>k Then k="d(" i )
Next i
Print k

上一题下一题 0.99难度填空题更新时间:2015-08-28 05:39:14

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

同类题1

写出下列程序的输出结果
Private Sub Command1_Click()
For i =" 1" To 4
If i Mod 3 <> 0 Then s =" s" + (-1) ^ (i + 1) * 1 / i
Next i
MsgBox s*100
End sub
该程序的运行结果是（）

同类题2

下面程序的功能是：找出10以内的奇数中能被3整除的正整数，并将它们累加起来。为了实现这一目标，请完善下列程序：
x=0
For i=1 to 10 step ____
If _______________________ then x=x+i
Next i

同类题3

下列程序执行后，整型变量n的值为（）。
n=0
for i="1" to 100
if i mod 4="0" then
n="n+1"
end if
next i

同类题4

下列递归算法的功能是计算正整数n阶乘的值，则划线处应填为______________
Function f(n As Integer) As Long
If n < = 1 Then
f = 1
Else
f = _________________
End If
End Function

同类题5

有如下程序：
S=0
For i =" 5" to 5 step -1
S=s+i
Next i
Print s
执行结果为（）。

相关知识点