Страница: 1 |
Вопрос: !!! Помогите (please) !!! | Добавлено: 26.03.03 15:23 |
Автор вопроса: ![]() |
Такая вот проблема... в TextBox1 ввожу номер от 1 до 5, и при нажатии на кнопку во втором текстбоксе должна появляться надпись из ячейки массива по номеру соответствующему из первого текстбокса... Private Sub CommandButton1_Click() Dim aarray(1 To 5) As String Dim s As Integer aarray(1) = один aarray(2) = два aarray(3) = три aarray(4) = четыре aarray(5) = пять
s = TextBox1.Text TextBox2.Text = aarray(s) End Sub Заранее благодарен! |
Ответы | Всего ответов: 1 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() ICQ: 174757755 Вопросов: 7 Ответов: 1 |
Профиль | Цитата | #1 | Добавлено: 26.03.03 15:51 |
Я уже разобрался Ответ выглядит так: Private Sub CommandButton1_Click() Dim aarray(1 To 5) As String Dim s As Integer aarray(1) = "один" aarray(2) = "два" aarray(3) = "три" aarray(4) = "четыре" aarray(5) = "пять" s = TextBox1.Text TextBox2.Text = aarray(s) End Sub |
Страница: 1 |
|