С Новым годом! Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VB Иконка формы на VB6 Добрый день! В VB6 загружаю иконку в Form1.Icon и при запуске приложения, иконка не совсем качественного вида. В VB2008 загружаю эту же иконку в Form1.Icon и иконка отображается нормально при запуске приложения. Как реализовать правильное отображение иконки Form1 в VB6? Заранее благодарен! https://www.cyberforum.ru/ visual-basic/ thread786950.html VB Поиск файлов на дисках C, D
Мне вот тут стало интересно, каким методом осуществляется поиск файлов в директориях C и D Используется функция Dir или Search? Подскажите, товарищи))
VB Последовательность https://www.cyberforum.ru/ visual-basic/ thread785791.html
Речь идёт о VB6 Я знаю, какие переменные нужно задать в этом случае, какие объекты создать и т.д. Как записать данные тоже знаю. Но! Непонятно следующее: @mail.ru. При этом происходит следующее: Сначала мое мыло встает на первую строчку, потеснив все остальные мылы вниз. Вот что получается: 1ivan@mail.ru 2 m1@mail.ru 3 m2@mail.ru 4 m3@mail.ru 5 m4@mail.ru
VB Дано действительное число х. Вычислить: (х-1)*(х-3)*(х-7)*.*(х-63) / (х-2)*(х-4)*(х-8)*.*(х-64) Дано действительное число х. Вычислить: (х-1)*(х-3)*(х-7)*...*(х-63) / (х-2)*(х-4)*(х-8)*...*(х-64) (х-1)(х-3)(х-3)...(х-63) - числитель дроби (х-2)(х-4)(х-8)...(х-64) - знаменатель дроби https://www.cyberforum.ru/ visual-basic/ thread785498.html
как считать в текстовом поле? VB
Например пользователь написал текст в текстовом поле. В этом поле есть цифры и переменная x. Как подсчитать это выражение, если х определен?
VB Как кнопкой переключать картинки по порядку здравствуйте. подскажите, пожалуйста, как мне сделать так, чтобы в одной форме кнопка переключала картинки по порядку (всего имеется 10 картинок, наклееных одна на другую)? буду очень благодарен за ответ! https://www.cyberforum.ru/ visual-basic/ thread785268.html
VB Функция Dir выдает ошибку https://www.cyberforum.ru/ visual-basic/ thread785213.html
Добрый вечер. Помогите пожалуйста разобратся почему так происходит с функцией Dir. При выполнении данного куска программы появляется ошибка, Run-time error '5' Invalid procedure call or argument и появляется когда я проверяю наличие папки и файла по указаном пути через переменные q_DirMonth q_DirDay q_DirFile q_FileFull
VB Конвертер валют
У меня стоит задача сделать конвертер валют на базе VB Private Sub CommandButton1_Click() Dim usdk, usdp, uahk, uahp, skl, sv As Currency usdk = T1 'курс долара купівля usdp = T2 'курс долара продаж skl = T3 'сума від клієнта If O1 = True Then sv = skl * usdk: T4 = sv Else sv = skl / usdp: T4 = sv 'до видачі If O1 = True Then T5 = "usd": T6 = "грн" Else T6 = "usd": T5 = "грн" End Sub...
VB Какой командой можно перенести выделенный текст в textbox? https://www.cyberforum.ru/ visual-basic/ thread785101.html
Какой командой можно перенести выделенный текст из документа Word в textbox? Как будет выглядеть код? Заранее спасибо
VB Исправить код скачивания интернет страницы https://www.cyberforum.ru/ visual-basic/ thread785087.html
Не работает, ругается, на выделенную строку пишет "Only comments may appear End Sub, End Function, End Property. Саму ошибку я понимаю, не знаю где исправить. Option Explicit Private Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long) Private Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As...
Торрент-клиент VB
Здравствуйте! Люди добрые, подскажите можно ли на vb создать торрент клиент? если да то как? помогите сделать! оооочень надо
VB Как вычислить произведение отрицательных четных элементов массива Задав одномерный массив из n вещественных или целых элементов реализовать обработку массива, как указано в варианте. Длина массива N задается пользователем. Исходные данные задать самостоятельно, учитывая формат элементов массива A. Исходные данные должны вводиться с проверкой на область допустимых значений. Тип результата определяется из контекста. 1) вычислить произведение отрицательных... https://www.cyberforum.ru/ visual-basic/ thread784868.html
Модератор
Эксперт функциональных языков программированияЭксперт Python
37423 / 20795 / 4280
Регистрация: 12.02.2012
Сообщений: 34,208
Записей в блоге: 14
15.02.2013, 20:06 0

Как определить является ли число палиндромом - VB - Ответ 4138091

15.02.2013, 20:06. Показов 5983. Ответов 13
Метки (Все метки)

Ответ

Вот постное решение с while. Учительница будет в восторге!

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Function isPali(n As Integer) As Boolean
Dim dig(1 To 5) As Integer ' здесь будут цифры
Dim i           As Integer
Dim j           As Integer
 
    isPali = True
 
    For i = 1 To 5
        dig(i) = n Mod 10 ' младшая цифра
        n = n \ 10          ' отбрасываем младшую цифру
        If n = 0 Then      ' число кончилось? 
           j = i               ' j=к-ву цифр
           Exit For
        End If
    Next i
    
    i = 1
    
    Do While (i <= j)             ' в цикле сравниваем соотв. цифры с конца и начала
       If dig(i) <> dig(j) Then  ' не совпали
          isPali = False
          Exit Do
       End If
       i = i + 1
       j = j - 1
    Loop
 
End Function


Вернуться к обсуждению:
Как определить является ли число палиндромом VB
1
Заказать работу у эксперта
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
15.02.2013, 20:06
Готовые ответы и решения:

Определить, является ли число палиндромом
Вводится положительное целое число B &lt; 10000. Является ли оно палиндромом? Палиндром – это строка...

Определить, является ли число палиндромом
Проверить истинность высказывания: «Данное четырехзначное число читается одинаково слева направо...

Определить является ли число палиндромом?
Вводится случайное число(кол-во цифр не указано).Определить является ли оно палиндромом например...

Определить, является ли число палиндромом
Как определить является ли число палиндромом?

13
15.02.2013, 20:06
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
15.02.2013, 20:06
Помогаю со студенческими работами здесь

Определить, является ли число палиндромом
Вывести все числовые палиндромы (десятичная запись читается одинаково слева направо и справа...

Определить, является ли число палиндромом
Помогите пожалуйста решить следующие задачи: 1. Дано натуральное N. Определить, является ли оно...

Определить, является ли число палиндромом
Дано натуральное число n (n 1999). Определить, является ли оно палиндромом («перевертышем»), с...

Определить, является ли число палиндромом
1)Дано натуральное число. Верно ли, что оно начинается и заканчивается одной и той же цифрой. ...

0
Новые блоги и статьи
Книги и учебные ресурсы по C#
InfoMaster 08.01.2025
Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .
Что такое NullReferenceEx­­­ception и как исправить?
InfoMaster 08.01.2025
NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .
Что такое Null Pointer Exception (NPE) и как это исправить?
InfoMaster 08.01.2025
Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .
Русский язык в консоли C++
InfoMaster 08.01.2025
При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .
Telegram бот на C#
InfoMaster 08.01.2025
Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .
Использование GraphQL в Go (Golang)
InfoMaster 08.01.2025
Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор?
Alexander-7 08.01.2025
Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .
Как работать с GraphQL на TypeScript
InfoMaster 08.01.2025
Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .
Счётчик на базе сумматоров + регистров и генератора сигналов согласования.
Hrethgir 07.01.2025
Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .
Как перейти с Options API на Composition API в Vue.js
BasicMan 06.01.2025
Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .
Архитектура современных процессоров
inter-admin 06.01.2025
Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .
История создания реляционной модели баз данных, правила Кодда
Programming 06.01.2025
Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru