Переменной А присвоить ее значение, увеличенное в N раз, 2N раз, 3N раз - VB
Формулировка задачи:
Переменной А присвоить ее значение, увеличенное в N раз, 2N раз, 3N раз
Решение задачи: «Переменной А присвоить ее значение, увеличенное в N раз, 2N раз, 3N раз»
textual
Листинг программы
Option Explicit
Dim N As Integer
Dim A As Single
Dim tempA As Single
Dim mn As Integer ' множитель
Private Sub Form_load()
A = InputBox("Введите значение A")
N = InputBox("Введите значение N?")
mn = 1
tempA = A
End Sub
Private Sub Command1_Click()
A = tempA * N * mn
Print tempA; " *"; mn; " *"; N; " ="; A
mn = mn + 1 ' увеличение множителя
End Sub