End Sub. В событийной процедуре cmd_ Click() используется выражение MbBit(которое вызывает функцию, определенную в примере 13.6

В событийной процедуре cmd_ Click() используется выражение MbBit (которое вызывает функцию, определенную в примере 13.6, и вычисляет ее значение с аргументом 100, введенным с помощью функции InputВox (рис. 13.15), т.е. в биты должно быть переведено значение 100 Мбит). Результат работы представлен на рис. 13.16.

Рис. 13.15 Рис. 13.16

Например:

Private Sub cmd_Click()

Dim k As Integer, d As Integer

k= 2

d=3

Print Sum(k, d) + Sum(k, d)^ 2

End Sub

Functiоn Sum(a As Integer, b As Integer) As Integer

Sum = а + b