编写如下通用过程: Sub proc(By Val num As Long,ByRef ren As Long)Dim k As LongK = 1num=Abs(num)Do While num k= k *(num Mod 10) num=num 10Loopren=k End Sub 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1 Click()Di
主观题
编写如下通用过程: Sub proc(By Val num As Long,ByRef ren As Long)Dim k As LongK = 1num=Abs(num)Do While num k= k *(num Mod 10) num=num 10Loopren=k End Sub 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1 Click()Di