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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

75
6. В программном коде предусмотреть процедуру ввода данных через
стандартное окно ввода информации InputBox.
7. Проанализировать программный код , записанный в процедурах, при -
веденных ниже, и прокомментировать суть описываемых в них дей-
ствий.
Option Explicit
' Даны два массива Х и У . В У, найти SR и умножить на него каж -
дый элемент, в Х найти макс и мин и включить в конец У элементы
между ними .
Option Base 1
Dim x() As Integer
Dim y() As Integer
Dim M, N, i As Integer
Dim max, min, k, l, sr, c, kol As Integer
Private Sub Command1_Click()
For i = 1 To M
x(i) = InputBox("введите " & i & " элемент", "Ввод элемента",
"0")
Next i
End Sub
Private Sub Command2_Click()
For i = 1 To N
y(i) = InputBox("введите " & i & " элемент ", "Ввод элемента",
"0")
Next i
End Sub
Private Sub Command3_Click()
sr = 0 
                                       75




6. В програ м м н ом код е пред у см от рет ь процед у ру ввод а д а н н ых через
   ст а н д а рт н ое окн о ввод а ин ф орм а ции InputBox.
7. П роа н а л изирова т ь програ м м н ый код , за писа н н ый в процед у ра х, при-
   вед ен н ых н иж е, и проком м ен тирова т ь су т ь описыва ем ых в н их д ей-
   ст вий.

   Option Explicit
   ' Д ан ы два масси ва Х и У. В У, н айт и SR и у мн о ж и т ь н а н его к аж -
   ды йэл емен т , в Х н айт и мак с и ми н и вк л ючи т ь в к о н ецУ элемен т ы
   меж ду н и ми .
   Option Base 1
   Dim x() As Integer
   Dim y() As Integer
   Dim M, N, i As Integer
   Dim max, min, k, l, sr, c, kol As Integer

   Private Sub Command1_Click()
   For i = 1 To M
   x(i) = InputBox("введите" & i & " элем ент", "В вод элем ента",
   "0")
   Next i
   End Sub

   Private Sub Command2_Click()
   For i = 1 To N
   y(i) = InputBox("введите" & i & " элем ент", "В вод элем ента",
   "0")
   Next i
   End Sub

   Private Sub Command3_Click()
   sr = 0

Страницы