作业帮 > 综合 > 作业

编写求一个整数的各位数的乘积的vb程序如234的各位乘积为2*3*4=24

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/07/03 06:55:54
编写求一个整数的各位数的乘积的vb程序如234的各位乘积为2*3*4=24
编写求一个整数的各位数的乘积的vb程序如234的各位乘积为2*3*4=24
代码如下:Private Sub Form_Click() Dim a As String,s As Integer '定义变量 s = 1 '初始化数据 a = Val(InputBox("输入数值","数据输入")) '对变量赋值 For i = 1 To Len(a) '用循环语句进行计算 s = s * Val(Mid(a,i,1)) '获取字符并计算 Next Print s '打印结果 End Su