|
|
Другие темы раздела | |
VB Вычислить значение функции по формуле Вычислить значение функции по формуле y=1 при x<1,y=0 при x=0,y=-1 при x<1 Помогите пожалуйста написать программу в VB6 https://www.cyberforum.ru/ visual-basic/ thread1072794.html |
почему-то не работает опция VB Коллеги, есть код: Dim drZip As New DirectoryInfo("c:\ArxivBase\zip\") Dim ZipSubFolders() = drZip.GetDirectories For Each k In ZipSubFolders k.Delete(recursive:=True) Next если есть вложенные подпапки c:\ArxivBase\zip\a1\b1\c1 - выбрасывает исключение, что папка a1 - не пустая ... ну, файлов в подпапках нет, все ветки пустые, я все... |
VB Математическое преобразование цвета
https://www.cyberforum.ru/ visual-basic/ thread1072347.html пытаюсь преобразовать цвет, полученный из интерфейса OLE_COLOR есло передовать его на прямую, то при передачи возникают ошибки переполнения если через RGB(R, G, B) то всё вроде правильно, только я не знаю как правильно преобразовать отрицательное число такого вида -2147483644 в три цифры цвета ниже мои попытки, в передачи свойств, и картинка результата Public Property Let DefColor(ByVal... |
VB Блок-схема помогите пожалуйста создать блок-схему для кода. Не представляю как это делать. Option Explicit Option Compare Text ' Регистр не будем учитывать Const n As Integer = 5 ' Количество вопросов Dim Question(1 To n) As String ' Вопросы Dim Country(1 To n) As String ' Страны Dim Capital(1 To n) As String ' Столицы Dim i As Integer Dim nQ As Integer https://www.cyberforum.ru/ visual-basic/ thread1072340.html |
VB Функция Winapi RegOpenKeyEx в vb6 Здравствуйте форумчане. Подскажите что я делаю не так. Xочу открыть ключ реестра, но функция RegOpenKeyEx выдает ошибку "6". Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long Private Sub Form_Load() Dim hregkey As Long ' дескриптор... |
VB Справочный файл
https://www.cyberforum.ru/ visual-basic/ thread1072069.html Хочу опубликовать свою работу, но для этого мне нужно будет сделать хорошую справку дело в том что стандартные средства MSDN у меня отсутствуют, зато есть средства Microsoft Office 2003 и средства DELPHY 7, может както можно с такой комбинацией средств, реализовать справочный файл в формате .hlp // .chm и тд и сделать, приличную, построенную структурно справку |
VB Как прочитать массив из файла? Дан файл нужно записать 270 элементов в однномерный массив начиная с 13 строчки https://www.cyberforum.ru/ visual-basic/ thread1071774.html |
VB Задача на двумерный массив Помогите дорешать Задача 2. 1. . Дан двумерный массив размером n*m, заполненный случайными числами. Найти среднее арифметическое элементов, принадлежащих первой строке, последней строке, первому столбцу и последнему столбцу. 2. Заполнить массив n*n по правилу: Dim b(20, 20) As Double Private Sub Command1_Click() Picture1.Cls n = InputBox("введите n") |
VB Задача на одномерный массив Помогите дорешать. Задача 1. 1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка . Найти сумму отрицательных элементов. 2. Найти количество тех элементов, значения которых положительны и не превосходят заданного числа А. 3. Найти номер последней пары соседних элементов с разными знаками. Dim A(100) As Double Private Sub Command1_Click()... https://www.cyberforum.ru/ visual-basic/ thread1071618.html |
VB Забить массив из файла в программу
https://www.cyberforum.ru/ visual-basic/ thread1071515.html Здравствуйте, программисты, проблема такая, дан файл нам, там массив вида: 120 145 365 156 222 145 122 789 589 357 123 456 147 258 369 159 753 456 852 982 задача такая: забить этот массив из файла текст.txt(там может быть больше строчек, столбцов - 5) в двумерный массив используя компонент MSFlexGrid. ниже код для кнопки, она создает массив рандомно, но... |
VB Определить номер последней прочитанной страницы.В чем ошибка? Татьяна, читая французский роман, подсчитала суму номеров прочитанных страниц. Обозначим эту сумму Q. Написать программу в Visual Basic 6.0, которая определяет номер последней прочитанной страницы Private Sub Command1_Click() Q = Val(Text1.Text) i = 1 S = 1 Do While S >= Q i = i + 1 S = S + i Loop |
VB Тест по странам и столицам. Исправить код
https://www.cyberforum.ru/ visual-basic/ thread1071335.html помогите исправить ошибки в коде что написано не правильно? (не выводит в первую текстовую форму вопросы) Option Explicit Option Compare Text ' Регистр не будем учитывать Const n As Integer = 5 ' Количество вопросов Dim Question(1 To n) As String ' Вопросы Dim Country(1 To n) As String ' Страны Dim Capital(1 To n) As String ' Столицы |
0 / 0 / 0
Регистрация: 20.02.2012
Сообщений: 37
|
|
16.01.2014, 13:57 [ТС] | 0 |
Как вывести в порядке невозрастания (убывания) элементы массива, модуль которых больше 2 - VB - Ответ 564747916.01.2014, 13:57. Показов 2092. Ответов 4
Метки (Все метки)
Ответ
и правда нагляднее)
Вернуться к обсуждению: Как вывести в порядке невозрастания (убывания) элементы массива, модуль которых больше 2 VB
0
|
16.01.2014, 13:57 | |
Готовые ответы и решения:
4
Вывести в порядке невозрастания (убывания) элементы массива, модуль которых больше 2 Вывести в порядке невозрастания (убывания) элементы, находящиеся в диапазоне между A и B Вывести на экран слова в порядке невозрастания (убывания) их длин Расположить в порядке убывания положительные элементы тех столбцов последний элемент которых больше заданного числа |
16.01.2014, 13:57 | |
16.01.2014, 13:57 | |
Помогаю со студенческими работами здесь
0
Вывести вначале элементы массива с нечетными номерами в порядке возрастания номеров, затем - элементы с четными в порядке убывания номеров Вывести элементы массива с нечетными номерами в порядке убывания номера Вывести элементы массива с нечетными номерами в порядке убывания номеров Вывести элементы массива с нечетными номерами в порядке убывания номеров |