题目

【加试题】有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 答案：C

查看本题答案和解析