Visual Basic. Практика. Ищенко В.А - 61 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

61
SUM(i) = 0
For j = 1 To N
SUM(i) = SUM(i) + a(i, j)
Next j, i
'Вывод массива на экран
For i = 1 To M
List1.AddItem SUM(i)
Next i
End Sub
8. Записать программный код для объекта КнопкаВыход, поместив в
событие Click() следующие операторы :
Private Sub КнопкаВыход_Click()
End
End Sub
9. Записать программный код для объекта КнопкаЗадать , поместив в
событие Click() следующие операторы :
' Задание массива
Private Sub КнопкаЗадать _Click()
If Text1.Text = "" Or Text2.Text = "" Then GoTo 10
If CInt(Text1.Text) <> CInt(Text2.Text) Then zzz =
MsgBox("Массив должен быть квадратным", vbOKOnly, "Ошиб-
ка")
If zzz=vbOkOnly Then GoTo 10
ReDim a(M, N)
10 End Sub
10. Записать программный код для объекта КнопкаДобавить , поместив
в событие Click() следующие операторы :
' Добавляем элементы
Private Sub КнопкаДобавить _Click()
For i = 1 To M
For j = 1 To N
a(i, j) = InputBox("введите элемент " & i & " строки " & j & " сто-
лбца ", "Ввод элемента", "0")
Next j
Next i
End Sub 
                                     61
   SUM(i) = 0
   For j = 1 To N
   SUM(i) = SUM(i) + a(i, j)
   Next j, i

   'Вы во д масси ва н а эк ран
   For i = 1 To M
   List1.AddItem SUM(i)
   Next i
   End Sub

8. Записа т ь програ м м н ый код д л я объект а К нопкаВ ы х од, пом ест ив в
   событие Click() сл ед у ющие опера т оры:

   Private Sub К нопкаВ ы х од_Click()
   End
   End Sub

9. Записа т ь програ м м н ый код д л я объект а К нопкаЗадать , пом ест ив в
   событие Click() сл ед у ющие опера т оры:

   ' Задан и е масси ва
   Private Sub К нопкаЗадать _Click()
   If Text1.Text = "" Or Text2.Text = "" Then GoTo 10
   If CInt(Text1.Text) <> CInt(Text2.Text) Then zzz =
   MsgBox("М ас с ив должен бы ть квадратны м ", vbOKOnly, "О ш иб-
   ка")
   If zzz=vbOkOnly Then GoTo 10
   ReDim a(M, N)
   10 End Sub

10. Записа т ь програ м м н ый код д л я объект а К нопкаД обавить , пом ест ив
    в событ ие Click() сл ед у ющие опера торы:

   ' Д о бавл яем эл емен т ы
   Private Sub К нопкаД обавить _Click()
   For i = 1 To M
   For j = 1 To N
   a(i, j) = InputBox("введитеэлем ент " & i & " с троки " & j & " с то-
   лбца", "В водэлем ента", "0")
   Next j
   Next i
   End Sub

Страницы