Как ограничить количество знаков после запятой? - VB
Формулировка задачи:
возникли сложности в том что в ответе в форме
не знаю как указать Format чтобы было то количество знаков после запятой сколько мне нужно, например, 2. В моем случае это выглядит так
т.е. сумму четных индексов я делю на их количество и нахожу среднее арифметическое. в итоге если я делю 44/23 = 1,91304347826087 а мне хотелось бы чтобы ответ был таким: 1,913. Помогите пожалуйста с решением этого вопроса!
Листинг программы
- Picture4.Print arifmeticheskoe_index
Листинг программы
- arifmeticheskoe_index = summa_chetnih_index / kolichestvo_chetnih_index
Листинг программы
- Dim am(150, 150) As Integer
- Private Sub Command1_Click()
- n = Val(Text1)
- m = Val(Text2)
- am_min = Val(Text3)
- am_max = Val(Text4)
- Picture4.Cls
- p = 0
- For i = 0 To n - 1
- For j = 0 To m - 1
- If am(i, j) Mod 2 = 0 Then Sum = Sum + am(i, j)
- summa_chetnih_index = Sum
- Next
- Next
- For i = 0 To n - 1
- For j = 0 To m - 1
- If am(i, j) Mod 2 = 0 Then p = p + 1
- kolichestvo_chetnih_index = p
- Next
- Next
- arifmeticheskoe_index = summa_chetnih_index / kolichestvo_chetnih_index
- Picture4.Print arifmeticheskoe_index
- End Sub
Решение задачи: «Как ограничить количество знаков после запятой?»
textual
Листинг программы
- Picture4.Print arifmeticheskoe_index - неправильно
- List2.AddItem arifmeticheskoe_index - правильно
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д