Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VB Поиск и замена текста в файле Добрый день помогите написать программу для поиска и замены текста в файле. файл находиться по адресу C:\test.txt. и можно ли файл с *.v8i производить такие действия(файл открывается в блокноте ) ? https://www.cyberforum.ru/ visual-basic/ thread1075388.html Поиск файлов по маске VB
Здравствуйте! Изучаю vba. Дали задание сделать поиск файлов по маске. Посмотрите пожалуйста, может что нибудь надо доработать. ФОрма Private serch As New serch Private Sub CommandButton1_Click() On Error GoTo Errors1 Dim i As Integer serch.raspol = textbox1.Text serch.mask = textbox2.Text
VB VBS ПОЗДРАВЛЕНИЕ Добрый день, участники форума! Хочу реализовать простой скрипт для поздравления девушки с 14 февраля.То есть чтобы он сам запустился в этот назначенный день, вывел окно с поздравлением и фото по возможности https://www.cyberforum.ru/ visual-basic/ thread1074606.html VB Как проверить существует ли файл // папка Как проверить существует ли файл // папка Раньше я использовал библиотеку Scripting и классы FileSystemObject (FSO) и Dictionary (Dic) так вот, можно обойтись без них ) Public Function FileExists(ByVal PathName$) As Boolean 'Возврат утверждения наличия файла On Error Resume Next https://www.cyberforum.ru/ visual-basic/ thread1074388.html
VB Дескриптор любого контрола
Как в Visual Basic 6.0 узнать дескриптор любого контрола? У некоторых контролов есть свойство hwnd, но оно есть не у всех. Мне необходимо узнать hwnd таких контролов, как Image, ShockwaveFlash и др. В Google нашёл, что это делается с помощью API FindWindowEx, но найдённые примеры с помощью этой API работают только для тех контролов, у которых есть свойство hwnd...
VB Выровнять текст по ширине в RichTextBox Каким методом в VB 6.0 можно ПРОГРАММНО выровнять текст по ширине в RichTextBox' е? (Microsoft Rich Textbox Control 6.0 (SP6)) https://www.cyberforum.ru/ visual-basic/ thread1074290.html
VB циклы, вычислить примеры короче, выбирайте выражения VB вообще не проходили и его только установил вообще без понятия что там да как, разбираюсь только в Delphi, вообще не понимаю как нам дают такие задания... Первая картинка была дана как пример а на второй вот примеры которые надо решить Вычислить значение выражения. Исходные данные задать самостоятельно, в программе должно быть не менее 3-4 циклов. Часть 1.... https://www.cyberforum.ru/ visual-basic/ thread1074116.html VB Работа с временными таблицами в VB6.0 + MS Access 20*
Добрый день, формучане. Во время реализации проекта по разработке базы данных склада на Visual Basic 6.0 + MS Access, возникла ситуация, когда было бы эффективным применение способа использования временной таблицы. Из БД Аксесс, из таблицы MIGO считываются строки и полученные строки нужно записать в временную таблицу, например, LT_MIGO. Потом в этой таблице происходит модификация данных...
VB Как вычислить рекуррентное выражение с заданной точностью Дано действительное число X. Получив рекуррентные выражения для вычисления элементов ряда и их суммы, написать программный код процедуры-подпрограммы для вычисления (рис. 1) с заданной точность и программный код событийной процедуры. https://www.cyberforum.ru/ visual-basic/ thread1073700.html VB подскажите Может кто решить эти задачи срочно нужно Спасибо. 4.3. Создавайте темы с осмысленными и понятными названиями - это серьезно повышает шансы, что на ваш вопрос ответят. 4.4. На каждый вопрос создавайте по одной теме - это помогает избежать путаницы в ответах и облегчает поиск. 4.7. Как можно более полно описывайте суть проблемы или вопроса, что было сделано для ее решения и какие результаты... https://www.cyberforum.ru/ visual-basic/ thread1073394.html
VB Отправка SMS (beeline)
Всем доброго время суток. Столкнулся с проблемой. Нужно "от билайна" организовать рассылку СМС. Через браузер данный функционал я реализовал (если кому интересно обращайтесь). Но "серверно" решить эту задачу у меня пока не получается. Хелп плиз. вот исходник (с мира по нитке) Private Function SESend_SMS(ByVal sms_username As String, _ ByVal sms_password As String,...
VB Страны и столицы с отдельным txt https://www.cyberforum.ru/ visual-basic/ thread1073219.html
Есть код в VB6 страны и столицы "вшиты" в программу(что-бы добавить или удалить надо лезть в код) надо переписать когд, что бы был txt-шник, в нем страны и столицы. надо чтоб введенная столица совпадала со страной помогите пожалуйста. Option Explicit Option Compare Text ' Регистр не будем учитывать Const n As Integer = 5 ' Количество вопросов Dim Question(1 To n) As String ' Вопросы...
5 / 5 / 6
Регистрация: 26.03.2012
Сообщений: 27
29.01.2014, 13:04 0

Напечатать процент людей от общего количества писавших работу, которые написали работу лучше этого человека - VB - Ответ 5709644

29.01.2014, 13:04. Показов 1603. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено The trick как решение

Решение

Visual Basic
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
Dim c As Integer, N As Integer, M(101) As Integer, rez As Integer, proc As Integer, str As String, kol As Integer
 
Private Sub Form_Load()
kol = 101
 
For c = 1 To kol
str = "îöåíêà " & c
str = str + " èñïûòóåìîãî:"
M(c) = InputBox(str)
Next c
rez = InputBox("ââåäèòå îöåíêó äëÿ ñðàâíåíèÿ")
 
N = 0
For c = 1 To kol
If M(c) > rez Then N = N + 1
Next c
 
proc = 100 * N / kol
 
If N <> 0 Then
MsgBox proc & "% íàïèñàëè ëó÷øå"
Else: MsgBox ("íèêòî íå íàïèñàë ëó÷øå")
End If
 
End Sub


Вернуться к обсуждению:
Напечатать процент людей от общего количества писавших работу, которые написали работу лучше этого человека VB
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.01.2014, 13:04
Готовые ответы и решения:

Посчитать, сколько учеников написали контрольную работу на положительную оценку
В 9в классе была проведена контрольная работа по программированию. Оценки были разные: и 2-ки, и...

Определить, сколько учеников написали контрольную работу на положительную оценку
1.В 8а классе была проведена контрольная работа по программированию. Оценки были разные: и 2-ки, и...

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

Для каждой оценки программа должна вычислить процент от общего количества оценок.
Написать программу, которая обрабатывает результаты единого экзамена (случай- ные числа от 0 до...

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

Подсчитать процент выхода на работу.
Люди подумайте как можно сделать программу: Имеется учет ежедневных выходов на работу п = 10...

Определить, какой процент от общего количества слов составляют слова, имеющие менее трех букв
Дана строка символов. Группа символов, разделенная пробелами и не содержащая пробелов внутри себя,...

Определить, какой процент от общего количества слов составляют слова, имеющие более шести букв
Дана строка символов. Группа символов, разделенная пробелами и не содержащая пробелов внутри себя,...

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

Найти процент количества четных элементов массива А от общего количества четных элементов в массивах A и B.
даны 2 целочисленных массива разной размерности А и В. Определить какой процент составляет...

Подсчитать процент букв «а» в первом слове строки от общего количества букв «а» в тексте
Подсчитать процент букв «а» в первом слове строки от общего количества букв «а» в тексте.

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