有如下的一个函数过程：通过以下事件过程阔用该函数，程序运行后，在输入对话框中输入数字“123”，则运行结果为（ ）。

A． 12

B． 6

C． 3

D． 1

[主观题]在一个VC编写的对话框应用程序中，对话框的OnInitDialog事件函数里面最后有这么一段程序：int scx = ::GetSystemMetrics(SM_CXSCREEN);int scy = ::GetSystemMetrics(SM_CYSCREEN);C．Rect myrect;G．etWindowRect(&myrect);int fromx = (scx - myrect.Width())/2;int fromy = (scy - myrect.Height())/2;

[单选题]有如下一个函数过程：运行该程序，单击命令按钮，输出结果是______。A．4 4 4B．4 5 6C．6 7 8D．4 7 9

[单选题]在窗体画一个命令按钮，然后编写如下过程，程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为 ______。 Function Fun(ByVal num As Long)As Long 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 Lo

[单选题]（）函数的作用是建立一个输入对话框。A . MsgBox（）B . PrintC . RGB（）D . InputBox（）

[单选题]有如下的一个函数过程： Function fn(By Val hum AS Long) Dim k As Long k=l num=Abs(nam) Do While nnm k=k*(nnm Mod 10) num=num/10 Loop fn=k End Function 以下是一个调用该函数的事件过程，运行程序后，在输入对话框输入数字“123”，该过程的运行结果是( )。 PrivateA．12B．6C．3D．1

[单选题]有如下的一个函数过程：Function fn(ByVal num As Long) Dim k As Long k= 1 num = Abs(num) do while num k = k * (num Mod 10) num= num/10 Loop fn=kEnd Function 以下是一个调用该函数的事件过程，在运行该程序后，在输入对话框中输入数字123，该过程的运行结果是 ______。Private Sub Command1_Click() Dim n As Long Dim r A

[单选题]设有一个命令按钮Command1的事件过程以及一个函数过程，程序如下：Private Sub Command1_Click()Static x as integerX=f(x+5)C．lsPrint xE．nd SubPrivate function f(x as integer)as integerF．=x+xE．nd function连续单击命令按钮3次，第3次单击命令按钮后，窗体上显示的计算结果是A．)10B．)30C．)60D．)70

[单选题]有如下一个函数过程:F．unction Fun(a As Integer)Static cb=0:b=b+1:c=c+1F．un=a+b+cE．nd Function在窗体上添加一个命令按钮,事件过程如下:Private Sub Command1_Click()D．im a As Integera=2F．or i=1 To 3Print Fun(a);NextE．nd Sub运行该程序,单击命令按钮,输出结果是A．4 4 4B．4 5 6C．6 7 8D．4 7 9

[单选题]有如下一个函数过程： Function Fun(a As Integer) Static C b=0:b=b+1:c=c+1 Fun=a+b+c End Function 在窗体上添加一个命令按钮，事件过程如下： Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 3 Print Fun(a)； Next End Sub 运行该程序，单击命令按钮，输出结果是A．4 4 4B．4 5 6C．6 7 8D．4 7 9

[单选题]在窗体上画一个命令按钮，然后编写如下过程，程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为 ______。 Function fun(ByVal num As Long) As Long Dim k As Long k=1 mum=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 L