用VB编程实现下面的目的,输入一个正整数,然后计算该数的每一位非零数字相乘的积.如输入103601计算结果为1*3*6*1=18

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/30 18:33:57
用VB编程实现下面的目的,输入一个正整数,然后计算该数的每一位非零数字相乘的积.如输入103601计算结果为1*3*6*1=18

用VB编程实现下面的目的,输入一个正整数,然后计算该数的每一位非零数字相乘的积.如输入103601计算结果为1*3*6*1=18
用VB编程实现下面的目的,输入一个正整数,然后计算该数的每一位非零数字相乘的积.
如输入103601计算结果为1*3*6*1=18

用VB编程实现下面的目的,输入一个正整数,然后计算该数的每一位非零数字相乘的积.如输入103601计算结果为1*3*6*1=18
用递归吧,省时省力,代码如下:
Option Explicit
Private Sub Command1_Click()
MsgBox cal(103601)
End Sub
Function cal(ByVal n As Long) As Long
Dim x As Integer
If n > 0 Then
x = n Mod 10
If x = 0 Then
x = 1
End If
cal = x * cal(n \ 10)
Else
cal = 1
End If
End Function

用VB编程实现下面的目的,输入一个正整数,然后计算该数的每一位非零数字相乘的积.如输入103601计算结果为1*3*6*1=18 用VB编程实现下面的目的,输入一个正整数,然后计算该数的每一位非零数字相乘的积.如输入103601计算结果为1*3*6*1=18 请用VB程序编程求两个正整数m和n的最大公约数和最小公倍数.如上标题,用VB程序实现 VB编程用欧几里得算法求俩个正整数的最大公约数 用vb编程:输入三个数,求出最大的数 VB编程题:一个正整数分解成质因数天的剩积,如输入:90打印90=2*3*3*5 谁能教教我做这一道题目用vb去编程“输入一个正整数,利用“当型”循环判断是否素数. 输入一个正整数,找出大于该数的最小素数用vb怎么编 VB输入一个字符串,统计其中字母a的出现次数,用过程实现 编程实现:输入一个 n*n 的矩阵,求出两条对角线元素值之和.用C语言编程 用C语言编程,输入一个正整数,计算并显示该数的各位数字之和. 试编程判断输入的正整数是否及时5又是7的整数倍,若是,则输出yes,否则输出no(用VB的知识作答) vb 编程:设M和N是正整数,输入M,求当2的N次方大于等于M时,N的最小值 用循环语句编 VB 把一个二位的正整数的个位和十位互换,输出.如何编程 感激不尽 VB编程题.输入一个整数判断他是否是5 的倍数 VB编程,输入一个整数n(大于0,小于10)后,显示如下图像12223333344444445555555556666666777778889用的是循环语句的嵌套 例如:输入7输出1222333334444444555556667 VB编程实现华氏温度和摄氏温度之间的转变老师留的作业,本人第一次学VB,1.随即输入从a到z之间的小写字母.2.在文本框中输入一个两位数,在另一个文本框中逆序输出3.编写一个程序实现华氏温 用C语言编程实现一个简单的四则运算计算器编程:编程实现一个简单的四则运算计算器:从键盘输入一个四则运算表达式(没有空格和括号),遇等号=说明输入结束,输出结果.假设计算器只能