Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Visual Basic .NET Найти произведение положительных и отрицательных элементов массива Р1 и Р2 https://www.cyberforum.ru/ vb-net/ thread591407.html
Буду очень благодарен кто мне поможет!!! Дан массив Xi, i=1, 2....15.Найти произведение положительных и отрицательных элементов массива Р1 и Р2.Вычеслить С=Р1-Р2^2 Составить схему вычисления и...
Сосчитать количество элементов DataGridView Visual Basic .NET
Требуется сосчитать количество элементов по введенному параметру и закрасить, вот мой код, но он закрашивает, но не считает. Dim a As Integer Try For i = 0 To...
Visual Basic .NET Сохранить измененную картинку https://www.cyberforum.ru/ vb-net/ thread591127.html
В PictureBox я добавляю картинку и кистью рисую по картинке и хочу ее сохранить, но не знаю как это сделать.
Visual Basic .NET Лаунчер для игры: сделать авторизацию, запуск клиента, показ скина, и показ личного счета https://www.cyberforum.ru/ vb-net/ thread591057.html
Доброго времени суток ! Я создаю лаунчер одной игры( Minecraft ) Можете ли вы мне помочь с этим? Мне надо сделать авторизацию, запуск клиента, показ скина, и показ личного счета. P.S.Игра...
Программно выровнять контролы на форме Visual Basic .NET
приветы всем. на форме имеется TexBox, а под ним ComboBox. как программно выровнять центры по горизонтали этих двух элементов (TexBox относительно ComboBox)???
Visual Basic .NET Добавить конструктор класса в приведенный код Программа рабочая, попросили добавить в код "Конструктор класса". Помогите пожалуйста Option Strict On Option Explicit On Module module1 'объявление класса Public vv As New Class1 ... https://www.cyberforum.ru/ vb-net/ thread590862.html
Visual Basic .NET Переход на новую строку в листбокс https://www.cyberforum.ru/ vb-net/ thread590751.html
Public Function frmAnalyze1() As String Dim Minimal As Single Minimal = FindMinimalSalary() Dim strResult As String strResult = " " For Each W In Workers...
Visual Basic .NET Анимированный кит на анимированной воде
Напишите пожалуйста, программу для анимированного кита.что бы вода у него сверху была анимированной!СРОЧНО!ПОМОГИТЕ ,ПОЖАЛУЙСТА!!!
Visual Basic .NET Проверка обновлений программы при запуске и запрос на это самое обновление https://www.cyberforum.ru/ vb-net/ thread590421.html
подскажите пожалуйста, как реализовать следующие функции в программе: 1. Мини-чат ( небольшое окошечко , где можно было бы пообщаться. На MySQL) 2. Рейтинг ( есть например, форма(назовем ее...
Visual Basic .NET Подключение библиотеки dll на других компьютерах https://www.cyberforum.ru/ vb-net/ thread590165.html
У меня такая проблемка. Создал проект подключил к ней библиотеку которая есть у всех систем виндовс включил программу проверил все ок работает. Потом комплектую и кидаю другу, и у него вылазиеет...
Определить входит ли текст в заданный размер Visual Basic .NET
У меня текст из текстового файла записывается в CheсkBox и Label, AutoSize - false, размер определенного размера и изменить нельзя. Но текст иногда не влезает в этот размер. Вопрос вот в чем: можно...
Visual Basic .NET Подтверждение закрытия программы https://www.cyberforum.ru/ vb-net/ thread589669.html
Друзья! Подскажите, кто в курсе: как сделать так, чтобы при закрытии программы стандартным крестиком в правом углу формы появлялся MsgBox диалога? Нужно для того, чтобы спросить пользователя -...
10 / 10 / 0
Регистрация: 05.12.2011
Сообщений: 182
30.05.2012, 22:41 0

Пользователь вводит массив из n чисел, посчитать количество чисел больших 2 - Visual Basic .NET - Ответ 3104467

30.05.2012, 22:41. Показов 1474. Ответов 1
Метки (Все метки)

Ответ

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Module Module1
 
    Sub Main()
        Dim arr() As Integer
        Dim s As Integer = 0
        Dim n As Integer = CInt(Input("Введите кол-во эл-тов в массиве: "))
        ReDim arr(n - 1)
 
        For i As Integer = 0 To arr.GetUpperBound(0)
            arr(i) = CInt(Input("Введите значение ячейки № " & i + 1 & ": "))
            If arr(i) > 2 Then s += 1
        Next
 
        Console.WriteLine("В массиве {0} чисел больше 2", s)
        Console.Read()
 
    End Sub
 
    Function Input(ByVal msg As String) As String
        Console.Write(msg)
        Return Console.ReadLine
    End Function
 
End Module
Вот. Схемку сам рисуй. Не царское это дело

Вернуться к обсуждению:
Пользователь вводит массив из n чисел, посчитать количество чисел больших 2 Visual Basic .NET
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.05.2012, 22:41
Готовые ответы и решения:

Найти сумму целых нечетных чисел из [N,M]. N,M вводит пользователь
1. Проект состоит из двух форм. Первая форма – заставка. Вторая – визуализация решения задачи....

Пользователь вводит 5 чисел. Расположить числа в массиве по возрастающей
Module Module1 Sub Main() Dim i, a(5) As Integer, u As Integer, j As Integer ...

Посчитать количество четных чисел из 21, что вводит пользователь
Посчитать количество парных чисел из 21 что вводит пользователь.

Пользователь вводит 10 чисел, посчитать и вывести количество нечетных
пользователь вводит 10 чисел посчитать и вывести количество нечетных/ Как написать программу на...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.05.2012, 22:41

Пользователь вводит массив из целых чисел. Найти:количество чисел с максимальной цифрой 6
Пользователь вводит массив из целых чисел. Найти:количество чисел с максимальной цифрой 6. ...

Repeat Until. Пользователь вводит несколько чисел, а программа выводит количество отрицательных чисел
Repeat Until. Пользователь вводит несколько чисел, а программа выводит количество отрицательных...

Посчитать количество чисел, больших 0 и меньших N, сумма чисел которых и их реверс являются палиндромом
объясните пож не совсем понимаю задание

Сформировать массив с 6-ти целых чисел. Подсчитать количество чисел больших 0. Найти самое большое число
1). Сформировать массив с 6-ти целых чисел. Подсчитать количество чисел больших 0. Найти самое...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.