Создайте программу, которая по правому щелчку мыши заполняет массив - VB

Узнай цену своей работы

Формулировка задачи:

Создайте программу, которая по правому щелчку мыши заполняет массив А(10) случайными числами, по нажатию клавиши «с» выводит в текстовое поле сумму элементов массива, а по нажатию клавиши «1» выводит количество отрицательных элементов массива. Выход из программы Ctrl+shift.

Решение задачи: «Создайте программу, которая по правому щелчку мыши заполняет массив»

textual
Листинг программы
Option Explicit
Dim a(1 To 10) As Integer
Private Sub Form_Load()
  Randomize
  KeyPreview = True
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 If Button = 2 Then
  Dim i As Integer
  For i = 1 To 10
    a(i) = Int(Rnd * 101 - 50)
  Next i
  For i = 1 To 10
       Print a(i); vbTab;
  Next i: Print
 End If
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 'определяем какая клавиша нажата
  Dim i As Integer, sum As Integer, kol As Integer
  Select Case KeyCode
   Case 67: For i = 1 To 10
              sum = sum + a(i)
            Next i
            Print sum
   Case 49: For i = 1 To 10
            If a(i) < 0 Then kol = kol + 1
            Next i
            Print kol
  End Select
  If Shift = 3 Then Unload Me
End Sub

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


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

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

10   голосов , оценка 4 из 5
Похожие ответы