Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VB Блокнот: как при закрытии определить, что в документе совершались изменения https://www.cyberforum.ru/ visual-basic/ thread566929.html
Ребята, помогите закрыть программу: Пишу блокнот Вот исходный код выход из программы: Private Sub Exit_Click() Dim msg2 As String Dim NomerFile2 As Integer If Text1.text = "" Then Unload Me Else
VB Создание блокнота - проверка на наличие изменен ли файл или нет
Ребята, кто может, помогите пожалуйста. Например, если я что-то записываю в текстовое поле блокнота, то при закрытии просит о сохранении файла, то бишь сохранить изменения в файле или сохранить как. Но вот проблема. Когда я открываю файл, и не вписываю туда никаких изменений, и при закрытии или создания файла он все равно запрашивает о том, что нужно ли сохранить изменения в файле или нет...
VB Вывести фамилии всех студентов отличников Требуется изначально ввести колличество студентов, затем поочередно фамилии и их оценку, соответственно в результате мы должны увидить фамилии отличников https://www.cyberforum.ru/ visual-basic/ thread566512.html VB Движение броуновских частиц и подсчет прошедших через заданную окружность Программа должна считать количество частиц, прошедших через заданную окружность. Имеется стартовая программа: Option Explicit Dim koord_x As Single Dim koord_y As Single Dim schet As Single Dim Chast As Single Dim i As Byte Dim Time As Long Dim smesch_x As Integer https://www.cyberforum.ru/ visual-basic/ thread566342.html
VB Пролема в создании .ocx файла: ошибка сообщает, что только комментарии могут присутствовать после End Sub
выдаёт ошибку: only comments may appear after End Sub,..... и выделяет две строчки эти: Event NoAttempts() Event RightPassword() что не так???
VB Вывести имя файла в поле из SQL https://www.cyberforum.ru/ visual-basic/ thread566225.html
Есть поле в форме(pole1), есть база данных в SQL(marksql) и таблица в ней(dbo.fileimport) с полем, в котором содержатся название файлов(fname). Как вывести название первого файла в этой таблице и сделать для кнопки button1 действие, при выполнение которого в поле выведется следующее название файла? Спасибо.
VB Найти наибольший общий делитель трёх чисел Помогите пожалуйста, Дано 3 числа (любых), определить их наибольший общий делитель https://www.cyberforum.ru/ visual-basic/ thread566146.html VB Передать в переменную оттенки красного
Допустим есть If t = vbRed Then как переделать это не только vbRed ну и другие оттенки красного?
VB Архивации базы средствами Winrar Здравствуйте!! подскажите пожалуйста код для кнопки по нажатию на которую, будет запускаться процедура архивации базы средствами winrar https://www.cyberforum.ru/ visual-basic/ thread566056.html VB Получить новый массив по правилу https://www.cyberforum.ru/ visual-basic/ thread565939.html
Помогите исправить ошибке в коде. Ни как не получается скомпилировать. Выпадает с ошибками. Само задание во вложенном рисунке Мой код Private Sub Command1_Click() Dim n As Integer Dim x() As Single
VB В матрице переставить местами столбцы с максимальным и минимальными элементами
Помогите пожалуйста составить программу: В матрице переставить местами столбцы с максимальным и минимальными элементами.
VB Преобразовать матрицу: отрицательные элементы столбцов ниже главной диагонали упорядочить по возрастанию Прошу помощи с одной задачкой, а то вообще без понятий как её сделать Преобразовать матрицу согласно след.условию: столбцы,в которых все элементы главной диагонали отрицательные, упорядочить по возрастанию элементов. напечатать обе матрицы https://www.cyberforum.ru/ visual-basic/ thread565786.html
31 / 50 / 2
Регистрация: 10.12.2011
Сообщений: 383
06.05.2012, 17:02 0

Максимальное число нормально выводится на экран, а минимальное всегда равно 0 - VB - Ответ 2997630

06.05.2012, 17:02. Показов 1009. Ответов 9
Метки (Все метки)

Ответ

Вторая завача немного странным способом но всеже
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
26
27
28
Option Explicit
Private Sub Command1_Click()
Dim a As String 'число
Dim dlina As Double ' длина слова а
Dim max As Integer
Dim min As Integer
Dim i As Integer 'счетчик цикла когда забиваем в массив
Dim p As Integer
Dim j, jj, k As Integer 'счетчик цикла
Dim X() As String
a = Val(InputBox("Введите число", "Ввод числа"))
dlina = Len(a)
ReDim X(1 To dlina)
For i = 1 To dlina
X(i) = Mid(a, i, 1)
Next i
p = 9
min = Val(X(1))
For jj = 2 To dlina
min = p
If min > Val(X(jj)) Then p = Val(X(jj))
Next jj
max = Val(X(1))
For j = 2 To dlina
If Val(X(j)) > max Then max = Val(X(j))
Next j
MsgBox ("минимальное = " & min & " " & "максимальное = " & max)
End Sub


Вернуться к обсуждению:
Максимальное число нормально выводится на экран, а минимальное всегда равно 0 VB
Вложения
Тип файла: rar на форум.rar (741 байт, 9 просмотров)
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.05.2012, 17:02
Готовые ответы и решения:

Найти и вывести на экран минимальное или максимальное число
помоги плиз Я ша на экзамене. составить алгоритм и программу решения задачи: в текстовые поля...

Ввести с клавиатуры 6 чисел от -10 до 10. Вывести на экран минимальное и максимальное число и их разность
Ввести с клавиатуры 6 чисел от -10 до 10. Вывести на экран минимальное и максимальное число и их...

Показать чему равно максимальное и минимальное кодовое расстояние n-разрядного двоичного кода
1.Определить число уровней квантовая и число разрядов двоичного кода необходимых для неравномерного...

Почему рандомное число всегда равно 22?
#include <iostream> #include <ctime> using namespace std; int main () { // нужны две...

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

Если целое число М делится на целое число N, то на экран выводится частное от деления, в противном случае выводится сообщение
Если целое число М делится на целое число N, то на экран выводится частное от деления, в противном...

Найти минимальное положительное число и максимальное отрицательное число среди заданных
Дано N действительных случайных чисел в диапазоне от -100 до 100. Найти минимальное положительное...

Определить максимальное число в первой половине массива и минимальное число во второй
Помогите написать программу пожалуйста!!Вот условие: заполнить массив из N ячеек случайными целыми...

Определить максимальное число в первой половине массива и минимальное число во второй
Помогите написать программу пожалуйста!!Вот условие: заполнить массив из N ячеек случайными целыми...

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