VB6.0 Люди умоляю кто знает!

@Л_и_н_д_а · Регистрация: 15.01.2011

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

Кто разбирается умоляю помогите...!
хотя бы с одной задачей

тема Обработка чисел и числовых последовательностей.

1 обработка чисел.
Дано натуральное число.Сформировать число с обратным порядком следования цифр и определить,является ли сформированное число точным квадратом.

2 Обработка числовой последовательности с заданным кол-вом элементов.
Найти все 4-значные натуральные числа, не превосходящие заданного числа N, которые делятся на каждую из своих цифр. Если таких чисел нет, выдать об этом сообщение.

3 Обработка числовой последовательности с неопределенным кол-вом элементов.
Определить последнее 2-значное число вводимой последовательности с max суммой цифр. Кол-во элементов последовательности не определено.

@Vlanib · 15.01.2011, 21:26

Ну вот первая задача:

Visual Basic
1
2
3
4
5
6
Sub Task_1()
Dim N, vTmp
N = StrReverse(InputBox("N:"))
vTmp = Sqr(N)
MsgBox "Ïîëó÷åííîå ÷èñëî " & N & IIf(vTmp = Int(vTmp), " ÿâëÿåòñÿ", " íå ÿâëÿåòñÿ") & " òî÷íûì êâàäðàòîì"
End Sub

Добавлено через 22 минуты
Вроде как вторая:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Task_2()
Dim iTmp As Integer, bFlag As Boolean, sStr As String, i As Integer, j As Integer
For i = 1000 To InputBox("N:")
    bFlag = True
    For j = 1 To 4
        iTmp = Val(Mid(i, j, 1))
        If iTmp = 0 Then bFlag = False: Exit For
        If i Mod iTmp <> 0 Then bFlag = False: Exit For
    Next
    If bFlag Then sStr = sStr & i & ", "
Next
MsgBox IIf(Len(sStr) > 0, sStr, "×èñåë, óäîâë. óñëîâèþ íåò")
End Sub

Добавлено через 16 минут
Ну и третья:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub Task_3()
Do
    vRes = InputBox("Ââåäèòå ýëåìåíò ïîñëåäîâàòåëüíîñòè")
    If Len(vRes) > 0 Then sStr = sStr & vRes & ", "
    If Len(vRes) = 2 Then
        vTmp = (vRes \ 10) + (vRes Mod 10)
        If vTmp > vMax Then vMax = vRes
    End If
Loop While Len(vRes) <> 0
MsgBox sStr & vbNewLine & vMax
End Sub

@Л_и_н_д_а · 15.01.2011, 21:53 **[ТС]**

Сообщение от Vlanib

Ну вот первая задача:

Visual Basic
1
2
3
4
5
6
Sub Task_1()
Dim N, vTmp
N = StrReverse(InputBox("N:"))
vTmp = Sqr(N)
MsgBox "Ïîëó÷åííîå ÷èñëî " & N & IIf(vTmp = Int(vTmp), " ÿâëÿåòñÿ", " íå ÿâëÿåòñÿ") & " òî÷íûì êâàäðàòîì"
End Sub

Добавлено через 22 минуты
Вроде как вторая:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Task_2()
Dim iTmp As Integer, bFlag As Boolean, sStr As String, i As Integer, j As Integer
For i = 1000 To InputBox("N:")
    bFlag = True
    For j = 1 To 4
        iTmp = Val(Mid(i, j, 1))
        If iTmp = 0 Then bFlag = False: Exit For
        If i Mod iTmp <> 0 Then bFlag = False: Exit For
    Next
    If bFlag Then sStr = sStr & i & ", "
Next
MsgBox IIf(Len(sStr) > 0, sStr, "×èñåë, óäîâë. óñëîâèþ íåò")
End Sub

Добавлено через 16 минут
Ну и третья:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub Task_3()
Do
    vRes = InputBox("Ââåäèòå ýëåìåíò ïîñëåäîâàòåëüíîñòè")
    If Len(vRes) > 0 Then sStr = sStr & vRes & ", "
    If Len(vRes) = 2 Then
        vTmp = (vRes \ 10) + (vRes Mod 10)
        If vTmp > vMax Then vMax = vRes
    End If
Loop While Len(vRes) <> 0
MsgBox sStr & vbNewLine & vMax
End Sub

Спасибо вам !....человеческое спасибо)

Новые блоги и статьи Все статьи Все блоги /
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а привычная функция main(). . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/

@Л_и_н_д_а 0 / 0 / 0 Регистрация: 15.01.2011 Сообщений: 3

	VB6.0 Люди умоляю кто знает! 15.01.2011, 19:28. Показов 962. Ответов 2 Метки нет (Все метки) Кто разбирается умоляю помогите...! хотя бы с одной задачей тема Обработка чисел и числовых последовательностей. 1 *обработка чисел.* Дано натуральное число.Сформировать число с обратным порядком следования цифр и определить,является ли сформированное число точным квадратом. 2 *Обработка числовой последовательности с заданным кол-вом элементов.* Найти все 4-значные натуральные числа, не превосходящие заданного числа N, которые делятся на каждую из своих цифр. Если таких чисел нет, выдать об этом сообщение. 3 *Обработка числовой последовательности с неопределенным кол-вом элементов*. Определить последнее 2-значное число вводимой последовательности с max суммой цифр. Кол-во элементов последовательности не определено. 0

Опции темы