组卷题库 > 高中信息技术试卷库
试题详情
有如下VB程序段:

Dim a(1 To 10) As Integer

s = "8+9+10=": n = 1

For i = 1 To Len(s)

    ch = Mid(s, i, 1)

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

        a(n) = a(n) * 10 + Val(ch)

    Else

        If a(n) > 0 Then n = n + 1

    End If

Next i

Text1.Text = Str(n)

数组a各元素的初始值都为0,若执行该程序后,在文本框Text1中显示的值为(    )

A、2
B、3
C、4
D、5
知识点
参考答案
采纳过本试题的试卷
教育网站链接