Дан массив 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
