Private Sub Form_Load() List1.AddItem "Item1" List1.AddItem "Item2" List1.AddItem "Item3" End Sub Private Sub Command1_Click() List1.List(List1.ListCount) = "AAAA" End Sub 程序运行后,单击命令按钮,其结果为( )
【单选题】某人编写了一个程序,求随机生成的三位数中所有的水仙花数。所谓水仙花数就是三位数的各个数字的立方和等于三位数本身,例如: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 100...
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 交换上下位置