26
Декабрь
2009
Заполнить одномерный текстовый массив словами
Заполнить одномерный текстовый массив словами
Option Base 1
Private Sub Command1_Click()
myArray = Array("Hello", "World", "VB", "Programming")
For a = 1 To 4
Text1(a).Text = myArray(a)
Next a
For b = 1 To 4
If b Mod 2 = 0 Then
myArray(b) = StrReverse(myArray(b))
Text1(b).Text = myArray(b)
End If
Next b
End Sub