вывести на экран натуральные числа от1 до 100 которые при деление на 4 дают в остатке 2

@Ilnaz 2 · Регистрация: 22.05.2011

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

вывести на экран натуральные числа от1 до 100 которые при деление на 4 дают в остатке 2 и их количество?

@_Лёша_ · 23.05.2011, 13:25

Visual Basic

        Dim out As String = ""
        dim index as Integer = 0
For i As Integer = 1 To 100
    If i Mod 4 = 2 Then
        out + = i & ";"
        index + = 1
    End If
Next
Msgbox (out)
Msgbox(index)

@Ilnaz 2 · 23.05.2011, 13:30 **[ТС]**

не работает
в водит ошибку

@~~Dzhej-Dzhej~~ · 23.05.2011, 14:08

Сообщение от Ilnaz 2

не работает
в водит ошибку

так должно работать:

Visual Basic

Private Sub Form_Load()
    Dim out As String
    Dim index As Integer
    Dim i As Integer
    For i = 1 To 100
            If i Mod 4 = 2 Then
                    out = out & i & ";"
                    index = index + 1
            End If
    Next
    MsgBox (out)
    MsgBox (index)
End Sub

@_Лёша_ · 23.05.2011, 14:11

Сообщение от Ilnaz 2

не работает
в водит ошибку

Ну я же не думал, что ты догадаешься этот код вставить вне процедуры.

Не по теме:

Чему там учат у вас вообще....

@Ilnaz 2 0 / 0 / 0 Регистрация: 22.05.2011 Сообщений: 18
		1
	вывести на экран натуральные числа от1 до 100 которые при деление на 4 дают в остатке 2 23.05.2011, 13:23. Показов 1312. Ответов 4 Метки нет (Все метки) вывести на экран натуральные числа от1 до 100 которые при деление на 4 дают в остатке 2 и их количество? 0

@Ilnaz 2 0 / 0 / 0 Регистрация: 22.05.2011 Сообщений: 18
	23.05.2011, 13:30 [ТС]	3
	не работает в водит ошибку 0

@_Лёша_ 386 / 375 / 22 Регистрация: 08.02.2011 Сообщений: 1,078
	23.05.2011, 14:11	5
	Сообщение от Ilnaz 2 не работает в водит ошибку Ну я же не думал, что ты догадаешься этот код вставить вне процедуры. Не по теме: Чему там учат у вас вообще.... 0

Опции темы