浙江省衢州五校联盟2020-2021学年高二上学期信息技术期...

​​

Max＝0:s＝0

For i＝1 to 6

    If a（i）＞Max Then Max＝a（i）

    s＝s＋Max

    i＝i＋1

Next i

数组元素a（1）到a（6）的值依次为“5，7，4，8，6，9”，执行该程序段后，变量s的值为（    ）

a（1）＝4:a（2）＝5a（3）＝1

a（4）＝2:a（5）＝3:a（6）＝6

k＝1

For i＝1 to 5000

    k＝（k＋a（k）－1）Mod 6＋1

Next i

执行该程序段后，变量k的值为（    ）

s＝Text1．Text

For i＝1 To Len（s）

    t＝Asc（Mid（s，i，1））－64

    If t＞32 Then t＝t－32

    s1＝Chr（（t＋2）Mod 26＋65）＋s1

Next i

Text1.Text＝s1

在文本框Text1中输入“wWxY”（    ）已知“a”的ASCⅡ值为97，“A”的ASCⅡ值为65），执行该程序段后，则变量s1的值为（    ）

flag＝True: i＝1

Do While i<＝6

    k＝Int（Rnd*99）＋1

    If k mod 2＝1 Or flag Then

        a（i）＝k

        i＝i＋1

        flag＝Not flag

    End If

Loop

执行该程序段后，在下列选项中，a（1）～a（6）各元素的值可能的是（    ）

图a

Private Sub Comand1_Click( )

    Dim s As String, c As String

    Dim t As Integer, I As  Integer

    Dim a（1 To 26）As Integer

    s＝Text1．Text

    For i＝1 to 26

        a（i）＝0

    Next i

    i＝1

    Do While i<＝Len（s）

        c＝Mid（s, i, 1）

        If    ①     Then

            t＝Asc（c）－96

        Else

            t＝Asc（c）－64

        End If

        If a（t）＝0 Then

            a（t）＝1

        Else

                 ②    

        End If

        i＝i＋1

    Loop

    Label1.Caption＝s

End Sub

实现上述功能的VB程序如下，请回答下列问题：

Const k＝5

Dim a（1 To k * k）As Integer

Private Sub Form_Load( )

‘生成数组a并以矩阵形式显示在列表框list1中

End Sub

Private Sub Command1_Click（）

    Dim b（1 To k, k * k）As Integer

    Dim n As Integer

    Dim row As Integer, col As Integer

    Dim s As String

    s＝“”

    n＝Val（Text1. Text）

    For i＝1 To k * k

        row＝（i－1）\k＋1

          ①    

        If row＝n Then

            b（i）＝a（（col－1）*k＋n）

        ElseIf col＝n Then

               ②   

        Else

            b（i）＝a（i）

        End If

        s＝s＋Str（b（i））

        If    ③   Then

            List2. AddItem s

            s＝“”

        End If

    Next i

End Sub