问题:[选择题]
[单项选择题] 先在 窗体上添加一个命令按纽,然后编写如下程序: Function fun(ByVal nm As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num Mod 10) num=num10 Loop fun=k End Function Private Sub Command1_Click()Dim n As LongDim r As Longn=InputBox(“请输入一
A.0
B.100
C.200
D.300