Переменной А присвоить ее значение, увеличенное в 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

14   голосов , оценка 3.929 из 5
Похожие ответы