Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Visual Basic (VB).

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61

Открыть новую тему     Написать ответ в эту тему

NEOMATRIX



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору


Данный топик предназначен только для обсуждения типовых задач на Visual Basic.
Обсуждение задач на VBA (а именно, Excel, Word, Access) строго запрещено!
Пишите в соответствующих топиках.

 
Родственные топики:
  • Excel VBA - часть 1, часть 2 - все вопросы по Excel VBA туда
  • Word VBA все вопросы по Word VBA туда
  • Access все вопросы по программированию в Access туда
  • VBScript - программирование "удобняшек" на VBScript
  • QBasic - типовые задачи на QBasic
     
  • Date Time Functions In Visual Basic
  • VB6's Trig, Math, Financial, Boolean, and Random functions
  • Visual Basic 6 String Functions
  • VB6 Number System Functions (Hex, Oct, Etc)
  • VB6's DateAdd function
     
  • Functions (Visual Basic)
  • Keywords and Members by Task
  • Visual Basic Reference
     
  • Visual Basic String Manipulation Tutorials
     
  • Top 10 Visual Basic Sins

     
    Учебники:
    Visual Basic для студентов и школьников. Культин Н. (2010)
    Занимательное программирование на Visual Basic.NET. Климов А. (2005)
    Visual Basic в задачах и примерах. Сафронов (2009)
    Visual Basic 2012 на примерах. Зиборов В. (2012)

  • Всего записей: 202 | Зарегистр. 29-12-2004 | Отправлено: 19:30 16-11-2005 | Исправлено: XPerformer, 10:07 28-10-2014
    Alyonyshka92

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ПОМОГИТЕ ПОЖАЛУЙСТА С ЗАДАНИЯМИ!!!!!!!
    1.  Дана символьная строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы.
    2.  Составить программу, которая в массив- A[1..N] находит второе по величине число (т.e. вывести на печать число, которое меньше максимального элемента массива, но больше всех других элементов).
    3.  Два простых числа называются «близнецами», если они отличаются друг от друга на 2 (например, 41 и 43). Напечатать все пары «близнецов» из отрезка [n, 2n], где n — заданное натуральное число больше 2
    4.  В трех колхозах выращивают некоторые сельскохозяйственные культуры из имеющегося перечня. Определить культуры, возделываемые во всех колхозах; возделываемые хотя бы в одном колхозе; только в двух колхозах.
    5.  Среди работников данного предприятия найти тех, чья заработная плата за месяц является ниже средней по предприятию, а также распечатать список тех, кто проработал на предприятии более 10 лет с указанием их фамилии, зарплаты, стажа работы и должности.
    6.  Дан файл, содержащий различные даты. Каждая дата — это число месяц и год. Найти все весенние даты.

    Всего записей: 1 | Зарегистр. 31-05-2010 | Отправлено: 21:02 31-05-2010
    alisadudina

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Помогите, пожалуйста, решить простенькие задания, я просто в программировании вообще не понимаю, а сдать в четверг уже надо
    1. . Создайте процедуру типа Sub, которая рассчитает и запишет в третью строку таблицы отношения численности населения Свердловской области (для всех приведенных в таблице годов) к численности населения в 2000 году. Обязательно используйте цикл For – Next.
    Таблица. Численность населения Свердловской области (в тыс. чел.)
    2000 год    2001 год    2002 год    2003 год    2004 год    2005 год
    4546    4514    4478    4448    4428    4410
                        
    2.    Создайте процедуру (типа Sub). Объявите в ней два массива: первый массив типа Single, который состоит из пяти элементов, пронумерованных от 1 до 5; второй массив типа Integer, который состоит из тридцати элементов, пронумерованных от 1 до 30.
    Присвойте пяти элементам первого массива произвольные, но различные значения, а элементам второго массива – значения, совпадающие с их номерами.
    Используя оператор Debug.Print выведите (напечатайте) в окне Immediate со-держимое элемента первого массива, индекс которого равен сумме первого и третьего элементов второго массива.
    3.     Создать функцию рабочего листа, которая сравнивает два числа (записанные в двух произвольных ячейках рабочего листа) и возвращает слово Больше, если первое число больше или равно второму, и слово Меньше, если первое число меньше второго.

    Всего записей: 1 | Зарегистр. 30-05-2010 | Отправлено: 17:42 01-06-2010
    kakoc

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    не туда

    Всего записей: 77 | Зарегистр. 31-08-2003 | Отправлено: 06:39 15-06-2010 | Исправлено: kakoc, 02:58 16-06-2010
    VadimProhorchukVasul

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Помоги сделать пожалуйста спасибо!Вводится текст,представляющий собой оператор присваивания.В арифметическом выражении которого отсутствуют скобки.Проверить:
    a. не начинается ли индентификатор оператора с целого числа;
    b. нет ли пробелов в имени переменной;
    c. следуют ли за переменной знаки <<:=>>;
    d. нет ли в выражении подряд записанных двух и больше операций;
    e. не заканчивается ли выражение арифметической операцией.На языке Visual Basic.Срочно надо спасибо.

    Всего записей: 6 | Зарегистр. 23-04-2010 | Отправлено: 19:27 18-06-2010
    Party13131313

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ребят,помогите пожалуйста решить задачу
    заданы натуральные числа M и N.нужно определить период десятичной дроби M/N на VBA.

    Всего записей: 1 | Зарегистр. 22-06-2010 | Отправлено: 19:34 22-06-2010
    h1ka

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    готов оплатить работу специалиста по экспорту таблиц из бд программы subaru fast (http://forum.ru-board.com/topic.cgi?forum=33&bm=1&topic=10859#1)
     
    ccылка на прогу http://forum.parts.in.ua/uploads/subaru.rar

    Всего записей: 29 | Зарегистр. 18-11-2008 | Отправлено: 12:46 23-06-2010
    akvaaa

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    помогите пожалуйста сделать две задачки
    1.В веденной строке вывести на экран все слова которые начинаются на букву которая введена с клавиатуры
     
    2.Удалить из строки все вхождения заданного слова.

    Всего записей: 1 | Зарегистр. 23-06-2010 | Отправлено: 18:00 23-06-2010
    musicstashall

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Ребята, покажите мне пожалста, как в Visual Basic написать путь до пользовательской папки temp?
    Имею ввиду вот это: ABC = Environ ("TMP"), но как определить правильно и в пути написать, не знаю.
    Вот мне нужно, например, запустить приложение из папки temp:
    Код:
    Shell("TEMP\Button_1x32.exe")
    , как правильно написать?

    Всего записей: 147 | Зарегистр. 06-05-2009 | Отправлено: 10:35 25-06-2010 | Исправлено: musicstashall, 21:30 25-06-2010
    19lex91

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    помогите пожалуйста в VB написать прогу которая должна решать пример (2*b - ln(a + b)*c)/(c/4 - 1) при подставлении значений a b и c
    очень надеюсь на вашу помощь

    Всего записей: 1 | Зарегистр. 25-06-2010 | Отправлено: 17:31 25-06-2010 | Исправлено: 19lex91, 17:32 25-06-2010
    blaro



    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    19lex91
    Не понимаю, что здесь сложного

    Код:
     
    Sub Main()
            Dim a, b, c, res As Double
            a = 10
            b = 5
            c = 28
            res = (2 * b - Math.Log10(a + b) * c) / (c / 4 - 1)
     
        End Sub
     

    Всего записей: 311 | Зарегистр. 29-01-2006 | Отправлено: 17:40 25-06-2010 | Исправлено: blaro, 17:40 25-06-2010
    musicstashall

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Скажите, а есть ли способы отображать на форме bmp x32 изображения с альфа каналом, чтобы вместо черного фона была прозрачность? У меня кнопочки в bmp x32.

    Всего записей: 147 | Зарегистр. 06-05-2009 | Отправлено: 13:58 26-06-2010 | Исправлено: musicstashall, 13:59 26-06-2010
    YumYum



    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Подскажите, как можно написать следующий скрипт:
    1) A и B числа, показать сумму всех целых чисел в районе этих цифр ( скажем А = 2, В = 5, Сумма = 14. (2+3+4+5)
    2) Показать знаменатель нечетных чисел в этом промежутке ( А= 2, И= 5, Знаменатель = 15 (3*5=15)
    A<B
    Если пользователь вводит дробную или же A>В то нужно спросить его заново.

    Всего записей: 7 | Зарегистр. 17-04-2010 | Отправлено: 19:43 06-07-2010 | Исправлено: YumYum, 23:00 06-07-2010
    blaro



    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    YumYum
    Держи студент

    Код:
     
    Dim a, b, i, sum, mul As Integer
            sum = 0
            mul = 1
    l1:
            Console.WriteLine("Enter first number")
            a = Integer.Parse(Console.ReadLine())
            Console.WriteLine("Enter second number")
            b = Integer.Parse(Console.ReadLine())
            If (a > b) Then
                GoTo l1
            Else
                For i = a To b
                    If (i Mod 2 <> 0) Then
                        mul = mul * i
                    End If
                    sum += i
                Next
            End If
            Console.WriteLine("sum of numbers: {0}", sum)
            Console.WriteLine("Mul of numbers : {0}", mul)
            Console.ReadLine()
     

    Всего записей: 311 | Зарегистр. 29-01-2006 | Отправлено: 20:22 06-07-2010
    YumYum



    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    blaro
    Благодарю.
    Хотелось еще добавить, чтобы скрипт именно под консоль был заточен, а не GUI.

    Всего записей: 7 | Зарегистр. 17-04-2010 | Отправлено: 20:34 06-07-2010 | Исправлено: YumYum, 23:00 06-07-2010
    blaro



    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    YumYum
    Это и есть консольный вариант

    Всего записей: 311 | Зарегистр. 29-01-2006 | Отправлено: 20:35 06-07-2010
    Unix



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Кто подскажет как сделать скрипт чтобы:
    Пользователь вводил число и введенному числу строились ступеньки?
    Как на примере:
       
     

    Всего записей: 2411 | Зарегистр. 08-12-2002 | Отправлено: 22:18 06-07-2010 | Исправлено: Unix, 22:19 06-07-2010
    blaro



    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Unix
    Вот

    Код:
     
    Dim i, j, stairs, k As Integer
            Dim stair As String
            stair = "---"
            k = 0
            Console.WriteLine("Enter number of stairs")
            stairs = Integer.Parse(Console.ReadLine())
            Console.WriteLine(stair)
            While (i < stairs - 1)
                k += stair.Length
                For j = stair.Length To k + 1
                    Console.Write(" ")
                Next
                Console.WriteLine("|")
                For j = stair.Length To k + 1
                    Console.Write(" ")
                Next
                Console.WriteLine(stair)
                i += 1
            End While
            Console.ReadKey()
     


    Всего записей: 311 | Зарегистр. 29-01-2006 | Отправлено: 23:17 06-07-2010
    Unix



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    blaro
    Благодарю, работает на ура.
    Еще есть вопрос.
    Есть еще варианты как можно этот жеж самый скрипт написать?

    Всего записей: 2411 | Зарегистр. 08-12-2002 | Отправлено: 20:29 07-07-2010 | Исправлено: Unix, 20:29 07-07-2010
    blaro



    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Unix
    Переведи это все в рекурсию, например.

    Всего записей: 311 | Зарегистр. 29-01-2006 | Отправлено: 20:33 07-07-2010
    duh_S

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    подскажите плз: нужно посылать на выходы ком-порта определенные данные (постоянные), получилось нечто вроде этого:
     

    Код:
     
    Private Sub Form_Activate()
     
            MSComm1.CommPort = 1
            MSComm1.Settings = "115200,N,8,1"
            MSComm1.PortOpen = True
            MSComm1.RTSEnable = True
            MSComm1.DTREnable = True
     
    Call ComPortOut
    Call ComPortOutClear
    End Sub
     
    Sub ComPortOut()
     
        MSComm1.DTREnable = True
        MSComm1.RTSEnable = False
        MSComm1.DTREnable = False
         
        MSComm1.DTREnable = True
        MSComm1.RTSEnable = True
        MSComm1.DTREnable = False
         
        MSComm1.DTREnable = True
        MSComm1.RTSEnable = False
        MSComm1.DTREnable = False
         
        MSComm1.DTREnable = True
        MSComm1.RTSEnable = True
        MSComm1.DTREnable = False
         
        MSComm1.DTREnable = True
        MSComm1.RTSEnable = True
        MSComm1.DTREnable = False
         
        MSComm1.DTREnable = True
        MSComm1.RTSEnable = True
        MSComm1.DTREnable = False
         
        MSComm1.DTREnable = True
        MSComm1.RTSEnable = True
        MSComm1.DTREnable = False
         
        MSComm1.DTREnable = True
        MSComm1.RTSEnable = True
        MSComm1.DTREnable = False
         
        MSComm1.Output = Chr(1)
     
    End Sub
     
    Sub ComPortOutClear()
     
        MSComm1.DTREnable = True
        MSComm1.RTSEnable = False
        MSComm1.DTREnable = False
         
        MSComm1.DTREnable = True
        MSComm1.RTSEnable = False
        MSComm1.DTREnable = False
         
        MSComm1.DTREnable = True
        MSComm1.RTSEnable = False
        MSComm1.DTREnable = False
         
        MSComm1.DTREnable = True
        MSComm1.RTSEnable = False
        MSComm1.DTREnable = False
         
        MSComm1.DTREnable = True
        MSComm1.RTSEnable = False
        MSComm1.DTREnable = False
         
        MSComm1.DTREnable = True
        MSComm1.RTSEnable = False
        MSComm1.DTREnable = False
         
        MSComm1.DTREnable = True
        MSComm1.RTSEnable = False
        MSComm1.DTREnable = False
         
        MSComm1.DTREnable = True
        MSComm1.RTSEnable = False
        MSComm1.DTREnable = False
         
        MSComm1.Output = Chr(1)
     
    End Sub
     

     
    тут MSComm1.RTSEnable это сами данные а MSComm1.DTREnable - импульсы их записи...
     
    но это все дело привязано к форме, а нужно чтоб прога просто запускалась без окна и отправляла несколько байт...
     
    и еще: как запустить из командной строки и передать ей номер порта?

    Всего записей: 66 | Зарегистр. 28-08-2007 | Отправлено: 17:04 09-09-2010 | Исправлено: duh_S, 17:07 09-09-2010
    Открыть новую тему     Написать ответ в эту тему

    Страницы: 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 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61

    Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Visual Basic (VB).


    Реклама на форуме Ru.Board.

    Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
    Modified by Ru.B0ard
    © Ru.B0ard 2000-2024

    BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

    Рейтинг.ru