Как ограничить количество знаков после запятой? - VB

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

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

возникли сложности в том что в ответе в форме
Листинг программы
  1. Picture4.Print arifmeticheskoe_index
не знаю как указать Format чтобы было то количество знаков после запятой сколько мне нужно, например, 2. В моем случае это выглядит так
Листинг программы
  1. arifmeticheskoe_index = summa_chetnih_index / kolichestvo_chetnih_index
т.е. сумму четных индексов я делю на их количество и нахожу среднее арифметическое. в итоге если я делю 44/23 = 1,91304347826087 а мне хотелось бы чтобы ответ был таким: 1,913. Помогите пожалуйста с решением этого вопроса!
Листинг программы
  1. Dim am(150, 150) As Integer
  2. Private Sub Command1_Click()
  3. n = Val(Text1)
  4. m = Val(Text2)
  5. am_min = Val(Text3)
  6. am_max = Val(Text4)
  7. Picture4.Cls
  8. p = 0
  9. For i = 0 To n - 1
  10. For j = 0 To m - 1
  11. If am(i, j) Mod 2 = 0 Then Sum = Sum + am(i, j)
  12. summa_chetnih_index = Sum
  13. Next
  14. Next
  15. For i = 0 To n - 1
  16. For j = 0 To m - 1
  17. If am(i, j) Mod 2 = 0 Then p = p + 1
  18. kolichestvo_chetnih_index = p
  19. Next
  20. Next
  21. arifmeticheskoe_index = summa_chetnih_index / kolichestvo_chetnih_index
  22. Picture4.Print arifmeticheskoe_index
  23. End Sub

Решение задачи: «Как ограничить количество знаков после запятой?»

textual
Листинг программы
  1. Picture4.Print arifmeticheskoe_index - неправильно
  2. List2.AddItem arifmeticheskoe_index - правильно

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


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

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

10   голосов , оценка 4.3 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы