Каким образом можно задать последовательность чисел - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
