vb程序设计教程曹利培版课后习题答案

     Dim a(5) As Integer, st As String = ""
        For i = 10000 To 99999
            a(1) = i Mod 10
            a(2) = (i Mod 100) \ 10
            a(3) = (i Mod 1000) \ 100
            a(4) = (i Mod 10000) \ 1000
            a(5) = i \ 10000
            If a(1) ^ 5 + a(2) ^ 5 + a(3) ^ 5 + a(4) ^ 5 + a(5) ^ 5 = i Then
                st = st & i & " "
            End If
        Next
        TextBox6Text = st

以上就是关于vb程序设计教程曹利培版课后习题答案全部的内容，包括:vb程序设计教程曹利培版课后习题答案、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！