Заполнить массив A(5,5) произвольными символами с клавиатуры, вывести на экран четные - VB
Формулировка задачи:
Дана задачка. Заполнить массив A(5,5) произвольными символами с клавиатуры,вывести на экран четные.помогите
Решение задачи: «Заполнить массив A(5,5) произвольными символами с клавиатуры, вывести на экран четные»
textual
Листинг программы
Dim I(4, 4) As String 'Массив Private Sub Start() 'Запись Dim U As Integer, o As Integer, Ch As String * 1, Cd As Integer For U = 0 To 4 For o = 0 To 4 1 Randomize Cd = 90 - 65 ' ÍåïîìГ*Гѕ âåðõГ*ГЁГ© ïðèäåë Cd = (Rnd * Cd) - -65 If Cd / 2 <> Fix(Cd / 2) Then GoTo 1 I(U, o) = Chr(Cd) Next o Next U End Sub Private Sub Form_Load() Start For U = 0 To 4 For o = 0 To 4 l = l & I(U, o) Next o m = m & l & Chr(13) & Chr(10) l = "" Next U MsgBox m End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д