Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VB Не могу понять нужно составить несколько строк программы которые описывали б эти действия: 1)посчитать среднее значение У (игриков) 2)посчитать кол-во эл-тов > среднего 3) высчитать сумму квадратов эл-тов < среднего... умоляю, срочно :( https://www.cyberforum.ru/ visual-basic/ thread202310.html Очень долгая загрузка текстового файла VB
Всем привет! Сразу хочу оговориться, что VBA я только начал изучать. Возникла следующая проблемка - если загрузить текстовый файл (в районе нескольких сотен килобайт) в переменную типа string, то он загружается непозволительно долго - около 5-7 минут. Вот сам код "проблемного" участка: CommonDialog1.ShowOpen On Error Resume Next Open CommonDialog1.FileName For Input As #1 Do Until EOF(1) ...
VB Необходим совет профессионального математика или программиста https://www.cyberforum.ru/ visual-basic/ thread202039.html
Существует следующая задача, которую необходимо решить в Exel или VBA или C++ или C# (на крайний случай в др.среде): Состоит таблица следующего вида (скриншот, прикрепленный файл Exel). Как можно сделать так, чтобы Exel-ем или программным кодом выбирались промежутки наиболее выгодные (плюсовые) и при этом не накладывались друг на друга и самое главное чтобы можно было ставить условие: 1) не...
VB Сортировка массива https://www.cyberforum.ru/ visual-basic/ thread201919.html
Здраствуйте. Прошу помощи в написании кода для сортировки фамилий по алфавиту и в случайном порядке. Мне подсказали что это можно сделать с помощью массива... вот только как я незнаю... Помогите кто может!:scratch: Добавлено через 1 час 21 минуту вот код сортировки по алфавиту, первые 2 команды загружают из файла алфафит (1 команда) и 2 команда загружает сами фамилии, начиная с 3-ей команды...
VB Двумерные массивы
Помогите пожалуйста сделать программу на VB 6.0, которая находит минимальный элемент диагонали матрицы. У меня получилось сделать для одномерного (нахождение минимального элемента), но с двумерными проблемы. Заранее спасибо
VB Нужна книга по Visual Basic 6.0 https://www.cyberforum.ru/ visual-basic/ thread201755.html
Доброго времени суток ! Нужно вспомнить Visual basic. Уважаемые подскажите где скачать книгу Использование Visual Basic 6 в формате PDF. Найти не смог и купит эту книгу уже нет возможности. Зарание спасибо
VB Возвращение факториала аргумента https://www.cyberforum.ru/ visual-basic/ thread201677.html
Добрый день. Задание: Написать на VBA функцию, которая возвращает факториал аргумента. Моя программа почему то ругается на ошибку: Private Sub CommandButton1_Click() Dim A As Single A = TextBox2.Value TextBox4.Text = factorial(A) End Sub Function factorial(ByVal A As Integer) As Integer If A <= 1 Then Return 1
Снежинка VB
Парни выручите...надо написать прогу... 1. Разработать программу, которая обеспечивает рисование снежинки, число звеньев и количество ветвей которой задаются пользователем.
VB Генерация чисел выбор рандомом и построение графика https://www.cyberforum.ru/ visual-basic/ thread201589.html
Помогите пожалуйста очень нужно к курсовику Очень давно програмировал на VB, и уже вообще ничего не помню А сейчас нужно срочно написать программу суть программы такова генерируется 10 чисел(от 1 до 1024) которые должны быть выведены на экране при нажатии на кнопку "сгенерировать номера цилиндров" числа должны быть выбраны в случайном порядке и выведены на экран например сгенерировались...
VB Составить программу, которая позволяет игроку найти выход из лабиринта https://www.cyberforum.ru/ visual-basic/ thread201519.html
Составить программу, которая позволяет игроку найти выход из лабиринта. Условия: 1) пусть прямоугольное клеточное поле (размером NxN, число N определяются при помощи генератора случайных чисел или зависит, оно должно быть больше 10) ограничено препятствиями; 2) кроме того, случайным образом на поле задается произвольная система препятствий, начальная клетка и конечная клетка; 3) при попытках...
Изменить программу VB
Помогите пожалуйста. Нужно сделать в программе что бы квадратик при столкновении со сферой уничтожался, а сфера отталкивалась от него и что бы при столкновении сферы со сферой ничего не происходило.
VB Изменение текстового документа в ВБ 6 Задание 1. 1. Открыть файл для ввода. 2. Прочитать из файла строку и сохранить ее в текстовой переменной. 3. Добавить содержимое переменной в элемент управления списком ListBox. 4. Повторите пп .. 2-3 для каждой строки файла. 5. Закройте файл. Задание 2. 1. Открыть файл для ввода в режиме Append. 2. С помощью операторов: Print #, Write # осуществите запись информации. 3. Результат... https://www.cyberforum.ru/ visual-basic/ thread201356.html
3 / 3 / 0
Регистрация: 02.12.2010
Сообщений: 26
0

Преобразовать строку, удалив все символы, не являющиеся буквами или цифрами - VB - Ответ 1163484

02.12.2010, 21:40. Показов 1622. Ответов 11
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
есть задача: дана текстовая строка, состоящая из букв и цифр. Преобразовать строку, удалив все символы, не являющиеся буквами или цифрами, и заменив каждую большую букву одноименной малой. написал следующий код:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
private Sub Command2_Click()
Dim s As String
Dim a() As Integer
Dim s1 As String
s = InputBox("введите строку")
k = Len(s)
ReDim a(1 To k)
For i = 1 To k
a(i) = Asc(Mid(s, i, 1))
Next i
s1 = ""
For i = 1 To k
If (a(i) > 48) And (a(i) < 57) And (a(i) > 97) And (a(i) < 122) And (a(i) > 65) And (a(i) < 90) Then s1 = s1 & Chr(a(i))
'48-57 - код цифр от 0 до 9
'97-122 - код малых английских букв от a до z
'65-90 - код больших английских букв от A до Z
Next i
s1 = LCase(s1)
Print s1
End Sub
но, к сожалению, после выполнения программы в левом верхнем углу ничего не появляется, хотя там должна появиться строка s1. в чём же дело?

Вернуться к обсуждению:
Преобразовать строку, удалив все символы, не являющиеся буквами или цифрами VB
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.12.2010, 21:40
Готовые ответы и решения:

Преобразовать строку, удалив из нее все символы, не являющиеся буквами или цифрами
1. Дана строка символов. Преобразовать строку, удалив из нее все символы, не являющиеся буквами...

Преобразовать строку, удалив из нее все символы, не являющиеся буквами или цифрами
Дана строка символов. Преобразовать строку, удалив из нее все символы, не являющиеся буквами или...

Преобразовать строку, удалив из неё все символы, не являющиеся буквами или цифрами
Дана строка символов. Преобразовать строку, удалив из неё все символы, не являющиеся буквами или...

Обработка строк. Преобразовать строку, удалив из нее все символы, не являющиеся буквами или цифрами
Дана строка символов. Преобразовать строку, удалив из нее все символы, не являющиеся буквами или...

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

Преобразовать последовательность S1,...,Sn , удалив все символы, не являющиеся буквами или цифрами
Даны натуральное число n, символы S1,...,Sn. Преобразовать последовательность S1,...,Sn , удалив...

Преобразовать последовательность, удалив все символы, не являющиеся буквами и цифрами
здравствуйте, попалась мне задачка ваще подстава-подстав по символьному типу: Даны символы...

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

Преобразовать строку символов, удалив из нее все символы, не являющиеся буквами
доброе время суток,Уважаемые знатоки...собственно вопрос вот в чем:Дана строка символов....

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