cisco 2504 web 配置:用VB怎么编：输入一个正整数，求各位数字之和

来源：百度文库编辑：高校问答时间：2024/04/29 19:00:14

用最简单的方法编

Text1.text 用于输入正整数
Label1.Caption 存放各位数字之和的计算结果
计算事件Command1_Click
代码：
Private Sub Command1_Click()
Dim s() as String '定义一个数组用来存储各个数字
Dim i as Integer , num as Integer

For i = 1 To Len(Text1.Text)
s(i)=Mid(Text1.Text,1,1) '分离各个数字
num=num+Val(s(i)) '将字符串型改为数值型
Next i

Print num

Text1.text 用于输入正整数
Label1.Caption 存放各位数字之和的计算结果
计算事件Command1_Click
代码：
Private Sub Command1_Click()
Dim value As Long, Result As Integer
value = Val(Text1.Text)
Do
Result = Result + value - Int(value / 10) * 10
value = Int(value / 10)
Loop Until value = 0
Label1.Caption = "各位数字之和为: " & Result
End Sub

用VB怎么编：输入一个正整数，求各位数字之和输入一个正整数,求各位数字之和用VB怎么编输入一个整数中的所有素数求,用(工程1-Microsoft Visual Basic)编一个程序,是(输入两个正整数m,n ,输出其最小公倍数)谢谢 VB中输入一个n，求n的阶乘怎么编？编程,键盘上输入一个不大于99999的正整数,判断其是一个几位数,并按逆序输入各位数字.运行界面自己设计怎么编一个模拟游戏VB 输入一个长整型数,求各位数字之和. c ,编程。输入一个小于1000的正整数，计算它各位上的数字之和。例，输入234，输出结果为9。编写函数computNum( int num)，它的功能是计算任意输入的一个正整数的各位数字之和，结果由函数返回。