题库 高中信息

题干

(加试题)有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.1B.2C.5D.10
上一题 下一题 0.99难度 选择题 更新时间:2019-05-06 05:28:42

答案(点此获取答案解析)