在窗体上画一个命令按钮,然后编写如下过程,程序运行后,单击命令按钮,在输入对话框中输入234,输出结果为 ______。 Function fun(ByVal num As Long) As Long Dim k As Long k=1

admin2013-04-11  25

问题 在窗体上画一个命令按钮,然后编写如下过程,程序运行后,单击命令按钮,在输入对话框中输入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 Long    n=InputBox("请输入一个数")    n=CLng(n)    r=fun(n)    Print r    End Sub

选项 A、20
B、24
C、9
D、28

答案2

解析 此程序的功能是对输入的整数在fun函数巾求出其每位数字的积,循环结构的作用是对传来的数据进行位数的分解,分别得到个位、十位、百位等的数字,再将其累乘到变量k中,并把k的值作为函数的返回值,因此234的3位数字相乘的结果是24。
转载请注明原文地址:https://jikaoti.com/ti/S860FFFM
0

最新回复(0)