Создайте программу, которая по правому щелчку мыши заполняет массив - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д