Помогите написать программу на 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.909 из 5