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

admin2010-09-11  22

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

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

答案2

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

最新回复(0)