Visual Basic. Теория. Нагина Е.К - 70 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

70
Private Sub Command4_Click()
For i = 1 To M
List1.AddItem x(i)
Next i
For i = 1 To N
List2.AddItem y(i)
Next i
End Sub
Private Sub Command5_Click()
If Text1.Text = "" Then GoTo 10
If Text2.Text = "" Then GoTo 10
ReDim x(M)
ReDim y(N + (M - 2))
10 End Sub
Private Sub Command6_Click()
End
End Sub
Private Sub Text1_Change()
M = CInt(Text1.Text)
End Sub
Private Sub Text2_Change()
N = CInt(Text2.Text)
End Sub
Рис. 6. Форма для ввода элементов массивов X и Y и вывода преобразо -
ванного массива Y 
                                    70
Private Sub Command4_Click()
For i = 1 To M
List1.AddItem x(i)
Next i
For i = 1 To N
List2.AddItem y(i)
Next i
End Sub

Private Sub Command5_Click()
If Text1.Text = "" Then GoTo 10
If Text2.Text = "" Then GoTo 10
ReDim x(M)
ReDim y(N + (M - 2))
10 End Sub

Private Sub Command6_Click()
End
End Sub

Private Sub Text1_Change()
M = CInt(Text1.Text)
End Sub

Private Sub Text2_Change()
N = CInt(Text2.Text)
End Sub




 Рис. 6. Ф о рмадля вво даэлементо вмассиво вX и Y и вы во дапрео бразо -
                            ванно г
                                  о массиваY

Страницы