VB 프로 그래 밍, 만약 에 세 자리 의 정수 가 여러 숫자의 큐 브 와 같다 면 이 수 를 수선 화 수 라 고 부 릅 니 다. 하나의 정 수 를 입력 하여 수선 화의 수 를 판단 합 니 다. Private Sub FormLoad () Dim x%, a%, b%, c%, y% x = Input Box ("세 자리 숫자 입력 하 세 요", "프롬프트 상자") If Len (x) = 3 Then a = Val (Mid (x, 1, 1) b = Val (Mid (x, 2, 1) c = Val (Mid (x, 3, 1) y = Val (x) If a ^ 3 + b ^ 3 + c ^ 3 = y Then Print "수선화 에 요". Else Print "수선화 수 아니에요". End If Else Print "입력 오류" End If End Sub 이상 어디 가 틀 렸 습 니까?

VB 프로 그래 밍, 만약 에 세 자리 의 정수 가 여러 숫자의 큐 브 와 같다 면 이 수 를 수선 화 수 라 고 부 릅 니 다. 하나의 정 수 를 입력 하여 수선 화의 수 를 판단 합 니 다. Private Sub FormLoad () Dim x%, a%, b%, c%, y% x = Input Box ("세 자리 숫자 입력 하 세 요", "프롬프트 상자") If Len (x) = 3 Then a = Val (Mid (x, 1, 1) b = Val (Mid (x, 2, 1) c = Val (Mid (x, 3, 1) y = Val (x) If a ^ 3 + b ^ 3 + c ^ 3 = y Then Print "수선화 에 요". Else Print "수선화 수 아니에요". End If Else Print "입력 오류" End If End Sub 이상 어디 가 틀 렸 습 니까?

Private Sub FormClick () Dim x As String Dim a%, b%, c%, y% x = InptBox ("세 자리 입력 하 세 요", "프롬프트 상자") If Len (x) = 3 Thena = Val (Mid (x, 1, 1) b = Val (Mid (x, 2, 1) c = Val (Mid (x, 3, 1) y = Val (x) If ^ 3 + ^ 3

"수선화 수" 는 세 자리 수 를 말 하 는데, 여러분 의 숫자 입방 합 은 그 자체 와 같 습 니 다. 예 를 들 어 153 = 1 ^ 3 + 5 ^ 3 + 3 ^ 3. 지금 은...
"수선 화 수" 는 세 자리 수 를 말 하 는데, 여러분 의 숫자 입방 합 은 그 자체 와 같 습 니 다. 예 를 들 어 153 = 1 ^ 3 + 5 ^ 3 + 3 ^ 3 입 니 다. 지금 은 m 와 n 범위 내 에 있 는 수선 화 수 를 모두 수출 해 야 합 니 다.
(100)

기능 은 맞 는 것 같 지만 제목 에 부합 되 지 않 아 수선화 수의 독립 함 수 를 쓰 지 못 했 습 니 다. 당신 은 요구 에 따라 정리 하면 될 것 입 니 다.

모든 '수선 화 수' 를 수출 하 는데 이른바 '수선 화 수' 는 하나의 세 자리 수 를 말 하 는데 그 숫자 는 입방 의 합 이다.
예 를 들 면 153 은 수선화 수! 왜냐하면 153 = 1 * 1 * 1 + 5 * 5 * 5 + 3 * 3 * 3

# include
void main ()
{.
int i, b, s, g;
for (i = 100; i