одноклеточная амеба каждые 3 часа делится на 2 клетки

@Жанна1 · Регистрация: 04.06.2015

Одноклеточная амеба каждые 3 часа делится на 2 клетки, определить сколько амеб будет через 3,6,9,12, ..,24 часа.

Private Sub CommandButton4_Click()
Dim x As Integer, y As Integer
x = 1
For y = 0 To 24 Step 3
x = x * 2
TextBox1.Text = ("Прошло t = " & (y) & ("; амёб = ") & (x))
Next
End Sub

Подскажите пожалуйста, как сделать, чтобы выводился ответ в текстбокс, не конечный ответ амеб и время (мне выводится "24 часа 512 амеб") , а весь список, за 3 часа сколько амеб, за 6 часов сколько амеб и т.д.?

~~Shersh~~ · 21.04.2016, 18:23

Visual Basic

Private Sub CommandButton4_Click()
TextBox1.MULTILINE=TRUE
Dim x As Integer, y As Integer
x = 1
For y = 0 To 24 Step 3
  x = x * 2
  TextBox1.Text =TextBox1.Text & "Прошло t = " & y & "; амёб = " & x & VBNEWLINE
Next
End Sub

@Жанна1 · 21.04.2016, 18:29 **[ТС]**

Спасибо большое

)

@Жанна1 0 / 0 / 0 Регистрация: 04.06.2015 Сообщений: 29
		1
	одноклеточная амеба каждые 3 часа делится на 2 клетки 21.04.2016, 18:15. Показов 6056. Ответов 2 Метки нет (Все метки) Одноклеточная амеба каждые 3 часа делится на 2 клетки, определить сколько амеб будет через 3,6,9,12, ..,24 часа. Private Sub CommandButton4_Click() Dim x As Integer, y As Integer x = 1 For y = 0 To 24 Step 3 x = x * 2 TextBox1.Text = ("Прошло t = " & (y) & ("; амёб = ") & (x)) Next End Sub Подскажите пожалуйста, как сделать, чтобы выводился ответ в текстбокс, не конечный ответ амеб и время (мне выводится "24 часа 512 амеб") , а весь список, за 3 часа сколько амеб, за 6 часов сколько амеб и т.д.? 0

@Жанна1 0 / 0 / 0 Регистрация: 04.06.2015 Сообщений: 29
	21.04.2016, 18:29 [ТС]	3
	Спасибо большое) 0

Опции темы

одноклеточная амеба каждые 3 часа делится на 2 клетки

Решение