函数Sum的功能是求正整数n的各位数字之和。要求单击按钮时，调用该函数对用户输入的数进行各位数字求和，并输出到窗体上。请将程序补充完整。
Function sum(【1】) As Integer
Dim s As Integer
s = 0
Do While n <> 0
d = n Mod 10
s = s + d
n = n 10
Loop
【2】
End Function
Private Sub Command1_Click()
Dim m As Integer, s As Integer
m = InputBox("请输入数")
s =【3】
Print m & "的各位数字之和为" &【4】
End Sub
Function sum(【1】) As Integer
Dim s As Integer
s = 0
Do While n <> 0
d = n Mod 10
s = s + d
n = n 10
Loop
【2】
End Function
Private Sub Command1_Click()
Dim m As Integer, s As Integer
m = InputBox("请输入数")
s =【3】
Print m & "的各位数字之和为" &【4】
End Sub
举一反三
- 编写如下程序： Private Sub Command1_Click() Dim n As Integer : Static s As Integer For n = 1 To 3 s = s + n Next Print s End Sub 程序运行后，第三次单击命令按钮Command1时，输出结果为
- '编写函数过程，函数的功能是：计算从1开始到n的 '自然数中偶数的平方的和，计算结果作为函数值返回 '要求在主调过程中输入n的值，并输出最终结果。 '计算从1开始到n的'自然数中偶数的平方的和 Function sn(n As Integer) As Integer s = 0 For i = 2 To 【1】 Step 2 s = s +【2】 Next i 【3】 End Function Private Sub Form_Click() Dim n As Integer, s As Integer n = InputBox("输入n") s = 【4】 '调用函数sn求1到n的平方和 Print s End Sub
- 求给定自然数m和n的最大公约数。请完善程序。 Private Sub Command1_Click() Dim m As Integer, n As Integer, r As Integer m = Text1.Text n = Text2.Text If m < n Then r = m: m = n: n = r Do r = m Mod n m = n n = r Loop Until__________ Text3.Text = m End Sub Private Sub Command2_Click() Dim m As Integer, n As Integer, r As Integer m = Text1.Text n = Text2.Text If m < n Then r = m: m = n: n = r r = m Mod n Do Until _______ m = n n = r r = m Mod n Loop Text3.Text =____ End Sub Private Sub Command3_Click() Dim m As Integer, n As Integer, r As Integer m = Text1.Text n = Text2.Text If m < n Then r = m: m = n: n = r Do r = m Mod n m = n n = r Loop While________ Text3.Text =______ End Sub Private Sub Command4_Click() Dim m As Integer, n As Integer, r As Integer m = Text1.Text n = Text2.Text If m < n Then r = m: m = n: n = r r = m Mod n Do While______ m = n n = r r = m Mod n Loop Text3.Text =____ End Sube73f1fd63959cc8362d8c82d419c2353.png
- 在窗体上画一个名称为 Command1 的命令按钮，然后编写下列通用过程和命令按钮的事件过程： Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click Dim i As Integer,s As Integer s=0 For i = 1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是
- 有如下事件过程 Private Sub Command1_Click() S=P(1)+P(2)+P(3)+P(4) Print S End Sub Public Function P(n As Integer) Static sum For i=1 To n sum=sum+i Next I P=sum End Function 单击命令按钮后，程序执行的结果是