Вычислить и вывести на печать все двузначные четные числа, не превосходящие 30 - VB

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

Построить алгоритм (можно нарисовать блок-схему) и составить программу на visual basic для решения следующей задачи. Вычислить и вывести на печать все двузначные четные числа, не превосходящие 30: 10, 12, 14, 16, 18, … и Построить алгоритм (можно нарисовать блок-схему) и составить программу на visual basic для решения следующей задачи. Вычислить и вывести на печать сумму 20 первых натуральных чисел: 1, 2, 3, 4, 5, … . Прошу помочь!

Решение задачи: «Вычислить и вывести на печать все двузначные четные числа, не превосходящие 30»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command2_Click()
Dim n As Byte, sum As Integer
n = 20
For i = 1 To n
sum = sum + i
Next i
MsgBox sum
End Sub

Оцени полезность:

13 голосов , оценка 4.154 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы