试题

试题 试卷

logo

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

山东省济南市章丘区信息技术模拟考试卷(六)

【加试题】有VB编写的程序如下:

Private Sub Command1_Click()

    Dim a(0 To 9) As Integer

    Dim t as Long

    t = Val(Text1.Text)

    Do While t <> 0

        a(t Mod 10) = 1

        t = t \ 10

    Loop

    For i = 0 To 9

        x = x + a(i)

    Next i

End Sub

若在文本框Text1中输入10242048,则程序执行后,变量x的值为(  )

A、1 B、2 C、5 D、10
举一反三
返回首页

试题篮