Вывести произведение целых частей чисел, а также сумму дробных частей всех чисел - VB

  1. Дано N положительных вещественных чисел. Вывести произведение целых частей чисел, а также сумму дробных частей всех чисел.


textual

Код к задаче: «Вывести произведение целых частей чисел, а также сумму дробных частей всех чисел - VB»

Private Sub Form_Load()
c = InputBox("Сколько чисел?")
ReDim b(1 To c)
произведение_целых_частей = 1
Randomize
For a = 1 To c
  b(a) = Rnd * c
  произведение_целых_частей = произведение_целых_частей * Int(b(a))
  сумма_дробных_частей = сумма_дробных_частей + b(a) - Int(b(a))
Next
MsgBox "произведение целых частей чисел = " & произведение_целых_частей & vbLf & _
"сумма_дробных_частей = " & сумма_дробных_частей
End Sub

СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 4.222 из 5



Похожие ответы
  1. Должна быть память оперативки в Мб

  1. После нажатия на форме появляется время работы компьютера

  1. Должно работать после нажатия command)Добавлено через 5 часов 49 минут Неужели никто не может этого в VB?(

  1. Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей

  1. Дано четырехзначное число. Если оно читается слева направо и справа налево одинаково, то вывести yes, иначе no. помогите решить на VB

  1. Составьте программу, которая находит 4 последовательных натуральных числа, произведение которых равно 1680.

  1. Дана матрица размера M x N. Для каждого столбца матрицы найти произведение его элементов.

  1. Текст задачи Дан массив А размера N. Вывести его элементы в следующем порядке: A1, AN, A2, AN-1, A3, AN-2 …