Нужно сделат ьпару исправлений

[Кристюшка]

Private Sub Command1_Clickзадача 1.8()
Dim N As Integer, F As Long, K As Integer
N = Textbox1.Value
K = 0
a = 1
b = 1
For i = 3 To N
c = a + b
If c Mod 5 = 0 Then K = K + 1
a = b
b = c
Next i
textbox2.Value = K
End Sub




Private Sub Command1_Clickзадача 2.10
Dim vec() As Variant
n = CDbl(InputBox("Введите длину вектора n"))
ReDim vec(1 To n) As Variant
For i = 1 To n
vec(i) = CDbl(InputBox("Введите " & i & "-ю координату вектора"))
Next i
For i = 1 To UBound(vec)
vec(i) = vec(i) + i
i = i + 1
Next i
For i = 1 To UBound(vec)
Cells(i, 1).Value = vec(i)
Next i
End Sub




Private Sub Command1_Click 3.24()
Dim a() As Single, b() As Single, c() As Single
Dim n As Integer, i As Integer, j As Integer
n = Val(text1.Text)
ReDim a(1 To n, 1 To n) As Single
ReDim b(1 To n, 1 To n) As Single
ReDim c(1 To 2 * n, 1 To n) As Single

For i = 1 To n
For j = 1 To n
a(i, j) = Int((100) * Rnd - 50) Cells(i, j) = a(i, j)
b(i, j) = Int((100) * Rnd - 50)
Cells(i + n + 1, j) = b(i, j)
Next j
Next i

For i = 1 To 2 * n For j = 1 To n
c(i, j) = 0
Next j
Next i
x = 1

For i = 1 To 2 * n Step 2
For j = 1 To n
c(i, j) = a(x, j)

Next j
x = x + 1
Next i

x = 1
For i = 2 To 2 * n Step 2
For j = 1 To n
c(i, j) = b(x, j)

Next j
x = x + 1
Next i

For i = 1 To n * 2
For j = 1 To n
Cells(i + 3 * n, j) = c(i, j)
Next j
Next i

End Sub




Подскажите пожалуйста...мне нужно эти 3 задачи сделать через формы, а не окно сообщений, как это сделать? Программы уже анписанны, только сделать так чтоб они работали через формы (textbox -ы ). Буду очень благодарна...

[Кристюшка]

пожалуйста помогите, а то завтра меня прибьют в универе... я больше незнаю к к ому обратиться...(((

[EducatedFool]

эти 3 задачи сделать через формы, а не окно сообщений, как это сделать?

А где, собственно, условия задач?
3-я задача уже работает черех текстбокс...

я больше незнаю к кому обратиться...

Обратитесь на этот форум - там любят решать задачки студентов-халявщиков.

[Кристюшка]

1) Целочисленныя арифметика. Для заданного натурального т определить количество чисел Фиббоначи кратных 5.
2)Одномерный массив. Все компоненты целочисленного вектора а с нечетными номерами заменить на величину аi+i.
3) Двумерный массив. Даны квадратные матрицы А и Б.Получить матрицу С, вставив строки матрицы Б между строк матрицы А.



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

[Кристюшка]

2 задачу вообще не догоняю как надо переделать, 1 и 3 уже разобрала..помогите, плиз.....