'编写子过程，函数的功能是：计算从1开始到n的自然数中偶数的平方的和，计算结果作为函数值返回
'要求在主调过程中输入n的值，并输出最终结果。
'子过程fun完成计算从1开始到n的'自然数中偶数的平方的和
Sub fun(n As Integer, ss As Integer)
s = 0
For i = 1 To 【1】
If 【2】 Then s = s + i ^ 2
Next i
【3】
End Sub
Private Sub Form_Click()
Dim n As Integer, sum As Integer
n = InputBox("输入n")
【4】'调用子过程fun求1到n的平方和
Print sum
End Sub
'要求在主调过程中输入n的值，并输出最终结果。
'子过程fun完成计算从1开始到n的'自然数中偶数的平方的和
Sub fun(n As Integer, ss As Integer)
s = 0
For i = 1 To 【1】
If 【2】 Then s = s + i ^ 2
Next i
【3】
End Sub
Private Sub Form_Click()
Dim n As Integer, sum As Integer
n = InputBox("输入n")
【4】'调用子过程fun求1到n的平方和
Print sum
End Sub
举一反三
- '编写函数过程，函数的功能是：计算从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
- 运行下面的程序，第二行显示结果是___________。 Private Sub Form_Click() Dim A As Integer Dim i As Integer A = 5 For i = 1 To 9 Call sub1(i, A) Print i, A Next i End Sub Private Sub sub1(x As Integer, y As Integer) Static N As Integer Dim I As Integer For I = 3 To 1 Step -1 N = N + x x = x + 2 Next I y = y + N End Sub
- 设有如下函数定义：Function fun() As Integer Static a% fun = 3 * a + 1 a = a + 2End FunctionPrivate Sub Command1_Click() Dim n As Integer n = fun n = fun MsgBox (n)End Sub则在Command1_Click中 MsgBox 显示的结果是____________。
- 函数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
- 编写如下程序： 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时，输出结果为