高中信息技术算法与程序设计 专项测试二 算法基础

输入x的值为1，执行完这部分流程后，变量s的值是(  )

Dim x As String, y As String, z As Boolean

x = Text1.Text

y = Text2.Text

z = x + y > y + x

Text3.Text = z

程序运行时，在文本框Text1中输入12121，在文本框Text2中输入121，则在文本框Text3中显示的内容为(  )

s = 0: i = 1

Do While i <= 10

    If i Mod 3 = 0 Then a(i) = a(i) + 1 Else a(i) = i

    List1.AddItem Str(a(i))

    i = i + 1

Loop

i = 10

Do While i >= 1

    If a(i) = 1 Then s = s + 1

    i = i － 1

Loop

该程序段运行后，变量s值是(  )

Dim d As Integer, p As Integer

p = 2

d = 10

Do While d > 1

    p = 2 * p

    d = d － 1

Loop

Label1.Caption = Str(p)

该程序段运行后，在标签Label1中显示的内容是(  )

a(1) = 10

For i = 2 To 10

    a(i) = 0

    If i Mod 2 = 1 Then

        a(i) = a(i \ 2) + a(i － 1)

    Else

        a(i) = a(i) + 1

    End If

Next i

该程序段执行后，数组元素a(7)的值是(  )

Dim i As Integer, j As Integer, st As String

n = 5

For i = 1 To 5

    st = “ ”

    If i < 4 Then

        For j = 1 To i

            st = st + “*”

        Next j

    Else

        For j = i To n

            st = st + “*”

        Next j

    End If

    List1.AddItem st

Next i

该程序段运行后，在列表框List1中显示的内容是(  )

Dim a(1 To 6) As Long, i As Integer, x As Long, y As Long

x = 654321

For i = 1 To 6

    a(i) = x Mod 10

    x = x \ 10

    y = y + a(i) * 10 ^ (6 － i + 1)

Next i

执行该程序段后，变量y的值为(  )

Private Sub Command1_Click()

    Dim n As Integer，i As Integer，a As Long，b As Long，c As Long

    a = 1

    b = 1

    n = Val(Text1.Text)

    List1.AddItem Str(a)

    List1.AddItem Str(b)

    For i = 3 To n

        List1.AddItem Str(c)

    Next i

End Sub

上述程序中方框处可选语句为(  )

①a=b ②c=a+b ③b=c

n = 0

For i = 1 To Len(Text1.Text)

    c = Mid(Text1.Text, i, 1)

    If c >= “0” And c <= “9” Then m = 1 Else m = 2

    a(m) = a(m) + 1

    If a(m) = 1 Then n = n + 1

Next i

数组a各元素的初始值都为0，文本框Text1的内容为“Happy2018”。执行程序后，变量n的值为(  )