Каким образом можно задать последовательность чисел - VB

Узнай цену своей работы

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

Подскажите пожалуйста!!! В расчете задействована последовательность чисел x=0, 0.01, 0.05, 0.1, 0.5, 1, 2, 5, 10, 20, 50, 100, 1 000, 10 000, 1000 000. Каким образом её можно задать?

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

textual
Листинг программы
Dim x() As Variant
Private Sub Command1_Click()
x = Array(1.12, "20e+2", 3 * 10 ^ (-2), "45e-2", 0.076)
For i = LBound(x) To UBound(x) 'i = 0 To 4
Print " x ("; i; ") ="; CDbl(x(i))
Next i
Print "A=1-x"
For i = LBound(x) To UBound(x) 'i = 0 To 4
Print "  /CDbl  "; " A ("; i; ") ="; CDbl(1 - x(i))
Print "  /CInt  "; CInt(1 - x(i))
Print "  /CSng  "; CSng(1 - x(i))
Next i
End Sub

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


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

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

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