Описать функцию Calc(A,B,Op) вещественного типа - VB
Формулировка задачи:
НЕмогу понять что требуется сделать в этой задаче,кто понял,напишите пожалуйста.
Описать функцию Calc(A,B,Op) вещественного типа, выполняющую над не нулевыми вещественными числами А и В одну из арифметических операций и возвращающую ее результат .Вид операции определяется целым параметром Ор: 1-вычетание,2-умножение ,3-деление,остальные значение –сложения. С помощью Сalc выполнить для данных А и В операции ,определяемые данными целыми N1,N2 ,N3.
Решение задачи: «Описать функцию Calc(A,B,Op) вещественного типа»
textual
Листинг программы
Private Sub Command1_Click()
Const N1 = 1
Const N2 = -1
Const N3 = 5.5
MsgBox ("- (N1;N2) " & calc(N1, N2, 1))
MsgBox ("* (N2;N3) " & calc(N2, N3, 2))
MsgBox ("/ (N1;N3) " & calc(N1, N3, 3))
MsgBox ("+ (N1;N2) " & calc(N1, N2, 0))
End Sub
Function calc(A, B, Op)
Select Case Op
Case 1
calc = A - B
Case 2
calc = A * B
Case 3
calc = A / B
Case Else
calc = A + B
End Select
End Function