Есьт кто шарит в бейсике????

Private Sub Command1_Click()
'каков диапазон чисел? Будем считать, что задается
On Error GoTo mErr
Dim NN As Long, N As Long, S As Long, P As Long, kS As Long, kP As Long
NN = InputBox("Введите число")
If NN >= 55555 Then Exit Sub
P = 1
For N = 1 To NN
If (N Mod 2) = 0 Then
P = P * N
kP = kP + 1
Else
S = S + N
kS = kS + 1
End If
Next N
Print "Сумма " & kS & " чисел = " & S
Print "Произв. " & kP & " чисел = " & P
Exit Sub
mErr:
MsgBox "Произведение получается слишком большое", vbExclamation
End Sub

Private Sub Command2_Click()
Dim A() As Single, N As Long, C As Single, K As Long, i As Long
ReDim A(N)
'здесь заполнение массива, ввод данных
N = N + 1
ReDim Preserve A(N)
For i = K To N - 1
A(K + 1) = A(K)
Next i
A(K) = C
End Sub

Private Sub Command3_Click()
Dim M As Long, StIn As String, StOut As String, St1 As String * 1, i As Long, j As Long
M = InputBox("Введите число")
For i = 1 To M
StIn = InputBox("Введите " & i & "-ю строку")
StOut = ""
For j = 1 To Len(StIn)
St1 = Mid(StIn, j, 1)
If St1 = LCase(St1) Then StOut = StOut & St1
Next j
MsgBox StOut
Next i
End Sub

о уже знаем на каком языке надо что то делать. .
осталось автору узнать как составлять вопрос
и определиться с суммой которую он готов выложить )

А есть кто шарит в кармане? )))

Учитывая, что обычно в "Ответах" шарить в языках означает - уметь написать программку с двумя циклами и парой условий, то я шарю очень даже не плохо.

А вообще не плохо бы писать че надо от человека.

Я когдато програмировал на нём. Но делал игры в основном.

Что-то было когда-то