¿Cómo debo escribir dos subrutinas para esta pregunta de programación de VB?

sub?f1(byref?a?as?integer, byref?b?as?integer)

a=a b

b=a*b

end?sub

sub?f2(byval?a?as?integer, byval?b?as?integer)

a=a b

b=a*b

end?sub

privado?sub?command1_click()

atenuado?a, b

a=val(inputbox("a=",,1))

b=val(inputbox("b=",,2))

f1?a,b

imprimir?a, b

end?sub

privado?sub?command2_click()

dim?a, b

p>

a=val(inputbox("a=",,1))

b=val(inputbox("b=",,2))

f2 ?a, b

imprimir?a, b

end?sub