Ошибка при запуске программы "run time error 13 type mismatch"

@reqmind · Регистрация: 16.12.2014

Студворк — интернет-сервис помощи студентам

сама задача:
Определить количество элементов массива, принадлежащих промежутку отa до b (значения a и b вводятся с клавиатуры; b > a).

Visual Basic

Sub abc()
Dim a, b, k, i As Integer
Dim l(10) As Integer
a = InputBox("vvedite a", a)
b = InputBox("vvedite b", b)
 
For i = 0 To 10
l(i) = Rnd * 10
Next i
 
For i = 0 To 10
If l(i) > a And l(i) < b Then
k = k + 1
End If
Next i
 
MsgBox "kolichestbo", "k"
End Sub

@Казанский · 16.05.2015, 03:22

Visual Basic

1	MsgBox "kolichestbo " & k

Опции темы