题库 高中信息
题干
下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是 ，文本框Text2中显示的内容是 。
Private Sub Command1_Click()
Const n = 4
Dim a(1 To n) As Integer, s As Integer
Dim i As Integer, t As Integer, k As Integer
a(1) =" 1:" a(2) =" 2:" a(3) =" a(1):" a(4) = 0
s =" 0:" k = 0
For i =" 1" To n
t = a(i)
a(i) =" k" + t
k = t
s =" s" + a(i)
Next i
Text1.Text = Str(a(2))
Text2.Text = Str(s)
End Sub
Private Sub Command1_Click()
Const n = 4
Dim a(1 To n) As Integer, s As Integer
Dim i As Integer, t As Integer, k As Integer
a(1) =" 1:" a(2) =" 2:" a(3) =" a(1):" a(4) = 0
s =" 0:" k = 0
For i =" 1" To n
t = a(i)
a(i) =" k" + t
k = t
s =" s" + a(i)
Next i
Text1.Text = Str(a(2))
Text2.Text = Str(s)
End Sub
答案(点此获取答案解析）
