刷题首页
题库
高中信息
题干
下列VB程序运行时,单击命令按钮Command1后,在文本框Text1中输入“1024”,语句“a(i)=a(i+1)/2”共被执行了
________
次。
Private Sub Command1_C1ick ( )
Dim a(9) As Integer
a(9)=Val(Text1.text)
For i="8" to 1 step -2
a(i)=a(i+1)/2
Next i
Text2.text=str(a(i))
End Sub
上一题
下一题
0.99难度 填空题 更新时间:2015-08-20 08:14:27
答案(点此获取答案解析)
同类题1
以下语句运行后变量c的值是( )
a=”2009”
b=”2008”
c=Val(a)+Val(b)
A.2009+2008
B.4017
C.”20092008”
D.20092008
同类题2
解决上问题所用的算法是:( )
A.枚举法
B.解析法
C.顺序查找
D.选择法
同类题3
下面程序的功能是:计算表达式1×2×3×……×10的值,并在文本框Text1中输出表达式的值。为了实现这一功能,则程序中划线处的语句应更正为
(1)
(2)
(3)
Private Sub Command1_Click()
Dim I As Integer, t As Long
t = 0
(1)
For i =" 1" To 10
t =" t" + i
(2)
Next i
Text1.caption =" Str(" t )
(3)
End Sub
同类题4
如下程序段运行后,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
同类题5
写出下列程序的输出结果
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
该程序的运行结果是( )
A.-25
B.-75
C.15
D.25
相关知识点
算法理论
算法实例的程序实现
递归算法及程序实现