在窗体上画一个名称为Co mmand1的命令按钮,然后编写如下程序:Di mSW As BooleanFunction func(X As
在窗体上画一个名称为Co mmand1的命令按钮,然后编写如下程序:Di mSW As BooleanFunction func(X As Integer)As Integer If X<20Then Y =XElse Y =20+X End Iffunc =YEnd FunctionPrivate Sub Form_MouseDown(Button As Integer ,_ Shift As