试题

试题 试卷

logo

题型:单选题 题类:常考题 难易度:普通

浙江省嘉兴市2021届高三上学期信息技术9月教学测试

有如下VB程序段:

Private Sub Command1_Click( )

    Const s1 = "tea"

    s2="老师Happy Teacher's Day!":s3 = ""

    For i=1 To Len(s2)

        If bjiao(s1,Mid(s2, i, 1))Then s3=s3 + Str(i) + ","

    Next i

    Text1.Text = s3

End Sub

Function bijiao(x As String, y As String) As Boolean

    bjiao = False

    For i=1 To Len(x)

        If y = Mid(x, i, 1) Then

           bijiao = True:Exit Function

        End If

    Next i

End Function

执行上述程序段后,文本框Text1中显示的内容是(    )

A、6,11,12,13,16,22 B、6,12,13,16,22 C、4,9,10,11,14,20 D、4,10,11,14,20
举一反三
返回首页

试题篮