Sub Form_Load()
n = 10
For i = 1 To n
a = n * i
Debug.Print a
Next
End Sub
Sub Form_Load()
Dim n As Long, a As Long, i As Long
n = 10
For i = 1 To n
a = n * i
Debug.Print a
Next
End Sub
Sub Form_Load()
Dim n&, a&, i&
n = 10
For i = 1 To n
a = n * i
Debug.Print a
Next
End Sub
Sub Form_Load()
n& = 10
For i& = 1 To n
a& = n * i
Debug.Print a
Next
End Sub
Сейчас этот форум просматривают: Yandex-бот и гости: 12