在窗体画一个命令按钮,然后编写如下过程:
Function fun(ByVal num As Long)As Lone
Dim k As Long
k=1
num=Abs (num)
Do While num
k=k*(num Mod 10)
num=num\10
Loop
fun=k
End Function
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
n= InputBox (“请输入一个数”)
n=CLng (n)
r=fun (n)
Print r
End Sub
程序运行后,单击命令按钮,在输入对话框中输入234,输出结果为【 】。
相关专题: 对话框
相关问题推荐
下列说法错误的是
A.通用对话框的Name属性的默认值为CommonDialogx,此外,每种对话框都有自己的默认标题
B.文件对话框可分为两种,即打开(OperJ)文件对话框和保存(SaveAS)文件对话框
C.打开文件对话框可以让用户指定一个文件,由程序使用;而用保存文件对话框可以指定一个文件,并以这个文件名保存当前文件
D.DefarltEXT属性DialosTire属性都是打开对话框的属性,但非保存对话框的属性
A.输入对话框
B.输出对话框
C.模式(模态)对话框
D.无模式对话框
(34)以下叙述中错误的是
A)在程序运行时,通用对话框控件是不可见的
B)调用同一个通用对话框控件的不同方法(如ShowOpen或ShowSave)可以打开不同的对话框窗口
C)调用通用对话框控件的ShowOpen方法,能够直接打开在该通用对话框中指定的文件
D)调用通用对话框控件的ShowColor方法,可以打开颜色对话框窗口
对话框在关闭之前,不能继续执行应用程序的其他部分,这种对话框属于()。
A.输入对话框
B.输出对话框
C.模式(模态)对话框
D.无模式对话框
对于“模式对话框”,以下解释正确的是()。
A、采用Windows标准模式构建的对话框
B、不能改变大小和位置的对话框
C、不含有标题栏的对话框
D、对话框不关闭不能进行应用程序主窗口操作的对话框