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

s = “QUOTES:keep on going never give up!”

flag = False: m = 0

For i = 1 To Len(s)

  ch = Mid(s, i, 1)

  If ch >= “a” And ch <= “z” Then

    If Not flag Then

      m = m + 1

      flag = True

    End If

  Else

    flag = False

  End If

Next i

Text1.Text = Str(m)

程序执行后文本框Text1显示的内容是(  )

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