题目内容
（请给出正确答案）
编写如下通用过程： Sub proc(By Val num As Long，ByRef ren As Long) Dim k As Long K = 1 num=Abs(num) Do While num k= k *(num Mod 10) num=num\ 10 Loop ren=k End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim n As Long， r As Long n=InputBox("请输入一个整数") n = CLng(n) proc n，r Print r End Sub 程序运行后，单击命令按钮，在输入对话框中输入345，输出结果是【 】。
如果结果不匹配，请 联系老师 获取答案
更多“编写如下通用过程： Sub proc（By Val num …”相关的问题
A.25
B.24
C.15
D.10
A.-5
B.25
C.1
D.-1
Private Sub Command1_Click（）
Dim a As Integer, s As Integer
a = 8
s = 1
Do
s = s + a
a = a－1
Loop While a ＜＝ 0
Print s; a
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是（）。
A.7 9
B.34 0
C.9 7
D.死循环
Private Sub Command1_Click（）
Dim a, b As Integer
a = val（InputBox（"Enter the First integer"））
b = val（InputBox（"Enter the Second integer"））
Print a + b
End Sub
程序运行后，单击命令按钮，先后在两个输入对话框中分别输入123和456，则输出结果是和（）。
A.579
B.123
C.456
D.123456
Private Sub Command1 _ Click() Dim a(10)
For i=1 To 10
a(i)=Val(InputBox(″″,″″,0)) Next i
For i=______ For j=______
If ______ Then b=a(i) a(i)=a(j) a(j)=b End If Next j Next i
For k=1 To 10 Print a(k) Next k End Sub
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num = 1 Do Until num ＞ 6 Print num; num = num + 2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是()。
A.无数据输出
B.1 3.4 5.8
C.1 4 7
D.1 3 5
A.15
B.14
C.13
D.12
A.40
B.30
C.20
D.10
A.15
B.14
C.13
D.12
在窗体上画一个名称为CommandDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：
Private Sub Command1_Click（）
CommonDialog1.FileName =""
CommonDialog1.Filter="All file|*.*|（*.Doc）|*.Doc|（*.Txt）|*.Txt"
CommonDialog1.FilterIndex=1
CommonDialog1.DialogTitle="VBTest"
CommonDialog1.Action=1
End Sub
对于这个程序，以下叙述中错误的是（）。
A.该对话框被设置为"打开"对话框
B.在该对话框中指定的文件名为空
C.该对话框的标题为VBTest
D.在该对话框中指定的默认文件类型为文本文件（*.Txt）
A.该对话框被设置为“打开”对话框
B.在该对话框中指定的默认文件名为空
C.该对话框的标题为VBTest
D.在该对话框中指定的默认文件类型为文本文件(*.Txt)
