Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VB Внесение данных в определенную ячейку в столбец F таблицы через userform Добрый день! Помогите найти ошибку. Есть таблица БД Склад, в которой есть пустой столбец F(расход). Нужно вносить в него данные через форму "Продажа товара", в которой есть четыре выпадающих списка "товар" и соответствующие им поля "кол-во". Все работает, но данные не вписываются никуда, столбец "расход" остается пустой. https://www.cyberforum.ru/ visual-basic/ thread1892832.html VB Mutex - создание и удаление
Всем привет. Я создал mutex следующим образом : объявление Public Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA"(ByVal lpMutexAttributes As Integer, ByVal bInitialOwner As Integer, ByVal lpName As String) As Integer Public mutexvalue As Integer задание mutexvalue = CreateMutex(ByVal 0&, 1, "svershion")
VB Скачать Visual Basic 6.0 https://www.cyberforum.ru/ visual-basic/ thread1892665.html
Подскажите, плиз, где скачать нормальный, рабочий установочный файл Visual Basic 6.0??? Добавлено через 43 минуты Я имею ввиду официальную русскую версию за деньги. VB6 нужно - среда разработки. Студии 10 и выше не устраивают - они все под .net как я понял. Но форуме много аналогичных тем, но с ответом ни одной. Заранее спасибо! Добавлено через 3 минуты Народ, и очень буду благодарен,...
VB Строковые функции https://www.cyberforum.ru/ visual-basic/ thread1892503.html
Мне надо изменить код так, чтобы он смог работать с числами. Вот код: Private Sub Command1_Click() Dim s As String Dim fam As String Dim im As String Dim oth As String Dim d As String Dim n As String Dim m As String s = Trim(Text1.Text)
Как задать свои параметры RTF? VB
Подскажите пожалуйста как в RichTextBox задать текст в ртф формате по своему (с нуля, начиная с заголовка)? Дело в том, что я задаю текст в свойство TextRTF, но оно не задает заголовок и другие опции: Вот ртф, который я задаю: {\rtf1 Привет! \par {\i Это} некий отформатированный {\b текст}.\par } А в итоге в RTB.TextRTF содержится такой текст:
VB С наступающим Новым годом 2017 Поздравляю с наступающим Новым годом! Желаю, чтобы все невзгоды и заботы остались в уходящем году. Пусть Новый год войдет в нашу жизнь бурей положительных эмоций, радости и исполнившихся желаний. Желаю всем здоровья, любви, достатка и невероятных впечатлений от каждого грядущего дня! https://www.cyberforum.ru/ visual-basic/ thread1891884.html
VB Шар по траектории! https://www.cyberforum.ru/ visual-basic/ thread1891023.html
Нужно написать программу, чтобы шар двигался по такой траектории. Не могу понять, что и как делать. Могу заставить шар двигаться шар с края в край, только, что надо не получается. Помогите, пожалуйста!
VB Проверить истинность высказывания: "Все цифры данного числа различны"
Дано трехзначное число. Проверить истинность высказывания: "Все цифры данного числа различны"
VB String. Исправьте ошибку Дана строка. Если она представляет собой запись целого числа, то вывести 1, если вещественного (с дробной частью) — вывести 2; если строку нельзя преобразовать в число, то вывести 0. Считать, что дробная часть вещественного числа отделяется от его целой части десятичной точкой «.». Вот так выглядит в Pascal var s:string; r:real; t,c:integer; begin write('s='); readln(s); https://www.cyberforum.ru/ visual-basic/ thread1890958.html VB Cтрока: Удалить из строки S первую подстроку, совпадающую с S0. https://www.cyberforum.ru/ visual-basic/ thread1890815.html
Даны строки S и S0. Удалить из строки S первую подстроку, совпадающую с S0. если совпадающих подстрок нет, то вывести строку S без изменений. Пожалуйста, помогите сделать эти задания, в паскале их с потом сделал, а тут еще в бейсике надо сделать, где не знаю команды с типом string.
Массивы VB
1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка . Найти произведение элементов, имеющих четное значение. 2. Вывести индексы тех элементов, значения которых по модулю меньше заданного числа А. 3. Определить, есть ли в данном массиве положительные элементы, делящиеся на заданное число k с остатком 2.
VB Проверить, образуют ли элементы массива геометрическую прогрессию https://www.cyberforum.ru/ visual-basic/ thread1890677.html
2)Дан массив ненулевых целых чисел размера N. Проверить, образуют ли его элементы геометрическую прогрессию. Если образуют, то вывести знаменатель прогрессии, если нет — вывести 0.
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
04.01.2017, 15:50 0

Удвоение букв - VB - Ответ 9969801

04.01.2017, 15:50. Показов 1451. Ответов 17
Метки (Все метки)

Ответ

Visual Basic
1
2
3
4
5
6
s = "12345"
s1 = ""
For i = 1 To Len(s)
s1 = s1 + Mid(s, i, 1) + Mid(s, i, 1)
Next i
Text5 = s1


Вернуться к обсуждению:
Удвоение букв VB
2
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.01.2017, 15:50
Готовые ответы и решения:

Удвоение букв
Задание: Ввести строку длиной до 70 символов. Вывести на печать все слова, в которых встречается...

Как заменить удвоение букв в словах на одинарные?
Нужно при помощи встроенных функций PHP заменить удвоение на одну букву. Например: есть есть...

Напечатать слова в которых есть удвоение букв
Напечатать те слова из введенного предложения, в которых есть удвоение букв, или вывести сообщение...

Найти удвоение согласных букв с использованием RegExp
Здравстуйте, у меня такая задача: есть текст в тегах <p>Текст</p> . Нужно с помощью регулярных...

17
04.01.2017, 15:50
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.01.2017, 15:50
Помогаю со студенческими работами здесь

Составить программу, которая находит слова, имеющие удвоение букв
Помогите решыть задачу.Дано строку. Составить программу, которая находит слова, имеющие удвоение...

Вывести все слова строки, в которых есть удвоение букв
Помогите написать программу которая выводит все слова из строки в которых есть удвоение букв, а...

Вывести все слова строки, в которых есть удвоение букв
Здравствуйте! Задание в сабже. Ввожу в TextBox1 строку, а в итоге нужно получить список слов с...

В строку S2 перенести все слова, которые имеют удвоение букв
Ввести с клавиатуры строку S1 длиной до семидесяти символов. В строку S2 перенести все слова...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru