'输出四叶玫瑰花数 Dim a As Integer, b As Integer Dim c As Integer, d As Integer For i = 1000 To 9999 —————— '得到千位上的数,赋给a,请选择正确选项填空 b = Int((i Mod 1000) / 100) c = Int((i Mod 100) / 10) d = i Mod 10 If a ^ 4 + b ^ 4 + c ^ 4 + d ^ 4 = i Then Print i End If Next i 的功能是输出所有“4叶玫瑰花数”,请选择正确选项填空()。