（加试题）有VB编写的程序如下：PrivateSubCommand1_Click()Dima(0To9)AsIntegerDimtasLongt=Val(Tex_刷题宝

题干

（加试题）有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

上一题下一题 0.99难度选择题更新时间:2019-05-06 05:28:42

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

同类题1

编写“因子分解”程序，实现如下功能：在文本框 Text1 中输入一个大于 1 的正整数，单击“求因子” 按钮 Command1，在列表框 List1 中显示该数的所有因子，以及所有因子之和。程序运行界面如图所示。

（1）代码“Private Sub Command1Click()”中的 Command1Click 是________。
（单选，填字母：

C．事件处理过程名）

（2）实现上述功能的 VB程序如下，请在划线处填入合适的代码。
Private Sub Command1Click()
Dim sum As Integer
Dim n As Integer, i As Integer
n = Val(Text1.Text)
List1.Clear
sum = 1
List1.AddItem Str(sum)
For i = 2 To Int(Sqr(n))
If ①________Then
sum = sum + i
List1.AddItem Str(i)
If i <> n / i Then
sum = ②_____
List1.AddItem Str(n / i)
End If
End If
Next i
List1.AddItem Str(n) + "的所有因子之和是" + Str(sum)
End Sub
（3）运行该程序，在文本框中输入 9，单击“求因子”按钮后，所有因子之和是________。

同类题2

在VB中，下列程序段执行后，变量a,b,c的值分别是（）
a=1:b=1:c=1
do while a+b+c<=10
a=a+1
b=b*2
c=b/2
loop

同类题3

（加试题）某算法流程图如下图所示，该流程图对应的程序段为（）

A．s = 0
For i = 1 To 20
If i Mod 3 = 0 Then
s = s + 2 * i
Else
i = i + 1
End If
Next i

B．i = 1
For s = 0 To 20
If i Mod 3 = 0 Then
s = s + 2 * i
End If
i = i + 1
Next i

C．i = 1: s = 0
Do While s <= 20
If i Mod 3 = 0 Then
s = s + 2 * i
Else
i = i + 1
End If
Loop

D．i = 1: s = 0

Do While s <= 20
If i Mod 3 = 0 Then
s = s + 2 * i
End If
i = i + 1
Loop

同类题4

某算法的部分流程图如图所示，执行这部分流程，输入n的值为5，则输出值依次为

同类题5

有如下程序段，若在text1中输入"abcd + BC + cdef + DE"，请问程序执行后list1中第3行中出现的值为
Dim a(1 To 26) As Integer
s = Text1.Text : n = Len(s)
For i = 1 To n
c = Mid(s, i, 1)
If c >= "a" And c <= "z" Then

a(Asc(c) - 96) = a(Asc(c) - 96) + 1

ElseIf c >= "A" And c <= "Z" Then

a(Asc(c) - 64) = a(Asc(c) - 64) + 1

End If
Next i
For i = 1 To 26
List1.AddItem Str(a(i))
Next i

相关知识点