07年春的计算机vb题 编制函数过程sum，用于计算一个整数的各位数字之和

求一个VB编程题的解！！！！在线等~~

Public Function Sum(ByVal n As Integer)
Do
Sum = Sum + n Mod 10
n = n \ 10
Loop While n 0
End Function

Private Sub Command1_Click()
print sum(123)
end sub

编写一个函数，用来计算整数1 ~n的累加结果，n的大小在调用函数时指定。为此，编写一个以n为参数的函数过程，代码如下：

　　Private Function Sum(n As Integer) As Ineger

　　Dim s As Integer

　　S-0

　　For j=1 To n

　　s=s+i

　　Next

　　Sum=s

　　End Function

　　在窗体的Click事件过程中调用自定义的函数，代码如下：

　　Private Sub Prom_Click()

　　Dim r As Integer

　　r=Sum(100)

　　Print F

　　Ebs Sub

Private Function Sum(ByVal n As Long) As Integer
Dim i As Integer
Dim s As String
s = Trim(Str(n))
For i = 1 To Len(s)
Sum = Sum + Val(Mid(s, i, 1))
Next i
End Function

Private Sub Command1_Click()
Dim i As Integer
Dim a(1 To 10) As Integer
Dim b(1 To 10) As Integer
For i = 1 To 10
a(i) = Val(InputBox("输入:"))
b(i) = Sum(a(i))
Next i
For i = 1 To 10
Print a(i);
Next i
Print
For i = 1 To 10
Print b(i);
Next i

End Sub

---

舟山市17589814309： 07年春的计算机vb题 编制函数过程sum,用于计算一个整数的各位数字之和 - ？
镡哪保欣： Private Function Sum(ByVal n As Long) As Integer Dim i As Integer Dim s As String s = Trim(Str(n)) For i = 1 To Len(s) Sum = Sum + Val(Mid(s, i, 1)) Next i End Function Private Sub Command1_Click() Dim i As Integer Dim a(1 To 10) As Integer ...

舟山市17589814309： 编一函数求两个整数的最大公约数,调用该函数求3个整数的最大公约数VB题 - ？
镡哪保欣： Private Sub Command1_Click() Dim a, b, c As Long a = InputBox(＂a=＂) b = InputBox(＂b=＂) c = InputBox(＂c=＂) a = maxgongyueshu(a, b) a = maxgongyueshu(a, c) MsgBox a End Sub Private Function maxgongyueshu(a, b) Dim min, max, i As...

舟山市17589814309： VB问题,编制一个自定义函数F,求一维数组(实数)的平均值,再对随机产生的30个两位正整数,调用F求平均值？
镡哪保欣： '函数f function f( n() as double) as double dim i as integer ,s as double for i = lbound(n) to ubound(n) s=s+n(i) next f=s/(ubound(n)-lbound(n)+1) end function sub testthis() dim i as integerdim k(1 to 30) as double for i = 1 to 30 k(i) =rnd*100 next msgbox ＂平均值＂ & f(k) end sub

舟山市17589814309： VB 题目:编写函数fun其功能是:根据整型形参m,计算如下公式的值:y=1/2+1/4+1/6..+1/2m 程序代码帮忙下! - ？
镡哪保欣：[答案] private sub fun(m as integer) as single dim i as integer for i=1 to m fun=fun+1/(2*i) next end sub

舟山市17589814309： 计算机VB:编制通用函数过程(Sum),计算1+2+…+N的值、在窗体的click事件中掉用该函数…怎么做?求详 - ？
镡哪保欣： 编写一个函数,用来计算整数1 ~n的累加结果,n的大小在调用函数时指定.为此,编写一个以n为参数的函数过程,代码如下:Private Function Sum(n As Integer) As InegerDim s As IntegerS-0For j=1 To ns=s+iNextSum=sEnd Function在窗体的Click事件过程中调用自定义的函数,代码如下:Private Sub Prom_Click()Dim r As Integerr=Sum(100)Print FEbs Sub

舟山市17589814309： VB 编写函数fun,其功能是:能计算从1开始到n的自然数中偶数的平方和!急用! - ？
镡哪保欣：[答案] Function sum(n) As Double sum = 0 For i = 1 To n If i Mod 2 = 0 Then sum = sum + i * i Next End Function

舟山市17589814309： VB试题:编写函数fun,函数的功能是:求I 到a之间的偶数之积 - ？
镡哪保欣：[答案] Private Sub fun() if i mod 2 = 0 then for x=i to a step 2 s=s*x next x else for x=(i+1) to a step 2 then s=s*x next x end if 试试看行不行吧

舟山市17589814309： VB编程题,1.用函数调用的方式编写求两个自然数的最大公约数.2.计算5!+4!+3!+2!+1!,按照地址传递的方法 - ？
镡哪保欣： 第一题:两个TextBox,一个Command.Option Explicit Private Function MaxModNum _(ByVal a As Long, ByVal b As Long) _ As Long Dim c As Long c = 1 Do While c <> 0 c = a Mod b a = b b = c DoEvents Loop MaxModNum = a End Function ...

舟山市17589814309： 请教一道VB编程题请编写函数fun(a,b),其函数功能是:计算a到b区间内(包括a、b)所有不能整除3的整数之和,并返回结果,窗体上已经给出a,b的值. ... - ？
镡哪保欣：[答案] Private Function fun(ByVal a As Integer, ByVal b As Integer) As Integer s = 0 For i = a To b If i Mod 3 0 Then s = s + i End If Next fun = sEnd Function

舟山市17589814309： 编写VB阶乘的函数 - ？
镡哪保欣： 1、vb代码中,求一个数的阶乘的函数代码如下:Public Function jiecheng(ByVal n As Integer) As Double Dim jc As Double jc = 1 For i = 1 To n jc = jc * i Next jiecheng = jc End Function2、具体用法:首先打开VB6.0,新建一个标准exe工程;3、...