在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程: Private Sub Command1_Click( ) n=Val(Text1.Text) If n/2=n/2 Then f=f1(n) Else f=f2(n) End if Print f;n End Sub Public Function f1(ByRef x) x=X*X n=x+x End Function Public Function f2(ByVal x) X=X*X f2=X+x+x End Function 程序运行后,在文本框中输入6,然后单击命令按钮,窗体上显示的是