试题 试卷
题型：单选题 题类：常考题 难易度：普通
浙江省慈溪市2018-2019学年高二下学期信息技术期末考试试卷
Private Sub Command1_Click()
Dim a(0 To 5) As Integer
Dim i As Integer ’①
a(0) = 1 '②
For i = 1 To 5
a(i) = 2 * a(i - 1) + 1 '③
Next i
Text1.Text = Str(a(6)) '④
End Sub
Dim a(1 To 5)As Integer
a(1)=1 : a(2)=2
For i=3 To 5
a(i)=a(1)
For j=i-1 To 2 Step -1
a(j)=a(j)＋a(j－1)
Next j
Text1.Text=Str(a(3))
试题篮
