Написать процедуру, которая находит и выводит на экран все четырехзначные числа

@belnowy · Регистрация: 02.04.2015

Author24 — интернет-сервис помощи студентам

Написать процедуру, которая находит и выводит на экран все четырехзначные числа вида abcd, для которых выполняется: а) а, b, с, d — разные цифры; б) ab - cd = а + b + с + d.
________________________________________________________________________________ __________________________
Мои наработки:

VB.NET

Imports System.Math
Public Class Form1
 
 
    Function deliteli(ByVal num As Double) As Double
        Dim x, y As Double
        x = num
1:
        y = x Mod 10
        If y = 0 Then
            GoTo 2
        End If
 
        If (num Mod y <> 0) Then
            deliteli = 0
            Exit Function
        End If
2:
        x = (x - y) / 10
        If x = 0 Then
            deliteli = num
            Exit Function
        End If
        GoTo 1
    End Function
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x, i, N As Double
        N = CInt(TextBox3.Text)
 
        For i = 2 To N
            x = deliteli(i)
            If x <> 0 Then
                TextBox2.Text += CStr(x) + "," + Space(2)
            End If
        Next
    End Sub
End Class

Но это через функцию,а мне нужно через процедуру,знающие- помогите пожалуйста.

	05.06.2015, 19:46