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

Ваш аккаунт

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

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

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

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

Подписчиков: 6477
Последний выпуск: 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
315
25 апреля
UserNet2008
743 / / 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

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

Ваш ответ

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