КАК сделать задачу в VISUAL BASIC - VB
Формулировка задачи:
Сделать задачи в VISUAL BASIC
Решение задачи: «КАК сделать задачу в VISUAL BASIC»
textual
Листинг программы
Private Sub Command1_Click()
Dim N As Long, S As Long
Dim i As Long, S2 As Long
N = InputBox("", "Введите N")
For i = 2 To 2 * N Step 2
S = S + i
Next
S2 = (N + 1) * N
Print "S ="; S
Print "S2 ="; S2
End Sub