【正文】
ger, c As Integer a(1) = 2: a(2) = 11: a(3) = 7: a(4) = 14: a(5) = 25 c = 0 For i = 6 To 10 If a(i 3) + a(i 2) = a(i 1) * 2 Then c = c + 1 a(i) = (a(i 3) + a(i 1)) \ 2 Next i = Str(a(10)) amp。(2分) Loop = Str(s)End Sub右框內(nèi)劃線處的內(nèi)容可以是 、 。(4分)Private Sub Command1_Click() Dim i As Integer, n As Integer Dim s1 As String, s2 As String, c As String s1 = s2 = n = Len(s1) For i = 1 To n c = Mid(s1, i, 1) s2 = c + s2 Next i = s2End Sub23.為使左、右框內(nèi)的VB程序段能實(shí)現(xiàn)相同的功能:(共4分)Private Sub Command1_Click() Dim i As Integer, s As Long s = 0 For i = 1 To 50 s = s + 2 * i 1 Next i = Str(s)End SubPrivate Sub Command1_Click() s = 0: t = 1 Do While __________39。判斷字符串是否對(duì)稱的VB程序段如下:Dim n As Integer, i As Integer, j As Integer, k As IntegerDim s As String, c1 As String, c2 As Strings = n=Len(s)k=0 : j=nFor i = 1 To n/2 Next iIf k = 0 Then =對(duì)稱 Else = 不對(duì)稱方框中的代碼由以下三部分組成:① j = j 1② If c1 c2 Then k = k + 1 ③ c1= Mid(s,i,1) : c2 = Mid(s,j,1)代碼順序正確的選項(xiàng)是A.①③②B.②③①C.③②①D.②①③19.某數(shù)列前三項(xiàng)分別為:a1 = a2 = a3 = 4,以后每項(xiàng)都滿足:ak = ak3 + ak1 (k3),如果用數(shù)組a存儲(chǔ)該數(shù)列的前10項(xiàng),請(qǐng)你完善該程序段,并輸出結(jié)果( )Dim a(10) As Integer, k As Integer a(1) = 2 : a(2) = 3 : a(3) = 4 For k = ______ To 10 a(k) = a(k 3) + a(k 1)Next kPrint a(10)A.4 60B.3 41C.5 11D.4 1120.以下VB程序的功能是:計(jì)算表達(dá)式12345678910的值,并在文本框Text1中輸出結(jié)果。1.某算法的自然語(yǔ)言描述與流程圖表示分別如下:第1步:輸入一個(gè)實(shí)數(shù)x第2步:判斷x與0的大小關(guān)系,若x≥0,則y=x21,否則y=2x1第3步:輸出y第4步:結(jié)束則流程圖中空白處理框①和②處應(yīng)填入的是( )A.① y ← x2 – 1 ② x ← 2x – 1 B.① y ← x2 – 1 ② y ← 2x – 1C.① y ← 2x – 1 ② y ← x2 – 1D.① x ← x2