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, r As Long n = Val(InputBox("请输入一个数：")) r = fun(n) Print r End Sub 程序运行后，单击命令按钮，输入1234，输出结果为：( )
举一反三
- 分析下列程序，写出运行结果。#includeint fun( int num ){ int k=1; while(num){ k=k* (num%10); num=num/10; } return k;}int main(){ int x=255; printf("x=%d\n",fun(x));}程序的运行结果是：______
- 改错题： 下列给定程序中，函数fun的功能是计算正整数num的各位上的数字之平方和。 例如，输入352，则输出应该是38；若输入328，则输出应该是77。 请改正程序中的错误，使它能得出正确的结果。 注意，不要改动main函数，不得增行或删行，也不得更改程序的结构。只改动下划线中的语句。 程序代码： #include long fun(long num) { long k=1 ; do { k+=(num%10)*(num%10) ; num-=10 ; }while(num); return(k) ; } void main() { long n; printf(" Please enter a number:"); scanf ("%ld",&n); printf(" %ld ",fun(n)); }
- 以下程序的输出结果是#include<;stdio.h>;int fun6(int num){ int k=1;do{ k*=num%10; num/=10;}while(num);return k;}main( ){ int n=26;printf(“%d\n”,fun6(n));}
- 有如下程序，输入一个int型的整数num，逆向输出其各位数字，同时求出其各位以及各位数字之和。 #include#includevoid main() { int num,sum=0,k,i=0; cin>;>;num; while(num>;0) { (1) ; cout<; A: k=num%10 num=num/10 B: num=num%10 k=num/10 C: num=num/10 k=num%10 D: k=num/10 num=num%10
- 在窗体上画—个名称为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．13.45.8 B．1 3 5 C．1 4 7 D．无数据输出