当前位置:首页 >> >>

在窗体上画一个命令按钮,然后编写如下程序: Function funl(ByVal Bum As Long)As Lo


在窗体上画一个命令按钮,然后编写如下程序: Function funl(ByVal Bum As Long)As Long Dim k As Long k = 0 Bum=Abs(Bum) Do While Bum k=k+(Bum Mod 10) Bum=Bum\10 Loop fun1=k End Function Private Sub Command1_Click() Dim n As Long n=InputBox("请输入一个数") Print fun1(n) End Sub 程序运行后,单击命令按钮,在对话框中输入234,输出的结果为

A.3
B.4
C.9
D.10


更多相关标签: