在窗体上有一个命令按钮,然后编写如下程序: Function Trans(ByVal num As Long) As Long Dim k As Long k=l Do While num k=k * (num Mod 10) num=num10 Loop Trans=k Print Trans End Function Private Sub Commandl_Click() Dim m As
主观题
在窗体上有一个命令按钮,然后编写如下程序: Function Trans(ByVal num As Long) As Long Dim k As Long k=l Do While num k=k * (num Mod 10) num=num10 Loop Trans=k Print Trans End Function Private Sub Commandl_Click() Dim m As