Дан массив x, состоящий из ста целых случайных чисел, каждое из которых лежит в пределах от 3 до 13 - VB
Формулировка задачи:
Дан массив Х, состоящий из ста целых случайных чисел, каждое из которых лежит в пределах от 3 до 13. С клавиатуры вводится целое число N, так же лежащее в этих пределах. Определите количество элементов массива, равных числу N.
Помогите, пожалуйста.
Решение задачи: «Дан массив x, состоящий из ста целых случайных чисел, каждое из которых лежит в пределах от 3 до 13»
textual
Листинг программы
Sub main()
Dim X(1 To 100) As Variant, i As Integer
Dim n As Variant
Randomize
For i = 1 To 100
X(i) = Int(Rnd * 11) + 3
Next i
s = " " & Join(X, " ") & " "
n = InputBox("Введите число от 3 до 13", , 13)
MsgBox "В массиве " & s & vbCrLf & (Len(s) - Len(Replace(s, " " & n & " ", ""))) / Len(" " & n & " ") & " чисел " & n
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д