1. (2019高二上·杭州期末) 有如下VB程序段，运行后，文本框Text1中输出的内容为（    ）

Dim a As Long, k As Integer, s As String

a=1234567 : k=0

Do while a>0

  r=a mod 10

  If r Mod 2 =0 Then k=k+1

  s= s+ Str(r)

  a=a\10

Loop

Text1.Text= Str(k) +s