粤教版（2019）高中信息技术必修1第一、二、三、四章综合训...

Dim i As Integer,c As String,s As String,t As Integer

Dim s2 As String,pwd As String

s=Text1.Text:pwd="71zhYEAR":s2="":t=0

For i = 1 To Len(s)

    c=Mid(s,i,1)

    If c>="0" And c<="9"Then

        t=t*10+Val(c)

    Else

        s2=s2+Mid(pwd,t Mod 8+1,1)

    End If

Next i

Text2.Text=s2

运行该程序段，在文本框Text1中输入“20B13A8”，文本框Text2输出的是（   ）

L = 0: R = 7: i = 1

Do While i < R

    If a(i) = 0 Then

        L = L + 1

        t = a(i): a(i) = a(L): a(L) = t i = i + 1

    ElseIf a(i) = 2 Then

        R = R - 1

        t = a(i): a(i) = a(R): a(R) = t

    Else

        i = i + 1

    End If

Loop

数组元素 a(1)到 a(6)的值依次为“2，0，2，1，1，0”。执行该程序段后，下列说法不正确的是（  ）

Dim a(1 To 100)As String

For i= 1 To 10

    For j=1 To 10

        If i= j Or i Mod 10= 0 Or i Mod 10=1 Then

            a(  ①  )="●"

        Else

            a(  ①  ) ="O"

        End lf

    Next j

Next i

For i= 1 To 100

    s=s +a(i)

    lf   ②   Then

        List1.Addltem s

        s = ""

    End lf

Next i

若要用VB语言实现该部分算法，正确的代码应为。

则字符“熊”的十六进制内码值为。

score=int（input（“请输入分数：”））

if score>60：

    score+=20

    score+=10

print（score）

若程序运行后输入20，打印出的 score的值为。