Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 6467
Последний выпуск: 19.06.2015

Как вывести массив в текстбокс или меседжбокс ?

99K
25 апреля
Yolo3223222
1 / / 25.04.2018
Dim i, a, x, b, p, y As Double
Dim mass(1 To 4) As Double
Dim masss(1 To 4) As Double
Const n = 4
Private Sub CommandButton1_Click()
x = InputBox("x=")
b = InputBox("b=")

If x > 0 And x <> 3 Then
For i = 1 To n
mass(i) = (a * x + (b * b) / (x + i))
Next i
ElseIf x > 2 And x < 4 Then
For p = 1.2 To 3 Step 0.4
masss(p) = Atn(b * p + b) / 1 + Sqr(a * p) + a * x
Next p
Else
y = ((Log(x ^ 2 + 1)) ^ 1 / 3)

End If
TextBox1.Value = x
TextBox2.Value = b
If x > 0 Then
TextBox3.Value = mass
ElseIf x > 2 And x < 4 Then
TextBox3.Value = masss
Else
TextBox3.Value = y


End If
317
25 апреля
UserNet2008
744 / / 03.04.2010
Код:
Dim Index As Integer

If x > 0 Then
'весь массив
'For Index = 0 To UBound(mass)
'    TextBox3.text =TextBox3.text + str(mass(Index)) & vbCrLf
'Next
TextBox3.text = str(mass(x))
ElseIf x > 2 And x < 4 Then
'весь массив
'For Index = 0 To UBound(masss)
'    TextBox3.text =TextBox3.text + str(masss(Index)) & vbCrLf
'Next
TextBox3.text = str(masss(x))
Else
TextBox3.Value = y
60K
06 июля
ЗАРАБОТОК КРИПТОВАЛЮТЫ
206 / / 06.07.2018
____________________
Заработок от 20 000 рублей в день !!!
- Вам нужен готовый, уже настроенный метод заработка?
- Без сложных курсов, в которых вы не можете разобраться.
- Без рутинной работы.
- Без обмана и чтобы деньги были достойные.
- Именно готовый заработок, а не бесполезный курс!
Подробности на сaйте http://mod-servis.ru

____________________
Заработок от 20 000 рублей в день !!!

- Вам нужен готовый, уже настроенный метод заработка?
- Без сложных курсов, в которых вы не можете разобраться.
- Без рутинной работы.
- Без обмана и чтобы деньги были достойные.
- Именно готовый заработок, а не бесполезный курс!
Подробности на сaйте http://mod-servis.ru

____________________

76412

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог