某人编写了一个程序,求随机生成的三位数中所有的水仙花数。所谓水仙花数就是三位数的各个数字的立方和等于三位数本身,例如:153=1^3+5^3+3^3,则153为水仙花数。Private Sub Command1_Click() Dim a(1000) As Integer, i As Integer Dim j As Integer, sum As Integer For i = 1 To 1000 a(i) = Int(Rnd * 900) + 100 Next i For i = 1 To 1000 For j = 1 To 3 sum = sum + (a(i) Mod 10) ^ 3 a(i) = a(i) \ 10 Next j If sum = a(i) Then Print a(i) sum = 0 Next iEnd Sub程序运行后,数组中的水仙花数并未输出,以上程序代码存在问题,经过以下_______选项的修改后,可以得到正确的输出结果。
A.
将该语句 sum = sum + (a(i) Mod 10)^3 修改为 sum = sum + (a(i) \ 10)^3
B.
将该语句 a(i) = a(i) \ 10 修改为 a(i) = a(i) Mod 10
C.
在两条 For 语句之间插入 t = a(i) ,并将该语句 If sum = a(i) Then Print a(i) 改为 If sum = t Then Print t
D.
将语句 sum = sum + (a(i) Mod 10)^3 与 a(i) = a(i) \ 10 交换上下位置