
|
图a |
|
图b |
以下说法正确的是( )
下列说法正确的是( )

请回答下列问题:
(计算公式:环比=(11月数据-10月数据)/10月数据*100)



Private Sub wjxs_Click()
Dim i As Integer '①
Dim a As Integer, b As Integer
Dim c As Integer, d As Integer
Dim e As Integer
Dim n As Integer '②
List1.clear
For i = 10000 To 99999 '③
a = i \ 10000 '万位数字
b = i \ 1000 Mod 10 '千位数字
c = i \ 100 Mod 10 '百位数字
d = i \ 10 Mod 10 '十位数字
e = i Mod 10 '个位数字
If a ^ 5 + b ^ 5 + c ^ 5 + d ^ 5 + e ^ 5 = i Then '④
n = n + 1
List1.AddItem Str(i) '在列表框中输出
End If
Next i
Label1.Caption = "共有" + Str(n) + "个五角星数"
End Sub
