Ребята, помогите, а то завтра нужно сдавать, а прогресс не намечается.

у меня два вопроса.

1. в двух словах, у меня должны выводиться 24 результата y посредством msflexgrid'a, а выводятся только 12, то есть через полтора и через половинку.
вопрос таков: где у меня ошибка?
Private Sub Command1_Click()
For x = 1 To 12 Step 0.5
y = Log(x + 1)
'MsgBox "Ðåçóëüòàò ðàáîòû ïðîãðàììû 3.3" + vbCrLf + vbCrLf + "y=" + CStr(y)
MSFlexGrid1.Cols = 2
MSFlexGrid1.ColWidth(0) = 500
MSFlexGrid1.ColWidth(1) = 2000
MSFlexGrid1.Col = 0
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = "x"
MSFlexGrid1.Rows = 25
MSFlexGrid1.Row = x
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = x
MSFlexGrid1.Row = x
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = y
Next
End Sub

2. я никогда не работала с текстом в vb6, но на голову свалилась задача. как её решить - не знаю, но если есть гуру, то буду благодарна за идеи.

постановка: в тексте менее 200 символов. Равномерно вставить пробелы между словами так, чтобы его длина составляла 200 символов.

Заранее всем спасибо.

З.Ы. Вы уж извините, но нет времени разбираться с этим, я недавно родила, а сессия вот уже она =) спасибо ещёраз за помощь

поправка к первому вопросу: в задании условие - составить программу табулирования функции y = Log(x + 1), где х изменяется от 1 до 12 с шагом 0,5