题库 高中信息

题干

(加试题)下列VB程序的功能是:求得1000以内的所有水仙花数,并在list1中显示。水仙花数是指一个n位数(n)=3),它的每个位上的数字的n次幂之和等于它本身(例如:1^3+5^3+3^3=153)

Private Sub Command1_Click()
List1.clear
Dim a As Integer
For i = 1 To 1000
s = 0
l = Len(Str(i)) - 1
For j = 0 To l - 1
a = 1
s = s + a ^ 3
Next j
If i = s Then
List1.AddItem i
End If
Next i
End Sub
横线处应填写
A.i / 10 ^ j Mod 10B.i \ 10 ^ j Mod 10
C.i \ 10 ^ (j Mod 10)D.(i \ 10) ^ j Mod 10
上一题 下一题 0.99难度 填空题 更新时间:2019-05-08 10:47:49

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