Проверьте пожалуйста и помогите

[Хакер]

Помогите составить блок схемы к 2 заданиям.
Задание № 1: С клавиатуры вводится три оценки по экзаменам студента. Вычислить средний балл студента – S. Определить, какую стипендию ему начислить: повышенную (S>=4.5), обычную (4<S>4.5), или отказать в ней (S<4).

Код: Выделить всё

Private Sub Command1_Click()
Dim Z, M As Double
Dim t, l, k As Single
t = Val(InputBox("Первая оценка"))
l = Val(InputBox("Вторая оценка"))
k = Val(InputBox("Третья оценка"))
M = (t + l + k) / 3
Z = Round(M, 2)
Select Case Z
Case Is < 4
MsgBox "При средней оценке " + Str(Z) + " " + "стипендии не будет"

Case Is >= 4.5
MsgBox "При средней оценке " + Str(Z) + " " + "будет повышенная стиендия"

Case 4 To 4.5
MsgBox "При средней оценке " + Str(Z) + " " + "будет обычная стипендия"
End Select
End Sub

Задание №2: Дана последовательность из M чисел. Сколько из этих чисел больше 7, но меньше 20. Найти произведение этих чисел.

Код: Выделить всё

Private Sub Command1_Click()
Dim A, B, L, S, K As Single, N As Integer
L = Val(InputBox("Введите начальное число"))
B = Val(InputBox("Введите конечное число"))
N = 0: S = 1

For i = L To B

If i > 7 And i < 20 Then
S = S * i
K = K + 1

Text1.Text = "Количество чисел в промежутке от 7 до 20 = " + Str(K) & vbCrLf & "Произведение этих чисел = " + Str(S)

Else
Text1.Text = "Нет чисел, входящих  в промежуток от 7 до 20"

End If
Next i


End Sub

[ger_kar]

1)

Dim Z, M As Double
Dim t, l, k As Single

Первые строчки кода и уже ошибки. Для Dim Z, M As Double Только M будет Double, а Z будет Variant.
Для Dim t, l, k As Single Аналогично с типом Single будет только k, а остальные будут с типом Variant.
В VB нужно указывать тип каждой объявляемой переменной, в случае, если он не указывается, то по умолчанию объявляется тип Variant.

2) Код нужно оформлять тегом Code, а в самом коде использовать отступы. (Если тег Code не использовать, то и отступы сделать не получится).

[pronto]

[оффтопик]Очень смахивает на задание по ЕГЭ...[/оффтопик]