Нужна помощь, qbasic⁠⁠

Я даже засомневался... qbasic. Это еще не вымерло?
Нет у меня такого, но по каждому пункту можно дать какие то комментарии и тексты на чем то, похожем на Basic, может быть они и в qbasic "взлетят" после допиливания. Тряхнем стариной.

Задача 1: определить количество цифр "3". Самое простое - преобразовать ваше исходное натуральное число в строку и пройтись по нему, чтобы посчитать сколько раз там цифра 3 попалась.
Dim n, i, k as Integer
Dim s as String
n=356736784; //для примера, пусть это наше "натуральное число"
s=CStr(n)
k=0
For i=1 To Len(s)
if Mid(s,i,1)="3" Then
k=k+1;
end if
Next i
MsgBox "Количество цифр 3 в числе " + s + " = " + CStr(k)

Задача 2: сколько раз в нем встречается последняя цифра. Все тоже самое, но сначала надо посмотреть что там за последняя цифра.
Dim n, i, k as Integer
Dim s1, s2 as String
n=356736784;
s1=CStr(n)
s2=Right(s1,1)
k=0
For i=1 To Len(s)
if Mid(s1,i,1)=s2 Then
k=k+1;
end if
Next i
MsgBox "Количество цифр " + s2+ " в числе " + s1 + "= " + CStr(k)

Задача 3: Количество четных цифр в нем. Тут можно по разному, можно перебирать цифры и пытаться их делить на 2, смотреть остаток деления. Так же можно просто искать нужную цифру в наборе тех, которые считаются четными.
Dim n, i, k, t as Integer
Dim s as String
n=356736784;
s=CStr(n)
k=0
For i=1 To Len(s)
t=CInt(Mid(s,i,1))
if t%2=0 Then
k=k+1;
end if
Next i
MsgBox "Количество четных цифр в числе " + s + " = " + CStr(k)

Задача 4: сумму его цифр больших пяти
Dim n, i, k, t as Integer
Dim s as String
n=356736784;
s=CStr(n)
k=0
For i=1 To Len(s)
t=CInt(Mid(s,i,1))
if t>5 Then
k=k+t;
end if
Next i
MsgBox "Сумма цифр больших пяти в числе " + s + " = " + CStr(k)

Задача 6: произведение цифр больших семи
Dim n, i, k, t as Integer
Dim s as String
n=356736784;
s=CStr(n)
k=1
For i=1 To Len(s)
t=CInt(Mid(s,i,1))
if t>7 Then
k=k*t;
end if
Next i
if k=1 Then
MsgBox "В числе " + s + " не было ни одного числа, большего семи"
else
MsgBox "Произведение чисел больших семи в числе " + s + " = " + CStr(k)
End If

Задача 7: сколько раз в нем встречаются цифры 0 и 5. Тоже самое когда искали "3" в первой задаче.
Dim n, i, k as Integer
Dim s as String
n=356736784;
s=CStr(n)
k=0
For i=1 To Len(s)
if Mid(s,i,1)="0" or Mid(s,i,1)="5" Then
k=k+1;
end if
Next i
MsgBox "Количество цифр 3 и 5 в числе " + s + " = " + CStr(k)