在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码。 Private Sub Command1_Click() MsgBox f(24,18) End Sub Public Function f(m As Integer,n As Integer)As Integer Do while m<>n Do while m>n m=m-n Loop Do While m<n n=n-m Loop Loop f=m End Function 窗体打开运行后,单击命令按扭,则消息框的输
点击加载更多评论>>