Обработка числовой последовательности - VB (172598)

Формулировка задачи:

1. Обработка числовой последовательности с заданным количеством элементов. Ввести с клавиатуры границы диапазона 3-значных натуральных чисел, из которых вывести только простые. Определить количество таких чисел и их сумму. 2. Обработка числовой последовательности с неопределенным количеством элементов. Определить, сколько из 3-значных членов последовательности с неопределенным количеством элементов начинается и заканчивается одной и той же цифрой.

Решение задачи: «Обработка числовой последовательности»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim k, N
Dim a()
N = InputBox("N=?", , 3)
If N < 1 Then
MsgBox "N>0!"
Exit Sub
End If
ReDim a(N)
 
k = 0
For i = 1 To N
a(i) = Int(Rnd * 3000) + 100
If Len(a(i)) = 3 Then If Left(a(i), 1) = Right(a(i), 1) Then k = k + 1
Next i
MsgBox k
End Sub
                        