（加试题）有如下VB程序段：PrivateSubCommand1_Click()Dima(0To9)AsIntegerDimtasLongt=Val(Text1_刷题宝

题干

（加试题）有如下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) = a(t Mod 10) + 1
t = t \ 10
Loop
For i = 0 To 9
If a(i) <> 0 Then x = x + a(i)
Next i
End Sub
若在文本框 Text1 中输入 3141592，则程序执行后，变量 x 的值为( )

A．1

B．2

C．5

D．7

上一题下一题 0.99难度选择题更新时间:2019-05-08 07:39:05

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

同类题1

有如下VB程序段：
n = 0
For i = 1 To Len(Text1.Text)
c = Mid(Text1.Text, i, 1)
If c >= "0" And c <= "9" Then m = 1 Else m = 2
a(m) = a(m) + 1
If a(m) = 1 Then n = n + 1
Next i
数组a各元素的初始值都为0，文本框Textl的内容为“Luck2018”。执行程序后，变量n的值为_____________

同类题2

解决上问题所用的算法是:（）

C．顺序查找

同类题3

在窗体上画一个名称为Label1的标签,然后编写如下事件过程，程序运行后,单击窗体,在标签中显示的内容是（）
Private Sub Form_Click(）
Dim arr(1 to 10, 1 to 10） As Integer
Dim i As Integer, j As Integer
For i =" 2" To 4
For j =" 2" To 4
arr(i, j） =" i" * j
Next j
Next i
Label1.Caption =" Str(arr(2," 2）+ arr(3, 3））
End Sub
(

同类题4

求2+4+6+8+10+12+14+……100。
PRIVATE SUB   FORM-----CLICK（）
DIM   I   AS INTEGER，S   AS INTEGER
FOR I= 2 TO 100 __________
S=S+___________
NEXT I
PRINT   S
END SUB

同类题5

读程序，写出下列程序的输出结果
55、s = 1
For j =" 100" To -100 Step -1
s =" s" * j
Next j
MsgBox (s)
上述程序段中s =" s*j" 的执行次数是( )

相关知识点