下列实验操作错误的是
A. 向量筒里倾倒液体
B. 从滴瓶里取出液体
C. 向试管里加入粉末
D. 给试管里液体加热
答案:B
先在窗体上添加一个命令按钮,然后编写如下程序: Function fun(ByValnum As Long)As LongDim k As Longk=1num=Abs(nam)Do While num k=k*(num Mod 10) num=num\10LoopFun=kEnd Function PrivateSubCommandl_Click()Dim n As LongDim r As Longn=InrputBox(“请输入一个数”)n=CLng(n)r=-fun(n)Printr End Sub 在程序运行后,单击命令按钮,在对话框中输入“100”,输出结果是( )。
A.0
B.100
C.200
D.300