Помогите написать программу на Visual Basic! - VB
Формулировка задачи:
Люди, срочно нужна ваша помощь!!! Никак не могу написать программу на Visual Basic, по причине того, что вообще ничего не понимаю в программировании :confused: , а задание скоро надо сдавать! Помогите пожалуйста!
1) Составить программу для определения наименьшего элемента массива A(n) и его адреса n=5
a1=-5, a2=-7, a3=4, a4=6, a5=0
2) Составить программу для вычисления элементов массива H(n), определяемых по формуле:
....(
h1/ sinJ в квадрате если cosJ меньше 0,5
...\ cos в квадрате 2J если cosJ больше, либо равен 0,5
....(
n=6, J=1, 2, ..., n
Решение задачи: «Помогите написать программу на Visual Basic!»
textual
Листинг программы
Private Sub Form_Load() Dim i 'объявим переменную для цикла Dim a 'переменная одномерного массива Dim x 'переменная наименьшего элемента массива a = Array(-5, -7, 4, 6, 0) 'создадим не динамический, а простой одномерный массив Label1.Caption = "Пятый элемент массива - " & a(4) x = a(0) ' зададим переменной x значение первого элемента For i = LBound(a) To UBound(a) 'просмотрим все элементы массива от самого начала, до конца If x > a(i) Then x = a(i) 'если x больше того элемента который сейчас проверяется, то занесем в x меньший элемент Next i Label1.Caption = Label1.Caption & vbCrLf & "Наименьший элемент " & x With Label1 'это настройки параметров для Label1, используется чтобы не писать слово Label1 перед каждым параметром .Height = 495 'Высота .Width = 2535 'Ширина .Top = 0 'Позиция на форме по координате Y , 0 это верхний левый угол .Left = 0 'Позиция на форме по координате X , 0 это верхний левый угол .BorderStyle = 1 'Стиль бортов элемента .Appearance = 0 'Объемность элемента End With 'конец настроек End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д