Определить сумму всех чисел, целая часть которых равна целой части числа А

глок

Дан массив вещественных чисел (размер и элементы задает пользователь). Размер – число из диапазона [5;15]. Дано случайное число А, лежащее в диапазоне [-10;10]. Определить сумму всех чисел, целая часть которых равна целой части числа А.
1 ответ

глок

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim rr As New Random
    Dim nn As Integer = rr.Next(5, 15) 'размер массива
    Dim ms(nn - 1) As ******
    Dim aa As ****** = get******Rnd(-10, 10, rr) 'число А
    Dim ss As String = String.Empty
    'формируем массив случайным образом в интервале {-10, +10}
    For i = 0 To nn - 1
        ms(i) = get******Rnd(-10, 10, rr)
        ss &= ms(i) & ", "
    Next
    ss = ss.TrimEnd(" "c).TrimEnd(","c)
    Dim summ = (From t In ms Where Fix(t) = Fix(aa)).Sum
    'вывод результатов
    MsgBox(ss & vbCrLf & aa.ToString & vbCrLf & summ.ToString)
End Sub
Private Function get******Rnd(ByVal rStart As ******, ByVal rEnd As ******, ByRef rnd As Random) As ******
    Return rnd.Next****** * rEnd + rStart
End Function